ichthuz
2007-02-11 01:20:41
<!– BEGIN TEMPLATE: formanswers –>
ichthuz - SRL Member Application Form
ichthuz
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
php, c, ruby on rails
Other Communitys
sythe
How Long have You Played Runescape
2 yrs
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I am 15 and like cheating at RS more than playing RS. i am a moderately experience scar scripter and program php and c as well
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
ichthuz - SRL Member Application Form
ichthuz
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
php, c, ruby on rails
Other Communitys
sythe
How Long have You Played Runescape
2 yrs
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
I am 15 and like cheating at RS more than playing RS. i am a moderately experience scar scripter and program php and c as well
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
[ Varrock Essence Miner by Ichthuz
---INSTRUCTIONS---
1: Make SURE, thats your computer is on 32-bit color
2: Get in or around Varrock East Bank, but not in Aubury's house
3: Put your pickaxe in the 1st inventory slot
4: Put your spare pickaxe in the 1st slot of the bank
5: Fill in setup, but probably it will work fine with the default settings
6: Start Script ^^
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-}
program Ess_Miner;
{.include rsci.txt}
var
ChrCharsNormal, X, B, Y, Tele, Loads, BitRockSlide, CFight, EssencesMined:Integer;
BeginTime:LongInt;
AttackerFound:Boolean;
const
{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=SETUP=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
MaxMiningTime = 205;//In Seconds, When It Runs Out, It Teleports Back No Matter What.
MaxLoads = 20;//Amount Of Loads j00 Wanna Do.
{=-=-=-=-=-=-=-=-=-=-=-=-=-=-=END SETUP=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=}
{!~!~!~!~!~!~!~!~!~!~!~!~!~!DONT TOUCH!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~}
AuburyColor=14606050;//His Shirt Works Best (White Part) His Front.
AuburyColor2=1127241;//His Back.
AuburyColor3=2385294;//His Side.
TeleportArrow = 84414;//The Orange Bit Of The Teleport Arrow.
AuburySign = 100320;//The Middle Orange Color Of The Aubury Sign.
WelcomeToBank = 2070783; //The Orange Color In bank, That States: 'The Bank Of rs'
{!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!~!}
procedure Maps;
begin
Tele := BitmapFromString(107, 16, 'z78DAED9A410E84200C45AFC' +
'442321798CCFD8F342B239986E697DF0E8265D145035F0BCF52C5' +
'FAAEC7F1AA691F638B6877B8AB0FD078E55CFD6B4E4A696D84F2B' +
'A4F47CB0CFFBC48B5B5C9E19FC793906BB6FD9891FAABCF331FC5' +
'AE045A63916CB40A5E1C268149E0181B5EE43C8740BC56D4D5AC3' +
'5675C7FA4275321CBDAAF6791DC88F891BC1AA16FF533CCB4BB09' +
'B26ABF73CBE9C4F597A3744D24DBF47661590DF6081CF3EBEBCEE' +
'8231505E2E709DCD58FC71EB70B47F87DAFCBC7E2B56FE279234E' +
'27C2BF1F8111FE5904964E6376615E27099C4B2052F732042219C' +
'C2BA332B9571F85E75824F6E877617D1DF53ACDBA6F8ED578C8F9' +
'0B33163FDFE98DD2D5101D6BCE44F4C7A266CEB698AB8F4531779' +
'676FA52B4D377C53C8B4C02D3FE8734FC0D3A094C1BFDF7C5BAEC' +
'F11548DA3BFF09F6054EFEEB23');
end;
Procedure Talking;
Var
Say: Array[1..8]Of String;
Begin
Say[1]:= 'Rc Lvls?' + Chr(13)
Say[2]:= 'Minin Lvls?' + Chr(13)
Say[3]:= 'I Still Got ' + IntToStr(MaxLoads - Loads) + ' More Trips' + Chr(13)
Say[4]:= 'I Gotta Mine ' + IntToStr(MaxLoads * 28 - EssencesMined) + ' More Ess...'
+ Chr(13)
Say[5]:= 'God Minin Ess Is Boring...' + Chr(13)
Say[6]:= 'Maybe I Should Just Buy Some Ess...' + Chr(13)
Say[7]:= '(-.-(-.-)-.-)' + Chr(13)
Say[8]:= '( " )(-.-)( " )' +Chr(13)
End;
procedure ToAubury;
begin
if findcolorspiral(x, y, auburysign, 623, 141, 691, 160) Then
mouse(x, y, 1, 1, True)
run(true)
Wait(13000 + random (1000))
Flag;
B:=B + 1;
end;
Function IsTextAt3(x, y : Integer; S : String; Tolerance : Integer) : Boolean;
Begin
result:= IsTextAtEx(x, y, S, Tolerance, ChrCharsNormal, True, False, 0, 1, -1);
If(result=False)Then
result:= IsTextAtEx(x - 2, y - 2, S, Tolerance, ChrCharsNormal, True, False, 0, 1, -1);
If(Result=false)Then
result:= IsTextAtEx(x, y - 2, S, Tolerance, ChrCharsNormal, True, False, 0, 1, -1);
If(Result=False)Then
result:= IsTextAtEx(x - 2, y, S, Tolerance, ChrCharsNormal, True, False, 0, 1, -1);
End;
Function IsTextUp(text : String) : Boolean;
Begin
If(IsTextAt3(9, 9, text, 100))Then
result:= true
Else
result:= false;
End;
//Based on FindObjDir, but is totally changed in use
//All directions
function FindTextDirection(var ox, oy:Integer; Text:string; Direction, Steps:Integer):Boolean;
var
att, x, y, Tries:Integer;
begin
x := ox;
y := oy;
att := 0;
Tries := 120;
MMouse(x, y, 2, 2);
//First check if mouse already is on the good place :)
if(IsTextUp(Text)) then
begin
result := True;
Direction := 0;
end;
//NorthWest
if(Direction = 1) then
begin
repeat
att := att + 1;
MMouse(x - Steps, y - Steps, 2, 2);
GetmousePos(x, y);
if(istextat2(9, 9, Text, 100)) then
begin
result := True;
end else
begin
Wait(30);
end;
until( (IsUpText(Text)) or (att >= Tries) or ((x - Steps) < 6) or
((x + Steps) > 514) or ((y - Steps) < 6) or ((y + Steps) > 337) )
end;
//NorthEast
if(Direction = 2) then
begin
repeat
att := att + 1;
MMouse(x + Steps, y - Steps, 2, 2);
GetmousePos(x, y);
if(IsUpText(Text)) then
begin
result := True;
end else
begin
Wait(30);
end;
until( (IsUpText(Text)) or (att >= Tries) or ((x - Steps) < 6) or
((x + Steps) > 514) or ((y - Steps) < 6) or ((y + Steps) > 337) )
end;
//SouthWest
if(Direction = 3) then
begin
repeat
att := att + 1;
MMouse(x - Steps, y + Steps, 2, 2);
GetmousePos(x, y);
if(IsUpText(Text)) then
begin
result := True;
end else
begin
Wait(30);
end;
until( (IsUpText(Text)) or (att >= Tries) or ((x - Steps) < 6) or
((x + Steps) > 514) or ((y - Steps) < 6) or ((y + Steps) > 337) )
end;
//SouthEast
if(Direction = 4) then
begin
repeat
att := att + 1;
MMouse(x + Steps, y + Steps, 2, 2);
GetmousePos(x, y);
if(IsUpText(Text)) then
begin
result := True;
end else
begin
Wait(30);
end;
until( (IsUpText(Text)) or (att >= Tries) or ((x - Steps) < 6) or
((x + Steps) > 514) or ((y - Steps) < 6) or ((y + Steps) > 337) )
end;
//North
if(Direction = 5) then
begin
repeat
att := att + 1;
MMouse(x, y - Steps, 2, 2);
GetmousePos(x, y);
if(IsUpText(Text)) then
begin
result := True;
end else
begin
Wait(30);
end;
until( (IsUpText(Text)) or (att >= Tries) or ((x - Steps) < 6) or
((x + Steps) > 514) or ((y - Steps) < 6) or ((y + Steps) > 337) )
end;
//South
if(Direction = 6) then
begin
repeat
att := att + 1;
MMouse(x, y + Steps, 2, 2);
GetmousePos(x, y);
if(IsUpText(Text)) then
begin
result := True;
end else
begin
Wait(30);
end;
until( (IsUpText(Text)) or (att >= Tries) or ((x - Steps) < 6) or
((x + Steps) > 514) or ((y - Steps) < 6) or ((y + Steps) > 337) )
end;
//West
if(Direction = 7) then
begin
repeat
att := att + 1;
MMouse(x - Steps, y, 2, 2);
GetmousePos(x, y);
if(IsUpText(Text)) then
begin
result := True;
end else
begin
Wait(30);
end;
until( (IsUpText(Text)) or (att >= Tries) or ((x - Steps) < 6) or
((x + Steps) > 514) or ((y - Steps) < 6) or ((y + Steps) > 337) )
end;
//East
if(Direction = 8) then
begin
repeat
att := att + 1;
MMouse(x + Steps, y, 2, 2);
GetmousePos(x, y);
if(IsUpText(Text)) then
begin
result := True;
end else
begin
Wait(30);
end;
until( (IsUpText(Text)) or (att >= Tries) or ((x - Steps) < 6) or
((x + Steps) > 514) or ((y - Steps) < 6) or ((y + Steps) > 337) )
end;
if(Result = True)then
begin
ox := x;
oy := y;
end;
end;
function FindObjLol(objtext:string; objcolor,tol:integer):boolean;
var ax,ay:integer;
xi,yi,TempHold2,i,TempHold:extended;
begin
if(FindColorTolerance(x,y,objcolor,1,1,514,336,tol))then
begin
ax:=257; ay:=168;
repeat
i:=i+1
yi:=0;
repeat
yi:=yi+1;
TempHold:=Trunc(i/2);
TempHold2:=i/2;
if(TempHold=TempHold2)then
begin
ay:=ay+10;
end else
begin
ay:=ay-10;
end;
//To take softbug out
if(ax < 8) then
begin
ax := 8;
end;
if(ay < 8) then
begin
ay := 8;
end;
if(FindColorTolerance(x,y,objcolor,ax-5,ay-5,ax+5,ay+5,tol))then
begin
MMouse(x,y,1,1);
wait(450);
if(IsTextAt2(9,9,objtext,100))then
begin
result:=true;
end;
end;
until(yi=i)or(result=true)
xi:=0;
repeat
xi:=xi+1;
TempHold:=Trunc(i/2);
TempHold2:=i/2;
if(TempHold=TempHold2)then
begin
ax:=ax+10;
end else
begin
ax:=ax-10;
end;
if(FindColorTolerance(x,y,objcolor,ax-5,ay-5,ax+5,ay+5,tol))then
begin
MMouse(x,y,1,1);
wait(450);
if(IsTextAt2(9,9,objtext,100))then
begin
result:=true;
end;
end;
until(xi=i)or(result=true)
until(ax>=514)or(result=true)
end;
end;
procedure LoadBitmaps;
begin
bitRockSlide := BitmapFromString(4, 4, 'z78DA737674367236760693' +
'4606406804218D2D41109738B2AC810508628A434800E9FC14C7');
end;
// Avoids rs bug, where flag is visible, but no walking occurs
// Based on RSCI's Flag;
Function Flag2:boolean;
var x, y: Integer;
time:longint;
begin
If(Not(FindColor(x,y,255,559,0,735,166)))Then
begin
Result:=False;
end;
if(FindColor(x,y,255,559,0,735,166))then
begin
Result := True;
//Set begintime for count
time := GetSystemTime;
repeat
wait(250);
until( ( not(FindColor(x,y,255,559,0,735,166)) ) or (GetSystemTime > time + 49749) )
Wait(250+random(250));
end;
end;
Function FindHealthBar:boolean;
begin
if ( (findcolor(x,y,65280,220,130,290,165)) and (findcolor(x,y,255,220,130,290,165)) ) then
begin
Writeln('Health Bar found, leaving!');
//Make Screenshot and increment stat
cFight := cFight + 1;
TakeScreen('Fight', cFight);
//...done
result := true;
end;
end;
procedure randoms;
begin
//Ford stuff
FindText;
EyeTest;
//Normal without interaction
FindMiscRandoms;
FindForester;
FindFrog;
CheckLeveled;
//Box, lamp and dwarfen items
RandomItemHandler('mining', True);
//Pickhead broken?
headgone(false);
if HeadGone(false) then
begin
GetHead(false);
Fixhead(False,false);
end;
//Healthbar Found?
if(FindHealthBar) then
begin
AttackerFound := True;
end;
End;
Procedure PrintReport;
var Seconds, Minutes, RSeconds, RMinutes, RHours:LongInt;
Time:string;
begin
{
Strange Box : cBoxes \
Splitten Pick: cSplittenPick - Random events count
Fights : cFight - to be created
Logout : cLogOut /
}
//Get all data by devision
Seconds := (GetSystemTime - begintime) div 1000;
Minutes := Seconds div 60;
RHours := Minutes div 60;
//Declare seconds only if time isn't higher that 1 minute which is checked later :)
Time := inttostr(Seconds)+' Seconds';
//If time is more than 1 minute
if (Minutes > 0) then
begin
RSeconds := Seconds Mod (Minutes*60);
Time := inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
//If time is more than 1 hour
if (RHours > 0) then
begin
RMinutes := Minutes Mod (RHours*60);
RSeconds := Seconds Mod (Minutes*60);
Time := inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
//Clear old data
ClearReport;
//Add new data
AddToReport('------====Progress Report====------');
AddToReport('Completed ' + IntToStr(Loads) + ' Loads.')
AddToReport('Has Mined ' + IntToStr(EssencesMined)+ ' Essence.');
AddToReport('Mined For '+ Time);
if(Loads > 0) then
begin //Hehe, offcourse no division by zero :)
AddToReport('Averaging '+inttostr(Seconds / Loads)+' Seconds Per Trip!');
AddToReport('Averaging '+inttostr( (3600 / (Seconds / Loads)) * 27 )+' Essence Per Hour!');
end;
AddToReport('------====End Of This Report====------');
end;
procedure Teleport;
begin
repeat
if(findcolorspiral(x, y, AuburyColor, 170, 64, 373, 228))Or
findcolorspiral(x, y, AuburyColor2, 170, 64, 373, 228) Or
findcolorspiral(x, y, AuburyColor3, 170, 64, 373, 228)And
IsTextat2(9, 9, 'talk to aubury', 100)Then
wait(100 + random (200));
movemousesmoothex(x, y, 1, 4, 55, 55, 55);
wait(100 + random (200));
mouse(x, y, 1, 1, false);
wait(100 + random (200));
until findbitmap(tele, x, y)
wait(100+random(200));
begin
movemousesmoothex(x,y, 1, 4, 55, 55, 55);
wait(200 + random (35))
mouse(x, y, 1, 1, true);
wait(5000)
B:=B + 1;
end;
end;
Procedure ZoneDetection;
var r1x, r1y, r2x, r2y:integer;
Begin
//North-West
if( (getcolor(627, 102) = 1557) and (getcolor(651, 50) = 1557) ) then
begin
r1x := 216; r1y := 62;
r2x := 156; r2y := 100;
//North-East
end else if( (getcolor(640, 47) = 1557) and (getcolor(627, 121) = 1557) ) then
begin
r1x := 404; r1y := 80;
r2x := 343; r2y := 54;
//South West
end else if( (getcolor(635, 41) = 1557) and (getcolor(637, 37) = 1557) ) then
begin
r1x := 283; r1y := 34;
r2x := 213; r2y := 54;
//South East
end else if( (getcolor(679, 69) = 1557) and (getcolor(599, 59) = 1557) ) then
begin
r1x := 364; r1y := 177;
r2x := 358; r2y := 251;
//Middle South-West
end else if( (getcolor(640, 61) = 1557) and (getcolor(695, 43) = 1557) ) then
begin
Mouse(611, 119, 1, 1, True);
Flag2;
r1x := 225; r1y := 226;
r2x := 244; r2y := 305;
//Middle North-east
end else if( (getcolor(615, 89) = 1557) and (getcolor(671, 70) = 1557) ) then
begin
Mouse(684, 39, 2, 2, True);
Flag2;
Mouse(658, 68, 1, 1, True);
Flag2;
r1x := 340; r1y := 78;
r2x := 393; r2y := 140;
//Else... :)
end else
begin
//Check if we see the rockslide, to position ourselfs
//Rockslide below
if(findbitmapin(bitRockSlide, x, y, 571, 83, 722, 160)) then
begin
//Walk to Middle North-East spawn ^^
Mouse(x + 23, y + 4, 0, 0, True);
Flag2;
Mouse(684, 39, 2, 2, True);
Flag2;
Mouse(658, 68, 1, 1, True);
Flag2;
r1x := 340; r1y := 78;
r2x := 393; r2y := 140;
//Rockslide Above
end else if(findbitmapin(bitRockSlide, x, y, 571, 5, 722, 83)) then
begin
//Walk to Middle South-West spawn :D
Mouse(x, y + 30, 0, 0, True);
Flag2;
Mouse(611, 119, 1, 1, True);
Flag2;
r1x := 225; r1y := 226;
r2x := 244; r2y := 305;
end else
begin
if(findcolor(x, y, TeleportArrow, 570, 6, 724, 163)) then
begin
Mouse(x, y, 0, 0, True)
Flag2;
end;
r1x := 255; r1y := 163;
r2x := 256; r2y := 209;
end;
end;
//Moving part
case random(2) of
0: MMouse(r1x, r1y, 2, 2);
1: MMouse(r2x, r2y, 2, 2);
end;
End;
Procedure MineEssences;
var start:longint;
z :integer;
found:boolean;
begin
//Reset AttackerFound to watch for new fight :D
AttackerFound := False;
//Find the essences in a loop, also quite good :P
z := 0;
//Get mouse position to loop from
GetMousePos(x, y);
repeat
z := z + 1;
found := FindTextDirection(x, y, 'Mine', z, 7);
wait(150);
until( (found) or (z >= 8))
//Minespot is found
if(found) then
begin
//Click on the minespot :D
Mouse(x, y, 0, 0, True)
//Get starttime for count
start := GetSystemTime;
repeat
wait(1000)
Randoms;
until( (InvCount > 27) or (AttackerFound) or (GetSystemTime >= (start + (MaxMiningTime * 1000)) ) )
//1 to 10 chance
if(random(10) = 4) then
begin
//Click away message about full inventory if color is blue
if(getcolor(261, 444) = 16711680) then
begin
mouse(261, 444, 15, 0, True);
end;
end;
//Add to stats
Loads := Loads + 1;
EssencesMined := EssencesMined + 27;
end;
end;
Procedure TeleportBack;
var count:integer;
Begin
//repeat until back at aubury
repeat
wait(500);
//Find teleport arrow but not water sign (@ aubury)
if ( (findcolor(x,y, TeleportArrow, 579, 6, 720, 163)) and not( (findcolor(x, y, 14108443, 570, 6, 724, 163)) ) ) Then
begin
//find upmost right or bottom of arrow
repeat
case random(2) of
0: begin
if(not findcolor(x, y, TeleportArrow, x + 1, 6, x + 2, 163)) then
begin
break;
end;
end;
1: begin
if(not findcolor(x, y, TeleportArrow, 579, y + 1, 720, y + 2)) then
begin
break;
end;
end;
end;
until(false)
//Click it
Mouse(x, y, 0, 0, True);
Flag2;
//Find the portal in max 5 main tries
count := 0;
repeat
wait(200);
count := count + 1;
until ( (FindObjLol('Use', 9806761, 5)) or (count > 4) )
//If found in maximal 5 main tries, teleport back
if(count < 5) then
begin
Mouse(x,y,1,1,true);
//Put run off while teleporting
Run(False);
wait(1000);
end;
end else
begin
//Do zonedetection again... and again... and again :p
ZoneDetection;
end;
//Check if @ aubury
until (findcolor(x, y, 14108443, 570, 6, 724, 163)) or (findcolor(x, y, 78714, 570, 6, 724, 163)) or (findcolor(x, y, AuburySign, 570, 6, 724, 163))
end;
procedure WalkToBank;
begin
mouse(673, 46, 2, 2, True)
flag;
findColorspiral(x, y, 3060683, 599, 18, 660, 73)
mouse(x, y, 1, 1, True)
flag;
B:=B + 1;
end;
Procedure Banking;
var z, c:integer;
Begin
//Find strange stuff before depositing
RandomItemHandler('mining', True);
openbank;
repeat
wait(250);
z := z + 1;
until( (FindColor(x, y, WelcomeToBank, 9, 9, 512, 336)) or (z > 39) )
wait(random(500));
//1337 banking!!!
//It clicks everywhere xept 1st collumn
//Hor. Diff = 42, Vert. Diff = 36
//Prepare x and y for clicking
x := (620 + (random(3) * 42)) + random(10);
y := (220 + (random(7) * 36)) + random(10);
Mouse(x, y, 0, 0, False);
wait(random(200));
ClickOption('All', 2);
wait(1000);
//Deposit other shit if there is any :)
repeat
repeat
wait(121+random(65))
if( (FindColor(x,y,65536,565,250,730,460)) or
(FindColor(x,y,65536,611,215,730,245)) ) then
begin
c := c + 1;
Mouse(x - 5, y, 5, 5, False);
wait(random(200));
ClickOption('All', 2);
wait(1000);
end;
until( ( (not(FindColor(x,y,65536,565,250,730,460))) and
(not(FindColor(x,y,65536,611,215,730,245))) ) or
(c > 4) )
if (c > 4) then
begin
c := 0;
wait(121+random(65))
MMouse(573 + random(10),189 + random(10), 0, 0);
end;
until( ( (not(findColorSpiral(x,y,65536,565,250,730,460))) and
(not(FindColorSpiral(x,y,65536,611,215,730,245))) ) or
(c > 4) )
wait(250);
//Close bank with much horizontal random
Mouse(455, 41, 30, 2, true);
Wait(250)
Gametab(4)
If (Not(Findcolor(x, y, Head, 563, 211, 603, 244))) Then
Begin
Mouse(581, 229, 1, 1, False)
ClickOption('Drop', 2)
Wait(4000)
If (Findcolor(x, y, 7443105, 6, 6, 512, 336)) Then
begin
//Rightclick on bank and open quickly
Mouse(x, y, 1, 1, False)
ClickOption('quickly', 1)
Wait(5000)
//Right click on first bankslot and get 1
Mouse(91, 76, 1, 1, False)
ClickOption('1', 1)
Wait(3000)
//Close Bank
Mouse(455, 41, 30, 2, True);
Wait(20)
//Find new pickaxe color
GetheadColors(False);
B:=B + 1;
end;
end;
end;
Begin
LoadInclude('Mozilla Firefox',false)
LoadBitmaps;
begintime := GetSystemTime;
Chatsoff;
Mouse(682, 483, 1, 1, True)
Mouse(716, 264, 1, 1, True)
Gametab(4)
//Check for boxes or lamps before starting
RandomItemHandler('mining', True);
//Get color for pickhead if dropped later
GetheadColors(False);
maps;
repeat
If (B = 20 + Random(28)) Then
Talking;
WriteLn('Walkin To Aubury...');
If (B = 23 + Random(34)) Then
Talking;
ToAubury;
WriteLn('Lookin For A Way In...');
Teleport;
WriteLn('Figurin Where The stuff We Are...');
ZoneDetection;
WriteLn('Mining Ess');
If (B = 20 + Random(31)) Then
Talking;
MineEssences;
WriteLn('Teleporting Back');
TeleportBack;
WriteLn('Walking To Bank');
WalkToBank;
WriteLn('Depositing');
If (B = 20 + Random(30)) Then
Talking;
Banking;
PrintReport;
Until(Loads >= MaxLoads)
End.
——————————————————
<!– END TEMPLATE: formanswers –>