Klaust
2007-09-14 14:58:03
<!– BEGIN TEMPLATE: formanswers –>
jellehier0 - SRL Member Application Form
jellehier0
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
none..
Other Communitys
cheatengineforum
How Long have You Played Runescape
3 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I wanna try to become srl member again, I think I have the potentials … But, I'm kinda new to scar, so I don't know everything (by far..) there are so many great things about this :P
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
jellehier0 - SRL Member Application Form
jellehier0
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
none..
Other Communitys
cheatengineforum
How Long have You Played Runescape
3 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I wanna try to become srl member again, I think I have the potentials … But, I'm kinda new to scar, so I don't know everything (by far..) there are so many great things about this :P
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program SimpleAutocurser;
{.include SRL\SRL.scar}
{.include SRL\SRL\skill\magic.scar}
////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
////// Made by: jellehier0 //////
////// This is my first script //////
////// so please, don't flame me //////
////// if you have any comments, //////
////// please PM me.. //////
////// Thnx alot! //////
////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////
// How to use: fill in everything.. stand next to the zamorak mage
// in varrock castle with enough runes to cast 'curse'
var
i: Integer;
x,y: Integer;
Castedspells: Integer;
p: Integer;
Randomsfound: Integer;
const
Lampskilll= 'farming'; // same, but for failsave
Spelll= 'curse'; // change curse into weaken, curse of confuse or any other spell
Monstername= 'onk'; // part of the name of the monk
ZammonkColor1= 2172254; //colour of 'monk of zamorak'
ZammonkColor2= 3488915; //second colour of the monk
ZammonkColor3= 4212913; //third color of the monk
Runs= 2202; // times you want to run the script ( 0 = unlimited)
procedure declareplayers;
begin
HowManyPlayers :=2;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='name'; //name
Players[0].Pass :='pass'; // password
Players[0].Nick :='nick'; // nickname, abriviation of your name.
Players[0].Skill:='Magic';// skill doing is magic
players[0].loc:='varrock castle';// location
Players[0].Active:=True;
Players[1].Name :='name'; //name
Players[1].Pass :='pass'; // password
Players[1].Nick :='nick'; // nickname, abriviation of your name.
Players[1].Skill:='Magic';// skill doing is magic
players[0].loc:='varrock castle';// location
Players[1].Active:=false; // change to true if you use 2 accounts
end;
function FindNormalRandom: Boolean;
var
i: Integer;
begin
for i := 1 to 16 do
begin
case I of
1: if SolveChatRandom then
Result := True;
2: Respond;
3: if FindTalk then
Result := True;
4: if FindDead then
Result := True;
5: if FindMod then
Result := True;
6: if FindMime then
Result := True;
7: if FindMaze then
Result := True;
8: if FindQuiz then
Result := True;
9: if SolveSandWich then
Result := True;
10: if SolveCerter then
Result := True;
11: if SolveQuestion then
Result := True;
12: if FindTalk then // Call it twice
Result := True;
13: if FindLamp(LampSkilll) then // Maybe we missed it?
Result := True;
14: if (FindBox) then
begin
Result := True;
if (UseBoxSolver) then
SolveBox
else
GambleBox;
end;
15:
begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].Rand := 'No GameTab';
//Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
16: if RC then
Result := True;
end;
if Result then
Break;
Wait(1);
end;
end;
procedure Runaway;
begin
Findtalk;
begin
case Random (6) of
2: Findnormalrandom;
end;
if (FindFight= true) then
begin
MakeCompass ('n')
RunAwayDirection('s');
wait(10000);
RunBack;
end;
end;
end;
procedure antiiban;
begin
case random (35) of
0: begin
GameTab(2);
Hoverskill('magic',false);
end;
1: Typesend('good way of training magic!'+chr(13));
2: SendText('lool...'+chr(13));
3: Typesend('Booooring!!!!!'+chr(13));
4: SendText('let him live!'+chr(13));
5: Typesend('cmn... almost magic lvl up =)'+chr(13));
end;
end;
procedure Curse; //select the curse spell
Begin
Cast(spelll);
end;
procedure Findmage; //find the mage of zamorak
Begin
if (FindObj(x,y,monstername,zammonkcolor1,10))
or (FindObj(x,y,monstername,zammonkcolor2,10))
or (FindObj(x,y,monstername,zammonkcolor3,10)) then
begin
Writeln('Found Zamorak Monk');
MMouse( x,y,5,2);
Mouse(x,y,1,1,true);
Castedspells:= castedspells + 1;
end else
if (not(FindObj(x,y,monstername,ZammonkColor1,10)))
or (not(FindObj(x,y,monstername,ZammonkColor2,10)))
or (not(FindObj(x,y,monstername,ZammonkColor3,10))) then
begin
p:= 1;
begin
p:= p + 1;
Writeln ('Did not found zamorak monk');
Case random (3) Of
0: Makecompass ('s')
1: Makecompass ('n')
2: Makecompass ('w')
3: Makecompass ('e')
end;
if p = 10 then
begin
Logout;
Writeln('logging out...')
end;
end;
end;
end;
procedure Report;
begin
Cleardebug;
Writeln('>---------------------------<');
Writeln('jellehier0s simpleautocurser!');
Writeln('running time:' + (timerunning) + '');
Writeln('curses casted:' + inttostr(castedspells) +'');
Writeln('randoms found:' + inttostr(randomsfound) +'');
end;
begin //mainloop
SetupSRL;
SetupMagic;
Disguise('MSN MESSENGER 8.3');
DeclarePlayers;
if (not (Loggedin)) then
begin
Loginplayer;
HighestAngle;
Makecompass ('w');
Mousespeed := 12;
end;
begin
i:= 0;
repeat
i:= i + 1;
Mousespeed := 12+random(2);
Curse;
wait(400+Random(148));
Findmage;
Runaway;
Wait(879+Random(114));
begin;
case Random (5) of
1: Antiiban;
end;
Report;
end;
until(i = runs)
Nextplayer(false)
Logout;
end;
end.
——————————————————
<!– END TEMPLATE: formanswers –>
