Gammon Forum : MUSHclient : VBscript : My Targeting System

Entire forum ➜ MUSHclient ➜ VBscript ➜ My Targeting System

My Targeting System

It is now over 60 days since the last post. This thread is closed. Refresh page

Posted by PJ USA (48 posts) Bio

Date Tue 14 Jan 2003 06:09 AM (UTC)

Message

Well, I've gotten some help on it through the past few months and I'm putting it all together so any of you can us it easy..
I still dont know quite how it works but I'm fine with that..
You might say "you cant change macros from script" but in my targetting system you can..

Commands:

C2 * Changes the macro for F2 to "* @target" (2 isnt only macro you can change)
SetA Sets the first target you want to fight
SetB Sets the other target you want to fight
Swap Swaps who you're aiming at, "@target"
Prey Shows both of the targets you've set

Setting it up:

Make macros F2-F9 send "Macro_F2+++" to "Macro_F9+++"
Paste the following into your VBS script (Only down to the dashed line!)


sub On_Set_A (aliasname, full_line, wildcards)

dim target

  target = wildcards (1)
  world.setvariable "A", target
  world.note "Target A set to " & target

  world.setvariable "target", target
  world.note "Current target now " & target
end sub

sub On_Set_B (aliasname, full_line, wildcards)

dim target

  target = wildcards (1)
  world.setvariable "B", target
  world.note "Target B set to " & target

end sub

sub On_List_Targets (aliasname, full_line, wildcards)

  world.note "Target A = " & world.getvariable ("A")
  world.note "Target B = " & world.getvariable ("B")
  world.note "CURRENT target = " & world.getvariable ("target")

end sub

sub On_Swap (aliasname, full_line, wildcards)

dim A, B

  A = world.getvariable ("A")
  B = world.getvariable ("B")

  if world.getvariable ("target") = A then
     world.setvariable "target", B
  else
     world.setvariable "target", A
  end if

  world.note "Current target now " & world.getvariable ("target")

end sub

sub AliasChange2 (sName, sLine, wildcards)
  world.deletealias "F2"
  world.addalias "F2", "Macro_F2+++", wildcards (1) + " @Target", 512 + 1, ""
  world.note "Changed F2"
end sub

sub AliasChange3 (sName, sLine, wildcards)
  world.deletealias "F3"
  world.addalias "F3", "Macro_F3+++", wildcards (1) + " @Target", 512 + 1, ""
  world.note "Changed F3"
end sub

sub AliasChange4 (sName, sLine, wildcards)
  world.deletealias "F4"
  world.addalias "F4", "Macro_F4+++", wildcards (1) + " @Target", 512 + 1, ""
  world.note "Changed F4"
end sub

sub AliasChange5 (sName, sLine, wildcards)
  world.deletealias "F5"
  world.addalias "F5", "Macro_F5+++", wildcards (1) + " @Target", 512 + 1, ""
  world.note "Changed F5"
end sub

sub AliasChange6 (sName, sLine, wildcards)
  world.deletealias "F6"
  world.addalias "F6", "Macro_F6+++", wildcards (1) + " @Target", 512 + 1, ""
  world.note "Changed F6"
end sub

sub AliasChange7 (sName, sLine, wildcards)
  world.deletealias "F7"
  world.addalias "F7", "Macro_F7+++", wildcards (1) + " @Target", 512 + 1, ""
  world.note "Changed F7"
end sub

sub AliasChange8 (sName, sLine, wildcards)
  world.deletealias "F8"
  world.addalias "F8", "Macro_F8+++", wildcards (1) + " @Target", 512 + 1, ""
  world.note "Changed F8"
end sub

sub AliasChange9 (sName, sLine, wildcards)
  world.deletealias "F9"
  world.addalias "F9", "Macro_F9+++", wildcards (1) + " @Target", 512 + 1, ""
  world.note "Changed F9"
end sub

-------------------------------THEN-------------------------------
Copy the following and go to File and Import and click the Clipboard box for "Import From"...


<aliases>
  <alias
   name="change_f2"
   script="aliaschange2"
   match="c2 *"
   enabled="y"
   expand_variables="y"
  >
  </alias>
  <alias
   name="change_f3"
   script="aliaschange3"
   match="c3 *"
   enabled="y"
   expand_variables="y"
  >
  </alias>
  <alias
   name="change_f4"
   script="aliaschange4"
   match="c4 *"
   enabled="y"
   expand_variables="y"
  >
  </alias>
  <alias
   name="change_f5"
   script="aliaschange5"
   match="c5 *"
   enabled="y"
   expand_variables="y"
  >
  </alias>
  <alias
   name="change_f6"
   script="aliaschange6"
   match="c6 *"
   enabled="y"
   expand_variables="y"
  >
  </alias>
  <alias
   name="change_f7"
   script="aliaschange7"
   match="c7 *"
   enabled="y"
   expand_variables="y"
  >
  </alias>
  <alias
   name="change_f8"
   script="aliaschange8"
   match="c8 *"
   enabled="y"
   expand_variables="y"
  >
  </alias>
  <alias
   name="change_f9"
   script="aliaschange9"
   match="c9 *"
   enabled="y"
   expand_variables="y"
  >
  </alias>
  <alias
   name="F2"
   match="Macro_F2+++"
   enabled="y"
   expand_variables="y"
  >
  <send>rem shield
wear scroll</send>
  </alias>
  <alias
   name="F3"
   match="Macro_F3+++"
   enabled="y"
   expand_variables="y"
  >
  <send>rem scroll
wear shield</send>
  </alias>
  <alias
   name="F4"
   match="Macro_F4+++"
   enabled="y"
   expand_variables="y"
  >
  <send>murder @Target</send>
  </alias>
  <alias
   name="F5"
   match="Macro_F5+++"
   enabled="y"
   expand_variables="y"
  >
  <send>c summon @Target</send>
  </alias>
  <alias
   name="F6"
   match="Macro_F6+++"
   enabled="y"
  >
  <send>@Target</send>
  </alias>
  <alias
   name="F7"
   match="Macro_F7+++"
   enabled="y"
   expand_variables="y"
  >
  <send>ch blood @Target</send>
  </alias>
  <alias
   name="F8"
   match="Macro_F8+++"
   enabled="y"
   expand_variables="y"
  >
  <send>dirt @Target</send>
  </alias>
  <alias
   name="F9"
   match="Macro_F9+++"
   enabled="y"
   expand_variables="y"
  >
  <send>trip @Target</send>
  </alias>
  <alias
   script="On_List_Targets"
   match="prey"
   enabled="y"
  >
  </alias>
  <alias
   script="On_Set_A"
   match="seta *"
   enabled="y"
  >
  </alias>
  <alias
   script="On_Set_B"
   match="setb *"
   enabled="y"
  >
  </alias>
  <alias
   script="On_Swap"
   match="swap"
   enabled="y"
  >
  </alias>
</aliases>

Top

Posted by

PJ USA (48 posts) Bio

Date

Reply #1 on Tue 14 Jan 2003 06:17 AM (UTC)

Message

Useful tips..

If you dont like using F9 or whatever, just set Ctrl+Shift+9 or whatever you use to "Macro_F9+++" and it will work all the same..
I have some macros like F2 set for wearing and removing stuff, just set them for "Dirt @target" and change them to whatever you want..
I suggest highliting the names of people in your PK range by using a bright color so they show up on who and where lists.. Trust me, it helps..

Have fun with it, I do..

Top

The dates and times for posts above are shown in Universal Co-ordinated Time (UTC).

To show them in your local time you can join the forum, and then set the 'time correction' field in your profile to the number of hours difference between your location and UTC time.

11,303 views.

It is now over 60 days since the last post. This thread is closed. Refresh page

Go to topic: Search the forum

top