In my autotyper below, i specified that I want it to writeln credits in the debug box, but when i run the script, it does not write the credits in the debug box.
Any help as to why it's not doing writeln?
Also-
why am i getting
this- Line 174: [Hint] (182:43): Variable 'NEWLINE' never used in script C:\Program Files\SCAR 2.03\includes\srl\srl\core\Globals.scar
SCAR Code:
program EZTyper;
{.include SRL\SRL.SCAR}
{.include SRL/SRL/Misc/Trade.scar}
const
Message1='Hey';//Type First Message Here
Message2='Whats up?';//Type Second Message Here
Message3='lol';//Type Third Messaage Here
TalkWait= 7000;//Set This to How Long to Wait Between Sent Messages
AntiBanExtra=True;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name :='Enter Here';//Enter your RuneScape Account name here
Players[0].Pass :='Password';//Enter the account's password here
Players[0].Nick :='Nickname';//Enter 3 lower-case letters of your account name
Players[0].Active:=True;
end;
//======================Do not add or delete anything under this, but feel free to use it for your own script.===============
Const
Credits1='EZTyper presented to you by';
Credits2=' _______ _______ ________ _______ _____ __ _ ';
Credits3='| _____|| _____||___ ___|| _ || _ || \ | |';
Credits4='| |_____ | |_____ | | | |_/ / | |_| || \ \ | |';
Credits5='| _____||_____ | | | | _ | | _ || |\ \| |';
Credits6='| |_____ _____| | | | | |_\ \ | | | || | \ |';
Credits7='|_______||_______| |__| |_______||_| |_||__| \__|';
Credits8='With thanks to jarlaxe for guidance from his script';
procedure Nickname;
begin
NickNameBMP := CreateBitmapMaskFromText(Players[0].Nick, UpChars);
end;
procedure credits;
begin
wait(1000+Random(100));
writeln(Credits1+chr(13));
wait(1000+Random(100));
writeln(Credits2+chr(13));
writeln(Credits3+chr(13));
writeln(Credits4+chr(13));
writeln(Credits5+chr(13));
writeln(Credits6+chr(13));
writeln(Credits7+chr(13));
Wait(1000+Random(100));
writeln(Credits8+chr(13));
writeln('[------------------------------]')
writeln('Worked For : 0 Minutes ' + ScriptTime2(2))
writeln('[------------------------------]')
end;
procedure Messages;
begin
TypeSend(Message1+chr(13));
wait(TalkWait+Random(500))
TypeSend(Message2+chr(13));
wait(TalkWait+Random(500))
TypeSend(Message3+chr(13));
wait(TalkWait+Random(500))
end;
begin
SetupSRL;
FindNormalRandoms;
DeclarePlayers;
LoginPlayer;
repeat
Messages;
Wait(5000+Random(750))
FindNormalRandoms;
Wait(200+Random(100))
until(false)
end.