the bomb 454
Forum Addict
- Joined
- Aug 9, 2005
- Sythe Gold
- 0
- Messages
- 367
Oh my god you'll never guess what i found......
After the Sythe crash i lost like 20 of my scripts and i got really mad.
Today i was looking at some wannabe cheating website (rs101.info) and i found my script!
They said they made it and it has all of my info in it.
Enjoy.....
this is a really old script so you will probably get banned using it, i just posted it for educational purposes only. I am going to go through the script and update all of the methods so this script can be released and used without getting banned.
if you do decide to use it, start out standing in front of the cave with your view all the way on the floor facing the entrance
After the Sythe crash i lost like 20 of my scripts and i got really mad.
Today i was looking at some wannabe cheating website (rs101.info) and i found my script!
They said they made it and it has all of my info in it.
Enjoy.....
Code:
{.Script Info:
# ScriptName = BOMBS AUTO TOKKUL
# Author = the bomb 454
# Description = tightness
# Version = 3.1
# Date = 12/28/05
# Comments = tightness/1337
/Script Info}
program BOMBS_Tokkul_Completer;
{.include Squig.txt}
////Setup ////
//Start in front of the entrance (cave) to minigame////
Const
BankSymbol = 5034473; //Color of the bank symbol
ampSkill='strength'; //i meant for it to be lampskill
TotalNeeded = 0; //Number of times you want to go thru, 0 for unlimited
Combat = 1; //The type of combat you wish to fight with 1=attk 2= str 3= other str and 4= defence
////End Setup////
Var
a, b, x, chance, talk, TotalDone : Integer;
Procedure ChangeReport(Reason : String);
Begin
Status(Reason);
ClearReport;
AddToReport('+=+=+=+=+=+=+=BOMBS TOKKULL REPORT=+=+=+=+=+=+=+=+=+');
AddToReport('Right Now You Are: ' + Reason);
AddToReport(WorkedFor);
AddToReport('You Have Completed cave ' + inttostr(TotalDone) + ' times ');
AddToReport(inttostr(TotalNeeded - TotalDone) + ' times left');
End;
Function indObjectIn(a1, b1, a2, b2 : Integer; text : String; color, tol : Integer) : Boolean;
Var
a, b, c, x1, y1, x2, y2, cc, dd : Integer;
Changed : Boolean;
Begin
x1:= a1;
cc:= (a2 - a1) / 10;
dd:= (b2 - b1) / 10;
changed:= false;
y1:= b1;
x2:= a1 + 15;
y2:= b1 + 15;
c:= 0;
result:= false;
If(findcolortolerance(a, b, color, a1, b1, a2, b2, tol)= false)Then
exit;
Repeat
If(getcolor(215, 435)= 16711680)Then
MouseC(random(20) + 265, random(5) + 436, 1);
a:= x1 + ((x2 - x1) / 2);
b:= y1 + ((y2 - y1) / 2);
If(FindColorSpiralTolerance(a, b, color, x1, y1, x2, y2, tol))And(a > (a1 - 30))Then
Begin
MouseC(a + random(3), b + random(3), 0);
changed:= true;
wait(random(100) + 100);
End;
c:= c + 1;
If(c= 215)Then
Begin
result:= false;
exit;
End;
x1:= x2;
x2:= x1 + cc;
If(x2>= b2)Then
Begin
x1:= a1;
x2:= x1 + cc;
y1:= y1 + dd;
y2:= y1 + dd;
End;
If(y1>= b2)Then
Begin
result:= false;
exit;
End;
wait(10);
While(x1>512)Or(x2>512)Do
Begin
If(x1>512)Then
x1:= x1 - random(3) - 1;
If(x2>512)Then
x2:= x2 - random(3) - 1;
End;
While(y1>334)Or(y2>334)Do
Begin
If(y1>334)Then
y1:= y1 - random(3) - 1;
If(y2>334)Then
y2:= y2 - random(3) - 1;
End;
Until(istextat3(9, 9, text, 100))And(changed= true);
result:= true;
End;
Procedure indText;
Var
counter, a, b, a1, b1, c, d : Integer;
Begin
counter:= 0
If(findcolor(a, b, 65535, 10, 20, 515, 338))
Or(Istextat3(185, 36, 'The Bank', 100))Then
wait(200)
If((User='')and(findcolor(a, b, 65535, 10, 20, 515, 338))
And(Istextat3(185, 36, 'The Bank', 100)= false))or
((not(User=''))and(findcolor(a, b, 65535, 10, 20, 515, 338))
And(FindBitmapMaskTolerance(CreateBitmapMaskFromText(User,ChrCharsNormal),a,b,138,77,399,255,10,85))
And(Istextat3(185, 36, 'The Bank', 100)= false))Then
Begin
Repeat
counter:= counter + 2 + random(1);
MoveMouseSmoothEx(a + counter, b + 15 + random(3), 1, 6, 15, 20, 20);
wait(1)
If(istextat3(9, 9, 'Talk', 100))And(IsTextAt3(9, 9, 'Talk-to Banker', 100)=False)Then
Begin
getmousepos(a1, b1);
MouseC(a1, b1, 2);
Repeat
wait(random(100) + 200);
Until(findcolor(a, b, 0, a1 - 30, b1 - 30, a1 + 30, b1 + 30));
If(IsTextIn3(S1, S2, S3, S4, c, d, 'Talk'))Then
Begin
MouseC(c + random(10), d + random(3), 1);
MapFlagging;
TalkToRand;
exit;
End;
End;
Until(counter>= 150);
End;
End;
Function indLost : Boolean;
Var
a, b, c, d, dtmlostfound : Integer;
Screenie : Boolean;
Begin
result:=false;
DTMLostFound := DTMFromString('78DA636C656260086000035608C5F0FFFF7F0' +
'64920CD0861FF676C02AAF145559362A6025703028C6D44AA09C4' +
'6D17584D33A61A0C7332816A0C51D5C0005CCD2CA01A2322D4A41' +
'0509302545340404D0E504D101176F9E257030003C71610');
While(FindDtm(dtmLostFound, a, b, M1, M2, M3, M4) = true)Do
Begin
If(Screenie = false)And(Screenshots)Then
Begin
TakeScreenShot('Lost&Found',1);
Screenie:= True;
End;
Sendarrowsilentwait(0, random(300) + 600);
wait(random(300) + 300);
MapCompass('N');
wait(random(300) + 300);
c:= c + 1;
Case c Of
1 : Begin a:= 235; b:= 60; End;
2 : Begin a:= 325; b:= 150; End;
3 : Begin a:= 240; b:= 222; End;
4 : Begin a:= 175; b:= 140; End;
End;
Repeat
Mousec(random(30) + a, random(15) + b, 0);
wait(random(10) + 30);
d:= d + 1;
Until(IsTextUp('Operate')) Or (d = 60);
If(d = 60)Then
Begin
Logout;
writeln('Lost & Found, logging out');
TerminateScript;
End
Else
Begin
getmousepos(a, b);
MouseC(a, b, 1);
End;
wait(random(1000) + 4500);
End;
BlueText;
wait(random(300) + 600);
result:= true;
FreeDtm(DtmLostFound);
End;
Procedure FindLogoutRandoms;
Var
a, b, bmpModCrown, bmpStaffCrown, x, y, bmpFreakyForester : Integer;
Begin
If(checkmods= true)Then
Begin
bmpModCrown := BitmapFromString(13, 11, 'z78DAB334B7044203BCC0' +
'926835AE0620884B3D44D6D10804F1ABA19D6998EA91C591212E3' +
'5B4300DBF5E6220660850D7344C3391C57189E04F3998A6E167D3' +
'D334882CA910D9040004DCB3A1');
bmpstaffcrown := BitmapFromString(13, 11, 'z78DA7331B374353234' +
'C00B5C8856E306041626B8D44364DDCCDDDC0C2CF0ABA19D6998E' +
'A91C591495C6A68611A7EBDC4909821405DD330CD4411C721823F' +
'E5609A869F4D4FD320B2A492C8260000F512BB2D');
If (findbitmaptolerancein(bmpStaffcrown, a, b, 1, 345, 110, 430, 50))
Or(findbitmaptolerancein(bmpModcrown, a, b, 1, 345, 110, 430, 50))Then
Begin
If(Screenshots)Then
TakeScreenShot('Staff Found', 1);
writeln('Staff / Mod Found, logged out And will log in later');
a:= 0;
LogOutFor(15);
End;
FreeBitmap(bmpStaffCrown);
FreeBitmap(bmpModCrown);
End;
If(CheckForester= true)Then
Begin
bmpFreakyForester := BitmapFromString(106, 2, 'z78DAA552410AC0' +
'3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
'846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
If(FindBitmap(bmpFreakyForester, x, y))Then
Begin
If(Screenshots)Then
TakeScreenShot('ForesterFound',1);
wait(random(300)+300);
LogOut;
writeln('Forester Found, logged out');
TerminateScript;
End;
FreeBitmap(bmpFreakyForester);
End;
If(checkmaze= true)Then
Begin
If (getcolor(378, 33)= 15395562)And(getcolor(156, 46)= 15395562)
And(getcolor(331, 46)= 15395562) Then
Begin
If(Screenshots)Then
TakeScreenshot('Maze', 1);
LogOut;
writeln('Maze found');
TerminateScript;
End;
End;
If(CheckQuiz= true)Then
Begin
If(similarcolors(getcolor(178, 372), 6495240, 20))Then
Begin
If(Screenshots)Then
TakeScreenshot('Quiz Master', 1);
writeln('Quiz found');
LogOut;
TerminateScript;
End;
End;
If(CheckBob= True)Then
Begin
If(FindColorTolerance(a, b, 4936133, 35, 355, 110, 425, 5))Then
Begin
If(Screenshots)Then
TakeScreenShot('Evil Bob',0);
writeln('Logged out for evil bob');
LogOut;
TerminateScript;
End;
end;
If(CheckMime= True)then
Begin
If(FindColor(a,b,11503238,10,350,480,435))And(checkmime=true)Then
Begin
If(Screenshots)Then
TakeScreenshot('Mime', 1);
writeln('Find Mime');
Logout;
writeln('Infinit Loop, so your script doesnt try To Do anything stupid');
TerminateScript;
End;
End;
end;
Function olveFrog : Boolean;
//Created by Stupid3ooo, edited by Squigglyo
Var
tx, ty, a, c, cc, CrownColor, x, y : Integer;
i, x1, y1, x2, y2, dtmfrogspot, imgfrog : Integer;
Begin
dtmFrogSpot := DTMFromString('78DA63AC606260B06100030E2006F2184AF36' +
'2C07C4620FE0F048CDD405167881A56A8B8555D3A033F940D565B' +
'0254A349404D12508D037E35000D030BB3');
imgFrog := BitmapFromString(30, 2, 'z78DA73727274B534B23000012' +
'74747270B47E249645DB84C808A836D4126C91447321317498C9B' +
'5154426CC160633119C355982EC4A51E00B445523B');
If(FindBitmap(imgFrog, x, y))Or(FindDtm(dtmFrogSpot, x, y, 570, 5, 725, 160))Then
Begin
TotalFrogs:= TotalFrogs + 1;
If(Screenshots)Then
TakeScreenShot('FrogFound', TotalFrogs);
If(FindDtm(dtmFrogSpot, x, y, 570, 5, 725, 160))Then
Begin
MouseC(x + random(5), y + random(5), 1);
wait(random(200) + 400);
MapFlagging;
End;
x1:= 245;
y1:= 165;
x2:= 277;
y2:= 185;
Repeat
a:= a + 1;
If(a = 1)Then
c:= c + 1;
If(a = 3)Then
c:= c + 1;
For i:=1 To c Do
Begin
If(a = 1)Then
Begin
x1:= x1 + 30;
x2:= x2 + 30;
End;
If(a = 2)Then
Begin
y1:= y1 - 20;
y2:= y2 - 20;
End;
If(a = 3)Then
Begin
x1:= x1 - 30;
x2:= x2 - 30;
End;
If(a = 4)Then
Begin
y1:= y1 + 20;
y2:= y2 + 20;
End;
If(x1 = 485)And(x2 = 517)Then
x2:= x2 - 2;
If(y1 = 325)And(y2 = 345)Then
y2:= y2 - 7;
If(x1 > 515)Then
Break;
If(FindColorTolerance(x, y, 1077773, x1, y1, x2, y2, 20))Then
Begin
MouseC(x + random(5), y + random(5), 0);
If(IsTextUp('Talk'))Then
Begin
For cc:= 1 To 20 Do
Begin
If(FindColorTolerance(tx, ty, 3460859, x-20, y-20, x+20, y+20, cc))Then
Begin
CrownColor:= GetColor(tx, ty);
Break;
End;
End;
If(FindColor(tx, ty, CrownColor, x - 20, y - 20, x + 20, y + 20))And
(not(FindColoredAreaTolerance(tx, tx, 2965499, x - 25, y - 25, x + 25, y + 25, 4, 20)))Then
Begin
MouseC(x + random(5), y + random(5), 1);
MapFlagging;
Wait(2000 + random(1000));
While(FindColor(x, y, 16711680, 5, 345, 510, 465))And
(not(GetColor(20, 434) = 0))Or
(FindColor(x, y, 16777215, 5, 345, 510, 465))And
(not(GetColor(20, 434) = 0))Do
Begin
MouseC(x + random(20), y + random(2), 1);
wait(500 + random(500));
End;
MouseC(256 + random(3), 401 + random(3), 1);
Wait(5000 + random(1000));
While(FindColor(x, y, 16711680, 5, 345, 510, 465))And
(not(GetColor(20, 434) = 0))Or
(FindColor(x, y, 16777215, 5, 345, 510, 465))And
(not(GetColor(20, 434) = 0))Do
Begin
MouseC(x + random(20),y + random(2), 1);
wait(500 + random(500));
End;
Result:= true;
Break;
End;
End;
End;
End;
If(a = 4)Then
a:= 0;
Until(x2 > 515)Or(Result = true);
End;
FreeBitmap(imgfrog);
FreeDtm(dtmfrogspot);
End;
Function etQuestion : Integer;
Begin
result:= 0 ;
If(istextat3(194, 260, 'Which shape is Y', 100))Then
result:= 1; // Color Yellow
If(istextat3(200, 260, 'Which shape is B', 100))Then
result:= 2; // Color Blue
If(istextat3(202, 260, 'Which shape is R', 100))Then
result:= 3; // Color Red
If(istextat3(185, 260, 'What colour is the C', 100))Then
result:= 4; // Shape Cirlce
If(istextat3(180, 260, 'What colour is the Sq', 100))Then
result:= 5; // Shape square
If(istextat3(173, 260, 'What colour is the H', 100))Then
result:= 6; // Shape Halfmoon
If(istextat3(178, 260, 'What colour is the T', 100))Then
result:= 7; // Shape Triangle
If(istextat3(189, 260, 'What colour is the St', 100))Then
result:= 8; // Shape Star
End;
function indObject(text : string; color, tol : integer):boolean;
var
a,b,w,c,i,x1,y1,x2,y2:integer; //From SSi2.txt, edited by Starblaster100
begin
if(Findcolorspiraltolerance(a,b,color,s1,s2,s3,s4,tol))then
begin
x1:=245;
y1:=165;
x2:=277;
y2:=185;
repeat
w:=w+1;
if(w=1)then
c:=c+1;
if(w=3)then
c:=c+1;
for i:=1 to c do
begin
if(w=1)then
begin
x1:=x1+30;
x2:=x2+30;
end;
if(w=2)then
begin
y1:=y1-20;
y2:=y2-20;
end;
if(w=3)then
begin
x1:=x1-30;
x2:=x2-30;
end;
if(w=4)then
begin
y1:=y1+20;
y2:=y2+20;
end;
if(x1=485)and(x2=517)then
x2:=x2-2;
if(y1=325)and(y2=345)then
y2:=y2-7;
if(x2>515)then
Break;
if(FindColorTolerance(a,b,color,x1,y1,x2,y2,tol))then
begin
MoveMouseSmoothEx(a + random(3), b + random(3), 1, 6, 15, 20, 20);
Wait(50 + random(70));
if(IsTextup(text))then
begin
Result:=true;
Break;
end;
end;
end;
if(w=4)then
w:=0;
until(x2>515)or(Result=true)
end;
end;
Procedure endKeysHuman2(text:String);
Var
a1, a2, a3 : Integer;
char1, char2 : String;
mistake : Boolean;
Begin
a1:= 1;
a3:= random(4) + 1
Repeat
a2:= random(50);
If(a2<>5)Or(mistake = true)Then
Begin
wait(random(50)+20);
sendkeys('i am the king of no pants');
End
Else
Begin
mistake:= true;
char1:= (copy(text, a1, 1));
char1:= Lowercase(char1);
char2:= char1;
a2:= random(2);
If(a2= 0)Then
Case char1 Of
'`' : char2:= '`';
'1' : char2:= '`';
'2' : char2:= '1';
'3' : char2:= '2';
'4' : char2:= '3';
'5' : char2:= '4';
'6' : char2:= '5';
'7' : char2:= '6';
'8' : char2:= '7';
'9' : char2:= '8';
'0' : char2:= '9';
'-' : char2:= '0';
'=' : char2:= '-';
'~' : char2:= '~';
'!' : char2:= '~';
'@' : char2:= '!';
'#' : char2:= '@';
'$' : char2:= '#';
'%' : char2:= '$';
'^' : char2:= '%';
'&' : char2:= '^';
'*' : char2:= '&';
'(' : char2:= '*';
')' : char2:= '(';
'_' : char2:= ')';
'+' : char2:= '_';
'q' : char2:= 'q';
'w' : char2:= 'q';
'e' : char2:= 'w';
'r' : char2:= 'e';
't' : char2:= 'r';
'y' : char2:= 't';
'u' : char2:= 'y';
'i' : char2:= 'u';
'o' : char2:= 'i';
'p' : char2:= 'o';
'[' : char2:= 'p';
'{' : char2:= 'P';
']' : char2:= '[';
'}' : char2:= '{';
'\' : char2:= ']';
'|' : char2:= '}';
'a' : char2:= 'a';
's' : char2:= 'a';
'd' : char2:= 's';
'f' : char2:= 'd';
'g' : char2:= 'f';
'h' : char2:= 'g';
'j' : char2:= 'h';
'k' : char2:= 'j';
'l' : char2:= 'k';
';' : char2:= 'l';
':' : char2:= 'L';
chr(39) : char2:= ';';
'"' : char2:= ':';
'z' : char2:= 'z';
'x' : char2:= 'z';
'c' : char2:= 'x';
'v' : char2:= 'c';
'b' : char2:= 'v';
'n' : char2:= 'b';
'm' : char2:= 'n';
',' : char2:= 'm';
'<' : char2:= 'M';
'.' : char2:= ',';
'>' : char2:= '<';
' / ' : char2:= '.';
'?' : char2:= '>';
End;
If(a2= 1)Then
Case char1 Of
'`' : char2:= '1';
'1' : char2:= '2';
'2' : char2:= '3';
'3' : char2:= '4';
'4' : char2:= '5';
'5' : char2:= '6';
'6' : char2:= '7';
'7' : char2:= '8';
'8' : char2:= '9';
'9' : char2:= '0';
'0' : char2:= '-';
'-' : char2:= '=';
'=' : char2:= '=';
'~' : char2:= '!';
'!' : char2:= '@';
'@' : char2:= '#';
'#' : char2:= '$';
'$' : char2:= '%';
'%' : char2:= '^';
'^' : char2:= '&';
'&' : char2:= '*';
'*' : char2:= '(';
'(' : char2:= ')';
')' : char2:= '_';
'_' : char2:= '+';
'+' : char2:= '+';
'q' : char2:= 'w';
'w' : char2:= 'e';
'e' : char2:= 'r';
'r' : char2:= 't';
't' : char2:= 'y';
'y' : char2:= 'u';
'u' : char2:= 'i';
'i' : char2:= 'o';
'o' : char2:= 'p';
'p' : char2:= '[';
'[' : char2:= ']';
'{' : char2:= '}';
']' : char2:= '\';
'}' : char2:= '|';
'\' : char2:= '\';
'|' : char2:= '|';
'a' : char2:= 's';
's' : char2:= 'd';
'd' : char2:= 'f';
'f' : char2:= 'g';
'g' : char2:= 'h';
'h' : char2:= 'j';
'j' : char2:= 'k';
'k' : char2:= 'l';
'l' : char2:= ';';
';' : char2:= chr(39);
':' : char2:= '"';
chr(39) : char2:= chr(39);
'"' : char2:= '"';
'z' : char2:= 'x';
'x' : char2:= 'c';
'c' : char2:= 'v';
'v' : char2:= 'b';
'b' : char2:= 'n';
'n' : char2:= 'm';
'm' : char2:= ',';
',' : char2:= '.';
'<' : char2:= '>';
'.' : char2:= '/';
'>' : char2:= '?';
'/' : char2:= '/';
'?' : char2:= '?';
End;
sendkeys(char2);
End;
a1:= a1 + 1;
Until a1 > length(text);
End;
Function sTextAt3(x, y : Integer; S : String; Tolerance : Integer) : Boolean;
Var
a, b : Integer;
Begin
result:= IsTextInAreaEx(x - 2, y - 2, x + 2, y + 2, a, b, S, Tolerance, ChrCharsNormal, True, False, 0, 1, -1);
End;
Function heckChatMsg(Text: String) : Boolean;
Begin
Result:= IsTextAtEx(20, 415, Text, 40, ChrChatChars, False, True, 0, 1, 0);
End;
Procedure lickHuman(x, y : Integer; left : Boolean);
Begin
holdmouse(x, y, left);
wait(random(20) + 15);
releasemouse(x, y, left);
End;
Procedure OpenTab(TabNumber:integer);
begin
Case TabNumber of
1 : Begin //Atack Style
If(getcolor(558, 180) = 5531511)Then
MouseC(random(10) + 550, random(10) + 175, 1);
End;
2 : Begin //Stats
If(getcolor(590, 177) = 5531511)Then
MouseC(random(10) + 575, random(10) + 175, 1);
End;
3 : Begin //Quests
If(getcolor(620, 177) = 5531511)Then
MouseC(random(10) + 605, random(10) + 175, 1);
End;
4 : Begin //Inventory
If(getcolor(634, 174) = 5531511)Then
MouseC(random(10) + 635, random(10) + 175, 1);
End;
5 : Begin //Equipment
If(getcolor(680, 173) = 5531511)Then
MouseC(random(10) + 675, random(10) + 175, 1);
End;
6 : Begin //Prayer
If(getcolor(701, 177) = 5531511)Then
MouseC(random(10) + 700, random(10) + 175, 1);
End;
7 : Begin //Magic
If(getcolor(730, 176) = 5531511)Then
MouseC(random(10) + 730, random(10) + 175, 1);
End;
8 : Begin //Friends
If(getcolor(574, 491) = 2699832)Then
MouseC(random(10) + 575, random(10) + 470, 1);
End;
9 : Begin //Ignore
If(getcolor(603, 495) = 3095106)Then
MouseC(random(10) + 605, random(10) + 470, 1);
End;
10: Begin //Logout
If(getcolor( 632, 483) = 4543586)Then
MouseC(random(10) + 635, random(10) + 475, 1);
End;
11: Begin //Tools
If(getcolor(675, 476) = 4543586)Then
MouseC(random(10) + 675, random(10) + 470, 1);
End;
12: Begin //Option
If(getcolor(704, 483) = 4543586)Then
MouseC(random(10) + 700, random(10) + 470, 1);
End;
13: Begin //Music
If(getcolor(731, 494) = 5531511)Then
MouseC(random(10) + 730, random(10) + 470, 1);
End;
end;
end;
Procedure heckLamp;
Var
a, b, bmpTheLamp : Integer;
Begin
OpenTab(4);
bmpTheLamp := BitmapFromString(29, 6, 'z78DAB59241AEC3300844AF' +
'044E6CC3128873FF231565DCB451175FFA4D59CC22B1CD9BD110D' +
'D3FBA68E162DD2A37FAF16CEB5638FE77D7D53BB720DF597D71E6' +
'0666DD34B8C0C56D9C1CB905BB3EF50F4E77E50642271BC919E65' +
'74ED9C4B9F4D62B8DBB38B1CB9BAFA9C323BFB7A84F9D27232C55' +
'A35FFFCE17407EBC00665B2D69D5544EF2262B8D6E5D69E45123A' +
'D5B0DD2EFFB33D9A0235EFC4B9493F0F035398F3E4CBFE8839A9C' +
'CC48BB6B4B25D993BC08D3801764252AF265FE479F272DC83F39D' +
'F08671FDE38F3CAFE4C183C48180D41E6F002BF39952E0D7C002E' +
'11D78A');
If(findbitmaptolerancein(bmpthelamp, a, b, I1, I2, I3, I4, 20))Then
Begin
MouseC(random(5) + a, random(5) + b, 1);
Repeat
wait(100);
Until(getcolor(127, 118)= 65535)
TotalLamps:= TotalLamps + 1;
If(Screenshots)Then
TakeScreenShot('Lamp Found', TotalLamps);
a:= 0;
LampSkill:= Uppercase(LampSkill);
Case LampSkill Of
'', 'ATTACK', 'ATK', 'AGI', 'AGILITY', 'MINING', 'MINE' : a:= 155;
'STRENGTH', 'STR', 'HERBLORE', 'HERBLAW', 'HERB', 'SMITHING',
'SMITH', 'SMITHER' : a:= 185;
'RANGE', 'RANGER', 'THIEVING', 'THIEVE', 'THIEF', 'THEIVING',
'FISH', 'FSHING' : a:= 220;
'MAGIC', 'MAGE', 'CRAFTING', 'CRAFTER', 'CRAFT', 'COOKING',
'COOK' : a:= 250;
'DEFENSE', 'DEF', 'RC', 'RUNECRAFTING', 'RUNE', 'FIREMAKING',
'FIRE' : a:= 285;
'HITPOINTS', 'HP', 'HEALTH', 'HITS', 'SLAYER', 'SLAY', 'WOODCUTTING',
'WC' : a:= 315;
'PRAYER', 'PRAY', 'FARMING', 'FARM', 'FLETCHING', 'FLETCH' : a:= 345;
End;
Case LampSkill Of
'', 'ATTACK', 'ATK', 'STRENGTH', 'STR', 'RANGE', 'RANGER', 'MAGIC', 'MAGE',
'DEFENSE', 'DEF''HITPOINTS', 'HP', 'PRAYER', 'PRAY' : b:= 185;
'AGILITY', 'AGI', 'HERBLORE', 'HERBLAW', 'HERB', 'THIEVING', 'THEIVING',
'THIEVE', 'THIEF', 'CRAFTING', 'CRAFT', 'RUNECRAFTING', 'RC', 'SLAYER',
'SLAY', 'FARMING', 'FARM' : b:= 220;
'MINING', 'MINE', 'SMITHING', 'SMITH', 'FISHING', 'FISH', 'COOKING', 'COOK',
'FIREMAKING', 'FIRE', 'WOODCUTTING', 'WC', 'FLETCHING', 'FLETCH' : b:= 220;
End;
If(a= 0)Or(b= 0)Then
Begin
a:= random(5) + 185;
b:= random(5) + 145;
End;
MouseC(a + random(5), b + random(5), 1);
wait(random(300) + 1000);
MouseC(random(20) + 240, random(5) + 250, 1);
wait(random(500) + 2000);
End;
FreeBitmap(bmpTheLamp);
End;
Procedure Box(z1, z2:Integer);
Var
a1, c, a2, a3, a4, a5, a6, a7, a8, a, b, qw, switch, totala : Integer;
Star1, Circle1, Halfmoon1, square1, Triangle1, answer : String;
Begin
Answer:= 'Error';
Star1:= '0';
Circle1:= '0';
Halfmoon1:= '0';
square1:= '0';
Triangle1:= '0';
z1:= z1 + random(10);
z2:= z2 + random(5);
MouseC(z1, z2, 1);
wait(random(500) + 500);
totala:= 0;
c:= random(3);
MouseC(random(10) + 145 + (c * 120), 290 + random(10), 0);
Repeat
wait(100);
c:= c + 1;
If(c= 25)Then
exit;
Until(istextat3(9, 9, 'Ok', 100));
TotalBoxes:= TotalBoxes + 1;
If(Screenshots)Then
TakeScreenShot('Strange Box Found', TotalBoxes);
status('Solving Box, please wait For 5 To 15 seconds');
wait(random(220) + 220);
switch:= 0;
Repeat // Find Star
wait(1);
switch:= switch + 1;
a1:= GetColor(233, 119);
a2:= GetColor(263, 142);
a3:= GetColor(243, 125);
a4:= GetColor(275, 82);
a5:= GetColor(277, 96);
a6:= GetColor(263, 143);
a7:= GetColor(279, 131);
a8:= GetColor(274, 87);
switch:= switch + 1;
If(a3= a4)Then
Begin
a1:= a3;
a2:= a4;
End;
If(a5= a6)Then
Begin
a1:= a5;
a2:= a6;
End;
If(a7= a8)Then
Begin
a1:= a7;
a2:= a8;
End;
Until(a1= a2)And((similarcolors(a1, 4084651, 22))Or(similarcolors(a1, 5613239, 22))
Or(similarcolors(a1, 9524307, 22)))Or(switch= 2000);
If(a1= a2)And(similarcolors(a1, 5613239, 22))Then Star1:= 'Yellow';
If(a1= a2)And(similarcolors(a1, 4084651, 22))Then Star1:= 'Red';
If(a1= a2)And(similarcolors(a1, 9524307, 22))Then Star1:= 'Blue';
If(Star1= 'Yellow')Or(Star1= 'Red')Or(Star1= 'Blue')Then
Totala:= totala + 1;
switch:= 0;
getmousepos(a, b);
MouseC(a + random(5) - random(5), b + random(5) - random(5), 0);
Repeat // Finding The Circle
wait(1);
a1:= GetColor(286, 113);
a2:= GetColor(228, 88);
a3:= GetColor(271, 132); // Blue Circle
a4:= GetColor(275, 140);
a5:= GetColor(258, 128); // Red Circle
a6:= GetColor(294, 110);
a7:= GetColor(281, 134); // Red Circle 2
a8:= GetColor(262, 90);
switch:= switch + 1;
If(a3= a4)Then
Begin
a1:= a3;
a2:= a4;
End;
If(a5= a6)Then
Begin
a1:= a5;
a2:= a6;
End;
Until(a1= a2)And((similarcolors(a1, 4084651, 22))Or(similarcolors(a1, 5613239, 22))
Or(similarcolors(a1, 9524307, 22)))Or(switch= 2000);
If(a1= a2)And(similarcolors(a1, 5613239, 22))Then Circle1:= 'Yellow';
If(a1= a2)And(similarcolors(a1, 4084651, 22))Then Circle1:= 'Red';
If(a1= a2)And(similarcolors(a1, 9524307, 22))Then Circle1:= 'Blue';
If(Circle1= 'Yellow')Or(Circle1= 'Red')Or(Circle1= 'Blue')Then
Totala:= totala + 1;
switch:= 0;
getmousepos(a, b);
MouseC(a + random(5) - random(5), b + random(5) - random(5), 0);
Repeat // Finding The square
wait(1)
a1:= GetColor(215, 104);
a2:= GetColor(291, 103);
a3:= GetColor(304, 110);
a4:= GetColor(236, 112);
switch:= switch + 1
If(a3= a4)Then
Begin
a1:= a3;
a2:= a4;
End;
Until(a1= a2)And((similarcolors(a1, 4084651, 22))Or(similarcolors(a1, 5613239, 22))
Or(similarcolors(a1, 9524307, 22)))Or(switch= 2000);
If(a1= a2)And(similarcolors(a1, 5613239, 22))Then square1:= 'Yellow';
If(a1= a2)And(similarcolors(a1, 4084651, 22))Then square1:= 'Red';
If(a1= a2)And(similarcolors(a1, 9524307, 22))Then square1:= 'Blue';
If(square1= 'Yellow')Or(square1= 'Red')Or(square1= 'Blue')Then
Totala:= totala + 1;
switch:= 0;
getmousepos(a, b);
MouseC(a + random(5) - random(5), b + random(5) - random(5), 0);
If(totala<3)Then
Repeat // Finding The Half Moon
wait(1);
a1:= GetColor(312, 115);
a2:= GetColor(302, 120);
switch:= switch + 1;
Until(a1= a2)And((similarcolors(a1, 4084651, 22))Or(similarcolors(a1, 5613239, 22))
Or(similarcolors(a1, 9524307, 22)))Or(switch= 2000);
If(a1= a2)And(similarcolors(a1, 5613239, 22))Then Halfmoon1:= 'Yellow';
If(a1= a2)And(similarcolors(a1, 4084651, 22))Then Halfmoon1:= 'Red';
If(a1= a2)And(similarcolors(a1, 9524307, 22))Then Halfmoon1:= 'Blue';
If(Halfmoon1= 'Yellow')Or(Halfmoon1= 'Red')Or(Halfmoon1= 'Blue')Then
Totala:= totala + 1;
switch:= 0;
getmousepos(a, b);
MouseC(a + random(5) - random(5), b + random(5) - random(5), 0);
If(totala<3)Then
Repeat // Finding The Triangle
wait(1)
a1:= GetColor(258, 72);
a2:= GetColor(275, 106);
switch:= switch + 1;
Until(a1= a2)And((similarcolors(a1, 4084651, 22))Or(similarcolors(a1, 5613239, 22))
Or(similarcolors(a1, 9524307, 22)))Or(switch= 2000);
If(a1= a2)And(similarcolors(a1, 5613239, 22))Then Triangle1:= 'Yellow';
If(a1= a2)And(similarcolors(a1, 4084651, 22))Then Triangle1:= 'Red';
If(a1= a2)And(similarcolors(a1, 9524307, 22))Then Triangle1:= 'Blue';
switch:= 0;
qw:= getquestion;
If(qw= 1)Then
If(square1= 'Yellow')Then
Answer:= 'square'
Else If (Circle1= 'Yellow')Then
Answer:= 'Circle'
Else If (Star1= 'Yellow')Then
Answer:= 'Star'
Else If (Halfmoon1= 'Yellow')Then
Answer:= 'Halfmoon'
Else If (Triangle1= 'Yellow')Then
Answer:= 'Triangle'
Else
Answer:= 'Error';
If(qw= 2)Then
If(square1= 'Blue')Then
Answer:= 'square'
Else If (Circle1= 'Blue')Then
Answer:= 'Circle'
Else If (Star1= 'Blue')Then
Answer:= 'Star'
Else If (Halfmoon1= 'Blue')Then
Answer:= 'Halfmoon'
Else If (Triangle1= 'Blue')Then
Answer:= 'Triangle'
Else
Answer:= 'Error';
If(qw= 3)Then
If(square1= 'Red')Then
Answer:= 'square'
Else If (Circle1= 'Red')Then
Answer:= 'Circle'
Else If (Star1= 'Red')Then
Answer:= 'Star'
Else If (Halfmoon1= 'Red')Then
Answer:= 'Halfmoon'
Else If (Triangle1= 'Red')Then
Answer:= 'Triangle'
Else
Answer:= 'Error';
If(qw= 4)Then
If (Circle1<>'0')Then
Answer:= Circle1
Else
Answer:= 'Error';
If(qw= 5)Then
If (square1<>'0')Then
Answer:= square1
Else
Answer:= 'Error';
If(qw= 6)Then
If (Halfmoon1<>'0')Then
Answer:= Halfmoon1
Else
Answer:= 'Error'
If(qw= 7)Then
If (Triangle1<>'0')Then
Answer:= Triangle1
Else
Answer:= 'Error';
If(qw= 8)Then
If (Star1<>'0')Then
Answer:= Star1
Else
Answer:= 'Error';
If(answer= 'Error')Then
If(qw = 1)Then
Answer:= 'Star'
Else If(qw = 3)Then
Answer:= 'Circle'
Else If(qw = 4)Then
Answer:= 'Red'
Else If(qw = 8)Then
Answer:= 'Yellow';
If(answer= 'Red')Then
If(ClickText('Red', 120, 285, 178, 306, true)=False)Then
If(ClickText('Red', 239, 286, 298, 309, true)=False)Then
If(ClickText('Red', 354, 287, 413, 310, true)=False)Then
answer:= 'Error';
If(answer= 'Blue')Then
If(ClickText('Blue', 120, 285, 178, 306, true)=False)Then
If(ClickText('Blue', 239, 286, 298, 309, true)=False)Then
If(ClickText('Blue', 354, 287, 413, 310, true)=False)Then
answer:= 'Error';
If (answer= 'Yellow')Then
If(ClickText('Yellow', 120, 285, 178, 306, true)=False)Then
If(ClickText('Yellow', 239, 286, 298, 309, true)=False)Then
If(ClickText('Yellow', 354, 287, 413, 310, true)=False)Then
answer:= 'Error';
If (answer= 'Circle')Then
If(ClickText('Circle', 120, 285, 178, 306, true)=False)Then
If(ClickText('Circle', 239, 286, 298, 309, true)=False)Then
If(ClickText('Circle', 354, 287, 413, 310, true)=False)Then
answer:= 'Error';
If (answer= 'Triangle')Then
If(ClickText('Triangle', 120, 285, 178, 306, true)=False)Then
If(ClickText('Triangle', 239, 286, 298, 309, true)=False)Then
If(ClickText('Triangle', 354, 287, 413, 310, true)=False)Then
answer:= 'Error';
If (answer= 'square')Then
If(ClickText('Square', 120, 285, 178, 306, true)=False)Then
If(ClickText('Square', 239, 286, 298, 309, true)=False)Then
If(ClickText('Square', 354, 287, 413, 310, true)=False)Then
answer:= 'Error';
If (answer= 'Halfmoon')Then
If(ClickText('Halfmoon', 120, 285, 178, 306, true)=False)Then
If(ClickText('Halfmoon', 239, 286, 298, 309, true)=False)Then
If(ClickText('Halfmoon', 354, 287, 413, 310, true)=False)Then
answer:= 'Error';
If (answer= 'Star')Then
If(ClickText('Star', 120, 285, 178, 306, true)=False)Then
If(ClickText('Star', 239, 286, 298, 309, true)=False)Then
If(ClickText('Star', 354, 287, 413, 310, true)=False)Then
answer:= 'Error';
If (answer= 'Error')Then
begin
getmousepos(a, b);
MouseC(a, b, 1);
end;
writeln('The answer was ' + answer);
wait(random(400) + 800);
End;
Procedure ToRand;
Var
c, MaxClicks, a, b : Integer;
Begin
Repeat
wait(1);
c:= c + 1;
If(c=2750)Then
exit;
Until(Findcolor(a,b,16711680,C1,C2,C3,C4))or(FindColor(a,b,16777215,C1,C2,C3,C4));
YellowTextTotal:= YellowTextTotal + 1;
If(Screenshots)Then
TakeScreenShot('Talked To Random', YellowTextTotal);
Status('Talking To Random Event');
While(Findcolor(a,b,16711680,C1,C2,C3,C4))or(FindColor(a,b,16777215,C1,C2,C3,C4))and(Maxclicks<10)do
Begin
MouseC(a+10,b+1,1);
wait(1300 + random(400));
MaxClicks:=MaxClicks+1;
end;
End;
function Present : Boolean;
Var
bmpTheLamp, a, b : Integer;
begin
bmpTheLamp := BitmapFromString(29, 8, 'z78DAB5934D9284300885AF' +
'04D1FCB00C18EF7FA4A6F2D2B656666AAA469B050B93C0C7F341F' +
'47CC8228143CD3572A22FC7B66E81ED7F6F55347332D29D451765' +
'4E60964D8C03A6788C93CDBBA0D79CFFE054154E2054AACD39ADE' +
'A95B36C4539E49423B5A738D14B93AE9E9B9A7F4F16DF79DC34AB' +
'9EC5F2F574540079AF00E6BA56A7952AE5204F65A5966B166A7EB' +
'592C42D1AC97DFF0C36E4661FFEC5C241D8E71A9CDD0F635EF841' +
'6A3998A17696E499CAEEE4A13035CC02AD8A947253FFEEE7410BF' +
'299F34438FC70E2F427FB5B61F0406138049A6316CCEB1149EE3B' +
'FCACF66F7ACEB46755A1279C00E61FBAF47F870A8F79030A8376D' +
'A32F8F0A22A76AD73CE1B07C2E1F9C9C32F4C292029');
If(FindBitmaptolerancein(bmpTheLamp, a, b, 560, 215, 730, 455, 20))Or
FindBitmaptolerancein(bmpTheLamp, a, b, 95, 65, 440, 255, 20)Then
Result:= true;
FreeBitmap(bmpTheLamp);
end;
begin
SetupSquig;
ChangeReport('Setting the screen up');
MapCompass('S');
SendArrowSilentWait(2, random(500) + 1000);
ChangeReportWidth(300);
CombatType(Combat);
If(FindColor(a, b, BankSymbol, M1, M2, M3, M4)=False)Then
Begin
writeln('couldnt see the bank symbol');
Logout;
Exit;
End;
Repeat
changeReport('Finding the cave entrance');
If(FindObject('Enter', 11382457, 20)=False)Then
enter
If(FindTextArcSpiral(a, b, 240 + random(5), 140 + random(5), 14, 208, 'Enter')=False)Then
begin
writeln('couldn''t find the the entrance');
break;
end;
Getmousepos(a, b);
MouseC(a, b, 1);
While(GetColor(254, 361) <> 128) Do
Wait(1);
While(GetColor(254, 361) = 128) Do
Wait(random(300) + 300);
ChangeReport('Fighting');
Repeat
wait(3000+1000)
MapCompass('N');
wait(random(10000) + 12341);
changeReport('Still owning noobs');
If(Not(InFight))Then
x:= x + 1
Else
x:= 0;
BlueText;
If(x = 10)Then
Begin
Repeat
Repeat
MouseBox(595, 40, 690, 110, 1);
wait(random(300) + 300);
Until(FlagPresent);
MapCompass('E')
Wait(random(1000) + 4000);
Until(FindColorTolerance(a, b, 60909, M1, M2, M3, M4, 15));
x:= 0;
end;
begin
chance:=1+random(5)
if (chance=1)then
begin
talk:=1+random(100)
if(talk=1) then
begin
sendkeys('Die' + chr(13))
end;
if(talk=2) then
begin
sendkeys('Hate training...' + chr(13))
end;
if(talk=3) then
begin
sendkeys('Rock on!!!' +chr(13))
end;
if (talk=4) then
begin
sendkeys('gah!' +chr(13))
end;
if (talk=5) then
begin
sendkeys('This is so boring...' +chr(13))
;
end;
if (talk=6) then
begin
sendkeys('I wish i had an abby whip...' +chr(13))
end;
if (talk=7) then
begin
sendkeys('go blink182!' +chr(13))
end;
if (talk=8) then
begin
sendkeys('go franz ferdinand!' +chr(13))
end;
if (talk=9) then
begin
sendkeys('must...get...lvs up!' +chr(13))
;
end;
if (talk=10) then
begin
sendkeys('die little chiken man!' +chr(13))
;
end;
if (talk=11) then
begin
sendkeys('Lalalala' +chr(13))
;
end;
if (talk=12) then
begin
sendkeys('Punk 4 life' +chr(13))
;
end;
if (talk=13)then
begin
sendkeys('Grr leveling is so slow' +chr(13))
;
end;
if (talk=14) then
begin
sendkeys('Im sooooooooooooo bored' +chr(13))
;
end;
if (talk=15) then
begin
sendkeys('i love chicks' +chr(13))
;
end;
if (talk=16) then
begin
sendkeys('they r so cool' +chr(13))
;
end;
if (talk=17) then
begin
sendkeys('Eat this monster dude!' +chr(13))
;
end;
if(talk=18) then
begin
sendkeys('wish i had food' +chr(13))
;
end;
if(talk=19) then
begin
sendkeys('all hail blink182!' +chr(13))
;
end;
if(talk=20) then
begin
sendkeys('all hail my chemical romance!' +chr(13))
;
end;
if (talk=21) then
begin
sendkeys('Take that poophead' +chr(13))
;
end;
if (talk=22) then
begin
sendkeys('ahhaha rolf lmao' +chr(13))
;
end;
if (talk=23) then
begin
sendkeys('Im so dam cool' +chr(13))
;
end;
if (talk=24) then
begin
sendkeys('all hail toilets' +chr(13))
;
end;
if (talk=25) then
begin
sendkeys('I need a break from rs...' +chr(13))
;
end;
if (talk=26) then
begin
sendkeys('Im hungry' +chr(13))
;
end;
if (talk=27) then
begin
sendkeys('OMG its huge!!' +chr(13))
;
end;
if (talk=28) then
begin
sendkeys('I hate school' +chr(13))
;
end;
if (talk=29) then
begin
sendkeys('no boarders no nations' +chr(13))
;
end;
if (talk=30) then
begin
sendkeys('no flags no patriots' +chr(13))
;
end;
if (talk=31) then
begin
sendkeys('i hate nazi people' +chr(13))
;
end;
if (talk=32) then
begin
sendkeys('vote green party!!!' +chr(13))
;
end;
if (talk=33) then
begin
sendkeys('o fiddle stix ' +chr(13))
;
end;
if (talk=34) then
begin
sendkeys('my fingers hurt...' +chr(13))
;
end;
if (talk=35) then
begin
sendkeys('mommy!' +chr(13))
;
end;
if (talk=36) then
begin
sendkeys('gosh darn it!' +chr(13))
;
end;
if (talk=37) then
begin
sendkeys('i want moneys' +chr(13))
;
end;
if (talk=38) then
begin
sendkeys('i got scammed yesterday' +chr(13))
;
end;
if (talk=39) then
begin
sendkeys('brain washing piece of rag!' +chr(13))
;
end;
if (talk=40) then
begin
sendkeys('ibrokemyspacebarkey' +chr(13))
;
end;
if (talk=41) then
begin
sendkeys('hey obby ppl Defense L3v3lsz?' +chr(13))
;
end;
if (talk=42) then
begin
sendkeys('the new hary poter boke is awesome' +chr(13))
;
end;
if (talk=43) then
begin
sendkeys('Im very very very hungry' +chr(13))
;
end;
if (talk=44) then
begin
sendkeys('just die already' +chr(13))
;
end;
if (talk=45) then
begin
sendkeys('omg....' +chr(13))
;
end;
if (talk=46) then
begin
sendkeys('I want a party hat' +chr(13))
;
end;
if (talk=47) then
begin
sendkeys('santa hats are ciwl' +chr(13))
;
end;
if (talk=48) then
begin
sendkeys('i want a xmas cracker!' +chr(13))
;
end;
if (talk=49) then
begin
sendkeys('oo0oo0o0o0o0oo0o' +chr(13))
;
end;
if (talk=50) then
begin
sendkeys('I hate cheaters' +chr(13))
;
end;
if (talk=51) then
begin
sendkeys('Pigs fly!' +chr(13))
;
end;
if (talk=52) then
begin
sendkeys('Im a member! :d' +chr(13))
;
end;
if (talk=53) then
begin
sendkeys('Did you hear about the new skill? Flying...' +chr(13))
;
end;
if (talk=54) then
begin
sendkeys('I cna smit reun pl8!' +chr(13))
;
end;
if (talk=55) then
begin
sendkeys('Im cooooooler than U!!' +chr(13))
;
end;
if (talk=56) then
begin
sendkeys('I hate being on dial op internet' +chr(13))
;
end;
if (talk=57) then
begin
sendkeys('me want a t3 conection' +chr(13))
;
end;
if (talk=58) then
begin
sendkeys('fun fnu fun' +chr(13))
;
end;
if (talk=59) then
begin
sendkeys('holy poop, im geting beter' +chr(13))
;
end;
if (talk=60) then
begin
sendkeys('almost at lv 126 lol' +chr(13))
;
end;
if (talk=61) then
begin
sendkeys('owned' +chr(13))
;
end;
if (talk=62) then
begin
sendkeys('owned' +chr(13))
;
end;
if (talk=63) then
begin
sendkeys('simple plan and good charlotte is stinky' +chr(13))
;
end;
if (talk=64) then
begin
sendkeys('burn baby burn' +chr(13))
;
end;
if (talk=65) then
begin
sendkeys('light em up' +chr(13))
;
end;
if (talk=66) then
begin
sendkeys('burn burn burn' +chr(13))
;
end;
if (talk=67) then
begin
sendkeys('aliens' +chr(13))
;
end;
if (talk=68) then
begin
sendkeys('....?' +chr(13))
;
end;
if (talk=69) then
begin
sendkeys('ha' +chr(13))
;
end;
if (talk=70) then
begin
sendkeys('ownde' +chr(13))
;
end;
if (talk=71) then
begin
sendkeys('booo!' +chr(13))
;
end;
if (talk=72) then
begin
sendkeys('ownage' +chr(13))
;
end;
if (talk=73) then
begin
sendkeys('owned' +chr(13))
;
end;
if (talk=74) then
begin
sendkeys('i luv the airforce' +chr(13))
;
end;
if (talk=75) then
begin
sendkeys('burn in hell obby ppls!' +chr(13))
;
end;
if (talk=76) then
begin
sendkeys('eat u no wut creature of my bathroom' +chr(13))
;
end;
if (talk=77) then
begin
sendkeys('move donkey!' +chr(13))
;
end;
if (talk=78) then
begin
sendkeys('lalalalala' +chr(13))
;
end;
if (talk=79) then
begin
sendkeys('sheet!' +chr(13))
;
end;
if (talk=80) then
begin
sendkeys('must get p hat!' +chr(13))
;
end;
if (talk=81) then
begin
sendkeys('must kill!' +chr(13))
;
end;
if (talk=82) then
begin
sendkeys('ahaha rofll lmaoz' +chr(13))
;
end;
if (talk=83) then
begin
sendkeys('time to own some n00bletz' +chr(13))
;
end;
if (talk=84) then
begin
sendkeys('hatrid!' +chr(13))
;
end;
if (talk=85) then
begin
sendkeys('dam' +chr(13))
;
end;
if (talk=86) then
begin
sendkeys('......' +chr(13))
;
end;
if (talk=87) then
begin
sendkeys('......' +chr(13))
;
end;
if (talk=88) then
begin
sendkeys('......' +chr(13))
;
end;
if (talk=89) then
begin
sendkeys('......' +chr(13))
;
end;
if (talk=90) then
begin
sendkeys('more tokkul!' +chr(13))
;
end;
if (talk=91) then
begin
sendkeys('......' +chr(13))
;
end;
if (talk=92) then
begin
sendkeys('eat my weapon creatue of hell' +chr(13))
;
end;
if (talk=93) then
begin
sendkeys('......' +chr(13))
;
end;
if (talk=94) then
begin
sendkeys('......' +chr(13))
;
end;
if (talk=95) then
begin
sendkeys('i hate yous!' +chr(13))
;
end;
if (talk=96) then
begin
sendkeys('ooooooo' +chr(13))
;
end;
if (talk=97) then
begin
sendkeys('so close!' +chr(13))
;
end;
if (talk=98) then
begin
sendkeys('99 str 99 str....' +chr(13))
;
end;
if (talk=99) then
begin
sendkeys('ark!' +chr(13))
;
end;
if (talk=100) then
begin
sendkeys('w0ot im almost done' +chr(13))
;
end;
end;
end;
MapCompass('W');
wait(5000)
MapCompass('S');
MouseC(S1 + random(S3), S2 + random(S4), 0);
Until(FindColor(a, b, BankSymbol, M1, M2, M3, M4));
TotalDone:= TotalDone + 1;
ChangeReport('Finally Finished a fight');
CombatType(Combat)
Until(TotalDone = TotalNeeded);
wait(random(300) + 300);
LogOut;
end.this is a really old script so you will probably get banned using it, i just posted it for educational purposes only. I am going to go through the script and update all of the methods so this script can be released and used without getting banned.
if you do decide to use it, start out standing in front of the cave with your view all the way on the floor facing the entrance
