Remotely re-scriptable bot - Problem - 26/06/10 08:46 AM
I'm trying to make a bot I would be able to re-script remotely, but it's giving me trouble...
This is a section of the code that seats in mIRC:
This code is from $mircdirzBOT\Text:
It just gives me
7 Unknown command
8 Unknown command
VAR Unknown command
And those are when it doesn't freeze mIRC up...
Edit: And yes, I am aware of the slight changes you can make to the 'inc %i's, I felt that was not important enough for now.
Edit#2: Added line number indicators to the second code.
Edit#2: Added the $reval alias.
Edit#3: Ok, this is the up-to-date code. Now it just starts an infinite loop...
I stopped the loop, thanks to that "&& $read($mircdirmSS\Config,5) == 1", this is what I saw:
1) A ton load of "EXC Unknown Command" in the status window.
2) The vars:
%ZBOT_i 2351
%ZBOT_line $reval($read($mircdirzBOT\command_ $+ $mid($1,2,$calc($len($1)-1)),i))
Edit#4: Made some changes with places where there's a %zBOT_ $+, basically addind [[]]s. Now that ",i))" turned into %zBOT_i.
Still get an infinite loop of "Exc Unknown command" -_-
Any help would be appreciated!
ziv.
This is a section of the code that seats in mIRC:
Code:
;;The Support commands, for internal use. alias exc $replace($reptok($reptok($reptok($reptok($reptok($1-,var,_set,0,32),set,_set,0,32),unset,_unset,0,32),inc,_inc,0,32),dec,_dec,0,32),<&>,$chr(36),<!>,%zBOT_) alias reval $return $eval($replace($1-,<&>,$chr(36),<!>,$chr(37)),1) alias _set set %ZBOT_ $+ $1 $2- alias _unset unset %ZBOT_ $+ $1 alias _inc inc %ZBOT_ $+ $1 $2- alias _dec dec %ZBOT_ $+ $1 $2- ;;Built-in event section;; on *:text:*:*:{ var %file = $mircdirzBOT\ $+ $event var %i = 1 while %i <= $lines(%file) && $read($mircdirmSS\Config,5) == 1 { var %line = $read(%file,%i) tokenize 32 %line if $1 == <&>if { tokenize 32 $eval($replace(%line,<&>,$chr(36),<!>,%zBOT_),1) if $2- { inc %i var %line = $eval($replace($read(%file,%i),<&>,$chr(36),<!>,%zBOT_),1) var %i = %line } else { inc %i 2 var %line = $eval($replace($read(%file,%i),<&>,$chr(36),<!>,%zBOT_),1) var %i = %line } } elseif $1 == <&>goto { var %i = $2 } else { exc $1- inc %i } } }
This code is from $mircdirzBOT\Text:
Code:
#1:<&>if <&>left(<&>1,1) == & #2:4 #3:17 #4:<&>if <&>read(<&>mircdirzBOT\users,s,<&>address(<&>nick,10)) >= <&>gettok(<&>read(<&>mircdirzBOT\commands,s,<&>mid(<&>1,2,<&>calc(<&>len(<&>1)-1))),2,32) #5:7 #6:17 #7:set <!>i 1 #8:<&>if <!>i <= <&>lines(<&>mircdirzBOT\command_ <&>+ <&>mid(<&>1,2,<&>calc(<&>len(<&>1)-1))) #9:11 #10:15 #11:set <!>line <&>reval(<&>read(<&>mircdirzBOT\command_ <&>+ <&>mid(<&>1,2,<&>calc(<&>len(<&>1)-1)),<!>i)) #12:exc <!>line #13:inc <!>i #14:<&>goto 8 #15:unset <!>i #16:unset <!>line #17:noop
It just gives me
7 Unknown command
8 Unknown command
VAR Unknown command
And those are when it doesn't freeze mIRC up...
Edit: And yes, I am aware of the slight changes you can make to the 'inc %i's, I felt that was not important enough for now.
Edit#2: Added line number indicators to the second code.
Edit#2: Added the $reval alias.
Edit#3: Ok, this is the up-to-date code. Now it just starts an infinite loop...
I stopped the loop, thanks to that "&& $read($mircdirmSS\Config,5) == 1", this is what I saw:
1) A ton load of "EXC Unknown Command" in the status window.
2) The vars:
%ZBOT_i 2351
%ZBOT_line $reval($read($mircdirzBOT\command_ $+ $mid($1,2,$calc($len($1)-1)),i))
Edit#4: Made some changes with places where there's a %zBOT_ $+, basically addind [[]]s. Now that ",i))" turned into %zBOT_i.
Still get an infinite loop of "Exc Unknown command" -_-
Any help would be appreciated!
ziv.