santascar
2007-09-24 22:15:41
<!– BEGIN TEMPLATE: formanswers –>
santascar - SRL Member Application Form
santascar
What is the meaning to life?
I have one saying i live by.
If one cannot win at something and cannot beat the enemy.
Then you must find a way to kill the enemy.
Say, I dunno code a wall hack maybe that always helps.
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
C, Python, HTML, Javascript, MASM.
Other Communitys
HellBoundHackers,DarkMindZ, Enigme Group
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Ok
Well ive been coding since i was 12.
Got into computer hacking when i was 13.
After i do a site though there is a fair bit of tension left in me.
So i like to blow it off by gaming.
And what better way to game than to have an upper hand on others.
Im currently working on a way to compile SCAR scripts into .exe files.
That way i can contribute something really big to the community.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This is my first script. I wrote it in 20 minutes so be nice.
——————————————————
<!– END TEMPLATE: formanswers –>
santascar - SRL Member Application Form
santascar
What is the meaning to life?
I have one saying i live by.
If one cannot win at something and cannot beat the enemy.
Then you must find a way to kill the enemy.
Say, I dunno code a wall hack maybe that always helps.
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
C, Python, HTML, Javascript, MASM.
Other Communitys
HellBoundHackers,DarkMindZ, Enigme Group
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Ok
Well ive been coding since i was 12.
Got into computer hacking when i was 13.
After i do a site though there is a fair bit of tension left in me.
So i like to blow it off by gaming.
And what better way to game than to have an upper hand on others.
Im currently working on a way to compile SCAR scripts into .exe files.
That way i can contribute something really big to the community.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
This is my first script. I wrote it in 20 minutes so be nice.
program BoneBurryEr;
{.include srl/srl.scar}
const
ScriptName = ' bone burryer ';
Var
loats, bones, BuryTimes, Berror, Fightzormode, x, y : Integer;
BonesInInv, Kmouse, bonecolor, bonetol, load : integer;
FoundBonesDTM, UseTalkk, MouseKill : Boolean;
UseTalkForNow, UseTalk : Boolean;
RunDir : String;
Procedure SetUpDTM;
begin
BonesInInv := DTMFromString('78DA6314626060E06740038C4824906605127' +
'C04D480E42508A89105122204D44802095E026A048004077E3500' +
'679700DC');
end;
/////////////////////////////////////////////////////////////////////////////////////////////////
// //
// //
// //
// ~ THIS SCRIPT IS CREATED BY SantaScar (Based on and improved from Masterkills) //
// //
// ~ RUN THIS SCRIPT IN BARBARIAN UNDERGROUND! AT THE LV 12 MINOTOURS //
// (DONT GO TO A PLACE WITH WOLVES!) //
// //
// Not this is not entirely my own work //
// //
/////////////////////////////////////////////////////////////////////////////////////////////////
// LINES TO SET UP BEFORE YOU RUN THE SCRIPT //
// //
///////////////////////////////////////////////////////////////////////////////////////// //
Procedure DeclarePlayers; // //
begin // //
HowManyPlayers := 5; // //
NumberOfPlayers( HowManyPlayers ); // //
CurrentPlayer := 0; // //
// //
Players[0].Name := 'UserName'; //acc name // //
Players[0].Pass := 'Password'; //acc pass // //
Players[0].Nick := 'serN'; //3-4 of name // //
Players[0].Active := True; //active? (yes? = True) (no? = Flase) // //
// //
Players[1].Name := 'UserName'; // //
Players[1].Pass := 'Password'; // //
Players[1].Nick := 'erNa'; // //
Players[1].Active := False; // //
// //
Players[2].Name := 'UserName'; // //
Players[2].Pass := 'Password'; // //
Players[2].Nick := 'rNam'; // //
Players[2].Active := False; // //
// //
Players[3].Name := 'UserName'; // //
Players[3].Pass := 'Password'; // //
Players[3].Nick := 'Name'; // //
Players[3].Active := False; // //
// //
Players[4].Name := 'Username'; // //
Players[4].Pass := 'Password'; // //
Players[4].Nick := 'erNa'; // //
Players[4].Active := False; // //
// // // //
UseTalkk := True; //Use talk function? // //
MouseKill := True; //Set to false if you don't want to kill mouse's // //
bonecolor := 11908543; //bone color (dont Chage if isen't nessesairy!) // //
bonetol := 2; //Dont Change // //
load := 3; //loads before log out - 3/4 is good // //
RunDir := 'S'; //Dont Change // //
Fightzormode := 2; //attack style? // //
end;
///////////////////////////////////////////////////////////////////////////////////////// //
// //
// //
/////////////////////////////////////////////////////////////////////////////////////////////////
///////// SCRIPT ////////// SCRIPT ////////// SCRIPT ////////// SCRIPT /////////
////////////////////////////////////////////////////////////////////////////////
Procedure Starting;
begin
WriteLn('');
WriteLn('');
WriteLn('');
WriteLn('' + ScriptName + ' v1.0 /');
WriteLn('')
Wait(3000);
WriteLn(' /');
WriteLn('');
Wait(3000);
WriteLn('r u using this at the minotaurs place? ~ starting:');
End;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure SetChatAt;
begin
SetChat('On', 1);
SetChat('On', 1);
SetChat('friends', 2);
SetChat('friends', 2);
SetChat('on', 3);
SetChat('on', 3);
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure WhoWeDo;
begin
ClearDebug;
WriteLn('~ Running time = ' + TimeRunning);
WriteLn('~ Times buryed = ' + IntToStr(BuryTimes));
WriteLn('~ Buryed bones = ' + IntToStr(Bones));
WriteLn('~ Mouse`s killed = ' + IntToStr(Kmouse));
WriteLn('');
WriteLn('');
WriteLn('');
WriteLn('~ status:');
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
// RICK 4 SRL
Var
TradeTimeTicking : Integer;
procedure FindATradeByRick;
begin
repeat
begin
if (not (FindColorTolerance (x, y, 8388736, 23, 437, 294, 459, 5))) then
begin
exit;
end;
if (FindColorTolerance (x, y, 8388736, 23, 437, 294, 459, 5)) then
begin
MoveMouseSmooth(x, y);
Wait(1000);
if IsUpTextMulti('ccept', 'rade', 'Accept') then
Mouse(x, y, 0, 0, True);
begin
TradeTimeTicking := 0
Wait(2000);
end;
end;
end;
if (not (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5))) then
begin
WriteLn('Trading: ~ Error');
WriteLn('');
NOTrades := NOTrades + 1
exit;
end;
if (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5)) then
begin
WriteLn('Trading! ~ now wait for an accept. max wait 25s');
repeat
if (FindColorTolerance (x, y, 16777215, 180, 296, 341, 317, 5)) then
begin
WriteLn(' ~ other player accepted! now we`ll accept to!');
Mouse(260, 192, 5, 5, True);
Wait(2000);
if (FindColorTolerance (x, y, 4214871, 30, 65, 64, 73, 5)) then
begin
WriteLn(' ~ we made it to the seccond window!');
WriteLn(' ~ now wait for an second accept. max wait 20s');
Wait(1500);
TradeTimeTicking := 0
repeat
if (FindColorTolerance (x, y, 16776960, 301, 38, 303, 42, 5)) then
begin
WriteLn(' ~ accepted! all we need to do now is...:');
Mouse(226, 311, 2, 2, True);
Case random (5) of
0: TypeSend('ty');
1: TypeSend('tnx');
2: TypeSend('yay');
3: TypeSend('hehehe');
4: TypeSend('woot');
end;
WriteLn(' ~ perfect solved!');
Wait(1000);
exit;
end;
if (not (FindColorTolerance (x, y, 4214871, 30, 65, 64, 73, 5))) then
begin
WriteLn(' ~ the noob is not give`ing anything grr');
case random (5) of
0: TypeSend('grr');
1: TypeSend('pff');
2: TypeSend('=[');
3: TypeSend('why u trade me then... get a life');
4: TypeSend('gtfo');
end;
Trades := Trades + 1;
exit;
end;
if (FindColorTolerance (x, y, 4214871, 30, 65, 64, 73, 5)) then
begin
Wait(1000);
TradeTimeTicking := TradeTimeTicking + 1
end;
if ( TradeTimeTicking = 20 ) then
begin
WriteLn(' ~ took to long... now decine');
Mouse(295, 312, 2, 2, True);
case random (5) of
0: TypeSend('i dont have time for you');
1: TypeSend('if its not free then get lost');
2: TypeSend('naah');
3: TypeSend('get a live');
4: TypeSend('get lost');
end;
Trades := Trades + 1;
exit;
end;
until(false);
end;
end;
TradeTimeTicking := TradeTimeTicking + 1
Wait(1000);
if (not (FindColorTolerance (x, y, 3358280, 31, 34, 82, 50, 5))) then
begin
WriteLn(' ~ the noob is not give`ing anything grr');
case random (5) of
0: TypeSend('leave me alone then...');
1: TypeSend('pfff');
2: TypeSend('=[');
3: TypeSend('why u trade me then... get a life');
4: TypeSend('gtfo');
end;
Trades := Trades + 1;
exit;
end;
if ( TradeTimeTicking = 25 ) then
begin
WriteLn(' ~ took to long... now decine');
Mouse(259, 266, 5, 5, True);
case random (5) of
0: TypeSend('i dont have time for you');
1: TypeSend('if its not free then get lost');
2: TypeSend('naah');
3: TypeSend('get a live');
4: TypeSend('get lost');
end;
Trades := Trades + 1;
exit;
end;
until (false);
end;
until (false);
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure ThenKillAMouse;
begin
if (MouseKill = (False)) then exit;
WhoWeDo;
WriteLn(' Mouse killer activating');
begin
If (not (FindObjCustom(x, y, ['ttack', 'ouse'], [7639698], 5))) then
begin
WhoWeDo;
WriteLn(' not found a mouse =[');
Wait(2000);
exit;
end;
If FindObjCustom(x, y, ['ttack', 'ouse'], [7639698], 5) then
begin
mouse(x,y,0,0,false);
Wait(500);
if ChooseOption('Rat') then
begin
WhoWeDo;
WriteLn(' attamping to kill a mouse =o');
Kmouse := Kmouse + 1
Wait(3000 + random (2000) + random (1000));
end;
end;
repeat
Wait(1000);
if (FindColorTolerance (x, y, 65280, 175, 106, 338, 209, 5)) then
begin
WhoWeDo;
WriteLn(' in a mouse fight');
end;
if (not (FindColorTolerance (x, y, 65280, 175, 106, 338, 209, 5))) then
begin
WhoWeDo;
WriteLn(' resume what we did');
exit;
end;
until (False);
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
// THE SRL TEAM
function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i := 1 to 9 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
//Logout;
WriteLn('THIS IS THE PROB, nogametab');
Exit;
end;
end;
8: begin
if InBlack then
begin
status('warning: in black');
end;
end;
9: RC;
end;
Wait(1);
end;
end;
////////////////////////////////////////////////////////////////////////////////
var
NotFindTheGate : integer;
procedure Randoms;
begin
if not LoggedIn then Exit;
FindTalk;
FindATradeByRick;
FindNormalRandoms;
FindFastRandoms;
FindLamp('mining');
SolvePinball;
if (FindFight) then
begin
MakeCompass('n')
RunAwayDirection(RunDir);
WhoWeDo;
WriteLn('under attack! run for your live!');
Wait(3000);
repeat
Wait(1000);
If FindObjCustom(x, y, ['pen', 'ate'], [1449858], 20) then
begin
Mouse(x, y, 0, 0, False);
ChooseOption('pen');
Wait(5000);
WhoWeDo;
WriteLn(' we are safe now =D');
NextPlayer(false);
exit;
end;
If (not (FindObjCustom(x, y, ['pen', 'ate'], [1449858], 20))) then
begin
NotFindTheGate := NotFindTheGate + 1
WhoWeDo;
WriteLn(' not found the gate ' + IntToStr(NotFindTheGate) + '/20');
end;
if (NotFindTheGate = 20) then
begin
WhoWeDo;
WriteLn(' รก! no gate spotted 20/20 We might die now... going on');
Wait(3000);
end;
until (NotFindTheGate = 20);
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure pickup;
Begin
repeat
FindATradeByRick;
Randoms;
If FindObjCustom(x, y, ['ake', 'ttack'], [BoneColor], BoneTol) then
begin
Mouse(x, y, 1, 1, False);
WhoWeDo;
WriteLn(' attamping to pick a bone');
ChooseOption('ones');
Wait(1000 + random(1000));
SRLRandomsReport;
end;
if (FindColor(x, y, 0, 137, 423, 150, 431)) then
begin
WhoWeDo;
WriteLn(' o dear, its serieus a bone! now i need to pick and bury it!');
Case random(4) of
0: MakeCompass('e')
1: MakeCompass('s')
2: MakeCompass('w')
3: MakeCompass('n')
end;
TypeSend(' ');
end;
If not FindObjCustom(x, y, ['ake', 'ttack'], [BoneColor], BoneTol) then
begin
WhoWeDo;
WriteLn(' Not found bone collor');
Case random(4) of
0: MakeCompass('e')
1: MakeCompass('s')
2: MakeCompass('w')
3: MakeCompass('n')
end;
Berror := Berror + 1
ThenKillAMouse;
end; // //
if (Berror = 28) then
begin
WhoWeDo;
WriteLn(' to manny times not found the bone collor..!');
Wait(3000);
UseTalkForNow := False
exit;
end;
FindATradeByRick;
If Not LoggedIn then NextPlayer(False);
Until InvFull;
UseTalkForNow := True
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
// I just took this from MasterKill's script //
// //
////////////////////////////////////////////////////////////////////////////////
procedure HowAreYouTodayMrX;
var FindAcc:Boolean;
AccName:String;
begin
If (UseTalkk = False) then exit;
if (UseTalkForNow = (False))then exit;
if (UseTalkForNow = (True))then
begin
FindAcc := False
if(FindObj(x, y, 'evel', 2510975, 11)) then
FindAcc := True
else
if(FindObj(x, y, 'evel', 8474379, 11)) then
FindAcc := True
else
if(FindObj(x, y, 'evel', 4077094, 11)) then
FindAcc := True
else
if(FindObj(x, y, 'evel', 4544837, 11)) then
FindAcc := True
else
if(FindObj(x, y, 'evel', 1085071, 11)) then
FindAcc := True
else
if(FindObj(x, y, 'evel', 8747097, 11)) then
FindAcc := True;
if(FindAcc=True) then
WriteLn('Found random account to talk with:')
else
exit;
begin
ClickToContinue;
AccName:=GetTextAtEx(77, 7, 100, UpChars, True, True, 0, 2, 14606047, 12, False, tr_AllChars)
if (not(AccName='')) and (not(AccName='')) then
WriteLn('Account name is: '+AccName)
if (AccName='') then
Exit;
else
Case Random(35) of
0: Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' how he is, and we`ll tell were fine');
TypeSend('How are you ' + AccName + ' ?');
Wait(10000);
TypeSend('ok..');
Wait(5000);
TypeSend('im fine');
WhoWeDo;
WriteLn(' asked ' + AccName + ' how he is, and we told were fine');
End;
1: Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' how he is, and we`ll tell were good');
TypeSend('How are you ' + AccName + ' ?');
Wait(10000);
TypeSend('ok..');
Wait(5000);
TypeSend('im good');
WhoWeDo;
WriteLn(' asked ' + AccName + ' how he is, and we told were good');
End;
2: Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' how he is, and we`ll tell were fine');
TypeSend('How are you ' + AccName + ' ?');
Wait(10000);
TypeSend('sure');
Wait(5000);
TypeSend('im fine');
WhoWeDo;
WriteLn(' asked ' + AccName + ' how he is, and we told were fine');
End;
3: Begin
WhoWeDo;
WriteLn(' asked ' + AccName + ' if he is rich =o');
TypeSend('are you rich ' + AccName + ' ?');
End;
4: Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' to plz leave the bones on the ground');
TypeSend(AccName+', plz leave the bones on the ground');
End;
5: Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' to plz leave the bones on the ground');
TypeSend(AccName+', plz leave the bones on the ground');
End;
6: Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' to plz leave the bones on the ground');
TypeSend(AccName+', plz leave the bones on the ground');
End;
7: Begin
WhoWeDo;
WriteLn(' telling ' + AccName + ' he looks kool');
TypeSend(AccName+', u look kool =p');
End;
8: Begin
WhoWeDo;
WriteLn(' telling ' + AccName + ' is having a kool name');
TypeSend(AccName+', you got an kool name');
End;
9: Begin
WhoWeDo;
WriteLn(' noob ownage');
TypeSend('zezima is in lumberige! fast use home teleport!');
Wait(7500);
TypeSend('joking...');
End;
10:Begin
WhoWeDo;
WriteLn(' Prosedure: how old?');
TypeSend('How old are you ' + AccName + '?');
Wait(10000);
TypeSend('i am 11');// im 15 lol (jun 2007)
End;
11:Begin
WhoWeDo;
WriteLn(' Prosedure: how old?');
TypeSend('How old are you ' + AccName + '?');
Wait(6000);
TypeSend('i am 11');// im 15 lol (jun 2007)
End; //
12:Begin
WhoWeDo;
WriteLn(' just saying somthing noobs...');
TypeSend('bones 4 live');
End;
13:Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' if he is a pk`er');
TypeSend('are you a pker ' + AccName + '?');
End;
14:Begin
WhoWeDo;
WriteLn(' telling ' + AccName + ' that he is haveing good looking armor');
TypeSend('u got good looking armor ' + AccName);
End;
15:Begin
WhoWeDo;
WriteLn(' telling ' + AccName + ' that he is haveing good looking armor');
TypeSend('u got good looking armor ' + AccName);
End;
16:Begin
WhoWeDo;
WriteLn(' telling ' + AccName + ' that he is haveing good looking armor');
TypeSend('nice armor ' + AccName);
End;
17:Begin
WhoWeDo;
WriteLn(' telling ' + AccName + ' he is kool');
TypeSend('ur kool ' + AccName);
End;
18:begin
WhoWeDo;
WriteLn(' lets own this noobs!');
Wait(2000);
typesend('free 100k!');
WhoWeDo;
WriteLn(' haha !100k! not even in your dreams!');
Wait(5000);
TypeSend('sorry...');
Wait(2000);
TypeSend('I dont have 100k lol!!!!');
Wait(3000);
TypeSend('Sorry');
TypeSend('Im only joking =p');
WhoWeDo;
WriteLn(' congratz! u owned some noobs!');
end;
19:Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' if he likes me');
TypeSend(AccName + ' do you like me?');
End;
20:Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' if he likes me');
TypeSend(AccName + ' do you like me?');
End;
21:Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' if he hates me');
TypeSend(AccName + ' do you hate me?');
End;
22:Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' the time');
TypeSend(AccName + ', whats the time?');
wait(6000);
TypeSend('nvm, i allready know it');
End;
23:Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' whats up');
TypeSend('whats up ' + AccName);
End;
24:Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' what armor he is wairing');
TypeSend('what are you wairing ' + AccName);
End;
25:Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' what armor he is wairing');
TypeSend('what are you wairing ' + AccName);
End;
26:Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' what armor he is wairing');
TypeSend('what are you wairing ' + AccName);
End;
27:Begin
WhoWeDo;
WriteLn(' telling ' + AccName + ' he look greepy to you');
TypeSend('u look greepy to me ' + AccName);
End;
28:Begin
WhoWeDo;
WriteLn(' telling ' + AccName + ' he look nice to you');
TypeSend('u look nice to me ' + AccName);
End;
26:Begin
WhoWeDo;
WriteLn(' telling ' + AccName + ' he look good to you');
TypeSend('u look good to me ' + AccName);
End;
27:Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' if he can talk');
TypeSend('can you talk ' + AccName + '?');
End;
28:Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' how he is doing');
TypeSend('How are you doing ' + AccName);
End;
29:Begin
WhoWeDo;
WriteLn(' hmm getting sleepy of this!');
TypeSend('hmm gettling sleepy of this');
End;
30:Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' if he is still living');
TypeSend('are you still living ' + AccName);
End;
31:Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' if he is still living');
TypeSend('are you still living ' + AccName);
End;
32:Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' if its a nice day');
TypeSend('Its a nice day ' + AccName + ', isnt it?');
End;
33:Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' if its a nice day');
TypeSend('Its a nice day ' + AccName + ', isnt it?');
End;
34:Begin
WhoWeDo;
WriteLn(' asking ' + AccName + ' if its a nice day');
TypeSend('Its a nice day ' + AccName + ', isnt it?');
End;
end;
end;
end;
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure BuryTheBones2;
begin
MakeCompass('n');
repeat //
if FindDTM(BonesInInv, x, y, 525, 182, 745, 473) then
begin
FoundBonesDTM := True;
MoveMouseSmooth(x, y);
if IsUpTextMulti('Bones', 'ones', 'nes') then
begin
Wait(500);
MoveMouseSmooth(x, y);
ClickMouse(x, y, True);
Wait(1000 + random(200) + random(200))
Bones := Bones + 1
WhoWeDo;
WriteLn(' burying');
end;
end;
if (not(FindDTM(BonesInInv,x, y, 525, 182, 745, 473))) then
begin
FoundBonesDTM := False;
WhoWeDo;
WriteLn(' all bones in ifentory are buried!');
Wait(2000);
end;
FindATradeByRick;
randoms;
If Not LoggedIn then NextPlayer(False);
until(FoundBonesDTM = (False))
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure BeforeLogOut;
begin
SetChat('off', 1);
WriteLn('logging out =o');
End;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
Procedure MainLoop3;
begin //
PickUp; //
WhoWeDo;
Berror := 0
WhoWeDo;
WriteLn(' Done Picking Bones!');
FindATradeByRick;
Randoms;
HowAreYouTodayMrX; // <-- by Pentti
MakeCompass('n');
BuryTheBones2;
BuryTimes := BuryTimes + 1
SrlRandomsReport;
HowAreYouTodayMrX; // <-- by Pentti
End;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure MakeFightMode;
begin
SetFightMode(Fightzormode);
end;
////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////
procedure MainLoop2;
begin
LoginPlayer;
TypeSend(' ');
MakeFightMode;
GameTab(6);
Wait(2000);
SetChatAt;
SetRun(True);
repeat
MainLoop3;
loats := loats + 1
WhoWeDo;
Until (loats = Load)
BeforeLogOut;
loats := 0
NextPlayer(True);
End;
///////////////////////////Main Loop////////////////////////////////////////////
begin
SetupSRL;
SetUpDTM;
BuryTimes := 0
DeclarePlayers;
ClearDebug;
Starting;
FindWindowBySize(766, 504);
Activateclient;
repeat
MainLoop2;
If Not LoggedIn then NextPlayer(False);
Until False;
End.
///////// END ////////// END ////////// END ////////// END ////////// END //////
——————————————————
<!– END TEMPLATE: formanswers –>