Mouse Co-Ordinates

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	6.0
Scores Submitted	3
Date Added	Apr 18, 2008
Last Updated	Apr 18, 2008
Tags	.ini .txt axis co irc jonesy jonesy44 mirc mouse mouse.x mouse.y ordinates script x y

Introduction

This script is a simple developer help tool for dialog..ers. If you do not use a dialog suite, and perfer to do things the old fashioned way, this little tool should help.

It can also be set for "dbu" or "pixels" ;-)

Screenshot:

** Read the help file for more info, it's not toooo taxxing to work though ;-) hehe

Grab the Code

;;                 V1.0                ;;
;;          Script by Jonesy44         ;;
;;            www.hawkee.com           ;;
;; irc.deltaanime.net:6667 - #Jonesy44 ;;
menu channel,query,status {
  Mouse Co-Ord. {
    mco
  }
}
alias mco {
  if (!$dialog(mco)) {
    dialog -m mco mco
  }
  else {
    dialog -x mco mco
    dialog -m mco mco
  }
}
dialog mco {
  title "Mouse Co-Ordinates"
  size -1 -1 300 150
  option pixels
  ;; TAB 1 - SWITCH
  tab "Switch", 1, 0 0 300 155
  box "Show Co-Ordinates", 3, 10 26 280 40, tab 1
  radio "On", 4, 100 44 30 15, tab 1 group
  radio "Off", 5, 170 44 30 15, tab 1
  box "Dialog Type (Option)", 6, 10 70 280 40, tab 1
  radio "dbu", 7, 100 88 50 15, tab 1 group 
  radio "pixels", 8, 170 88 50 15, tab 1
  button "Accept", 9, 10 118 280 25, tab 1 ok
  ;; TAB 2 - HELP
  tab "Help", 2
  edit "Welcome to Jonesy44's Dialog Mouse Co-Ordinates control. Select the 'On' Option for the co-ordinates to show in any dialog box titlebar (Format (xx,yy)). You must then select the option you usually use, 'dbu' or 'pixels'. Note: Your dialog box must be wide enough for the co-ordinates to show in the titlebar", 10, 10 26 280 120, tab 2 multi read vsbar
}
on *:DIALOG:mco:init:*: {
  did -e mco 9
  did -c mco $iif(%mco.type,4,5)
  if ($did(5).state == 1) {
    did -bu mco 7,8
  }
  if (%mco.type) {
    did -c mco $iif(%mco.type == dbu,7,8)
  }
}
on *:DIALOG:mco:sclick:*: {
  if ($did == 5) {
    did -bu mco 7,8
    did -e mco 9
  }
  if ($did == 4) {
    did -e mco 7,8
    did -b mco 9
  }
  if ($did == 7 || $did == 8) {
    did -e mco 9
  }
  if ($did == 9) {
    if ($did(5).state == 1) {
      unset %mco.type
    }
    else {
      set %mco.type $iif($did(7).state == 1,dbu,pixels)
    }
    dialog -x mco mco
  }
}
on *:DIALOG:*:mouse:*: {
  if (!%mco.type) {
    halt
  }
  else {
    if (!%mco.title) {
      set %mco.title $dialog($dname).title
    }
    dialog -t $dname %mco.title ( $+ $iif(%mco.type == dbu,$round($calc($mouse.x / 2),0),$mouse.x) $+ , $iif(%mco.type == dbu,$round($calc($mouse.y / 2),0),$mouse.y) $+ )
  }
}
on *:DIALOG:*:close:*: {
  unset %mco.title
}

Comments

(5) RSS

Go to Bottom

mountaindew

Comments: 1,645

mIRC Snippet: Mouse Co-Ordinates
Posted on Apr 18, 2008 3:49 pm

Neat :)

jonesy44

Comments: 1,085

mIRC Snippet: Mouse Co-Ordinates
Posted on Apr 18, 2008 3:54 pm

hehe, thanks bud.

You like my wild paint skillz? :D

mountaindew

Comments: 1,645

mIRC Snippet: Mouse Co-Ordinates
Posted on Apr 18, 2008 4:52 pm

Of course, lol.

^Neptune

Comments: 340

mIRC Snippet: Mouse Co-Ordinates
Posted on Apr 19, 2008 6:13 pm

8/10

Pretty useful, but you can't find the "co-ordinates" of an object exactly. Maybe somehow make it click an item in a dialog and it returns the co-ordinates. :D

jonesy44

Comments: 1,085

mIRC Snippet: Mouse Co-Ordinates
Posted on Apr 20, 2008 5:53 am

okay, i think i have an idea ;-)

Mouse Co-Ordinates

Introduction

Grab the Code

Comments

jonesy44

My Snippet Tags

Contact

Friends (20)

Sponsors

		Student UK
Last seen: Oct 11, 2008 Profile \| Website Likes (23) Friends (20) Snippets (37) Images (43) Reviews (2) Comments Received (835) Comments Submitted (1085) Forum Posts (41)