SCAR Code:
//|=======================================================================|
//|Welcome to EZTyper, brough to by Esteban! Please Enjoy. |
//|Remember set the constants with comments after them. |
//|Text Colors: Red: - Green: - White: - Cyan: - Purple: |
//|Text Color Effects: Flash1: - Flash2: - Flash3: - Scroll: - Shake: |
//|Wave: - Wave2: - Slide: - Glow1: - Glow2: - Glow3 |
//|Text Color and Effect Format: Color:Effect: Text |
//|Example: Red:wave: Hello! You would type this in the message1,2, or 3 |
//|=======================================================================|
program EZTyper;
{.include SRL\SRL.SCAR}
{.include SRL/SRL/Misc/Trade.scar}
var
messagenum : integer;
const
{ ________________________________________________________________________ }
{|Evey Hammond: Who are you? |}
{| |}
{|V: Who? Who is but the form following the function of what, |}
{|and what I am is a man in a mask. |}
{| |}
{|Evey Hammond: Well I can see that. |}
{| |}
{|V: Of course you can. I'm not questioning your powers of observation, |}
{|I'm merely remarking upon the paradox of asking a masked man who he is. |}
{| |}
{| - V For Vendetta |}
{|________________________________________________________________________|}
{===============================================================}
{=====================Messages to Auto-Type=====================}
{===============================================================}
Message1='Hey';//Type First Message Here
Message2='Whats up?';//Type Second Message Here
Message3='lol';//Type Third Message Here
TalkWait= 4000;//This is How Long (in ms) to Wait Before Typing the Next Message.
//Set TalkWait to Zero (0) if you want it to spam messages
AntiBanExtra=True;
//======================Do not add or delete anything under this, but feel free to use it for your own script.===============
Const
{===============================================================}
{============================Credits============================}
{===============================================================}
Credits1=' ____ ___ _____ __ ____ ___ ';
Credits2='| / | \ / |__| | |___| ';
Credits3='|--- / --- | \/ | |--- | \ BY';
Credits4='|____ /__ | / | |____ | \ ';
Credits5=' ';
Credits6='8888888 888 888';
Credits7='88 888 888';
Credits8='88 888 888';
Credits9='8888 .d8888b 888888 .d88b. 88888b. 8888b. 8888b.';
CreditsA='88 88K 888 d8P Y8b 888 "88b "88b 888 88b';
CreditsB='88 "Y8888b. 888 88888888 888 888 .d888888 888 888';
CreditsC='88 X88 Y88b. Y8b. 888 d88P 888 888 888 888';
CreditsD='8888888 88888P/ "Y888 "Y8888 88888P" "Y888888 888 888';
CreditsD1=' ';
CreditsE='With thanks to jarlaxe for guidance from his script';
CreditsF='Script Beginning in...';
CreditsG='5... (Click on the RuneScape Client Before it Starts!)';
CreditsH='4...';
CreditsI='3...';
CreditsJ='2...';
CreditsK='1...';
CreditsL='Script Starting!';
procedure Nickname;
begin
NickNameBMP := CreateBitmapMaskFromText(Players[0].Nick, UpChars);
end;
procedure Credits;
begin
wait(1000+Random(100));
writeln(Credits1);
wait(500);
writeln(Credits2);
wait(500);
writeln(Credits3);
wait(500);
writeln(Credits4);
wait(500);
writeln(Credits5);
wait(500);
writeln(Credits6);
wait(500);
writeln(Credits7);
wait(500);
writeln(credits8);
wait(500);
writeln(credits9);
wait(500);
writeln(creditsA);
wait(500);
writeln(creditsB);
wait(500);
writeln(creditsC);
wait(500);
writeln(creditsD);
wait(500);
writeln(CreditsD1);
writeln(creditsE);
wait(5000);
ClearDebug;
writeln(creditsF);
wait(1000);
writeln(creditsG);
wait(1000);
writeln(creditsH);
wait(1000);
writeln(creditsI);
wait(1000);
writeln(creditsJ);
wait(1000);
writeln(creditsK);
wait(1000);
writeln(creditsL);
wait(1000);
end;
procedure Messages;
begin
TypeSend(Message1);
messagenum :=messagenum+1
wait(TalkWait+Random(500))
TypeSend(Message2);
messagenum :=messagenum+1
wait(TalkWait+Random(500))
TypeSend(Message3);
messagenum :=messagenum+1
wait(TalkWait+Random(500))
end;
begin
SetupSRL;
ClearDebug
Credits;
ClearDebug
writeln('You have sent ' + IntToStr(messagenum)+ ' messages!');
FindNormalRandoms;
repeat
Messages;
Wait(500+Random(100))
FindNormalRandoms;
Wait(200+Random(100))
until(false)
end.
Well, in my script above, i have a progress report in it. But when i run the script, when it starts the progress report, it always says "you have sent 0 messages"
why isn't it adding 1 to the messages sent each time a message is sent?