Hey i havent made a script in a while and i keep getting this error
SCAR Code:
Identifier expected in script
this is the procedure its in
SCAR Code:
procedure CastT3hSpell;
begin
case Random(2) of
0: begin if (not(LoggedIn)) then Exit;
GameTab(7)
CastSpell(Spell2Use)
FindObjCustom(x,y,[MonsterName1,Monstername2,MonsterName3],[MonsterColour1,MonsterColour2,MonsterColour3],15)
Mouse(x, y, 4, 4, True);
Antiban;
if (FindBlackChatMessage('already been')) then
WriteLn('Monster has already been casted on');
MonsterCasted;
end;
end;
1:begin
begin if (not(LoggedIn)) then Exit;
GameTab(7)
CastSpell(Spell2Use)
FindObjCustom(x,y,[MonsterName1,Monstername2,MonsterName3],[MonsterColour1,MonsterColour2,MonsterColour3],15)
Mouse(x, y, 4, 4, False);
ChooseOption('ast');
Antiban;
if (FindBlackChatMessage('already been')) then
WriteLn('Monster has already been casted on'); then
MonsterCasted;
end;
end;
The line where it says MonsterCasted;. MonsterCasted is a procedure in my script that i have made i want it to go to that particularly procedure any help?
SCAR Code:
//
// _________ __ .__ __
// / _____// |________|__| | __ ___________ ______
// \_____ \\ __\_ __ \ | |/ // __ \_ __ \/ ___/
// / \| | | | \/ | <\ ___/| | \/\___ \
// /_______ /|__| |__| |__|__|_ \\___ >__| /____ >
// _________
// \_ ___ \ _______ ___________ ______
// / \ \/| | \_ __ \/ ___// __ \_ __ \
// \ \___| | /| | \/\___ \\ ___/| | \/
// \______ /____/ |__| /____ >\___ >__|
// \/ \/ \/
program StrikersAutoCurser;
{.include srl/srl/misc/Smart.scar}
{.include SRL/SRL.scar}
{.include srl/srl/skill/magic.scar}
var
x, y :Integer;
XpGained :integer;
YourMageLvl :integer;
HowManyCast :integer;
Antibans :Integer;
i :Integer;
RuneDTM :Integer;
Const
MonsterName1=0;//Part of the monsters Name
MonsterName2=0;
MonsterName3=0;
MonsterColour1=0;//A colour of the monster
MonsterColour2=0;
MonsterColour3=0;
SmartWorld=0;
WhichWay='N';//Which Way to run if in a fight?
Spell2Use=0;//Curse = ,Weaken = ,Confuse =
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Username'; //username
Players[0].Pass := 'Password'; //password
Players[0].Nick := 'ern'; //3-4 letters from your username
Players[0].Active := True;
end;
procedure GetMagicInfo;
Begin
if (not(LoggedIn)) then Exit;
GameTab(2);
Wait(1500+Random(434))
YourMageLvl:=GetSkillInfo('Magic', false);
Wait(4789+random(1654))
GameTab(4);
End;
Procedure WriteProggie;
Begin
ClearDebug;
WriteLn('|||||||||||||||||||||||||||||||||||||||||||||||||||||')
WriteLn('|||||||||||||||||StrikersCurser||||||||||||||||||||||')
WriteLn('Casted'+IntToStr(HowManyCast)+'Of your Selected spell')
WriteLn('Ran For'+(timerunning)+'|||||||||||||||||||||||||||||')
WriteLn('Magic Lvl is' +IntToStr(YourMageLvl)+ '||||||||||||||')
WriteLn('Gained' +IntToStr(XpGained)+ '|||||||||||||||||||||||')
WriteLn('AntiBanned' +IntToStr(Antibans)+ '|||||||||||||||||||')
WriteLn('Thanks For using Strikers Curser|||||||||||||||||||||')
WriteLn('Please Post Proggie on the webpage you got it from|||')
WriteLn('|||||||||||||||||||||||||||||||||||||||||||||||||||||')
end;
procedure Antiban;
begin
if not LoggedIn then Exit;
case Random(68) of
0:
begin
HoverSkill('Magic', False);
Antibans:=Antibans+1;
end;
1:
begin
HoverSkill('Random', false);
Antibans:=Antibans+1;
end;
2:
begin
GameTab(1 + Random(12));
wait(800 + random(500));
GameTab(4);
Antibans:=Antibans+1;
end;
3:
begin
BoredHuman;
Antibans:=Antibans+1;
end;
4:
begin
AlmostLogout;
Antibans:=Antibans+1;
end;
5:
begin
DoEmote(400 + Random(90));
Antibans:=Antibans+1;
end;
end;
end;
Procedure AntiRandoms;
var
i : Integer;
Begin
Status('Doing AntiRandoms');
for i := 0 to 3 do
FindNormalRandoms;
FindFight;
FindNonInventoryRandoms;
wait(1000+ Random (543));
end;
Procedure FindRandomFight;
Begin
If(FindFight) then
Begin
Status('Our Guys Getting Attacked');
Writeln('Jesus Crist He is dying')
Writeln('Dude run')
Begin
Status('Running Away From Th3 D0oD');
Writeln('Dont Stop Now...');
RunAway(WhichWay,False,1,8000+Random(3000))
Writeln('Haha yeah thats right you better run');
end;
end;
end;
Procedure CheckIfWeHaveRunes;
Begin
if not LoggedIn then Exit;
GameTab(4)
Wait(340 +Random(765))
if (FindDTM(RuneDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
WriteLn('Yay We Have Runes');
FreeDTM(RuneDTM);
end;
Procedure LoadDTMS;
Begin
RuneDTM := DTMFromString('78DA634C656060886240013D4D4D609A11CA6' +
'74C0612DE0C688011554D319088405561A0A080694E1CAA9A5C6F' +
'3E5435E940228D805D61986EC650130E248209A8C9071289986AF' +
'E23ABC920EC7700B1510A81');
End;
Procedure ScarDisguise;//Made by me....Idea off Cursed YOU who got it off Hy :P
begin
Case Random(13) of
0: Disguise('Xfire');
1: Disguise('Youtube - Broadcast Yourself. - Mozilla Firefox');
2: Disguise('Youporn.com Lite (BETA) - Free Porn - Mozilla Firefox');{-----LOL}
3: Disguise('Mozilla Firefox Start Page - Mozilla Firefox');
4: Disguise('RuneScape - the massive online adventure game by Jagex Ltd - Mozilla Firefox');
5: Disguise('DVD Decrypter');
6: Disguise('Windows Media Player');
7: Disguise('Document1 - Microsoft Word');
8: Disguise('Symantec AntiVirus');
9: Disguise('The Microsoft Hearts Network');
10: Disguise('Sythe.Org Forums - Powered by vBulletin');
11: Disguise('Tip.it Runescape Help :: The Original Runescape Help Site!');
12: Disguise('EA games <EAGames> - Mozilla Firefox');
{13: Disguise('Ima Cheater Ban Me Pl0x'}
end;
end;
procedure CastT3hSpell;
begin
case Random(2) of
0: begin if (not(LoggedIn)) then Exit;
GameTab(7)
CastSpell(Spell2Use)
FindObjCustom(x,y,[MonsterName1,Monstername2,MonsterName3],[MonsterColour1,MonsterColour2,MonsterColour3],15)
Mouse(x, y, 4, 4, True);
Antiban;
if (FindBlackChatMessage('already been')) then
WriteLn('Monster has already been casted on');
MonsterCasted;
end;
end;
1:begin
begin if (not(LoggedIn)) then Exit;
GameTab(7)
CastSpell(Spell2Use)
FindObjCustom(x,y,[MonsterName1,Monstername2,MonsterName3],[MonsterColour1,MonsterColour2,MonsterColour3],15)
Mouse(x, y, 4, 4, False);
ChooseOption('ast');
Antiban;
if (FindBlackChatMessage('already been')) then
WriteLn('Monster has already been casted on'); then
MonsterCasted;
end;
end;
procedure RandomSayings;
begin
case Random(350) of
0:Typesend('Grr stupid monster')
1:Typesend('Almost got a mage lvl')
2:Typesend('Gosh msgic is boring')then
Typesend('Magic*')
3:Typesend('Ladedada')
end
procedure MonsterCasted;
begin
Wait(576+ random(432))
Antiban;
Antiban;
wait(3453+ Random(6522))
CastT3hSpell;
end
Procedure Siggy;
Begin
WriteLn('_____ _ _ _ _____ _')
Wait(500)
WriteLn('| __| |_ ___|_| |_ ___ ___ ___ | _ |_ _| |_ ___ ')
Wait(500)
WriteLn('|__ | _| _| | _| -_| _|_ -| | | | | _| . |')
Wait(500)
WriteLn('|_____|_| |_| |_|_,_|___|_| |___| |__|__|___|_| |___|')
Wait(500)
WriteLn(' _____ ')
Wait(500)
WriteLn('| |_ _ ___ ___ ___ ___')
Wait(500)
WriteLn('| --| | | _|_ -| -_| _|')
Wait(500)
WriteLn('|_____|___|_| |___|___|_|')
Wait(500)
WriteLn('Made With SCAR Version 3.15b')
Wait(500)
WriteLn('With SRL Rev 16')
Wait(500)
WriteLn('Dont Post anywhere without my concent')
Wait(500)
WriteLn('Made By Strikerx25')
Wait(500)
WriteLn('Enjoy!')
Wait(500)
WriteLn('Waiting For SMART to Start')
end;
Procedure SetUpCharacter;
begin
Siggy;
SetUpSRL
SmartSetupex(SmartWorld, False, True);
While Not (SmartReady) Do
Wait(100);
SetTargetDC(SmartGetDC);
If Not (LoggedIn) Then
While Not (SmartGetColor(386, 249) = 65535) Do
Wait(100);
ScarDisguise;
ActivateClient
LoginPlayer;
SetRun(True)
SetAngle(True)
CheckIfWeHaveRunes;
end;
Procedure MainLoop;
begin
begin
end.