Message
| sub PromptParse (strTriggerName, trig_line, arrWildCards)
select case lcase(StrTriggerName)
case "install"
world.addtrigger "SendPrompt", "(*/*hp|*m|*mv)(*)<* coins>(#*)", "", 1, -1, 0, "", "PromptParse"
case "sendprompt" ' 1 2 3 4 5 6 7 - These are the wildcards
world.setvariable "CurrentHP", cint(arrWildCards(1))
world.setvariable "MaxHP", cint(arrWildCards(2))
world.setvariable "CurrentMana", cint(arrWildCards(3))
world.setvariable "CurrentVitality", cint(arrWildCards(4))
world.setvariable "CurrentCoins", arrWildCards(6)
case else
end select
' Below this line we can insert the subroutines that have to be checked everytime a prompt shows up.
call ManaCheck
end sub
sub ManaCheck
if world.getvariable("CurrentMana") <= world.getvariable("MinMana") then
world.send "Restore Self"
end if
end sub
sub SD-spellup (strTriggerName, trig_line, arrWildCards)
' This subroutine is written in Visual Basic scripting for Mushclient
' to install type: /sd-spellup "Install" "" ""
' Use however you like, modify at own risk
' SD in all triggernames are used to ID the writter of this script
' Storm Dragon of Gammon Software Solutions forum at : www.mushclient.com
select case ucase(strtriggername)
case "INSTALL"
world.addtrigger "SD-spelluptrigger", "* says 'spellup'", "", 1, -1, 0, "", "SD-spellup"
case "SD-SPELLUPTRIGGER"
world.setvariable "SD-Person", arrWildCards(1)
world.addtrigger "SD-TooLate", "* says 'spellup'", "", 1, -1, 0, "", "SD-spellup"
world.addtimer "SD-Commence-1", 0, 0, 1, "", 5, "SD-spellup"
case "SD-TOOLATE"
world.send "say Sorry " + arrwildcards(1) + " but I am already casting spells on " + world.getvariable("SD-Person") + " please be patient"
case "SD-COMMENCE-1"
world.send ",is now casting on " + world.getvariable("SD-PERSON")
world.send "cast 'kindred strength' " + world.getvariable("SD-PERSON")
world.addtimer "SD-Commence-2", 0, 0, 2, "", 5, "SD-spellup"
case "SD-COMMENCE-2"
world.send "cast 'elven beauty' " + world.getvariable("SD-PERSON")
world.addtimer "SD-Commence-3", 0, 0, 2, "", 5, "SD-spellup"
case "SD-COMMENCE-3"
world.send "cast 'trollish vigor' " + world.getvariable("SD-PERSON")
world.addtimer "SD-Commence-4", 0, 0, 2, "", 5, "SD-spellup"
case "SD-COMMENCE-4"
world.send "cast 'valiance' " + world.getvariable("SD-PERSON")
world.addtimer "SD-Commence-5", 0, 0, 2, "", 5, "SD-spellup"
case "SD-COMMENCE-5"
world.send "cast 'fly' " + world.getvariable("SD-PERSON")
world.send ",revs up the Turbo-Trancer 2000"
world.send ",enters Turbo-Trance 1 of 2"
world.addtimer "SD-Commence-6", 0, 0, 2, "", 5, "SD-spellup"
case "SD-COMMENCE-6"
world.send "trance"
world.send ",enters Turbo-Trance 2 of 2"
world.send "smile " + world.getvariable("SD-PERSON")
world.addtimer "SD-Commence-7", 0, 0, 2, "", 5, "SD-spellup"
case "SD-COMMENCE-7"
world.send ",begins casting once more"
world.send "cast 'iceshield' " + world.getvariable("SD-PERSON")
world.addtimer "SD-Commence-8", 0, 0, 2, "", 5, "SD-spellup"
case "SD-COMMENCE-8"
world.send "cast 'fireshield' " + world.getvariable("SD-PERSON")
world.addtimer "SD-Commence-9", 0, 0, 2, "", 5, "SD-spellup"
case "SD-COMMENCE-9"
world.send "cast 'fireshield' " + world.getvariable("SD-PERSON")
world.addtimer "SD-Commence-10", 0, 0, 2, "", 5, "SD-spellup"
case "SD-COMMENCE-10"
world.send "cast 'fireshield' " + world.getvariable("SD-PERSON")
world.addtimer "SD-Commence-11", 0, 0, 2, "", 5, "SD-spellup"
case "SD-COMMENCE-11"
world.send "cast 'dragon wit' " + world.getvariable("SD-PERSON")
world.addtimer "SD-Commence-12", 0, 0, 2, "", 5, "SD-spellup"
case "SD-COMMENCE-12"
world.send "cast 'slink' " + world.getvariable("SD-PERSON")
world.addtimer "SD-Commence-13", 0, 0, 2, "", 5, "SD-spellup"
case "SD-COMMENCE-13"
world.send "cast 'sagacity' " + world.getvariable("SD-PERSON")
world.addtimer "SD-Commence-14", 0, 0, 2, "", 5, "SD-spellup"
case "SD-COMMENCE-14"
world.note "Done! Target has been spelled up!"
world.send ",looks about for others to cast on!"
world.deletetrigger "SD-TOOLATE"
world.addtrigger "SD-spelluptrigger", "* says 'spellup'", "", 1, -1, 0, "", "SD-spellup"
case else
world.note "Incorrect usage, please read the comments of this subroutine"
end select
end sub
The above is all the code I have in the script file.. That's it.. All of it.. And I still get the error that I got above^^.. Just by letting MC rehash the config script, before I even type the install part.. Any idea? |
"By the pricking of my thumbs, something wicked this way comes. Open locks, whoever knocks!" MacBeth, Shakespeare | Top |
|