I'm working on making a bot for an online graphical game that allows bots. Problem is that my script is suppose to add triggers upon recieving a whisper. It adds the trigger fine, but isn't adding the trigger with the name it is suppose to. The following is the script. This problem is also preventing me from using DeleteTrigger as well.
Sub Addban (thename, theoutput, thewildcards)
dim sTarget
dim sTcommand
dim tname
sTarget = Trim (thewildcards (2))
mTarget = Trim (thewildcards (2))
tname = replacer(sTarget)
sTcommand = chr(34) & "eject " & sTarget
world.addtrigger tname,"*" & mTarget & "*",sTcommand,1,6,0,"",""
world.DoCommand "Save"
end sub
Sub Removeban(thename, theoutput, thewildcards)
dim i, furre, commander
commander = Trim (thewildcards (1))
furre = Trim (thewildcards (2))
furre = replacer(furre)
world.DeleteTrigger furre
i = world.DeleteTrigger (furre)
world.note "trigger delete status was " & i
world.DoCommand "Save"
end sub
The function 'replacer()' that the the string furre is sent to, is for replacing special characters. Please help me if you can. Thanks.
Sub Addban (thename, theoutput, thewildcards)
dim sTarget
dim sTcommand
dim tname
sTarget = Trim (thewildcards (2))
mTarget = Trim (thewildcards (2))
tname = replacer(sTarget)
sTcommand = chr(34) & "eject " & sTarget
world.addtrigger tname,"*" & mTarget & "*",sTcommand,1,6,0,"",""
world.DoCommand "Save"
end sub
Sub Removeban(thename, theoutput, thewildcards)
dim i, furre, commander
commander = Trim (thewildcards (1))
furre = Trim (thewildcards (2))
furre = replacer(furre)
world.DeleteTrigger furre
i = world.DeleteTrigger (furre)
world.note "trigger delete status was " & i
world.DoCommand "Save"
end sub
The function 'replacer()' that the the string furre is sent to, is for replacing special characters. Please help me if you can. Thanks.