Notice: Any messages purporting to come from this site telling you that your password has expired, or that you need to verify your details, confirm your email, resolve issues, making threats, or asking for money, are
spam. We do not email users with any such messages. If you have lost your password you can obtain a new one by using the
password reset link.
Due to spam on this forum, all posts now need moderator approval.
Entire forum
➜ MUSHclient
➜ VBscript
➜ Can't get something This to work
|
Can't get something This to work
|
It is now over 60 days since the last post. This thread is closed.
Refresh page
| Posted by
| David B
USA (80 posts) Bio
|
| Date
| Thu 27 Feb 2003 02:30 PM (UTC) |
| Message
| The script:
sub SpamCast(name, output, wilds)
dim count
for count = 1 to 10
world.send "c " & world.getvariable("SpellName")
next
world.send world.getvariable ("Sleeper")
world.send "inventory"
end sub
Works perfect, like a charm.
Wanna change it to:
sub SpamCast(name, output, wilds)
dim count
for count = world.getvariable ("spellcount")
world.send "c " & world.getvariable("SpellName")
next
world.send world.getvariable ("Sleeper")
world.send "inventory"
end sub
I setup an alias:
Alias: spellcount (*)
Checked: Enabled, Ignore Case
label: SpellCount
script: SpellCount
sub SpellCount (name, line, wilds)
world.setvariable "SpellCount", wilds (1)
end sub
For somereason its not working :( I'm doing soemthing wrong and I'm not quite sure what it is.
|
My code(with a LOT of Nicks help) to fame:
sub OnAutoCombo (TriggerName, TriggerLine, arrWildCards)
dim AutoCombo
AutoCombo = split (arrWildCards (1))
Dim i, attack
for i=lbound (AutoCombo ) to ubound (AutoCombo )
Select Case AutoCombo (i)
case "rp" attack = "punch right"
case "lp" attack = "punch left"
case "s" attack = "sweep"
case "r" attack = "roundhouse"
case else attack = "" ' unknown attack type
End Select
if i = ubound (AutoCombo ) then
world.send "throw " + world.getvariable ("attacker") + " down"
else
world.send attack + " " + world.GetVariable ("attacker")
end if
next
end sub
| | Top |
|
| Posted by
| Shadowfyr
USA (1,792 posts) Bio
|
| Date
| Reply #1 on Thu 27 Feb 2003 06:40 PM (UTC) |
| Message
| >>>>for count = world.getvariable ("spellcount")<<<
What are you starting at? This will only do it once, since you fail to specify 'start TO end' and assumes that spellcount is both the start and end. Change it to:
for count = 1 to world.getvariable ("spellcount") | | Top |
|
| Posted by
| Ked
Russia (524 posts) Bio
|
| Date
| Reply #2 on Fri 28 Feb 2003 05:00 AM (UTC) |
| Message
| Maybe it would be safer to do:
for count = 1 to cint(world.getvariable("spellcount"))
At least I never trust VB to make those sorts of decisions *shrug* | | 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.
15,009 views.
It is now over 60 days since the last post. This thread is closed.
Refresh page
![[Go to top]](/images/gototop.gif)
top