JAD
02-26-2007, 03:33 AM
I will post here what I edited in the Tutorial and when:
February 27th, Editted some spelling errors and added new things to chapter 1.
March 3rd, fixed something that was wrong in progress report, also made things more readable making chapter names bigger and in red :p
if you think this tutorial was helpful, don't forget to plus rep me please. and in the replies below, give me a :spot: for ok give me a :spot: :spot: for good. and give me a :spot: :spot: :spot: for uber! lol.
I will be editing this tutorial every once in a while to add some more SRL commands or things to learn, so keep an eye on it :)
before reading, you should have probably read some of other peoples tutorials, and you should know the basics of scripting and color finding. I'd recommend WhoCares357's tutorial for learning that stuff, its really good and explains things a lot, thats where i started scripting from :p heres the link: http://www.villavu.com/forum/showthread.php?t=4625 Now lets get down to business! heres what this tutorial will cover:
Chapter 1: How to make things undetectable using SRL commands!
Chapter 2: How to add basic randoms to your scripts.
Chapter 3: How to make a progress report.
Chapter 4: How to use and make fail safes.
Chapter 5: How to make a cool signature.
ok now heres where the tutorial begins:
Chapter 1: How to make things undetectable using SRL commandes!
well most of the beginner out there so far teach you non SRL commands like MoveMouse, MoveMouseSmooth, ClickMouse etc... and those are great for explaining it in the beginning, but those are detectable when using them in runescape scripts so i am going to teach you the undetectable SRL commands! here i will make a list of some good basic SRL commands that you can do a lot of things with, and we are also going to talk some about repeats and untils. heres some basic SRL commands with coordinates:
MMouse(x,y,0,0); //Moves mouse at a slow, randomspeed to destination.
Mouse(x,y,0,0,true); //Clicks mouse with random holding timing
DropAll; //Drops all items in inventory
DropTo(2,28); //Drops from slot 2 to slot 28.
InvFull; //I will explain below.
TypeSend(''); //will send anything between the quotes then press enter.
isfkeydown //will explain below
now those are some basic procedures which can be very important when making something such as a power miner, or a power cutter. so we'll start by explaining MMouse. lets break this down. MMouse is a command to move the mouse. x,y is something i used as an example as coordinates, x,y are the variables at which the coordinates are stored. 0,0 are a randomness of where it can move. once it finds the color it will move the mouse to the color then it can move a little randomly off course ... example:
procedure Example1;
begin
if(FindColor(x,y,color,coords,coords,coords,coords ))then
MMouse(x,y,0,0);
end;
so that would be how you use MMouse.
How To Use Mouse:
ok to use mouse it is a lot like MMouse, but it just clicks instead. lets go straight to the example:
procedure Example2;
begin
if(FindColor(x,y,color,coords,coords,coords,coords ))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
end;
so as you can see there, if it finds the color it moves the mouse to the spot, waits 100-50 milliseconds randomly before clicking to be less detectable, then clicks the mouse at the coordinates. the true in (Mouse(x,y,0,0,true)) is for left clicking. true=left click false=right click as you may know from reading other tutorials. this will not compile, will talk about that later. moving on.
How to use DropAll and (inventoryfull):
well the DropAll is pretty self explanatory, simple yet important in power miners/fishers/woodcutters etc.. I'll go to the example then explain:
program Auto;
{.include SRL/SRL.scar}
procedure RepeatClicking;
begin
repeat
if(FindColor(x,y,color,coords,coords,coords,coords ))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
until(InvFull);
end;
procedure Drop;
begin
DropAll;
end;
begin
SetupSRL;
repeat
RepeatClicking;
Drop;
until(false);
end.
Now we're talking! here we have a basic script that clicks a color, and repeats until the inventory is full, then it drops it! then in the main loop we made it repeat until(false) which means until you stop it manually by pressing the hot keys to stop a script. now lets just talk really quick about the include SRL. this includes SRL into our scripts, which makes life a lot easier pretty much for us scripters. includes make things like MMouse, Mouse, DropAll etc.. and stuff like that work. then in the main loop we put SetupSRL so it sets up that include, but we DO NOT want to repeat it so we put it before the repeat. OK, now that we have that settled lets talk about the script :P this is a good script, but the only thing is, it drops all ores. what if we have a few things in our inventory we don't want it to drop? like an axe or something for example? heres how we'd do that:
program Auto;
{.include SRL/SRL.scar}
procedure RepeatClicking;
begin
repeat
if(FindColor(x,y,color,coords,coords,coords,coords ))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
until(InvFull);
end;
procedure Drop;
begin
DropTo(2,28);
end;
begin
SetupSRL;
repeat
RepeatClicking;
Drop;
until(false);
end.
now look at procedure Drop. we have DropTo(2,28) once inventory is full, it will drop everything in slot 2 of your inventory through 28. so it will drop inventory slots 2 3 4 5 6...etc... 24 25 26 27 28. you could change it to DropTo(3,27) or (3,28) or whatever you want. just make the slots you make it drop you don't have your valuable items in like a pick axe or something like that. Moving on..
OK Now lets do something really fun and do an auto talker! Now I'll just go straight to the example and explain after:
program New;
{.include SRL/SRL.scar}
const
Message1 ='This Uber Tut Is Made By JAD!';
Message2 ='JAD is the Uber of Uberness!';
Message3 ='You are doing very well reading this Uber Tut by JAD!';
procedure AutoTalk;
begin
if(IsFKeyDown(2))then
begin
TypeSend(Message1);
end;
if(IsFKeyDown(4))then
begin
TypeSend(Message2);
end;
if(IsFKeyDown(5))then
begin
TypeSend(Message3);
end;
end;
begin
SetupSRL;
repeat
AutoTalk;
until(IsFKeyDown(12));
end.
Now we have a pretty cool script if I do say so myself. I like this script because it talks about
how uber I am :p ok now lets get back on topic lol. now I'll explain this step by step. what we have here is an auto that while the script is running, if we press F2, F4 or F5, it will type a message! as you can see, i made the F2 key type the first message, F4 types the second message, and F5 types the last message. and i made this script repeat itself until we press the F12 key. convenient eh? well the IsFKeyDown checks if a FKey is down, and the number is which F key. the reason i didn't use F1 and F3 was because those open things when you press them, like if you press F1 it opens the SCAR manual. and What typesend does is it types with random timing between keys, very undetectable, and then it presses enter at the end. you can make these messages something like "Buying rune axe 15k!!!" or something like that so you don't have to type while playing runescape :p then Obviously we setup SRL and include it. well I hope that wasn't too confusing. Moving on..
Chapter 2: How to add basic randoms to your scripts.
Anti Randoms, so simple yet Sooo important. in this we will use the examples from above and add randoms to them. heres an example:
program Auto;
{.include SRL/SRL.scar}
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
procedure RepeatClicking;
begin
SetupSRL;
repeat
if(FindColor(x,y,color,coords,coords,coords,coords ))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
wait(500+random(250));
DoAntiRandoms;
until(InvFull);
end;
procedure Drop;
begin
DropTo(2,28);
end;
begin
repeat
RepeatClicking;
Drop;
until(false);
end.
OK now don't freak out and say this is to complicated or to advanced, its very simple actually. here lets break this down. first we have FindTalk. all this does is if it finds a talking random, it talks to the random and solves what they want for the most part. easy right? now we have FindNormalRandoms which does almost the same thing as FindTalk, except it finds other non talking randoms. this is a little more complicated, but you're smart so i think you can get it :) so now we have if (FindFight = true) then begin
what that does is if it finds that we are in a fight with a random, it will begin the next part which makes us run away. not lets talk about the part that makes us run away :) RunAwayDirection('N'); what this does is it runs away in the 1 letter direction 'N' which is north. you could put 'N' 'E' 'S' or 'W' doesen't matter unless there's something away in that direction. you following me so far? hopefully you are :) now we have the last part of that, which is simple.
Wait(10000 + random(2000)); makes it wait 10-12 seconds once it runs away so the fighting random goes away. then we have RunBack; which obviously runs back to where we were. and we don't put the DoAntiRandoms procedure in the main loop because we called for it to repeat while we are mining. easy enough right? Now we have a script that auto's something, drops it, repeats, and finds randoms! isn't this cool? maybe I'm the only person that gets exhilarated from reading this stuff, but to me its just so exciting! lol. moving on..
Chapter 3: How to make a progress report.
once again we are going to use the example from above. here we are lets just wing it then I'll explain :):
program Auto;
{.include SRL/SRL.scar}
var Clicks: Integer;
Loads: Integer;
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
procedure ProgressReport;
begin
ClearDebug;
Writeln('[]========================================[]');
Writeln('---------------->Our Proggy<----------------');
Writeln(' did ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln('---------------------------------------------');
Writeln(' Did ' + IntToStr(Clicks) + ' Clicks' + ' ');
Writeln('[]========================================[]');
end;
procedure RepeatClicking;
begin
repeat
if(FindColor(x,y,color,coords,coords,coords,coords ))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
wait(500+random(250));
DoAntiRandoms;
Clicks:=Clicks+1;
until(InvFull);
end;
procedure Drop;
begin
DropTo(2,28);
Loads:=Loads+1;
end;
begin
SetupSRL;
repeat
RepeatClicking;
Drop;
ProgressReport;
until(false);
end.
OK now this is starting to look like a script :) we have a progress report now which tells the user how many times it clicked on a tree, rock or whatever your making it click on, and it tells how many loads it did by dropping! this is Great for people telling you on ways to improve your script, and its uber too if you ask me :) now what we did was each time it clicked make clicks=clicks+1 so it adds 1 to clicks. and each time it dropped, it added 1 to drops. then in the progress report we made it write into the debug what they equal, we do put ClearDebug at the top of the progress report because it is going to keep repeating this progress report everytime after it drops, so it will get rid of the old one, and put the newest progress report in :) Moving on..
Chapter 4: How to use and make fail safes.
now this is going to be a short chapter. lets just wing it:
program Auto;
{.include SRL/SRL.scar}
var Clicks: Integer;
Loads: Integer;
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
procedure ProgressReport;
begin
ClearDebug;
Writeln('[]========================================[]');
Writeln('---------------->Our Proggy<----------------');
Writeln(' did ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln('---------------------------------------------');
Writeln(' Did ' + IntToStr(Clicks) + ' Clicks' + ' ');
Writeln('[]========================================[]');
end;
procedure RepeatClicking;
begin
repeat
if(FindColor(x,y,color,coords,coords,coords,coords ))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
wait(500+random(250));
DoAntiRandoms;
Clicks:=Clicks+1;
until(InvFull);
end;
procedure Drop;
begin
DropTo(2,28);
Loads:=Loads+1;
end;
begin
SetupSRL;
repeat
if(not(LoggedIn))then
Exit;
RepeatClicking;
Drop;
ProgressReport;
until(false);
end.
now what we changed was if your user is not logged in, it will exit. so this is good because its not continually looking for the color if the script logs out. Moving on...
Chapter 5: How to make a cool signature.
we are nearing the end of the tutorial now :( I have had so much fun talking to you :) well heres the last thing. making a cool signature. I took this code out of my scripts (I put this in all of my scripts :P) well heres the signature that writes into the debug, it's just a way to let everybody know of your uber name :P Here is mine. You should make your own using some of the signs that I used.
procedure Signature;
begin
ClearDebug;
writeln(' JAD willow chopper by yours truely:');
writeln(' __________ / ______ ');
writeln(' |__________| / | ____ ');
writeln(' | | / / | | ');
writeln(' ___ | | / /__ | | ');
writeln(' | | / /____ | | / / ');
writeln(' | / / | |___/ / ');
writeln(' \____|/ / |______/ ');
wait(3000 + random(750));
end;
well there you have it all :) this took me a lot of time to write so feel free to post any kind remarks about my TUT. i hoped all you new scripters learned something :) I've had so much fun with my first tut and i think i may write some more. if you liked this TUT, feel free to +rep me :) it would be appreciated. thanks for reading. if you have any questions or just want to chat add me on MSN: runescapemacro@hotmail.com
February 27th, Editted some spelling errors and added new things to chapter 1.
March 3rd, fixed something that was wrong in progress report, also made things more readable making chapter names bigger and in red :p
if you think this tutorial was helpful, don't forget to plus rep me please. and in the replies below, give me a :spot: for ok give me a :spot: :spot: for good. and give me a :spot: :spot: :spot: for uber! lol.
I will be editing this tutorial every once in a while to add some more SRL commands or things to learn, so keep an eye on it :)
before reading, you should have probably read some of other peoples tutorials, and you should know the basics of scripting and color finding. I'd recommend WhoCares357's tutorial for learning that stuff, its really good and explains things a lot, thats where i started scripting from :p heres the link: http://www.villavu.com/forum/showthread.php?t=4625 Now lets get down to business! heres what this tutorial will cover:
Chapter 1: How to make things undetectable using SRL commands!
Chapter 2: How to add basic randoms to your scripts.
Chapter 3: How to make a progress report.
Chapter 4: How to use and make fail safes.
Chapter 5: How to make a cool signature.
ok now heres where the tutorial begins:
Chapter 1: How to make things undetectable using SRL commandes!
well most of the beginner out there so far teach you non SRL commands like MoveMouse, MoveMouseSmooth, ClickMouse etc... and those are great for explaining it in the beginning, but those are detectable when using them in runescape scripts so i am going to teach you the undetectable SRL commands! here i will make a list of some good basic SRL commands that you can do a lot of things with, and we are also going to talk some about repeats and untils. heres some basic SRL commands with coordinates:
MMouse(x,y,0,0); //Moves mouse at a slow, randomspeed to destination.
Mouse(x,y,0,0,true); //Clicks mouse with random holding timing
DropAll; //Drops all items in inventory
DropTo(2,28); //Drops from slot 2 to slot 28.
InvFull; //I will explain below.
TypeSend(''); //will send anything between the quotes then press enter.
isfkeydown //will explain below
now those are some basic procedures which can be very important when making something such as a power miner, or a power cutter. so we'll start by explaining MMouse. lets break this down. MMouse is a command to move the mouse. x,y is something i used as an example as coordinates, x,y are the variables at which the coordinates are stored. 0,0 are a randomness of where it can move. once it finds the color it will move the mouse to the color then it can move a little randomly off course ... example:
procedure Example1;
begin
if(FindColor(x,y,color,coords,coords,coords,coords ))then
MMouse(x,y,0,0);
end;
so that would be how you use MMouse.
How To Use Mouse:
ok to use mouse it is a lot like MMouse, but it just clicks instead. lets go straight to the example:
procedure Example2;
begin
if(FindColor(x,y,color,coords,coords,coords,coords ))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
end;
so as you can see there, if it finds the color it moves the mouse to the spot, waits 100-50 milliseconds randomly before clicking to be less detectable, then clicks the mouse at the coordinates. the true in (Mouse(x,y,0,0,true)) is for left clicking. true=left click false=right click as you may know from reading other tutorials. this will not compile, will talk about that later. moving on.
How to use DropAll and (inventoryfull):
well the DropAll is pretty self explanatory, simple yet important in power miners/fishers/woodcutters etc.. I'll go to the example then explain:
program Auto;
{.include SRL/SRL.scar}
procedure RepeatClicking;
begin
repeat
if(FindColor(x,y,color,coords,coords,coords,coords ))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
until(InvFull);
end;
procedure Drop;
begin
DropAll;
end;
begin
SetupSRL;
repeat
RepeatClicking;
Drop;
until(false);
end.
Now we're talking! here we have a basic script that clicks a color, and repeats until the inventory is full, then it drops it! then in the main loop we made it repeat until(false) which means until you stop it manually by pressing the hot keys to stop a script. now lets just talk really quick about the include SRL. this includes SRL into our scripts, which makes life a lot easier pretty much for us scripters. includes make things like MMouse, Mouse, DropAll etc.. and stuff like that work. then in the main loop we put SetupSRL so it sets up that include, but we DO NOT want to repeat it so we put it before the repeat. OK, now that we have that settled lets talk about the script :P this is a good script, but the only thing is, it drops all ores. what if we have a few things in our inventory we don't want it to drop? like an axe or something for example? heres how we'd do that:
program Auto;
{.include SRL/SRL.scar}
procedure RepeatClicking;
begin
repeat
if(FindColor(x,y,color,coords,coords,coords,coords ))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
until(InvFull);
end;
procedure Drop;
begin
DropTo(2,28);
end;
begin
SetupSRL;
repeat
RepeatClicking;
Drop;
until(false);
end.
now look at procedure Drop. we have DropTo(2,28) once inventory is full, it will drop everything in slot 2 of your inventory through 28. so it will drop inventory slots 2 3 4 5 6...etc... 24 25 26 27 28. you could change it to DropTo(3,27) or (3,28) or whatever you want. just make the slots you make it drop you don't have your valuable items in like a pick axe or something like that. Moving on..
OK Now lets do something really fun and do an auto talker! Now I'll just go straight to the example and explain after:
program New;
{.include SRL/SRL.scar}
const
Message1 ='This Uber Tut Is Made By JAD!';
Message2 ='JAD is the Uber of Uberness!';
Message3 ='You are doing very well reading this Uber Tut by JAD!';
procedure AutoTalk;
begin
if(IsFKeyDown(2))then
begin
TypeSend(Message1);
end;
if(IsFKeyDown(4))then
begin
TypeSend(Message2);
end;
if(IsFKeyDown(5))then
begin
TypeSend(Message3);
end;
end;
begin
SetupSRL;
repeat
AutoTalk;
until(IsFKeyDown(12));
end.
Now we have a pretty cool script if I do say so myself. I like this script because it talks about
how uber I am :p ok now lets get back on topic lol. now I'll explain this step by step. what we have here is an auto that while the script is running, if we press F2, F4 or F5, it will type a message! as you can see, i made the F2 key type the first message, F4 types the second message, and F5 types the last message. and i made this script repeat itself until we press the F12 key. convenient eh? well the IsFKeyDown checks if a FKey is down, and the number is which F key. the reason i didn't use F1 and F3 was because those open things when you press them, like if you press F1 it opens the SCAR manual. and What typesend does is it types with random timing between keys, very undetectable, and then it presses enter at the end. you can make these messages something like "Buying rune axe 15k!!!" or something like that so you don't have to type while playing runescape :p then Obviously we setup SRL and include it. well I hope that wasn't too confusing. Moving on..
Chapter 2: How to add basic randoms to your scripts.
Anti Randoms, so simple yet Sooo important. in this we will use the examples from above and add randoms to them. heres an example:
program Auto;
{.include SRL/SRL.scar}
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
procedure RepeatClicking;
begin
SetupSRL;
repeat
if(FindColor(x,y,color,coords,coords,coords,coords ))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
wait(500+random(250));
DoAntiRandoms;
until(InvFull);
end;
procedure Drop;
begin
DropTo(2,28);
end;
begin
repeat
RepeatClicking;
Drop;
until(false);
end.
OK now don't freak out and say this is to complicated or to advanced, its very simple actually. here lets break this down. first we have FindTalk. all this does is if it finds a talking random, it talks to the random and solves what they want for the most part. easy right? now we have FindNormalRandoms which does almost the same thing as FindTalk, except it finds other non talking randoms. this is a little more complicated, but you're smart so i think you can get it :) so now we have if (FindFight = true) then begin
what that does is if it finds that we are in a fight with a random, it will begin the next part which makes us run away. not lets talk about the part that makes us run away :) RunAwayDirection('N'); what this does is it runs away in the 1 letter direction 'N' which is north. you could put 'N' 'E' 'S' or 'W' doesen't matter unless there's something away in that direction. you following me so far? hopefully you are :) now we have the last part of that, which is simple.
Wait(10000 + random(2000)); makes it wait 10-12 seconds once it runs away so the fighting random goes away. then we have RunBack; which obviously runs back to where we were. and we don't put the DoAntiRandoms procedure in the main loop because we called for it to repeat while we are mining. easy enough right? Now we have a script that auto's something, drops it, repeats, and finds randoms! isn't this cool? maybe I'm the only person that gets exhilarated from reading this stuff, but to me its just so exciting! lol. moving on..
Chapter 3: How to make a progress report.
once again we are going to use the example from above. here we are lets just wing it then I'll explain :):
program Auto;
{.include SRL/SRL.scar}
var Clicks: Integer;
Loads: Integer;
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
procedure ProgressReport;
begin
ClearDebug;
Writeln('[]========================================[]');
Writeln('---------------->Our Proggy<----------------');
Writeln(' did ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln('---------------------------------------------');
Writeln(' Did ' + IntToStr(Clicks) + ' Clicks' + ' ');
Writeln('[]========================================[]');
end;
procedure RepeatClicking;
begin
repeat
if(FindColor(x,y,color,coords,coords,coords,coords ))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
wait(500+random(250));
DoAntiRandoms;
Clicks:=Clicks+1;
until(InvFull);
end;
procedure Drop;
begin
DropTo(2,28);
Loads:=Loads+1;
end;
begin
SetupSRL;
repeat
RepeatClicking;
Drop;
ProgressReport;
until(false);
end.
OK now this is starting to look like a script :) we have a progress report now which tells the user how many times it clicked on a tree, rock or whatever your making it click on, and it tells how many loads it did by dropping! this is Great for people telling you on ways to improve your script, and its uber too if you ask me :) now what we did was each time it clicked make clicks=clicks+1 so it adds 1 to clicks. and each time it dropped, it added 1 to drops. then in the progress report we made it write into the debug what they equal, we do put ClearDebug at the top of the progress report because it is going to keep repeating this progress report everytime after it drops, so it will get rid of the old one, and put the newest progress report in :) Moving on..
Chapter 4: How to use and make fail safes.
now this is going to be a short chapter. lets just wing it:
program Auto;
{.include SRL/SRL.scar}
var Clicks: Integer;
Loads: Integer;
procedure DoAntiRandoms;
begin
FindTalk;
FindNormalRandoms;
if (FindFight = true) then
begin
RunAwayDirection('N');
Wait(10000 + random(2000));
RunBack;
end;
end;
procedure ProgressReport;
begin
ClearDebug;
Writeln('[]========================================[]');
Writeln('---------------->Our Proggy<----------------');
Writeln(' did ' + IntToStr(Loads) + ' Loads' + ' ');
Writeln('---------------------------------------------');
Writeln(' Did ' + IntToStr(Clicks) + ' Clicks' + ' ');
Writeln('[]========================================[]');
end;
procedure RepeatClicking;
begin
repeat
if(FindColor(x,y,color,coords,coords,coords,coords ))then
MMouse(x,y,0,0);
wait(100+random(50));
Mouse(x,y,0,0,true);
wait(500+random(250));
DoAntiRandoms;
Clicks:=Clicks+1;
until(InvFull);
end;
procedure Drop;
begin
DropTo(2,28);
Loads:=Loads+1;
end;
begin
SetupSRL;
repeat
if(not(LoggedIn))then
Exit;
RepeatClicking;
Drop;
ProgressReport;
until(false);
end.
now what we changed was if your user is not logged in, it will exit. so this is good because its not continually looking for the color if the script logs out. Moving on...
Chapter 5: How to make a cool signature.
we are nearing the end of the tutorial now :( I have had so much fun talking to you :) well heres the last thing. making a cool signature. I took this code out of my scripts (I put this in all of my scripts :P) well heres the signature that writes into the debug, it's just a way to let everybody know of your uber name :P Here is mine. You should make your own using some of the signs that I used.
procedure Signature;
begin
ClearDebug;
writeln(' JAD willow chopper by yours truely:');
writeln(' __________ / ______ ');
writeln(' |__________| / | ____ ');
writeln(' | | / / | | ');
writeln(' ___ | | / /__ | | ');
writeln(' | | / /____ | | / / ');
writeln(' | / / | |___/ / ');
writeln(' \____|/ / |______/ ');
wait(3000 + random(750));
end;
well there you have it all :) this took me a lot of time to write so feel free to post any kind remarks about my TUT. i hoped all you new scripters learned something :) I've had so much fun with my first tut and i think i may write some more. if you liked this TUT, feel free to +rep me :) it would be appreciated. thanks for reading. if you have any questions or just want to chat add me on MSN: runescapemacro@hotmail.com