Well i was aiming to release my auto fighter tongiht and i havnt completely given up but when it was all done ( or seemed like it at least) i get the most retarted error alive in my declare players which i never have a problem with heres the script see if you get the error
SCAR Code:
ailed when compiling
Line 52: [Error] (15550:1): Semicolon (';') expected in script
Im sure it something simple but if you could point out what i did wrong so i can fix and release tonight itd be great heres the script
SCAR Code:
{
********************************************************************************
| | ===== |=== ===== /==\ /==\ /| | | | /
| | | | | / | | / | |\ | | /
| | | |== | \===\ |__/ |__| | \ | |<
\ /\ / | | | / | | | \| | \
\/ \/ | | ===== \==/ | | | | | \
********************************************************************************
| | /===\ | | /==\ ===== |=== |===\ /==\ /==\ /| | | | /
|\ /| | | |\ | / | | | | / | | / | |\ | | /
| \/ | | | | \ | \===\ | |== |___/ \===\ |__/ |__| | \ | |<
| | | | | \| / | | | \ / | | | \| | \
| | \===/ | | \==/ | |=== | \ \==/ | | | | | \
********************************************************************************
Endjoy<@:)
Plz give feedback
My name on moparisthebest.com/smf is wtf i sp4nk and its same on
villu-reborn.com
********************************************************************************
INSTRUCTIONS
FILL OUT SETUP ON LINES ()
FILL IN USERNAMES
PUT NEAR MONSTERS YOUR FIGHTING
********************************************************************************
}
program Monster_Sp4nker;
{.include SRL\SRL.scar}
////Dont Touch///////
var //
MonsterK : integer;//
/////////////////////
{**********************************************Setup***************************}
const
Mcolor=1;//color of monster
MWaiTime=1;//time to wait untill attacking another monsters
NToKill=1;//How many monsters you want to sp4nk
MName='Rat';//Name of monster your killing
Username='';//fill out for auto responder by Arrow
Nick='';//fill out for auto responder by Arrow
SkillUp='Stregth'//Lamp Skill For Genie
{*****************************************End Of Setup*************************}
{******************************************************************************}
{*******************DECLARE YOUR PLAYERS BELOW*********************************}
{******************************************************************************}
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers); // Sets the Players Array Length;
CurrentPlayer := 0; // CurrentPlayer = Array Index
Players[0].Name := ''; //Username
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //3 or 4 letters username
Players[0].Loc := ''; //Leave as blank
Players[0].Skill := 'Stregth'; //The skill for when you get a lamp
Players[0].Active := True;
Writeln(inttostr(HowManyPlayers) + ' Players');
End;
{******************************************************************************}
{******************************************************************************}
Procedure beginscript;
Begin
cleardebug
DisguiseScar('Limewire:Enabling Walk It Out');
Writeln(' /==\ /==\ /| | | | / ')
Writeln('/ | | / | |\ | | / ')
Writeln('\===\ |__/ |__| | \ | |< ')
Writeln(' / | | | \| | \ ')
Writeln('\==/ | | | | | \ ')
Writeln('--->Monster Sp4nker by Wtf I Sp4nk')
Writeln('--->Version 1.0 released enjoy :)')
Writeln('--->Contact Me At [email]crazyirishman84@hotmail.com[/email]')
End;
{
********************************************************************************
***************Arrows Auto Responder********************************************
********************************************************************************
}
Procedure Responder;
begin
if (InChat('Mining lvls') or
InChat('Mining lvls?') or
InChat('Mine lvls') or
Inchat('Mine lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Mining')))
end;
if (InChat('Wc lvls') or
InChat('Wc lvls?') or
InChat('Woodcut lvls') or
InChat('Woodcut lvls?') or
InChat('Woodcutting lvls') or
InChat('Woodcutting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
end;
if (InChat('Fish lvls') or
InChat('Fish lvls?') or
InChat('Fishin lvls') or
InChat('Fishin lvls?') or
InChat('Fishing lvls') or
InChat('Fishing lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fishing')))
end;
if (InChat('Attack lvls') or
InChat('Attack lvls?') or
InChat('Atack lvls') or
InChat('Atack lvls?') or
InChat('Attac lvls') or
InChat('Attac lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Attack')))
end;
if (InChat('Strengh lvls') or
InChat('Strengh lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Strengh')))
end;
if (InChat('Defenc lvls') or
InChat('Defenc lvls?') or
InChat('Defence lvls') or
InChat('Defence lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Defence')))
end;
if (InChat('Hp lvls') or
InChat('Hp lvls?') or
InChat('Hitpoint lvls') or
InChat('Hitpoint lvls?') or
InChat('Hitpoints lvls') or
InChat('Hitpoints lvls?') or
InChat('Hitp lvls') or
InChat('Hitp lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
end;
if (InChat('Range lvls') or
InChat('Range lvls?') or
InChat('Rangin lvls') or
InChat('Rangin lvls?') or
InChat('Ranged lvls') or
InChat('Ranged lvls?') or
InChat('Ranging lvls') or
InChat('Ranging lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Ranged')))
end;
if (InChat('Pray lvls') or
InChat('Pray lvls?') or
InChat('Prayer lvls') or
InChat('Prayer lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Prayer')))
end;
if (InChat('Mage lvls') or
InChat('Mage lvls?') or
InChat('Mag lvls') or
InChat('Mag lvls?') or
InChat('Magic lvls') or
InChat('Magic lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Magic')))
end;
if (InChat('Cook lvls') or
InChat('Cook lvls?') or
InChat('Cookin lvls') or
Inchat('Cookin lvls?') or
InChat('Cooking lvls') or
InChat('Cooking lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Cooking')))
end;
if (InChat('Fletch lvls') or
InChat('Fletch lvls?') or
InChat('Fletching lvls') or
InChat('Fletching lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Fletching')))
end;
if (InChat('Firemaking lvls') or
InChat('FireMaking lvls?') or
Inchat('Fire making lvls') or
InChat('Fire making lvls')) then
begin
TypeSend(IntToStr(GetSkillLevel('Firemaking')))
end;
if (InChat('Craft lvls') or
InChat('Craftt lvls?') or
InChat('Craftin lvls') or
InChat('Crafting lvls?') or
InChat('Crafting lvls') or
InChat('Crafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Crafting')))
end;
if (InChat('Smelt lvls') or
InChat('Smelt lvls?') or
InChat('Smelting lvls') or
InChat('Smelting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Smelting')))
end;
if (InChat('Rc lvls') or
InChat('Rc lvls?') or
InChat('Runecraft lvls') or
InChat('Runecraft lvls?') or
InChat('Runecrafting lvls') or
InChat('Runecrafting lvls?')) then
begin
TypeSend(IntToStr(GetSkillLevel('Runecraft')))
end;
if (InChat(UserName + '?')) then
begin
TypeSend('Yeah?')
end;
if (InChat('Wna b freinds?') or
InChat('Wna be freinds?') or
InChat('Wana b freinds?') or
InChat('Wana be freinds?') or
InChat('Want 2 b freinds?') or
InChat('Want 2 be freinds?') or
InChat('Want to b freinds?') or
InChat('Want to be freinds?')) then
begin
TypeSend('No ty')
end;
if (InChat('Hi' + UserName) or
InChat('Hey' + UserName) or
InChat('Hello' + UserName)) Then
begin
TypeSend('Hi')
end;
if (InChat('You are a noob' + UserName) or
InChat( UserName + 'you are a noob')) then
begin
TypeSend('Okay')
end;
if (InChat('What music do you people like?') or
InChat('Wat music do you guys like?') or
InChat('What music you ppl like?') or
InChat('Wat music do yoo peeps like')) then
begin
TypeSend('Rock FTW!!')
end;
end;
Procedure Ban;
var
NoBan : Integer;
begin
if ( not ( LoggedIn )) then Exit;
NoBan:=Random(120)
case NoBan of
1: RandomRClickEvery(2 + Random(30));
2: hoverskill('woodcutting', false);
3: hoverskill('random', false);
4: DoEmote(1 + Random(20));
5: BoredEvery(9 + Random (21));
6: PickUpMouse;
7: LeaveScreenEvery(10 + Random(5));
8: RotateEvery(20 + Random(5));
end;
end;
Procedure MoreRandoms;
begin
SRLrandomsreport;
FindLamp(SkillUp);
FindTalk;
if (not(Loggedin)) then exit;
end;
Procedure Spank;
begin
repeat
highestangle;
Responder;
Ban;
MoreRandoms;
FindNormalRandoms;
If(findcolorspiralTolerance(x,y,Mcolor,MSX1,MSY1,MSX2,MSY2,20))Then
mmouse(x,y,3,3)
Until IsUpTextMulti('att','ack',MName)
If IsUpTextMulti('att','ack',MName) Then
Begin
GetMousePos(x,y)
mouse(x,y,1,1,true)
MonsterK:= MonsterK + 1;
FindNormalRandoms;
MoreRandoms;
Responder;
Ban;
wait(MWaiTime+random(500))
FindNormalRandoms;
end;
End;
procedure ProgressReport;
begin
Writeln('##############################');
Writeln(' WTF I SP4NK ');
Writeln(' Monster Sp4nker ');
Writeln('Saved you: '+ScriptTime2(2));
Writeln('sp4nked : '+IntToStr(MonsterK));
Writeln('##############################')
Writeln('##############################');
end;
begin
SetUpSRL;
beginscript;
DeclarePlayers;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
activateclient;
If Not(loggedin) Then
LoginPlayer;
If (LoggedIn) Then
Begin
Repeat
Repeat
Spank;
Until(NToKill >= MonsterK)
if (NToKill >= MonsterK) Then
Begin
Writeln('Logging on to next player...')
ProgressReport;
Logout;
NextPlayer(False);
End;
End;
end.