elementalelf
09-11-2007, 06:27 AM
hey guys, i think i better start giving back alot more to the community to earn the auto-memberizing i got, so i decided to make this tutorial on advanced failsafing.
firstly: this is quite an easy skill to master, its pretty basic coding, and only requires you to think logically, anyone with more then 2 months scar experience will be able to make one of these in under 20 minutes.
ok, onto the tutorial.
ill start off with a basic example of a failsafe:
procedure failsafing;
var counter:integer;
begin
repeat
wait(500);
counter:=counter+1;
until(getcolor(523,235)=244) or (counter=20);
end;
ok, so, breaking this down.
procedure failsafing; //procedure name, everyone knows this
var counter:integer; //declaring the variables, the counter variable should always be a private variable, i.e. inside the script
begin //beginning the procedure
repeat //start of a repeat. note: you only need to use failsafes on repeat/while/for commands
wait(500); //a wait time, this is mainly so it doesnt lag out
counter:=counter+1; //this is to count the number of times it waits
until(getcolor(523,235)=244) or (counter=20); //the failsafe. every time the loop is executed, it'll check if there is color 244(red) at location 523,235. if there is not, it will repeat the loop until the loop is repeated 20 times, as seen by the (counter = 20) command
end; //basic procedure end command
ok, so, we are all up to date on basic failsafes.
after the basics, before the advanced:
the problem with the failsafe above, is that in the event that the counter hits 20, the script will go on to the next part even though it really hasnt completed this part.
if this happens, the script will most likely screw up, as it will try to, say, mine a rock while its sitting in a bank.
so!
we put an if(fail safe is reached)then terminatescript;
which is as easy as it looks just there.
procedure failsafing;
var counter:integer;
begin
repeat
wait(500);
counter:=counter+1;
until(getcolor(523,235)=244) or (counter=20);
if(counter=20)then
terminatescript;
end;
terminatescript is an SRL command that does exactly what it says.
alternativly if you are making a multilogin script, you could use this:
procedure failsafing;
var counter:integer;
begin
repeat
wait(500);
counter:=counter+1;
until(getcolor(523,235)=244) or (counter=20);
if(counter=20)then
players[current].active:=false;
nextplayer;
end;
note: im quite rusty with arrays so im pretty sure i did that wrong, if i did, just post here the correct code and ill fix it up.
what this does is:
if the character failed the failsafe(i.e. did not find color 244 at 523,235) then it will disable that character, then log out and run the script on the next character like normal.
every time its the "failed" characters turn to auto, it will automatically skip to the next one
__________________________________________________ ___________
ADVANCED FAILSAFES!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!
__________________________________________________ ___________
EDIT: i just realised that i made a mistake in my talkguy procedure... ill fix it in a second
ok, enough with the basics.
the idea behind advanced failsafes is that even if the procedure fails, the script will still be able to function without terminating that particular character.
ill give you the example i am working on in my tutorial island runner.
procedure findguy(tehtext1,tehtext2,tehtext3:string);
var clll,countr: integer;
heheheheh: boolean;
begin
writeln('beggining findguy');
repeat
wait(50);
countr:=countr+1;
until(myFindObjectdeformed(lulx,luly,tehtext1,teht ext2,tehtext3,lulbmp,msx1,msy1,msx2,msy2)) or (countr=100);
if(countr=100)then
begin
miniwalk;
findguy(tehtext1,tehtext2,tehtext3);
end else
mouse(lulx,luly,1,1,true);
writeln('found the guy');
repeat
wait(300);
clll := clll + 1;
if (findnpcchattext('tinue')) or (findnpcchattext('cook')) then heheheheh := true;
until (heheheheh = true) or (clll = 10);
if (heheheheh = false)
then
begin
wait(500);
findguy(tehtext1,tehtext2,tehtext3);
end;
cha1:=tehtext1;
cha2:=tehtext2;
cha3:=tehtext3;
end;
procedure talkguy;
var countr:integer;
begin
repeat;
if (clicktocontinue)
then
begin
clicktocontinue;
wait(50);
mmouse(300, 300, 120, 120);
repeat
wait(100);
countr:=countr+1;
until (not(findnpcchattext('ait'))) or (countr=15);
end else
begin
wait(100);
findguy(cha1,cha2,cha3);
talkguy;
exit;
end;
end; //note: this is not the real end of the script, this end; is only here because the rest of the procedure takes up about 100 lines and really doesnt do anything of interest to you guys
put simply:
procedure findguy(tehtext1,tehtext2,tehtext3:string);
var clll,countr: integer;
heheheheh: boolean;
basic stuff here
[/scar]
begin
writeln('beggining findguy');
this is a little trick if your script hangs, to find out exactly where it gets up to
repeat
wait(50);
countr:=countr+1;
until(myFindObjectdeformed(lulx,luly,tehtext1,teht ext2,tehtext3,lulbmp,msx1,msy1,msx2,msy2)) or (countr=100);
basic failsafe.
if(countr=100)then
begin
miniwalk;
findguy(tehtext1,tehtext2,tehtext3);
HERE is the Advanced failsafing.
as you can see, if the failsafe(countr=100) is tripped, then the script will automatically find the place on the minimap where the thing that it wants should be, gets closer to him, and attempts to find him again.
usually this failsafe requires a failsafe of its own, as it to can start an endless loop, unless you have made the procedures good enough to be pretty much 99% accurate
end else
mouse(lulx,luly,1,1,true);
writeln('found the guy');
repeat
wait(300);
clll := clll + 1;
if (findnpcchattext('tinue')) or (findnpcchattext('cook')) then heheheheh := true;
until (heheheheh = true) or (clll = 10);
if (heheheheh = false)
then
begin
wait(500);
findguy(tehtext1,tehtext2,tehtext3);
end;
cha1:=tehtext1;
cha2:=tehtext2;
cha3:=tehtext3;
end;
the rest of the stuff you dont really need to worry about. there is another advanced failsafe in there somewhere in case the script clicks on the guy but the guy moves and the script detects that he isnt talking to him.
firstly: this is quite an easy skill to master, its pretty basic coding, and only requires you to think logically, anyone with more then 2 months scar experience will be able to make one of these in under 20 minutes.
ok, onto the tutorial.
ill start off with a basic example of a failsafe:
procedure failsafing;
var counter:integer;
begin
repeat
wait(500);
counter:=counter+1;
until(getcolor(523,235)=244) or (counter=20);
end;
ok, so, breaking this down.
procedure failsafing; //procedure name, everyone knows this
var counter:integer; //declaring the variables, the counter variable should always be a private variable, i.e. inside the script
begin //beginning the procedure
repeat //start of a repeat. note: you only need to use failsafes on repeat/while/for commands
wait(500); //a wait time, this is mainly so it doesnt lag out
counter:=counter+1; //this is to count the number of times it waits
until(getcolor(523,235)=244) or (counter=20); //the failsafe. every time the loop is executed, it'll check if there is color 244(red) at location 523,235. if there is not, it will repeat the loop until the loop is repeated 20 times, as seen by the (counter = 20) command
end; //basic procedure end command
ok, so, we are all up to date on basic failsafes.
after the basics, before the advanced:
the problem with the failsafe above, is that in the event that the counter hits 20, the script will go on to the next part even though it really hasnt completed this part.
if this happens, the script will most likely screw up, as it will try to, say, mine a rock while its sitting in a bank.
so!
we put an if(fail safe is reached)then terminatescript;
which is as easy as it looks just there.
procedure failsafing;
var counter:integer;
begin
repeat
wait(500);
counter:=counter+1;
until(getcolor(523,235)=244) or (counter=20);
if(counter=20)then
terminatescript;
end;
terminatescript is an SRL command that does exactly what it says.
alternativly if you are making a multilogin script, you could use this:
procedure failsafing;
var counter:integer;
begin
repeat
wait(500);
counter:=counter+1;
until(getcolor(523,235)=244) or (counter=20);
if(counter=20)then
players[current].active:=false;
nextplayer;
end;
note: im quite rusty with arrays so im pretty sure i did that wrong, if i did, just post here the correct code and ill fix it up.
what this does is:
if the character failed the failsafe(i.e. did not find color 244 at 523,235) then it will disable that character, then log out and run the script on the next character like normal.
every time its the "failed" characters turn to auto, it will automatically skip to the next one
__________________________________________________ ___________
ADVANCED FAILSAFES!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!
__________________________________________________ ___________
EDIT: i just realised that i made a mistake in my talkguy procedure... ill fix it in a second
ok, enough with the basics.
the idea behind advanced failsafes is that even if the procedure fails, the script will still be able to function without terminating that particular character.
ill give you the example i am working on in my tutorial island runner.
procedure findguy(tehtext1,tehtext2,tehtext3:string);
var clll,countr: integer;
heheheheh: boolean;
begin
writeln('beggining findguy');
repeat
wait(50);
countr:=countr+1;
until(myFindObjectdeformed(lulx,luly,tehtext1,teht ext2,tehtext3,lulbmp,msx1,msy1,msx2,msy2)) or (countr=100);
if(countr=100)then
begin
miniwalk;
findguy(tehtext1,tehtext2,tehtext3);
end else
mouse(lulx,luly,1,1,true);
writeln('found the guy');
repeat
wait(300);
clll := clll + 1;
if (findnpcchattext('tinue')) or (findnpcchattext('cook')) then heheheheh := true;
until (heheheheh = true) or (clll = 10);
if (heheheheh = false)
then
begin
wait(500);
findguy(tehtext1,tehtext2,tehtext3);
end;
cha1:=tehtext1;
cha2:=tehtext2;
cha3:=tehtext3;
end;
procedure talkguy;
var countr:integer;
begin
repeat;
if (clicktocontinue)
then
begin
clicktocontinue;
wait(50);
mmouse(300, 300, 120, 120);
repeat
wait(100);
countr:=countr+1;
until (not(findnpcchattext('ait'))) or (countr=15);
end else
begin
wait(100);
findguy(cha1,cha2,cha3);
talkguy;
exit;
end;
end; //note: this is not the real end of the script, this end; is only here because the rest of the procedure takes up about 100 lines and really doesnt do anything of interest to you guys
put simply:
procedure findguy(tehtext1,tehtext2,tehtext3:string);
var clll,countr: integer;
heheheheh: boolean;
basic stuff here
[/scar]
begin
writeln('beggining findguy');
this is a little trick if your script hangs, to find out exactly where it gets up to
repeat
wait(50);
countr:=countr+1;
until(myFindObjectdeformed(lulx,luly,tehtext1,teht ext2,tehtext3,lulbmp,msx1,msy1,msx2,msy2)) or (countr=100);
basic failsafe.
if(countr=100)then
begin
miniwalk;
findguy(tehtext1,tehtext2,tehtext3);
HERE is the Advanced failsafing.
as you can see, if the failsafe(countr=100) is tripped, then the script will automatically find the place on the minimap where the thing that it wants should be, gets closer to him, and attempts to find him again.
usually this failsafe requires a failsafe of its own, as it to can start an endless loop, unless you have made the procedures good enough to be pretty much 99% accurate
end else
mouse(lulx,luly,1,1,true);
writeln('found the guy');
repeat
wait(300);
clll := clll + 1;
if (findnpcchattext('tinue')) or (findnpcchattext('cook')) then heheheheh := true;
until (heheheheh = true) or (clll = 10);
if (heheheheh = false)
then
begin
wait(500);
findguy(tehtext1,tehtext2,tehtext3);
end;
cha1:=tehtext1;
cha2:=tehtext2;
cha3:=tehtext3;
end;
the rest of the stuff you dont really need to worry about. there is another advanced failsafe in there somewhere in case the script clicks on the guy but the guy moves and the script detects that he isnt talking to him.