Unforgived
2007-02-10 22:40:53
<!– BEGIN TEMPLATE: formanswers –>
Unforgived - SRL Member Application Form
Unforgived
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
Programming Knowledge
C++l, Visual Basic 6.0, Java somewhat
Other Communitys
not anymore
How Long have You Played Runescape
6 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Ok its been a while lol this is my old air crafter you can take a look at it. ITS REALLY OLD
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{ Unforgived Presents
Falador Air Crafter
Now for RS or SS
Version 1
By: Unforgived }
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
{ Credits to Stupid3000 for Randoms
//Leave as 0 for script to find
RoadC = 0;
YewC = 0;
BankC = 0;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
var x,y,toaltar1,toaltar2,toaltar3,toaltar4,toaltar5,toaltar6:integer;
bmpflag,sayit,tobank1,tobank2,tobank3,tobank4,tobank5,trips:integer;
pic2,tiaraairs,xp,firstess,secondess,thirdess,fourthess:integer;
abc,bankid:integer;Application:TApplication;chrUpChars:integer;
firstwait,secondwait,thirdwait,fourthwait,formpic:longint;
UseTiara,GoForever,RandTalk,Clicked:boolean;mskUseQuick:integer;
frmDesign, Self : TForm; RoadColor,BankColor,YewColor:integer;
Label1,Label2,Label3,Label4,Label5,Label6,Label7,LabelBankPin:TLabel;
Button1:TButton;Lamp:TComboBox;DoneTimes,MskAll,MskCancel:integer;
usr,pss,Ess1,Ess2,Ess3,Ess4,EdtPIN:TEdit;MskUsePortal:integer;
CheckBox1,CheckBox2,CheckBox3:TCheckBox;MskCraft:integer;
{.include oldsquig.txt}
procedure MouseIt(tx, ty, mouse : integer);
begin
MoveMouseSmoothEx(tx, ty, 1 ,6 ,15 ,20 ,20);
wait(random(200));
if(mouse=1)then
begin
holdmouse(tx, ty, true)
wait(10+random(10))
releasemouse(tx, ty, true)
end;
if(mouse=2)then
begin
holdmouse(tx, ty, false);
wait(10+random(10))
releasemouse(tx, ty, false)
end;
end;
Procedure Debug(DebugMessage:string);
begin
ClearDebug;
WriteLn('State : '+DebugMessage)
end;
Procedure FindRoadColor;
var BmpRoad,BmpRoad2,BmpRoad3:integer;
begin
BmpRoad3 := BitmapFromString(6, 6, 'z78DA3373363301' +
'C261470200DE652ED5');
BmpRoad := BitmapFromString(3, 3, 'z78DA3377343732373427910' +
'4003F7D0B92');
BmpRoad2 := BitmapFromString(1, 3, '5C56565C56565C5656');
if(FindBitmapToleranceIn(BmpRoad3,x,y,598, 42,691, 102,35)) or
(FindBitmapToleranceIn(BmpRoad2,x,y,598, 42,691, 102,35)) or
(FindBitmapToleranceIn(BmpRoad,x,y,598, 42,691, 102,35)) then
begin
RoadColor:=GetColor(x,y);
Writeln('Found Road Color - '+inttostr(RoadColor))
end
else
begin
writeln('Could not find bank color')
terminatescript;
end;
end;
Procedure FindBankColor;
begin
if(FindColorSpiralTolerance(x,y,5755621,571, 2,727, 159,40)) or
(FindColorSpiralTolerance(x,y,3322847,571, 2,727, 159,40)) or
(FindColorSpiralTolerance(x,y,3848410,571, 2,727, 159,40)) then
begin
BankColor:=GetColor(x,y)
Writeln('Found Bank Color - '+inttostr(BankColor))
end
else
begin
writeln('Could not find bank color')
terminatescript;
end;
end;
Procedure FindYewColor;
var YewDTM:integer;
begin
YewDTM:= DTMFromString('78DA63DCC3C4C090C18002189318193440341' +
'0FF0702C643403539103911A89AA98DAD7035603D13806A9251D5' +
'146665A2A80100BA8C0B31');
if(FindColorSpiralTolerance(x,y,94465,571, 2,727, 159,40)) then
begin
YewColor:=GetColor(x,y);
Writeln('Found Yew Color - '+inttostr(YewColor))
end
else
begin
writeln('Could not find Yew color, trying again')
end;
end;
procedure FindFirstColors;
begin
if(BankColor=0)or(RoadColor=0) then
begin
FindRoadColor;
FindBankColor;
end;
end;
procedure FindSecondColors;
begin
if(YewColor=0) then
FindYewColor;
end;
Function RelationE(a, b, Range: Extended): Boolean; //Made By XxKanexX
Begin
Result := (MaxE(a, b)-MinE(a, b) <= Range);
End;
Procedure Compass(S: String); //Made By XxKanexX
Var
ArrowDirection, HoldTime: Integer;
DirectionE, Map: Extended;
Changed: Boolean;
Begin
ActivateClient;
Changed := False;
Wait(50 + Random(100));
If(DetectRS2MinimapCompassAngle <= -1)Then
begin
Writeln('Didn''t Find Map Compass… Terminating')
TerminateScript;
end
Else
Begin
DirectionE := 0.0;
HoldTime := 95;
ArrowDirection := Random(2)+1;
Case Uppercase(S) Of
'N': DirectionE := 6.28318530717959;
'E': DirectionE := 4.90978454023457;
'W': DirectionE := 1.67046497928606;
'S': DirectionE := 3.33898821343967;
'NE': DirectionE := 5.56435530755796;
'SE': DirectionE := 4.06888787159141;
'SW': DirectionE := 2.49809154479651;
'NW': DirectionE := 0.785398163397448;
End;
If(DirectionE = 0.0)Then
begin
Writeln('Invalid Direction.')
TerminateScript;
end
Else
Begin
Map := DetectRS2MinimapCompassAngle;
If(ArrowDirection = 2)Then
ArrowDirection := 3;
While(Not(RelationE(Map, DirectionE, 0.1)))Do
Begin
SendArrowSilentWait(ArrowDirection, HoldTime + Random(HoldTime/2));
If(RelationE(Map, DirectionE, 0.5))Then
Wait(Trunc(Map)*2);
If(RelationE(Map, DirectionE, HoldTime/8))Then
HoldTime := HoldTime - HoldTime/2;
If(Not(Changed))Then
Begin
If(RelationE(Map, DirectionE, DirectionE))Then
If(ArrowDirection = 1)Then
ArrowDirection := 3
Else
ArrowDirection := 1;
Changed := True;
End;
Map := DetectRS2MinimapCompassAngle;
End;
End;
End;
End;
Function BoxPresent : Boolean;
Var
bmpStrangeBox, a, b : Integer;
Begin
bmpStrangeBox := BitmapFromstring(7, 8,
'908686908686908686908686575ABC908686908686575ABC908686' +
'908686575ABC575ABC908686908686908686575ABC575ABC575ABC' +
'575ABC908686908686575ABC575ABC575ABC575ABC575ABC575ABC' +
'575ABC575ABC575ABC575ABC575ABC575ABC908686908686575ABC' +
'908686908686575ABC575ABC908686908686908686908686908686' +
'908686575ABC908686908686908686908686908686908686575ABC' +
'908686908686');
If(FindBitmaptolerancein(bmpStrangeBox, a, b, 560, 215, 730, 455, 20))Or
FindBitmaptolerancein(bmpStrangeBox, a, b, 95, 65, 440, 255, 20)Then
Result:= true;
FreeBitmap(bmpStrangeBox);
End;
function LampPresent : Boolean;
Var
bmpTheLamp, a, b : Integer;
begin
bmpTheLamp := BitmapFromstring(29, 8,
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000939212A7A516000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000D4D21C000000000000000000' +
'000000000000000000000000000000000000B9B716C0BF19B3B116' +
'A7A5169D9C12939212000000000000000000000000000000000000' +
'000000000000000000000000000000000000D1CF19C0BF19C0BF19' +
'C0BF19C0BF19000000000000000000000000000000BBB916B3B116' +
'B0AE16ACAB169D9C129392128D8B1276750E000000000000000000' +
'000000000000000000000000000000000000000000D1CF19C0BF19' +
'B0AE16B6B416BEBC19C6C519C6C519D1CF19CCCA19C9C719C6C519' +
'C6C519C0BF19BBB916B6B416ACAB16A4A2129A981293921286840E' +
'7A790E6B6A095D5C09A7A516000000000000000000000000000000' +
'000000000000000000000000000000CCCA19CCCA19CECC19C6C519' +
'C3C219C0BF19BEBC19BBB916B9B716B6B416B3B116A9A816A4A212' +
'9D9C12979612908F1282810E9A9812B0AE1689880E000000000000' +
'000000000000000000000000000000000000000000000000D4D21C' +
'CECC19CCCA19C0BF19BEBC19BBB916B6B416B3B116B0AE16A9A816' +
'A4A212A19F129A981289880E86840E8D8B129392129D9C12B9B716' +
'666509000000000000000000000000000000000000000000000000' +
'000000000000000000CCCA19CCCA19BBB916B9B716B6B416B3B116' +
'B0AE16A9A816A4A2129D9C1297961282810E7A790E86840E000000' +
'000000000000C3C219A9A816000000000000000000000000000000' +
'000000000000000000000000000000CCCA19CCCA19C0BF19B9B716' +
'B3B116B0AE16ACAB16A7A516A19F129A98128D8B127A790E76750E' +
'000000000000C3C219B6B416A7A516000000000000');
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;
procedure LoadMasks;
begin
MskAll := CreateBitmapMaskFromText('All', chrUpChars);
MskCancel := CreateBitmapMaskFromText('ncel', chrUpChars);
MskUseQuick := CreateBitmapMaskFromText('quickly', chrUpChars);
MskUsePortal:= CreateBitmapMaskFromText('ortal', chrUpChars);
MskCraft := CreateBitmapMaskFromText('ft-rune', chrUpChars);
end;
procedure Flag;
var
ta, fy: Integer;
begin
wait(4000+random(300))
repeat
Wait(200);
until(not FindBitmapIn(bmpFlag, ta, fy, 570, 0, 725, 165));
end;
function FindFlag:boolean;
var ta, fy: Integer;
begin
Result:=false
wait(1000)
if(FindBitmapIn(bmpFlag, ta, fy, 570, 0, 725, 165)) then
begin
Result:=true;
end;
end;
Function RadialWalk(TheColor:Integer; StartRadial,EndRadial:Integer; Radius:Integer): Boolean;// By Wizzup? and WT-Fakawi. Edited by Mad Cow.
var i: Integer;
var X1,Y1: integer;
begin
Result:=False;
if StartRadial<EndRadial then
begin
repeat
for i:=StartRadial to EndRadial do
begin
X1:=Round ( Radius * Sin (i * Pi / 180)) + 646;
Y1:=Round (- Radius * Cos (i * Pi / 180)) + 84;
if FindColor(X,Y,TheColor,X1,Y1,X1+1,Y1+1) then
begin
MouseIt(x,y,1);wait(100+random(300))
Result:=True;
Flag;
Break;
end
end
Radius:=Radius-4;
until ((Radius<=1) or (Result));
end;
if StartRadial>EndRadial then
begin
repeat
for i:=StartRadial Downto EndRadial do
begin
X1:=Round ( Radius * Sin (i * Pi / 180)) + 646;
Y1:=Round (- Radius * Cos (i * Pi / 180)) + 84;
if FindColor(X,Y,TheColor,X1,Y1,X1+1,Y1+1) then
begin
MouseIt(x,y,1);wait(100+random(300))
Result:=True;
Flag;
Break;
end
end
Radius:=Radius-4;
until ((Radius<=1) or (Result));
end
end;
procedure Say (word:string);
var
k, p: integer;
begin
k:=1;
repeat
p:=random(3)+1;
if(p=1) then
begin
wait(40+random(20));
end;
if(p=2) then
begin
wait(50+random(60));
end;
if(p=3) then
begin
wait(100-random(60));
end;
SendKeys(copy(word,k,1));
k:=k+1;
until k > length(word);
end;
function LoggedOut:boolean;
var c,u:integer;
begin
result:=false;
if(findcolorspiraltolerance(c,u,65535,241,231,337,259,5))then
result:=true;
end;
procedure SSLogIn;
var x,y,c:integer;
begin
Status('Logging in')
c:=0
if(findcolorspiraltolerance(x,y,3879730,349,339,667,372,5)) then
begin
MouseIt(459,291,1);
wait(2000)
Say(User);
wait(200)
SendKeys(chr(13))
wait(400)
Say(Pass);
wait(750+random(250))
MouseIt(303,320,1);
repeat
c:=c+1
wait(400)
if(c=75) then
begin
writeln('Script Messed Up')
logout;
terminatescript;
end;
until(findcolorspiraltolerance(x ,y, 16777215, 397, 294, 623, 380, 5))
if(findcolorspiral2(x ,y, 16777215, 397, 294, 623, 380))
then
begin
MouseIt(x,y,3)
wait(400-random(100)+random(200))
MouseIt(x,y,1)
wait(500)
Wait(5000+random(2000))
end;
end;
end;
procedure ModCheck;
var
x2, y2, abcd : integer;
begin
if (findbitmaptolerancein(StaffCrown,x2,y2,1,345,110,430,50))
or (findbitmaptolerancein(ModCrown,x2,y2,1,345,110,430,50)) then
begin
abcd:=0
TakeScreenShot('Staff Found',1);
Status('Staff or Mod found…');
writeln('Staff/Mod Found so logged out');
Logout;
repeat
Status(inttostr(20-abcd)+' minutes remaining until login…')
abcd:=abcd+1;
wait(60000);
until(abcd>20);
SSLogin;
end;
end;
function FindForester:boolean;//A Stupid3ooo procedure, works only 25% of the time
var
c,bmpFreakyForester,bmpLeaveTheArea,bmpPheasantMeat:integer;
begin
bmpFreakyForester := BitmapFromString(106, 2, 'z78DAA552410AC0' +
'3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
'846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
bmpLeaveTheArea := BitmapFromString(89, 2, 'z78DA3330000127474' +
'7270B4708690011717274B534422631C5514490F5229946919944' +
'881343E2D74B65B7417C8DC926DA765C61881C92C4A8C1296EE96' +
'86A610821718910E3779CA18AE46B5CA6511EF294A4075AA70A02' +
'E9019324C29DE4C5387E35C4EB820000EEBEF642');
bmpPheasantMeat := BitmapFromString(14, 7, 'z78DA7D915B8EC6200' +
'885B7A4DC79ACD5EE7F497FA7C74968E6A2093127F0014799221C' +
'2A72F090E7DDBE4EB7C3C428C4A71F88D0B9D17D11A1B8DA65678' +
'CD0E8502A67D34484C45399469C7A31B96AA3519935DFD9A68DEC' +
'91E12FCE3DCA9B13A98BDB5F34E83624C9BDD9B074F76E4B4F5ED' +
'4EC9271EBA72ACD4D331DFFD04826E5EEDED468A17BB0262DE454' +
'0EF49FB4CAC40C9B862A102AB3D090593D79F9838D3021AA2EEB2' +
'CBFCCF970B0FB76E3F1163F654D3AD166C2BDE25292F137B3EEF5' +
'01384D7A16');
if(FindBitmap(bmpFreakyForester,x,y))then
begin
SaveScreenShot('Freaky Forester Random - Air Crafter.bmp');
repeat
if(FindObject('Attack',4344603,20))then
begin
Getmousepos(x,y);
MouseIt(x,y,1);
Flag;
Wait(5000+random(1000));
end;
if(not(FindBitmapSpiralTolerance(bmpPheasantMeat,x,y,554,205,743,465,30)))then
begin
if(FindObject('Take',3763101,25))then
begin
GetMousePos(x,y)
MouseIt(x,y,1);
Flag;
Wait(2000+random(500));
end;
end;
if(FindBitmapSpiralTolerance(bmpPheasantMeat,x,y,554,205,743,465,30))then
begin
MouseIt(x,y,1);
if(FindObject('Use Raw pheasant with Freaky',14869221,20))then
begin
MouseIt(x,y,1);
Flag;
Wait(1000+random(500));
if(FindBitmap(bmpLeaveTheArea,x,y))then
begin
MouseIt(690,83,1);
Flag;
for c:=1 to 10 do
begin
Wait(100+random(10));
if(FindObject('Enter',12514550,20))then
begin
GetMousePos(x,y);
MouseIt(x,y,1);
Wait(10000+random(1000));
if(FindBitmap(bmpFreakyForester,x,y))then
begin
writeln('Chose the wrong pheasant :(');
TerminateScript;
end else
Result:=true;
Break;
end;
end;
end;
end;
end;
until(Result=true)
end;
FreeBitmap(bmpFreakyForester);
FreeBitmap(bmpLeaveTheArea);
FreeBitmap(bmpPheasantMeat);
end;
function FindFrog:boolean;//A Stupid3ooo procedure
var
tx,ty,a,c,cc,CrownColor,i,x1,y1,x2,y2,FrogSpot,Frog:integer;
begin
FrogSpot := DTMFromString('78DA63AC606260B06100030E2006F2184AF36' +
'2C07C4620FE0F048CDD405167881A56A8B8555D3A033F940D565B' +
'0254A349404D12508D037E35000D030BB3');
Frog := BitmapFromString(30, 2, 'z78DA73727274B534B23000012' +
'74747270B47E249645DB84C808A836D4126C91447321317498C9B' +
'5154426CC160633119C355982EC4A51E00B445523B');
if(FindBitmap(Frog,x,y))or(FindDtm(FrogSpot,x,y,570,5,725,160))then
begin
SaveScreenShot('Frog Random - Air Crafter.bmp');
if(FindDtm(FrogSpot,x,y,570,5,725,160))then
begin
MouseIt(x,y,1);
Flag;
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
MouseIt(x,y,3);
if(IsTextAt2(9,9,'Talk',100))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
MouseIt(x,y,1);
Flag;
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
MouseIt(x,y,1);
wait(500+random(500));
end;
MouseIt(256,401,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
MouseIt(x,y,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;
FreeDtm(FrogSpot);
FreeBitmap(Frog);
end;
function FindDoctor:boolean;//Edited version of knightstreak's EyeTest, all credit goes to knightstreak
var
c,i,backgroundcolor : integer;
firstfinger, secondfinger, thirdfinger, fourthfinger : boolean;
begin
if(not(getcolor(650, 185) = 4902398))then
begin
backgroundcolor:=Getcolor(10,10);
repeat
c:=c+1;
Wait(10);
if(not(getcolor(143,94) = backgroundcolor))then
firstfinger:=true;
if(not(getcolor(302,41) = backgroundcolor))then
secondfinger:=true;
if(not(getcolor(409,75) = backgroundcolor))then
thirdfinger:=true;
if(not(getcolor(415,101) = backgroundcolor))then
fourthfinger:=true;
until(c>1000)or(firstfinger)and(secondfinger)and
(thirdfinger)and(fourthfinger)
if(firstfinger = true)and(secondfinger = false)and(thirdfinger = false)and(fourthfinger = false)then
MouseIt(99,299,1);
if(firstfinger=true) and (secondfinger=true) and (thirdfinger=false) and (fourthfinger=false)then
MouseIt(153,300,1);
if(firstfinger=true) and (secondfinger=false) and (thirdfinger=false) and (fourthfinger=true)then
MouseIt(211,304,1);
if(firstfinger=false) and (secondfinger=true) and (thirdfinger=true) and (fourthfinger=false)then
MouseIt(265,300,1);
if(firstfinger=false) and (secondfinger=false) and (thirdfinger=false) and (fourthfinger=true)then
MouseIt(320,306,1);
if(firstfinger=true) and (secondfinger=true) and (thirdfinger=true) and (fourthfinger=false)then
MouseIt(374,298,1);
if(firstfinger=true) and (secondfinger=true) and (thirdfinger=true) and (fourthfinger=true)then
MouseIt(431,299,1);
For i := 0 to 5 do
Begin
if(getcolor(241,445) = 16711680)or(getcolor(241,445) = 16777215)then
begin
Result:=true;
MouseIt(241,445,1);
wait(1500 + random(500));
end;
end;
end;
end;
Function PlayedFor : String;
Var
int1, int2, int3 : Integer;
str1, str2, str3 : String;
Begin
int1:= TimeRunningHour;
int2:= TimeRunningMin;
int3:= TimeRunningSec;
While(int2>59)Do
int2:= int2 - 60;
While(int3>59)Do
int3:= int3 - 60;
If(int1<10)Then
str1:= '0' + inttostr(int1 )
Else
str1:= inttostr(int1);
If(int2<10)Then
str2:= '0' + inttostr(int2)
Else
str2:= inttostr(int2);
If(int3<10)Then
str3:= '0' + inttostr(int3)
Else
str3:= inttostr(int3);
result:= ('Worked For: ' + str1 + ':' + str2 + ':' + str3);
End;
procedure randoms;
begin
checkintro;
findtext;
checkbox;
lookformime;
findmaze;
checklamp;
modcheck;
findforester;
findfrog;
finddoctor;
if(loggedout=true) then begin
SSLogIn;
end;
end;
procedure airamount;
begin
if(UseTiara=true)then
TiaraAirs:=28
if(UseTiara=false)then
TiaraAirs:=27
end;
procedure xpamount;
begin
if(UseTiara=true)then
XP:=140
if(UseTiara=false)then
XP:=135
end;
procedure Report;
var
Canvas: TCanvas;
BackColor : Integer;
begin
BackColor := loadbitmap('BG.bmp');
Canvas:= GetBitmapCanvas(BackColor);
Canvas.Brush.Style:= bsClear;
Canvas.Font.Color := clWhite;
Canvas.TextOut(10, 10, 'Mad Cow'#39's Air Crafter')
Canvas.TextOut(10, 25, '====================')
Canvas.TextOut(10, 40, 'Done '+inttostr(trips)+' trips')
Canvas.TextOut(10, 55, (playedfor))
Canvas.TextOut(10, 70, 'So Far Used '+inttostr(trips*tiaraairs)+' ess')
Canvas.TextOut(10, 85, 'Gained '+inttostr(XP*trips)+' XP so far')
Canvas.TextOut(10, 100,'====================')
DisplayDebugImgWindow(150,130)
SafeCopyCanvas(Canvas, GetDebugCanvas, 0, 0, 150, 130, 0, 0, 150, 130);
ClearReport;
AddtoReport('Mad Cow'#39's Air Crafter')
AddtoReport('=====================')
AddtoReport('Done '+inttostr(trips)+' trips')
AddtoReport((playedfor))
AddtoReport('So Far Used '+inttostr(trips*tiaraairs)+' ess')
AddtoReport('Gained '+inttostr(XP*trips)+' XP so far')
AddtoReport('=====================')
end;
procedure loadBmps;
begin
Status('Loading Bitmaps')
BmpFlag := BitmapFromString(2, 2,'FF00005D3311C656045D3311');
Pic2 := BitmapFromString(17, 5, 'z78DA3375313531313705936E48' +
'C0000C90454C9154E2524FAA382E59EADA420BD3DC8806D4B2C50' +
'003506E1A008D4D79AB');
end;
procedure loadaltarDTMs;
begin
Status('Loading Altar Bitmaps')
ToAltar1 := DTMFromString('78DA632C60626068634001D1A1A10C72409A1' +
'188FF03016317504D18448E0BAAE6F4663DB81A10604C00AAA940' +
'5593533B0F554D12508D2FAA5DC2765039281F0078300C61');
ToAltar2 := DTMFromString('78DA635CC8C4C0A0C6800222DC1819F881342' +
'310FF0702C6394035AA103911A89A850B17C2D580006315508D0C' +
'AA1A613B065435654035CEA86A726AE7A1A80100F38A0BB6');
ToAltar3 := DTMFromString('78DA63EC67626028654001D1A1A10CFC409A1' +
'188FF03016302504D38448E1FAA26A7761E5C0D0830D601D5B4A2' +
'AA9196604055330FA8260F55CD93274F50D400004FE00DAB');
ToAltar4 := DTMFromString('78DA638C656260286240018C498C0CFC201AC' +
'64F04AA2987B045A0628D8D8DA86A22806A2250D5448786A2AA09' +
'07AAB1405593533B0F450D002E0507E2');
ToAltar5 := DTMFromString('78DA63EC616260F06240018C498C0CFC201A8' +
'8FF0301631E508D22448E1FAA26A7761E5C0D584F13508D01AA9A' +
'E8D05054359B816ABCF1AB0100D4070B80');
ToAltar6 := DTMFromString('78DA63DCC8C4C020C9800218931819F841341' +
'0FF0702C60EA01A7E889C08548DB4FB75B81AB09E46A01A195435' +
'D1A1A1A86A2A806A8451D5C45970A2A80100A0280A4F');
end;
procedure loadbankDTMs;
begin
Status('Loading Bitmaps')
ToBank1 := DTMFromString('78DA63EC636260E06340012979320CFC409A1' +
'188FF0301A313508D27444E04AA46D88E01AE060418C3806A0A51' +
'D5448786A2AA590154D34040CD31A01A6F54350CB268767501D5B' +
'8A2AA294A9541559309546380DFCD0047E80F33');
ToBank2 := DTMFromString('78DA63EC63626050634001D1A1A10CFC409A1' +
'188FF0301E37CA01A1B889C08540D6312235C0D985F0E54638AAA' +
'66F9CAF3A86A5A806A8451D5E4D4CE43510300FF960C66');
ToBank3 := DTMFromString('78DA632C646260C86240018C498C0CFC201AC' +
'69F0554930F614B42C5A2434351D52401D598A2AAC9A99D87AAA6' +
'0FA8C619C216818A3D79F204450D004F36097B');
ToBank4 := DTMFromString('78DA639CC6C4C010C88002A4251818F881342' +
'310FF0702C60EA09A28889C08544D7468285C0D0830D602D518A1' +
'AAC9A99D87AA660F508D1EAA1A4B6E06143500CAC20AEA');
ToBank5 := DTMFromString('78DA635CC0C4C0A0C180024E6FD663E007D28' +
'C40FC1F08186723D48840D52C5CB810AE060418DB806AD451D544' +
'8786A2AA2901AAF1405593533B0F554D16508D04AA1A613B06143' +
'500A2F20E8E');
end;
procedure LogOutTalk;
begin
Status ('Talking');
Say ('Brb, Toilet')
SendKeysSilent (chr(13))
end;
procedure EndOfScriptTalk;
begin
Status ('End of script chat')
Say ('Gtg now, cya')
SendKeysSilent (chr(13))
end;
function Talker:string;
var l,b:integer;
begin
if not randtalk then
exit;
Status('Random Talking');
l:=random(100)+1;
case l of
1:result:='runecrafting lvls?';
2:result:='tired?';
3:result:='im bored';
4:result:='madness';
5:result:='sick mate sick';
6:result:='Im bored!';
7:result:='wanna know my password? lol, jk';
8:result:='how cool would it be to do double nats';
9:result:='wow!';
10:result:='wow';
11:result:='serious';
12:result:='zzzzzzzzzzzzz';
13:result:='no way';
14:result:='man i hate skool';
15:result:='i wonder what i can sell these airs for';
16:result:='this is to boring';
17:result:='man im bored';
18:result:='lol rsc is gai';
19:result:='that sucks';
20:result:='true?';
21:result:='its so hard to get lvls in runecrafting';
22:result:='lvls?';
23:result:='levels?';
24:result:='lol';
25:result:='rofl';
26:result:='seriously';
27:result:='true blu';
28:result:='noob';
29:result:='i need go take a dump';
30:result:='man im busting to go to the toilet';
31:result:='im gonna be soo rich after this';
32:result:='whats ya lvl?';
33:result:='look me up on the high scores ppl!';
34:result:='man im tied';
35:result:='eat my slug';
36:result:='im bored';
37:result:='runecraftings boring';
38:result:='dim tired… are you?';
39:result:='who heres a mem… im not';
40:result:='r u a member?';
41:result:='im bored';
42:result:='hahahaha';
43:result:='boring';
44:result:='i got soo many airs in bank';
45:result:='who here plays soccer';
46:result:='how does that work';
47:result:='i rule!';
48:result:='football is madd as!!';
49:result:='i love rock n roll put another dime in the juke box baby!';
50:result:='any one heard the song poisen by alice cooper??… its hell mad';
51:result:='im hungry';
52:result:='mmmmm i feel like a beer';
53:result:='i wanna eat a onion!';
54:result:='i want a tomato sauce :)';
55:result:=':)';
56:result:=':(';
56:result:='XD ';
57:result:=':p ';
58:result:=':[]';
59:result:=':]';
60:result:=':[';
61:result:=':o';
62:result:=':-)';
63:result:='?';
64:result:=':s';
65:result:='diablo II is the bomb';
66:result:='i love paladins on d2';
67:result:='necromancers rock my socks!';
68:result:=' oh no …i think i just followed through';
69:result:='i just poopied my pants';
70:result:='My pass is… j/k muhahhahaha';
72:result:='hey everyone';
73:result:='how ya going eveyone';
74:result:='wazaaaaa!!!!!';
75:result:='i need help with dragon quest ppl';
76:result:='lets sing a song ppl….hhhheeeeeeeeyyyy hey baby…oh arh…';
77:result:='i love south park!';
78:result:='happy tree friends and friends is the bombest show';
79:result:='i feel pretty and witty and gai';
80:result:='i wish you could smith dragon stuff';
81:result:='dragon stuff looks hell mad aye';
82:result:='know any jokes ppl?';
83:result:='runecrafting = boring';
84:result:='rc is boring';
85:result:='I have the hottest girl friend!';
86:result:='You will respect my authority!';
87:result:='i need to do a snapper xD';
88:result:='Please donate to the '+(user)+' organisation… lol';
89:result:='I wanna kick you';
90:result:=(user)+' is soooo good… lol';
91:result:='zzz tired';
92:result:='tinderboxes are the best item is runescape atm aye?';
93:result:='i cant believe how good '+(user)+' is';
94:result:='this is hard yakka';
95:result:='ppl who hate homework say i…. i';
96:result:='simpsons are hell mad cartoons!';
97:result:='Chicken dippers!!!';
98:result:='qwerty qwerty qwerty';
99:result:='poopies smell good :)';
100:result:='Im tired… are you?';
end;
b:=random(10);
if(b=1)then
begin
wait(2000+random(300));
Say(Talker);
wait(500+random(200));
SendKeys(chr(13));
wait(300)
SendKeysSilent(chr(13));
wait(1000)
setchat;
if(b=2)then
begin
Say(randomtalk);
wait(300)
SendKeysSilent(chr(13))
wait(300)
SendKeys(chr(13))
wait(1000)
setchat;
end;
end;
end;
procedure ToAltar;
begin
DoneTimes:=0
setchat;
wait(50)
setrunon;
wait(100)
Status('Moving from bank to altar')
Debug('Going to altar')
randoms;
Compass('N')
Wait(200+random(200))
FindFirstColors;
if(FindColorSpiral(x,y,BankColor,568, 5, 728, 157)) then
begin
RadialWalk(RoadColor,180,260,40);Randoms;
end;
if(not(trips=0) or (not(YewColor=0)) and (trips=0)) then
begin
repeat
RadialWalk(RoadColor,150, 220,40+random(10));Randoms;
until(FindColorSpiral(x,y,YewColor,566, 5,648, 164))
end;
if (trips=0) and (YewColor=0) then
begin
WriteLn('Taking Color finding route…. May be a little shaky')
RadialWalk(RoadColor,150, 220,60);Randoms;
RadialWalk(RoadColor,150, 220,60);Randoms;
FindSecondColors;
end
if(FindColorSpiral(x,y,YewColor,566, 5,648, 164)) then
begin
MouseIt(x+10,y,1);
Flag;
Randoms;
end;
if(FindColorSpiral(x,y,YewColor,565, 6, 686, 161)) then
begin
MouseIt(x-20,y+35,1);
Flag;
Randoms;
end;
if(FindColorSpiral(x,y,YewColor,568, 5, 728, 157)) then
begin
MouseIt(x-44,y+73,1);Wait(200)
if(FindFlag) then
begin
Flag;Wait(1000+random(500))
Randoms;
end
else
begin
MouseIt(x-44,y+70,1)
Flag;Wait(1000+random(500))
Randoms;
end;
end;
end;
function InvCount:integer;
var r,d,ix,iy:integer;
begin
OpenBag;
while(d<8)do
begin
if(r>4)then
begin
r:=0;
d:=d+1;
end;
if(FindColor(ix,iy,65536,569+42*r,213+36*d,569+42*r+31,213+36*d+30))then
result:=result+1;
r:=r+1;
end;
end;
procedure CraftWithTiara;
var TP:integer;
begin
Status('Crafting the air runes')
Debug('Crafting')
TP:=0;
randoms;
MouseC(244, 263,3)
wait(200+random(200))
if(IsTextAt2(9,9,'Walk',100)) then
begin
if(findobject('Enter',5527624,10))then
begin
getmousepos(x,y);
MouseIt(x,y,1)
end;
end;
if(IsTextAt2(9,9,'Enter',100)) then
begin
GetMousePos(x,y)
wait(100+random(50))
MouseC(x,y,1)
end
repeat
wait(250)
until(findobject('Walk',5670294,5))
MouseIt(356+random(10),45+random(10),3)
if(IsTextAt2(9,9,'Walk',100)) then
begin
if(FindObject('Craft',3947587,10)) then
begin
GetMousePos(x,y)
wait(300-random(300))
MouseIt(x,y,2);
Wait(400+random(200))
if(FindBitmapMaskTolerance(MskCraft,x,y,0,0,495,325,0,100)) then
begin
MouseIt(x+random(10),y+5,3);
Wait(100+random(50));
GetMousePos(x,y);
MouseIt(x,y,1);
Wait(400+random(300))
end;
end;
end;
if(IsTextAt2(9,9,'Craft',100)) then
begin
GetMousePos(x,y)
wait(300-random(300))
MouseIt(x,y,2);
Wait(400+random(200))
if(FindBitmapMaskTolerance(MskCraft,x,y,0,0,495,325,0,100)) then
begin
MouseIt(x+random(10),y+5,3);
Wait(100+random(50));
GetMousePos(x,y);
MouseIt(x,y,1);
Wait(400+random(300))
end;
end;
Flag;Wait(Random(2000))
repeat
wait(600+random(200))
until(not(invcount=28))
wait(500)
Talker;
wait(200)
MouseIt(640+random(5), 94+random(5),1);Flag;
If(FindObject('Use P',6128524,7)) then
begin
Wait(500+random(500))
GetMousePos(x,y)
if(Not(IsTextAt2(9,9,'Use P',100))) then
begin
If(FindObject('Use P',6128524,7)) then
begin
Wait(500+random(500))
GetMousePos(x,y)
MouseIt(x,y,2)
MouseIt(x,y,2)
Wait(400+random(200))
if(FindBitmapMaskTolerance(MskUsePortal,x,y,0,0,495,325,0,100)) then
begin
MouseIt(x+random(10),y+5,3);
Wait(100+random(50));
GetMousePos(x,y);
MouseIt(x,y,1);
Wait(400+random(300))
end;
end;
end
else
begin
MouseIt(x,y,2)
Wait(400+random(200))
if(FindBitmapMaskTolerance(MskUsePortal,x,y,0,0,495,325,0,100)) then
begin
MouseIt(x+random(10),y+5,3);
Wait(100+random(50));
GetMousePos(x,y);
MouseIt(x,y,1);
Wait(400+random(300))
end;
end;
end;
wait(500)
Flag;
Wait(500+random(200))
repeat
wait(500)
tp:=tp+1;
until(findcolorspiraltolerance(x, y, 6252632,3, 3,515, 337,15)) or (TP=10)
if(TP=10) then
begin
If(FindObject('Use P',6128524,5)) then
begin
GetMousePos(x,y)
MouseIt(x,y,1)
end;
TP:=11;
end;
end;
procedure CraftWithoutTiara;
begin
Status('Crafting the air runes')
Debug('Crafting')
randoms;
MouseIt(582,227,3)
wait(200)
clickhuman(582,227,true)
if(findobject('Use Air talisman with Mysterious',4079672,5))then
getmousepos(x,y);
MouseIt(x,y,1)
repeat
wait(250)
until(findobject('Walk here',5670294,5))
MouseIt(350,23,1)
mapflagging;flag;
wait(200)
talker;
wait(200)
MouseIt(178,330,3)
wait(300)
MouseIt(178,330,1)
wait(500)
repeat
wait(300)
until(findobject('Walk here',4079672,5))
end;
procedure MouseFindFlag(ax,ay,xmod,ymod:integer);
var
xx,yy:integer;
begin
if(not(FlagPresent))then
begin
xx:=ax;
yy:=ay;
repeat
xx:=xx+xmod;
yy:=yy+ymod;
MouseIt(xx,yy,1);
until(FlagPresent)or(xx<570)or(xx>725)or(yy<5)or(yy>160)
end;
end;
procedure FindBestBooth(Color:integer); //
var
c, ax, ay: Integer;
begin
while c<30 do
begin
c:=c+5;
if(FindColorSpiral(x,y,BankColor,571, 2,727, 159)) then
begin
if(FindColorSpiralTolerance(ax, ay, 195836, x-c, y-c, x+c, y+c, 10))then
begin
x:=ax;
y:=ay;
MouseFindFlag(x, y-3, 0, -2);
repeat
Wait(500+random(100));
until(FindColor(x,y,Color,618,54,678,113))
Flag;
Wait(1000+Random(100));
Break;
end;
end;
end;
end;
procedure ToBank;
begin
SetRunOff;
Randoms;
Status('Moving from altar to bank')
Debug('Moving to Bank')
MouseIt(661+random(10), 25+random(10), 1)Flag;Randoms;
if(FindColorSpiral(x,y,YewColor,571, 2,727, 159)) then
begin
MouseIt(x-10,y+4,1);
Flag;
Randoms;
end;
if(FindColorSpiral(x,y,YewColor,571, 2,727, 159)) then
begin
MouseIt(x+44,y-40,1);
Flag;
Randoms;
end;
repeat
RadialWalk(RoadColor,340,400,47)
until(FindColorSpiral(x,y,BankColor,571, 2,727, 159))
if(FindColorSpiral2(x,y,BankColor,571, 2,727, 159)) then
begin
MouseIt(x+3,y+4,1);
Wait(3000+random(1000));
Flag;
Randoms;
end;
end;
procedure bankcode;
begin
if(getcolor(245, 169) = 65535)then
begin
wait(100)
MouseIt(245, 169, 1)
wait(300)
end else;
end;
Procedure EnterPin;
Var
a, b, c, d, bmp0, bmp1, bmp2, bmp3, bmp4, bmp5, bmp6, bmp7 : Integer;
bmp8, bmp9 : Integer;
Begin
Debug('Entering PIN')
If(BankID=0)Then
Begin
Logout;
writeln('Didnt know the pin');
TerminateScript;
End;
bmp0 := BitmapFromString(7, 10, 'z78DA333040003737733754121' +
'360CA12236280D796E1A4925A61820C00BBB55997');
bmp1 := BitmapFromString(6, 10, 'z78DA333040003737733718890' +
'9906531D560CAE2328718BB86961A5C7E472601BA4A4B34');
bmp2 := BitmapFromString(7, 10, 'z78DA33300001373773376C243' +
'220551C17205E3D312A87A21A03BC618E4902004CF95706');
bmp3 := BitmapFromString(6, 10, 'z78DA33300001373773376CA40' +
'1862C32C0254EB91AFCEEA1AE5DF8D510EF77FCBA0095DD4C0F');
bmp4 := BitmapFromString(7, 10, 'z78DA737333773330700393F88' +
'1DB2053894B2FAD55E22769111A008EE75798');
bmp5 := BitmapFromString(6, 10, 'z78DA73733377333070239AC40' +
'54855438C7AE24D26CF0D94B813531CBF2E00DDB94C0F');
bmp6 := BitmapFromString(4, 5, 'z78DA33304000373773371849BC' +
'08F1E2C824000CEA19ED');
bmp7 := BitmapFromString(6, 10, 'z78DA73733377333070C34BE20' +
'2F8D58C9A800C0036BB4A59');
bmp8 := BitmapFromString(7, 10, 'z78DA333040003737733754121' +
'360CA1223423B13E869CB40F908007961594E');
bmp9 := BitmapFromString(7, 10, 'z78DA3330000137377337DCA40' +
'1861A4C805F2FE52AF1BB811871626C24C64CFAAB0400EB7F5873' +
'');
Repeat
c:= c + 1;
case c of
1 : d:= strtoint(copy(inttostr(BankID), c, 1));
2 : d:= strtoint(copy(inttostr(BankID), c, 1));
3 : d:= strtoint(copy(inttostr(BankID), c, 1));
4 : d:= strtoint(copy(inttostr(BankID), c, 1));
End;
Case d of
0 : FindBitmapTolerancein(bmp0, a, b, 30, 90, 380, 285, 100);
1 : FindBitmapTolerancein(bmp1, a, b, 30, 90, 380, 285, 100);
2 : FindBitmapTolerancein(bmp2, a, b, 30, 90, 380, 285, 100);
3 : FindBitmapTolerancein(bmp3, a, b, 30, 90, 380, 285, 100);
4 : FindBitmapTolerancein(bmp4, a, b, 30, 90, 380, 285, 100);
5 : FindBitmapTolerancein(bmp5, a, b, 30, 90, 380, 285, 100);
6 : FindBitmapTolerancein(bmp6, a, b, 30, 90, 380, 285, 100);
7 : FindBitmapTolerancein(bmp7, a, b, 30, 90, 380, 285, 100);
8 : FindBitmapTolerancein(bmp8, a, b, 30, 90, 380, 285, 100);
9 : FindBitmapTolerancein(bmp9, a, b, 30, 90, 380, 285, 100);
End;
if(a<>2)then
MouseC(a + random(10) - random(10), b + random(10) - random(10), 1)
else
begin
getmousepos(a, b);
MouseC(a, b, 1);
end;
a:= 2;
if(c=1)then
repeat
wait(random(300) + 1000);
until(getcolor(433, 40) = 65535);
if(c=2)then
repeat
wait(random(300) + 1000);
until(getcolor(449, 40) = 65535);
if(c=3)then
repeat
wait(random(300) + 1000);
until(getcolor(465, 40) = 65535);
if(c=4)then
repeat
wait(random(300) + 1000);
until(getcolor(486, 36) <> 65535);
wait(random(300)+500);
until(c=4);
FreeBitmap(bmp0);
FreeBitmap(bmp1);
FreeBitmap(bmp2);
FreeBitmap(bmp3);
FreeBitmap(bmp4);
FreeBitmap(bmp5);
FreeBitmap(bmp6);
FreeBitmap(bmp7);
FreeBitmap(bmp8);
FreeBitmap(bmp9);
end;
procedure DepositStuff;
var
x, y: Integer;
begin
If(LampPresent)Then
Begin
CloseBank;
CheckLamp;
wait(random(200) + 400)
If(LampPresent)Then
Begin
CheckLamp;
wait(random(500) + 2000);
If(LampPresent)Then
Begin
LampSkill := LampSkill;
CheckLamp;
End;
End;
OpenBank;
End;
If(BoxPresent)Then
Begin
CloseBank;
CheckBox;
OpenBank;
End;
while(FindColor(x,y,65536,568,216,731,455))do
begin
MouseIt(x+4,y+10,2);
Wait(600+random(400));
if(FindBitmapMaskTolerance(mskAll,x,y,568,216,731,455,0,100))then
begin
MouseIt(x+10,y+5,1);
Wait(1100+random(300));
end
else
if(FindBitmapMaskTolerance(mskCancel,x,y,568,216,731,455,0,100))then
begin
MouseIt(x+10,y+5,1);
Wait(200+random(50))
end;
end;
end;
procedure FixBank;
var
x, y:Integer;
begin
if(GetColor(475,75)=1777699)then
begin
MouseIt(475,65,3)
GetMousePos(x,y)
HoldMouse(x+random(1),y+random(1),true)
end;
while(GetColor(475,75)=1777699)do
begin
Wait(100);
Wait(300+random(300))
GetMousePos(x,y)
ReleaseMouse(x,y,true)
end;
end;
procedure bankwithtiara;
var mad:integer;
begin
Status('Banking');
Debug('Banking')
randoms;
mad:=0
if(findobject('Use B',6783116,15))then
begin
getmousepos(x,y)
wait(200)
MouseIt(x,y,2)
wait(750)
end;
if(FindBitmapMaskTolerance(mskUseQuick,x,y,0,0,495,325,0,100)) then
begin
MouseIt(x+random(10),y+5,1)
wait(1250)
end
else
begin
BankWithTiara;
end;
repeat
wait(300+random(200))
until(findcolorspiraltolerance(x,y,2070783,125,17,368,64,5)) or (findcolorspiraltolerance(x,y,255,130, 33,270, 51,5))
if(findcolorspiraltolerance(x,y,255,130, 33,270, 51,5)) then
begin
Writeln('Attempting to enter PIN - ****')
MouseIt(456+random(20)-random(20), 89+random(20)-random(20), 3)
EnterPin;
end;
wait(500+random(500))
DepositStuff;
FixBank;
MouseIt(94, 77, 3)
Wait(50+random(50))
GetMousePos(x,y)
MouseIt(x, y, 2)
wait(600+random(200))
if(FindBitmapMaskTolerance(mskAll,x,y,27,60,459,286,0,100))then
begin
wait(400+random(200))
MouseIt(x+10,y+5,1)
wait(1000-random(500))
closebank;
randoms;
end;
end;
procedure bankwithouttiara;
var cow:integer;
begin
Status('Banking');
Debug('Banking')
randoms;
cow:=0;
if(findobject('Use Ba',6783116,15))then
getmousepos(x,y)
wait(200)
MouseIt(x,y,2)
wait(750)
if(findbitmaptolerancein(QuicklyText,x,y,10,10,500,330,100))or
(findbitmaptolerancein(QuicklyText2,x,y,10,10,500,330,100))then
MouseIt(x,y,1)
wait(1250)
repeat
cow:=cow+1
wait(300+random(200))
if(cow>25) then
begin
bankcode;
end;
until(findcolorspiraltolerance(x,y,2070783,125,17,368,64,5))
wait(500+random(500))
MouseIt(626,228,2)
wait(500+random(200))
if(findbitmap(pic2,x,y))then
MouseIt(x,y,1)
wait(1000-random(250))
MouseIt(93,79,2)
wait(300)
if(findbitmap(pic2,x,y))then
MouseIt(x,y,1)
closebank;
randoms;
end;
procedure craft;
begin
if (usetiara=true) then
begin
craftwithtiara;
end
else if (usetiara=false) then
begin
craftwithouttiara;
end;
end;
procedure bank;
begin
if (usetiara=true) then begin
bankwithtiara;
end else
if (usetiara=false) then begin
bankwithouttiara;
end;
end;
procedure BeginWait;
begin
Status('Info');
ClearDebug;
wait(300)
writeln('~~~~~Script by Unforgived ~~~~~')
wait(300)
writeln('~~~~~~~~~~~~v2.84~~~~~~~~~~~')
wait(300)
writeln('')
wait(500)
writeln('This will begin in 3 seconds')
wait(1000)
writeln('This will begin in 2 seconds')
wait(1000)
writeln('This will begin in 1 second ')
wait(1000)
writeln('')
end;
procedure CrafterVersion;
var Ver, Version:string;
begin
Status('Getting Version Info')
Version:='2.84';
Ver:=GetPage('http://google.com);
If(not(Ver=Version))then
Begin
cleardebug;
writeln('Unforgived Air Crafter V'+ver+' is out now.')
writeln('')
writeln('PM/AIM/MSN Unforgived to get the latest version')
writeln('')
writeln('AIM= Unforgived, MSN= [email]Unforgived@MGIV.scriptdump.net[/email]')
writeln('FORUM NAME= "Cat" except sythe which is "A Mad Cat"')
writeln('EMAIL= "ididurmom@gmail.com"')
writeln('')
TerminateScript;
end;
ClearDebug;
Writeln('Using Latest Version V'+ver)
Writeln('')
Writeln('Please send all progress reports over 1 hour')
Writeln('to [email]ididurmom@gmail.com[/email] or post them')
end;
procedure loopy;
begin
toaltar;
craft;
tobank;
bank;
trips:=trips+1
report;
end;
Procedure DisguiseScar(disguise:string);
var application:tapplication;
Self: TForm;
begin
Application:= GetApplication;
Application.Title:= disguise;
Self:= GetSelf;
Self.Caption:= disguise;
end;
procedure buttonclick(sender: TObject);
begin
SaveSetting('Air Crafter', 'Save Usr', usr.text);
SaveSetting('Air Crafter', 'Save Pss', pss.text);
SaveSetting('Air Crafter', 'Save Ess1', ess1.text);
SaveSetting('Air Crafter', 'Save Ess2', ess2.text);
SaveSetting('Air Crafter', 'Save Ess3', ess3.text);
SaveSetting('Air Crafter', 'Save Ess4', ess4.text);
SaveSetting('Air Crafter', 'Save PIN', EdtPIN.text);
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
UseTiara := true;
RandTalk := true;
GoForever:= true;
if (checkbox1.State = cbUnChecked) then
UseTiara:=false;
if (checkbox2.State = cbUnChecked) then
RandTalk:=false;
if (checkbox3.State = cbUnChecked) then
GoForever:=false;
Clicked:=true;
if(UseTiara) then
SaveSetting('Air Crafter', 'Save Tiara', 'True')
if(RandTalk) then
SaveSetting('Air Crafter', 'Save Talk', 'True')
if(GoForever) then
SaveSetting('Air Crafter', 'Save Forever', 'True')
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafePaint;
var
Canvas: TCanvas;
begin
Canvas:= GetBitmapCanvas(formpic);
SafeCopyCanvas(Canvas, frmdesign.canvas, 0, 0, 425, 288, 0, 0, 425, 288);
end;
procedure PaintForm(Sender:TObject);
begin
SafePaint;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure InitForm;
begin
Application:= GetApplication;
Self:= GetSelf;
frmDesign := TForm.Create(nil);
frmDesign.Left := 250;
frmDesign.Top := 107;
frmDesign.Width := 423;
frmDesign.Height := 288;
frmDesign.BorderStyle := bsToolWindow;
frmDesign.OnPaint:= @PaintForm;
frmDesign.Caption := 'Unforgived Air Crafter';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clBlack;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 36;
Label1.Top := 37;
Label1.Width := 48;
Label1.Height := 13;
Label1.Caption := 'Username';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 36;
Label2.Top := 65;
Label2.Width := 46;
Label2.Height := 13;
Label2.Caption := 'Password';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 197;
Label3.Top := 36;
Label3.Width := 39;
Label3.Height := 13;
Label3.Caption := 'First Ess';
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 196;
Label4.Top := 64;
Label4.Width := 57;
Label4.Height := 13;
Label4.Caption := 'Second Ess';
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 196;
Label5.Top := 91;
Label5.Width := 44;
Label5.Height := 13;
Label5.Caption := 'Third Ess';
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 197;
Label6.Top := 119;
Label6.Width := 44;
Label6.Height := 13;
Label6.Caption := 'Fourth Ess';
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 172;
Label7.Top := 152;
Label7.Width := 51;
Label7.Height := 13;
Label7.Caption := 'Lamp Skill:';
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.OnClick:= @buttonclick;
Button1.Left := 146;
Button1.Top := 194;
Button1.Width := 106;
Button1.Height := 44;
Button1.Caption := 'Start';
Button1.Font.Color := clWindowText;
Button1.Font.Height := -32;
Button1.Font.Name := 'Comic Sans MS';
Button1.Font.Style := [];
Button1.ParentFont := False;
Button1.TabOrder := 0;
Usr := TEdit.Create(frmDesign);
Usr.Parent := frmDesign;
Usr.Left := 94;
Usr.Top := 33;
Usr.Width := 96;
Usr.Height := 21;
Usr.Text := LoadSetting('Air Crafter', 'Save Usr')
Usr.TabOrder := 9;
Pss := TEdit.Create(frmDesign);
Pss.Parent := frmDesign;
Pss.Left := 94;
Pss.Top := 60;
Pss.Width := 96;
Pss.Height := 21;
Pss.Text := LoadSetting('Air Crafter', 'Save Pss')
Pss.TabOrder := 11;
Pss.PasswordChar:= '*';
CheckBox1 := TCheckBox.Create(frmDesign);
CheckBox1.Parent := frmDesign;
CheckBox1.Left := 41;
CheckBox1.Top := 92;
CheckBox1.Width := 97;
CheckBox1.Height := 17;
CheckBox1.Caption := 'Use Tiara?';
CheckBox1.TabOrder := 12;
CheckBox1.State :=cbUnChecked;
if ((LoadSetting('Air Crafter', 'Save Tiara'))='True') then
CheckBox1.State :=cbChecked;
CheckBox2 := TCheckBox.Create(frmDesign);
CheckBox2.Parent := frmDesign;
CheckBox2.Left := 41;
CheckBox2.Top := 118;
CheckBox2.Width := 97;
CheckBox2.Height := 16;
CheckBox2.Caption := 'Random Talk?';
CheckBox2.State :=cbUnChecked;
if ((LoadSetting('Air Crafter', 'Save Talk'))='True') then
CheckBox2.State :=cbChecked;
CheckBox3 := TCheckBox.Create(frmDesign);
CheckBox3.Parent := frmDesign;
CheckBox3.Left := 41;
CheckBox3.Top := 142;
CheckBox3.Width := 97;
CheckBox3.Height := 17;
CheckBox3.Caption := 'Go Forever?';
CheckBox3.TabOrder := 19;
CheckBox3.State :=cbUnChecked;
if ((LoadSetting('Air Crafter', 'Save Forever'))='True') then
CheckBox3.State :=cbChecked;
Ess1 := TEdit.Create(frmDesign);
Ess1.Parent := frmDesign;
Ess1.Left := 258;
Ess1.Top := 32;
Ess1.Width := 121;
Ess1.Height := 21;
Ess1.TabOrder := 14;
Ess1.Text := LoadSetting('Air Crafter', 'Save Ess1')
Ess2 := TEdit.Create(frmDesign);
Ess2.Parent := frmDesign;
Ess2.Left := 258;
Ess2.Top := 59;
Ess2.Width := 121;
Ess2.Height := 21;
Ess2.TabOrder := 15;
Ess2.Text := LoadSetting('Air Crafter', 'Save Ess2')
Ess3 := TEdit.Create(frmDesign);
Ess3.Parent := frmDesign;
Ess3.Left := 258;
Ess3.Top := 88;
Ess3.Width := 121;
Ess3.Height := 21;
Ess3.TabOrder := 16;
Ess3.Text := LoadSetting('Air Crafter', 'Save Ess3')
Ess4 := TEdit.Create(frmDesign);
Ess4.Parent := frmDesign;
Ess4.Left := 258;
Ess4.Top := 114;
Ess4.Width := 121;
Ess4.Height := 21;
Ess4.TabOrder := 17;
Ess4.Text := LoadSetting('Air Crafter', 'Save Ess3')
Lamp := TComboBox.Create(frmDesign);
Lamp.Parent := frmDesign;
Lamp.Left := 235;
Lamp.Top := 147;
Lamp.Width := 145;
Lamp.Height := 21;
Lamp.ItemHeight := 13;
Lamp.TabOrder := 18;
Lamp.DropDownCount:= 18;
Lamp.Items.Add('Attack');
Lamp.Items.Add('Strength');
Lamp.Items.Add('Ranged');
Lamp.Items.Add('Magic');
Lamp.Items.Add('Defence');
Lamp.Items.Add('Hitpoints');
Lamp.Items.Add('Prayer');
Lamp.Items.Add('Agility');
Lamp.Items.Add('Herblore');
Lamp.Items.Add('Theiving');
Lamp.Items.Add('Crafting');
Lamp.Items.Add('Runecrafting');
Lamp.Items.Add('Mining');
Lamp.Items.Add('Smithing');
Lamp.Items.Add('Fishing');
Lamp.Items.Add('Cooking');
Lamp.Items.Add('Firemaking');
Lamp.Items.Add('Woodcutting');
Lamp.Items.Add('Slayer');
Lamp.Items.Add('Farming');
Lamp.itemindex:= 0;
Lamp.Parent := Frmdesign;
EdtPIN := TEdit.Create(frmDesign);
EdtPIN.Parent := frmDesign;
EdtPIN.Left := 79;
EdtPIN.Top := 197;
EdtPIN.Width := 41;
EdtPIN.Height := 21;
EdtPIN.Text := LoadSetting('Air Crafter', 'Save PIN')
EdtPIN.TabOrder := 20;
EdtPIN.PasswordChar:= '*';
LabelBankPin := TLabel.Create(frmDesign);
LabelBankPin.Parent := frmDesign;
LabelBankPin.Left := 20;
LabelBankPin.Top := 200;
LabelBankPin.Width := 52;
LabelBankPin.Height := 13;
LabelBankPin.Caption := 'Bank PIN?';
end;
procedure DoYouHaveEss;
begin
Status('Checking For Ess')
Debug('Getting Ess')
SayIt:=0;
OpenBag;
if(getcolor(710,444)=4345174)then
begin
Writeln('Getting Ess')
Bank;
end;
end;
begin
SetupSquig;
repeat
abc:=abc+1
cleardebug;
until(abc>20)
DoneTimes:=0
CrafterVersion;
chrUpChars := LoadChars2(AppPath + 'Charsrs22\');
BankColor:=BankC;
YewColor:=YewC;
RoadColor:=RoadC;
Clicked:=false;
Status('Loading… Please wait a moment')
FormPic := loadbitmap('airform.bmp')
Status('Setup')
abc:=0
DisguiseSCAR('Control Panel')
SafeInitForm;
SafeShowFormModal;
FreeForm(frmDesign)
FreeBitmap(FormPic)
if (not(clicked)) then terminatescript;
if (EdtPIN.text= '') then
EdtPIN.text:= '0';
FirstEss:=strtoint(Ess1.text);
SecondEss:=strtoint(Ess2.text);
ThirdEss:=strtoint(Ess3.text);
FourthEss:=strtoint(Ess4.text);
LampSkill:=lamp.text;
User:=usr.text
Pass:=pss.text
checkmods:=true;
checkplant:=false;
checkmime:=true;
checkmaze:=true;
checktext:=true;
checkfights:=false;
checkboxes:=true;
checklamps:=true;
loadbankDTMs;
loadaltarDTMs;
loadbmps;
loadmasks;
BankID:=strtoint(EdtPIN.text)
BeginWait;
GetApplication.Minimize
ChangeReportWidth(205)
//Report;
if(loggedout=true) then
begin
SSLogin;
end;
SetQuality(4);
OpenBag;
airamount;
XPamount;
FirstWait:=0;
SecondWait:=0;
ThirdWait:=0;
FourthWait:=0;
DoYouHaveEss;
repeat
Loopy;
until(FirstEss<=trips*tiaraairs)
writeln('First Ess Amount Completed successfully!')
LogOutTalk;
wait(1000)
Logout;
Firstwait:=50000+random(10000)
Status('Sleeping')
wait(firstwait)
SSLogIn;
repeat
Loopy;
until(SecondEss<=Trips*tiaraairs-FirstEss)
writeln('Second Ess Amount Completed successfully!')
LogOutTalk;
wait(1000)
logout;
secondwait:=100000-random(10000)
Status('Sleeping')
wait(secondwait)
SSLogIn;
repeat
Loopy;
until(ThirdEss<=Trips*tiaraairs-FirstEss-SecondEss)
writeln('Third Ess Amount Completed successfully!')
LogOutTalk;
wait(1000)
logout;
thirdwait:=200000+random(20000)
Status('Sleeping')
wait(thirdwait)
SSLogIn;
repeat
Loopy;
until(FourthEss<=Trips*tiaraairs-FirstEss-SecondEss-ThirdEss)
writeln('Forth Ess Amount Completed successfully!')
EndOfScriptTalk;
wait(1000)
logout;
fourthwait:=300000+random(10000)+random(10000)
Status('Sleeping')
wait(fourthwait)
if(GoForever=True)then
begin
SSLogIn;
repeat
Loopy;
until(false)
end;
if(GoForever=False)then
begin
writeln('Script successfully completed')
writeln('~~~~~Yay, You didnt die~~~~~')
end;
end.
——————————————————
<!– END TEMPLATE: formanswers –>
Unforgived - SRL Member Application Form
Unforgived
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
Programming Knowledge
C++l, Visual Basic 6.0, Java somewhat
Other Communitys
not anymore
How Long have You Played Runescape
6 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Ok its been a while lol this is my old air crafter you can take a look at it. ITS REALLY OLD
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{ Unforgived Presents
Falador Air Crafter
Now for RS or SS
Version 1
By: Unforgived }
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
{ Credits to Stupid3000 for Randoms
//Leave as 0 for script to find
RoadC = 0;
YewC = 0;
BankC = 0;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
var x,y,toaltar1,toaltar2,toaltar3,toaltar4,toaltar5,toaltar6:integer;
bmpflag,sayit,tobank1,tobank2,tobank3,tobank4,tobank5,trips:integer;
pic2,tiaraairs,xp,firstess,secondess,thirdess,fourthess:integer;
abc,bankid:integer;Application:TApplication;chrUpChars:integer;
firstwait,secondwait,thirdwait,fourthwait,formpic:longint;
UseTiara,GoForever,RandTalk,Clicked:boolean;mskUseQuick:integer;
frmDesign, Self : TForm; RoadColor,BankColor,YewColor:integer;
Label1,Label2,Label3,Label4,Label5,Label6,Label7,LabelBankPin:TLabel;
Button1:TButton;Lamp:TComboBox;DoneTimes,MskAll,MskCancel:integer;
usr,pss,Ess1,Ess2,Ess3,Ess4,EdtPIN:TEdit;MskUsePortal:integer;
CheckBox1,CheckBox2,CheckBox3:TCheckBox;MskCraft:integer;
{.include oldsquig.txt}
procedure MouseIt(tx, ty, mouse : integer);
begin
MoveMouseSmoothEx(tx, ty, 1 ,6 ,15 ,20 ,20);
wait(random(200));
if(mouse=1)then
begin
holdmouse(tx, ty, true)
wait(10+random(10))
releasemouse(tx, ty, true)
end;
if(mouse=2)then
begin
holdmouse(tx, ty, false);
wait(10+random(10))
releasemouse(tx, ty, false)
end;
end;
Procedure Debug(DebugMessage:string);
begin
ClearDebug;
WriteLn('State : '+DebugMessage)
end;
Procedure FindRoadColor;
var BmpRoad,BmpRoad2,BmpRoad3:integer;
begin
BmpRoad3 := BitmapFromString(6, 6, 'z78DA3373363301' +
'C261470200DE652ED5');
BmpRoad := BitmapFromString(3, 3, 'z78DA3377343732373427910' +
'4003F7D0B92');
BmpRoad2 := BitmapFromString(1, 3, '5C56565C56565C5656');
if(FindBitmapToleranceIn(BmpRoad3,x,y,598, 42,691, 102,35)) or
(FindBitmapToleranceIn(BmpRoad2,x,y,598, 42,691, 102,35)) or
(FindBitmapToleranceIn(BmpRoad,x,y,598, 42,691, 102,35)) then
begin
RoadColor:=GetColor(x,y);
Writeln('Found Road Color - '+inttostr(RoadColor))
end
else
begin
writeln('Could not find bank color')
terminatescript;
end;
end;
Procedure FindBankColor;
begin
if(FindColorSpiralTolerance(x,y,5755621,571, 2,727, 159,40)) or
(FindColorSpiralTolerance(x,y,3322847,571, 2,727, 159,40)) or
(FindColorSpiralTolerance(x,y,3848410,571, 2,727, 159,40)) then
begin
BankColor:=GetColor(x,y)
Writeln('Found Bank Color - '+inttostr(BankColor))
end
else
begin
writeln('Could not find bank color')
terminatescript;
end;
end;
Procedure FindYewColor;
var YewDTM:integer;
begin
YewDTM:= DTMFromString('78DA63DCC3C4C090C18002189318193440341' +
'0FF0702C643403539103911A89AA98DAD7035603D13806A9251D5' +
'146665A2A80100BA8C0B31');
if(FindColorSpiralTolerance(x,y,94465,571, 2,727, 159,40)) then
begin
YewColor:=GetColor(x,y);
Writeln('Found Yew Color - '+inttostr(YewColor))
end
else
begin
writeln('Could not find Yew color, trying again')
end;
end;
procedure FindFirstColors;
begin
if(BankColor=0)or(RoadColor=0) then
begin
FindRoadColor;
FindBankColor;
end;
end;
procedure FindSecondColors;
begin
if(YewColor=0) then
FindYewColor;
end;
Function RelationE(a, b, Range: Extended): Boolean; //Made By XxKanexX
Begin
Result := (MaxE(a, b)-MinE(a, b) <= Range);
End;
Procedure Compass(S: String); //Made By XxKanexX
Var
ArrowDirection, HoldTime: Integer;
DirectionE, Map: Extended;
Changed: Boolean;
Begin
ActivateClient;
Changed := False;
Wait(50 + Random(100));
If(DetectRS2MinimapCompassAngle <= -1)Then
begin
Writeln('Didn''t Find Map Compass… Terminating')
TerminateScript;
end
Else
Begin
DirectionE := 0.0;
HoldTime := 95;
ArrowDirection := Random(2)+1;
Case Uppercase(S) Of
'N': DirectionE := 6.28318530717959;
'E': DirectionE := 4.90978454023457;
'W': DirectionE := 1.67046497928606;
'S': DirectionE := 3.33898821343967;
'NE': DirectionE := 5.56435530755796;
'SE': DirectionE := 4.06888787159141;
'SW': DirectionE := 2.49809154479651;
'NW': DirectionE := 0.785398163397448;
End;
If(DirectionE = 0.0)Then
begin
Writeln('Invalid Direction.')
TerminateScript;
end
Else
Begin
Map := DetectRS2MinimapCompassAngle;
If(ArrowDirection = 2)Then
ArrowDirection := 3;
While(Not(RelationE(Map, DirectionE, 0.1)))Do
Begin
SendArrowSilentWait(ArrowDirection, HoldTime + Random(HoldTime/2));
If(RelationE(Map, DirectionE, 0.5))Then
Wait(Trunc(Map)*2);
If(RelationE(Map, DirectionE, HoldTime/8))Then
HoldTime := HoldTime - HoldTime/2;
If(Not(Changed))Then
Begin
If(RelationE(Map, DirectionE, DirectionE))Then
If(ArrowDirection = 1)Then
ArrowDirection := 3
Else
ArrowDirection := 1;
Changed := True;
End;
Map := DetectRS2MinimapCompassAngle;
End;
End;
End;
End;
Function BoxPresent : Boolean;
Var
bmpStrangeBox, a, b : Integer;
Begin
bmpStrangeBox := BitmapFromstring(7, 8,
'908686908686908686908686575ABC908686908686575ABC908686' +
'908686575ABC575ABC908686908686908686575ABC575ABC575ABC' +
'575ABC908686908686575ABC575ABC575ABC575ABC575ABC575ABC' +
'575ABC575ABC575ABC575ABC575ABC575ABC908686908686575ABC' +
'908686908686575ABC575ABC908686908686908686908686908686' +
'908686575ABC908686908686908686908686908686908686575ABC' +
'908686908686');
If(FindBitmaptolerancein(bmpStrangeBox, a, b, 560, 215, 730, 455, 20))Or
FindBitmaptolerancein(bmpStrangeBox, a, b, 95, 65, 440, 255, 20)Then
Result:= true;
FreeBitmap(bmpStrangeBox);
End;
function LampPresent : Boolean;
Var
bmpTheLamp, a, b : Integer;
begin
bmpTheLamp := BitmapFromstring(29, 8,
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000939212A7A516000000000000' +
'000000000000000000000000000000000000000000000000000000' +
'000000000000000000000000000000D4D21C000000000000000000' +
'000000000000000000000000000000000000B9B716C0BF19B3B116' +
'A7A5169D9C12939212000000000000000000000000000000000000' +
'000000000000000000000000000000000000D1CF19C0BF19C0BF19' +
'C0BF19C0BF19000000000000000000000000000000BBB916B3B116' +
'B0AE16ACAB169D9C129392128D8B1276750E000000000000000000' +
'000000000000000000000000000000000000000000D1CF19C0BF19' +
'B0AE16B6B416BEBC19C6C519C6C519D1CF19CCCA19C9C719C6C519' +
'C6C519C0BF19BBB916B6B416ACAB16A4A2129A981293921286840E' +
'7A790E6B6A095D5C09A7A516000000000000000000000000000000' +
'000000000000000000000000000000CCCA19CCCA19CECC19C6C519' +
'C3C219C0BF19BEBC19BBB916B9B716B6B416B3B116A9A816A4A212' +
'9D9C12979612908F1282810E9A9812B0AE1689880E000000000000' +
'000000000000000000000000000000000000000000000000D4D21C' +
'CECC19CCCA19C0BF19BEBC19BBB916B6B416B3B116B0AE16A9A816' +
'A4A212A19F129A981289880E86840E8D8B129392129D9C12B9B716' +
'666509000000000000000000000000000000000000000000000000' +
'000000000000000000CCCA19CCCA19BBB916B9B716B6B416B3B116' +
'B0AE16A9A816A4A2129D9C1297961282810E7A790E86840E000000' +
'000000000000C3C219A9A816000000000000000000000000000000' +
'000000000000000000000000000000CCCA19CCCA19C0BF19B9B716' +
'B3B116B0AE16ACAB16A7A516A19F129A98128D8B127A790E76750E' +
'000000000000C3C219B6B416A7A516000000000000');
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;
procedure LoadMasks;
begin
MskAll := CreateBitmapMaskFromText('All', chrUpChars);
MskCancel := CreateBitmapMaskFromText('ncel', chrUpChars);
MskUseQuick := CreateBitmapMaskFromText('quickly', chrUpChars);
MskUsePortal:= CreateBitmapMaskFromText('ortal', chrUpChars);
MskCraft := CreateBitmapMaskFromText('ft-rune', chrUpChars);
end;
procedure Flag;
var
ta, fy: Integer;
begin
wait(4000+random(300))
repeat
Wait(200);
until(not FindBitmapIn(bmpFlag, ta, fy, 570, 0, 725, 165));
end;
function FindFlag:boolean;
var ta, fy: Integer;
begin
Result:=false
wait(1000)
if(FindBitmapIn(bmpFlag, ta, fy, 570, 0, 725, 165)) then
begin
Result:=true;
end;
end;
Function RadialWalk(TheColor:Integer; StartRadial,EndRadial:Integer; Radius:Integer): Boolean;// By Wizzup? and WT-Fakawi. Edited by Mad Cow.
var i: Integer;
var X1,Y1: integer;
begin
Result:=False;
if StartRadial<EndRadial then
begin
repeat
for i:=StartRadial to EndRadial do
begin
X1:=Round ( Radius * Sin (i * Pi / 180)) + 646;
Y1:=Round (- Radius * Cos (i * Pi / 180)) + 84;
if FindColor(X,Y,TheColor,X1,Y1,X1+1,Y1+1) then
begin
MouseIt(x,y,1);wait(100+random(300))
Result:=True;
Flag;
Break;
end
end
Radius:=Radius-4;
until ((Radius<=1) or (Result));
end;
if StartRadial>EndRadial then
begin
repeat
for i:=StartRadial Downto EndRadial do
begin
X1:=Round ( Radius * Sin (i * Pi / 180)) + 646;
Y1:=Round (- Radius * Cos (i * Pi / 180)) + 84;
if FindColor(X,Y,TheColor,X1,Y1,X1+1,Y1+1) then
begin
MouseIt(x,y,1);wait(100+random(300))
Result:=True;
Flag;
Break;
end
end
Radius:=Radius-4;
until ((Radius<=1) or (Result));
end
end;
procedure Say (word:string);
var
k, p: integer;
begin
k:=1;
repeat
p:=random(3)+1;
if(p=1) then
begin
wait(40+random(20));
end;
if(p=2) then
begin
wait(50+random(60));
end;
if(p=3) then
begin
wait(100-random(60));
end;
SendKeys(copy(word,k,1));
k:=k+1;
until k > length(word);
end;
function LoggedOut:boolean;
var c,u:integer;
begin
result:=false;
if(findcolorspiraltolerance(c,u,65535,241,231,337,259,5))then
result:=true;
end;
procedure SSLogIn;
var x,y,c:integer;
begin
Status('Logging in')
c:=0
if(findcolorspiraltolerance(x,y,3879730,349,339,667,372,5)) then
begin
MouseIt(459,291,1);
wait(2000)
Say(User);
wait(200)
SendKeys(chr(13))
wait(400)
Say(Pass);
wait(750+random(250))
MouseIt(303,320,1);
repeat
c:=c+1
wait(400)
if(c=75) then
begin
writeln('Script Messed Up')
logout;
terminatescript;
end;
until(findcolorspiraltolerance(x ,y, 16777215, 397, 294, 623, 380, 5))
if(findcolorspiral2(x ,y, 16777215, 397, 294, 623, 380))
then
begin
MouseIt(x,y,3)
wait(400-random(100)+random(200))
MouseIt(x,y,1)
wait(500)
Wait(5000+random(2000))
end;
end;
end;
procedure ModCheck;
var
x2, y2, abcd : integer;
begin
if (findbitmaptolerancein(StaffCrown,x2,y2,1,345,110,430,50))
or (findbitmaptolerancein(ModCrown,x2,y2,1,345,110,430,50)) then
begin
abcd:=0
TakeScreenShot('Staff Found',1);
Status('Staff or Mod found…');
writeln('Staff/Mod Found so logged out');
Logout;
repeat
Status(inttostr(20-abcd)+' minutes remaining until login…')
abcd:=abcd+1;
wait(60000);
until(abcd>20);
SSLogin;
end;
end;
function FindForester:boolean;//A Stupid3ooo procedure, works only 25% of the time
var
c,bmpFreakyForester,bmpLeaveTheArea,bmpPheasantMeat:integer;
begin
bmpFreakyForester := BitmapFromString(106, 2, 'z78DAA552410AC0' +
'3008FBD23618B8A3C2FEFFA531BA4346D406DA8394D8468DB1ED3' +
'DE11EE67A34F885F7B8FCB47DC4817F59C07B36442A3C41C2EFEB' +
'E0F8CBB63C2BB1EF61D215E3BADAF437C9221BEC455295AA24B57' +
'846A57FE2A9365EB1252FD163E4C0C48DC456EAAC7812676FA75B' +
'F21E5499F00B0E54F6B8C2D96BD8EBD0D7D555AD781E9D382154');
bmpLeaveTheArea := BitmapFromString(89, 2, 'z78DA3330000127474' +
'7270B4708690011717274B534422631C5514490F5229946919944' +
'881343E2D74B65B7417C8DC926DA765C61881C92C4A8C1296EE96' +
'86A610821718910E3779CA18AE46B5CA6511EF294A4075AA70A02' +
'E9019324C29DE4C5387E35C4EB820000EEBEF642');
bmpPheasantMeat := BitmapFromString(14, 7, 'z78DA7D915B8EC6200' +
'885B7A4DC79ACD5EE7F497FA7C74968E6A2093127F0014799221C' +
'2A72F090E7DDBE4EB7C3C428C4A71F88D0B9D17D11A1B8DA65678' +
'CD0E8502A67D34484C45399469C7A31B96AA3519935DFD9A68DEC' +
'91E12FCE3DCA9B13A98BDB5F34E83624C9BDD9B074F76E4B4F5ED' +
'4EC9271EBA72ACD4D331DFFD04826E5EEDED468A17BB0262DE454' +
'0EF49FB4CAC40C9B862A102AB3D090593D79F9838D3021AA2EEB2' +
'CBFCCF970B0FB76E3F1163F654D3AD166C2BDE25292F137B3EEF5' +
'01384D7A16');
if(FindBitmap(bmpFreakyForester,x,y))then
begin
SaveScreenShot('Freaky Forester Random - Air Crafter.bmp');
repeat
if(FindObject('Attack',4344603,20))then
begin
Getmousepos(x,y);
MouseIt(x,y,1);
Flag;
Wait(5000+random(1000));
end;
if(not(FindBitmapSpiralTolerance(bmpPheasantMeat,x,y,554,205,743,465,30)))then
begin
if(FindObject('Take',3763101,25))then
begin
GetMousePos(x,y)
MouseIt(x,y,1);
Flag;
Wait(2000+random(500));
end;
end;
if(FindBitmapSpiralTolerance(bmpPheasantMeat,x,y,554,205,743,465,30))then
begin
MouseIt(x,y,1);
if(FindObject('Use Raw pheasant with Freaky',14869221,20))then
begin
MouseIt(x,y,1);
Flag;
Wait(1000+random(500));
if(FindBitmap(bmpLeaveTheArea,x,y))then
begin
MouseIt(690,83,1);
Flag;
for c:=1 to 10 do
begin
Wait(100+random(10));
if(FindObject('Enter',12514550,20))then
begin
GetMousePos(x,y);
MouseIt(x,y,1);
Wait(10000+random(1000));
if(FindBitmap(bmpFreakyForester,x,y))then
begin
writeln('Chose the wrong pheasant :(');
TerminateScript;
end else
Result:=true;
Break;
end;
end;
end;
end;
end;
until(Result=true)
end;
FreeBitmap(bmpFreakyForester);
FreeBitmap(bmpLeaveTheArea);
FreeBitmap(bmpPheasantMeat);
end;
function FindFrog:boolean;//A Stupid3ooo procedure
var
tx,ty,a,c,cc,CrownColor,i,x1,y1,x2,y2,FrogSpot,Frog:integer;
begin
FrogSpot := DTMFromString('78DA63AC606260B06100030E2006F2184AF36' +
'2C07C4620FE0F048CDD405167881A56A8B8555D3A033F940D565B' +
'0254A349404D12508D037E35000D030BB3');
Frog := BitmapFromString(30, 2, 'z78DA73727274B534B23000012' +
'74747270B47E249645DB84C808A836D4126C91447321317498C9B' +
'5154426CC160633119C355982EC4A51E00B445523B');
if(FindBitmap(Frog,x,y))or(FindDtm(FrogSpot,x,y,570,5,725,160))then
begin
SaveScreenShot('Frog Random - Air Crafter.bmp');
if(FindDtm(FrogSpot,x,y,570,5,725,160))then
begin
MouseIt(x,y,1);
Flag;
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
MouseIt(x,y,3);
if(IsTextAt2(9,9,'Talk',100))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
MouseIt(x,y,1);
Flag;
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
MouseIt(x,y,1);
wait(500+random(500));
end;
MouseIt(256,401,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
MouseIt(x,y,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;
FreeDtm(FrogSpot);
FreeBitmap(Frog);
end;
function FindDoctor:boolean;//Edited version of knightstreak's EyeTest, all credit goes to knightstreak
var
c,i,backgroundcolor : integer;
firstfinger, secondfinger, thirdfinger, fourthfinger : boolean;
begin
if(not(getcolor(650, 185) = 4902398))then
begin
backgroundcolor:=Getcolor(10,10);
repeat
c:=c+1;
Wait(10);
if(not(getcolor(143,94) = backgroundcolor))then
firstfinger:=true;
if(not(getcolor(302,41) = backgroundcolor))then
secondfinger:=true;
if(not(getcolor(409,75) = backgroundcolor))then
thirdfinger:=true;
if(not(getcolor(415,101) = backgroundcolor))then
fourthfinger:=true;
until(c>1000)or(firstfinger)and(secondfinger)and
(thirdfinger)and(fourthfinger)
if(firstfinger = true)and(secondfinger = false)and(thirdfinger = false)and(fourthfinger = false)then
MouseIt(99,299,1);
if(firstfinger=true) and (secondfinger=true) and (thirdfinger=false) and (fourthfinger=false)then
MouseIt(153,300,1);
if(firstfinger=true) and (secondfinger=false) and (thirdfinger=false) and (fourthfinger=true)then
MouseIt(211,304,1);
if(firstfinger=false) and (secondfinger=true) and (thirdfinger=true) and (fourthfinger=false)then
MouseIt(265,300,1);
if(firstfinger=false) and (secondfinger=false) and (thirdfinger=false) and (fourthfinger=true)then
MouseIt(320,306,1);
if(firstfinger=true) and (secondfinger=true) and (thirdfinger=true) and (fourthfinger=false)then
MouseIt(374,298,1);
if(firstfinger=true) and (secondfinger=true) and (thirdfinger=true) and (fourthfinger=true)then
MouseIt(431,299,1);
For i := 0 to 5 do
Begin
if(getcolor(241,445) = 16711680)or(getcolor(241,445) = 16777215)then
begin
Result:=true;
MouseIt(241,445,1);
wait(1500 + random(500));
end;
end;
end;
end;
Function PlayedFor : String;
Var
int1, int2, int3 : Integer;
str1, str2, str3 : String;
Begin
int1:= TimeRunningHour;
int2:= TimeRunningMin;
int3:= TimeRunningSec;
While(int2>59)Do
int2:= int2 - 60;
While(int3>59)Do
int3:= int3 - 60;
If(int1<10)Then
str1:= '0' + inttostr(int1 )
Else
str1:= inttostr(int1);
If(int2<10)Then
str2:= '0' + inttostr(int2)
Else
str2:= inttostr(int2);
If(int3<10)Then
str3:= '0' + inttostr(int3)
Else
str3:= inttostr(int3);
result:= ('Worked For: ' + str1 + ':' + str2 + ':' + str3);
End;
procedure randoms;
begin
checkintro;
findtext;
checkbox;
lookformime;
findmaze;
checklamp;
modcheck;
findforester;
findfrog;
finddoctor;
if(loggedout=true) then begin
SSLogIn;
end;
end;
procedure airamount;
begin
if(UseTiara=true)then
TiaraAirs:=28
if(UseTiara=false)then
TiaraAirs:=27
end;
procedure xpamount;
begin
if(UseTiara=true)then
XP:=140
if(UseTiara=false)then
XP:=135
end;
procedure Report;
var
Canvas: TCanvas;
BackColor : Integer;
begin
BackColor := loadbitmap('BG.bmp');
Canvas:= GetBitmapCanvas(BackColor);
Canvas.Brush.Style:= bsClear;
Canvas.Font.Color := clWhite;
Canvas.TextOut(10, 10, 'Mad Cow'#39's Air Crafter')
Canvas.TextOut(10, 25, '====================')
Canvas.TextOut(10, 40, 'Done '+inttostr(trips)+' trips')
Canvas.TextOut(10, 55, (playedfor))
Canvas.TextOut(10, 70, 'So Far Used '+inttostr(trips*tiaraairs)+' ess')
Canvas.TextOut(10, 85, 'Gained '+inttostr(XP*trips)+' XP so far')
Canvas.TextOut(10, 100,'====================')
DisplayDebugImgWindow(150,130)
SafeCopyCanvas(Canvas, GetDebugCanvas, 0, 0, 150, 130, 0, 0, 150, 130);
ClearReport;
AddtoReport('Mad Cow'#39's Air Crafter')
AddtoReport('=====================')
AddtoReport('Done '+inttostr(trips)+' trips')
AddtoReport((playedfor))
AddtoReport('So Far Used '+inttostr(trips*tiaraairs)+' ess')
AddtoReport('Gained '+inttostr(XP*trips)+' XP so far')
AddtoReport('=====================')
end;
procedure loadBmps;
begin
Status('Loading Bitmaps')
BmpFlag := BitmapFromString(2, 2,'FF00005D3311C656045D3311');
Pic2 := BitmapFromString(17, 5, 'z78DA3375313531313705936E48' +
'C0000C90454C9154E2524FAA382E59EADA420BD3DC8806D4B2C50' +
'003506E1A008D4D79AB');
end;
procedure loadaltarDTMs;
begin
Status('Loading Altar Bitmaps')
ToAltar1 := DTMFromString('78DA632C60626068634001D1A1A10C72409A1' +
'188FF03016317504D18448E0BAAE6F4663DB81A10604C00AAA940' +
'5593533B0F554D12508D2FAA5DC2765039281F0078300C61');
ToAltar2 := DTMFromString('78DA635CC8C4C0A0C6800222DC1819F881342' +
'310FF0702C6394035AA103911A89A850B17C2D580006315508D0C' +
'AA1A613B065435654035CEA86A726AE7A1A80100F38A0BB6');
ToAltar3 := DTMFromString('78DA63EC67626028654001D1A1A10CFC409A1' +
'188FF03016302504D38448E1FAA26A7761E5C0D0830D601D5B4A2' +
'AA9196604055330FA8260F55CD93274F50D400004FE00DAB');
ToAltar4 := DTMFromString('78DA638C656260286240018C498C0CFC201AC' +
'64F04AA2987B045A0628D8D8DA86A22806A2250D5448786A2AA09' +
'07AAB1405593533B0F450D002E0507E2');
ToAltar5 := DTMFromString('78DA63EC616260F06240018C498C0CFC201A8' +
'8FF0301631E508D22448E1FAA26A7761E5C0D584F13508D01AA9A' +
'E8D05054359B816ABCF1AB0100D4070B80');
ToAltar6 := DTMFromString('78DA63DCC8C4C020C9800218931819F841341' +
'0FF0702C60EA01A7E889C08548DB4FB75B81AB09E46A01A195435' +
'D1A1A1A86A2A806A8451D5C45970A2A80100A0280A4F');
end;
procedure loadbankDTMs;
begin
Status('Loading Bitmaps')
ToBank1 := DTMFromString('78DA63EC636260E06340012979320CFC409A1' +
'188FF0301A313508D27444E04AA46D88E01AE060418C3806A0A51' +
'D5448786A2AA590154D34040CD31A01A6F54350CB268767501D5B' +
'8A2AA294A9541559309546380DFCD0047E80F33');
ToBank2 := DTMFromString('78DA63EC63626050634001D1A1A10CFC409A1' +
'188FF0301E37CA01A1B889C08540D6312235C0D985F0E54638AAA' +
'66F9CAF3A86A5A806A8451D5E4D4CE43510300FF960C66');
ToBank3 := DTMFromString('78DA632C646260C86240018C498C0CFC201AC' +
'69F0554930F614B42C5A2434351D52401D598A2AAC9A99D87AAA6' +
'0FA8C619C216818A3D79F204450D004F36097B');
ToBank4 := DTMFromString('78DA639CC6C4C010C88002A4251818F881342' +
'310FF0702C60EA09A28889C08544D7468285C0D0830D602D518A1' +
'AAC9A99D87AA660F508D1EAA1A4B6E06143500CAC20AEA');
ToBank5 := DTMFromString('78DA635CC0C4C0A0C180024E6FD663E007D28' +
'C40FC1F08186723D48840D52C5CB810AE060418DB806AD451D544' +
'8786A2AA2901AAF1405593533B0F554D16508D04AA1A613B06143' +
'500A2F20E8E');
end;
procedure LogOutTalk;
begin
Status ('Talking');
Say ('Brb, Toilet')
SendKeysSilent (chr(13))
end;
procedure EndOfScriptTalk;
begin
Status ('End of script chat')
Say ('Gtg now, cya')
SendKeysSilent (chr(13))
end;
function Talker:string;
var l,b:integer;
begin
if not randtalk then
exit;
Status('Random Talking');
l:=random(100)+1;
case l of
1:result:='runecrafting lvls?';
2:result:='tired?';
3:result:='im bored';
4:result:='madness';
5:result:='sick mate sick';
6:result:='Im bored!';
7:result:='wanna know my password? lol, jk';
8:result:='how cool would it be to do double nats';
9:result:='wow!';
10:result:='wow';
11:result:='serious';
12:result:='zzzzzzzzzzzzz';
13:result:='no way';
14:result:='man i hate skool';
15:result:='i wonder what i can sell these airs for';
16:result:='this is to boring';
17:result:='man im bored';
18:result:='lol rsc is gai';
19:result:='that sucks';
20:result:='true?';
21:result:='its so hard to get lvls in runecrafting';
22:result:='lvls?';
23:result:='levels?';
24:result:='lol';
25:result:='rofl';
26:result:='seriously';
27:result:='true blu';
28:result:='noob';
29:result:='i need go take a dump';
30:result:='man im busting to go to the toilet';
31:result:='im gonna be soo rich after this';
32:result:='whats ya lvl?';
33:result:='look me up on the high scores ppl!';
34:result:='man im tied';
35:result:='eat my slug';
36:result:='im bored';
37:result:='runecraftings boring';
38:result:='dim tired… are you?';
39:result:='who heres a mem… im not';
40:result:='r u a member?';
41:result:='im bored';
42:result:='hahahaha';
43:result:='boring';
44:result:='i got soo many airs in bank';
45:result:='who here plays soccer';
46:result:='how does that work';
47:result:='i rule!';
48:result:='football is madd as!!';
49:result:='i love rock n roll put another dime in the juke box baby!';
50:result:='any one heard the song poisen by alice cooper??… its hell mad';
51:result:='im hungry';
52:result:='mmmmm i feel like a beer';
53:result:='i wanna eat a onion!';
54:result:='i want a tomato sauce :)';
55:result:=':)';
56:result:=':(';
56:result:='XD ';
57:result:=':p ';
58:result:=':[]';
59:result:=':]';
60:result:=':[';
61:result:=':o';
62:result:=':-)';
63:result:='?';
64:result:=':s';
65:result:='diablo II is the bomb';
66:result:='i love paladins on d2';
67:result:='necromancers rock my socks!';
68:result:=' oh no …i think i just followed through';
69:result:='i just poopied my pants';
70:result:='My pass is… j/k muhahhahaha';
72:result:='hey everyone';
73:result:='how ya going eveyone';
74:result:='wazaaaaa!!!!!';
75:result:='i need help with dragon quest ppl';
76:result:='lets sing a song ppl….hhhheeeeeeeeyyyy hey baby…oh arh…';
77:result:='i love south park!';
78:result:='happy tree friends and friends is the bombest show';
79:result:='i feel pretty and witty and gai';
80:result:='i wish you could smith dragon stuff';
81:result:='dragon stuff looks hell mad aye';
82:result:='know any jokes ppl?';
83:result:='runecrafting = boring';
84:result:='rc is boring';
85:result:='I have the hottest girl friend!';
86:result:='You will respect my authority!';
87:result:='i need to do a snapper xD';
88:result:='Please donate to the '+(user)+' organisation… lol';
89:result:='I wanna kick you';
90:result:=(user)+' is soooo good… lol';
91:result:='zzz tired';
92:result:='tinderboxes are the best item is runescape atm aye?';
93:result:='i cant believe how good '+(user)+' is';
94:result:='this is hard yakka';
95:result:='ppl who hate homework say i…. i';
96:result:='simpsons are hell mad cartoons!';
97:result:='Chicken dippers!!!';
98:result:='qwerty qwerty qwerty';
99:result:='poopies smell good :)';
100:result:='Im tired… are you?';
end;
b:=random(10);
if(b=1)then
begin
wait(2000+random(300));
Say(Talker);
wait(500+random(200));
SendKeys(chr(13));
wait(300)
SendKeysSilent(chr(13));
wait(1000)
setchat;
if(b=2)then
begin
Say(randomtalk);
wait(300)
SendKeysSilent(chr(13))
wait(300)
SendKeys(chr(13))
wait(1000)
setchat;
end;
end;
end;
procedure ToAltar;
begin
DoneTimes:=0
setchat;
wait(50)
setrunon;
wait(100)
Status('Moving from bank to altar')
Debug('Going to altar')
randoms;
Compass('N')
Wait(200+random(200))
FindFirstColors;
if(FindColorSpiral(x,y,BankColor,568, 5, 728, 157)) then
begin
RadialWalk(RoadColor,180,260,40);Randoms;
end;
if(not(trips=0) or (not(YewColor=0)) and (trips=0)) then
begin
repeat
RadialWalk(RoadColor,150, 220,40+random(10));Randoms;
until(FindColorSpiral(x,y,YewColor,566, 5,648, 164))
end;
if (trips=0) and (YewColor=0) then
begin
WriteLn('Taking Color finding route…. May be a little shaky')
RadialWalk(RoadColor,150, 220,60);Randoms;
RadialWalk(RoadColor,150, 220,60);Randoms;
FindSecondColors;
end
if(FindColorSpiral(x,y,YewColor,566, 5,648, 164)) then
begin
MouseIt(x+10,y,1);
Flag;
Randoms;
end;
if(FindColorSpiral(x,y,YewColor,565, 6, 686, 161)) then
begin
MouseIt(x-20,y+35,1);
Flag;
Randoms;
end;
if(FindColorSpiral(x,y,YewColor,568, 5, 728, 157)) then
begin
MouseIt(x-44,y+73,1);Wait(200)
if(FindFlag) then
begin
Flag;Wait(1000+random(500))
Randoms;
end
else
begin
MouseIt(x-44,y+70,1)
Flag;Wait(1000+random(500))
Randoms;
end;
end;
end;
function InvCount:integer;
var r,d,ix,iy:integer;
begin
OpenBag;
while(d<8)do
begin
if(r>4)then
begin
r:=0;
d:=d+1;
end;
if(FindColor(ix,iy,65536,569+42*r,213+36*d,569+42*r+31,213+36*d+30))then
result:=result+1;
r:=r+1;
end;
end;
procedure CraftWithTiara;
var TP:integer;
begin
Status('Crafting the air runes')
Debug('Crafting')
TP:=0;
randoms;
MouseC(244, 263,3)
wait(200+random(200))
if(IsTextAt2(9,9,'Walk',100)) then
begin
if(findobject('Enter',5527624,10))then
begin
getmousepos(x,y);
MouseIt(x,y,1)
end;
end;
if(IsTextAt2(9,9,'Enter',100)) then
begin
GetMousePos(x,y)
wait(100+random(50))
MouseC(x,y,1)
end
repeat
wait(250)
until(findobject('Walk',5670294,5))
MouseIt(356+random(10),45+random(10),3)
if(IsTextAt2(9,9,'Walk',100)) then
begin
if(FindObject('Craft',3947587,10)) then
begin
GetMousePos(x,y)
wait(300-random(300))
MouseIt(x,y,2);
Wait(400+random(200))
if(FindBitmapMaskTolerance(MskCraft,x,y,0,0,495,325,0,100)) then
begin
MouseIt(x+random(10),y+5,3);
Wait(100+random(50));
GetMousePos(x,y);
MouseIt(x,y,1);
Wait(400+random(300))
end;
end;
end;
if(IsTextAt2(9,9,'Craft',100)) then
begin
GetMousePos(x,y)
wait(300-random(300))
MouseIt(x,y,2);
Wait(400+random(200))
if(FindBitmapMaskTolerance(MskCraft,x,y,0,0,495,325,0,100)) then
begin
MouseIt(x+random(10),y+5,3);
Wait(100+random(50));
GetMousePos(x,y);
MouseIt(x,y,1);
Wait(400+random(300))
end;
end;
Flag;Wait(Random(2000))
repeat
wait(600+random(200))
until(not(invcount=28))
wait(500)
Talker;
wait(200)
MouseIt(640+random(5), 94+random(5),1);Flag;
If(FindObject('Use P',6128524,7)) then
begin
Wait(500+random(500))
GetMousePos(x,y)
if(Not(IsTextAt2(9,9,'Use P',100))) then
begin
If(FindObject('Use P',6128524,7)) then
begin
Wait(500+random(500))
GetMousePos(x,y)
MouseIt(x,y,2)
MouseIt(x,y,2)
Wait(400+random(200))
if(FindBitmapMaskTolerance(MskUsePortal,x,y,0,0,495,325,0,100)) then
begin
MouseIt(x+random(10),y+5,3);
Wait(100+random(50));
GetMousePos(x,y);
MouseIt(x,y,1);
Wait(400+random(300))
end;
end;
end
else
begin
MouseIt(x,y,2)
Wait(400+random(200))
if(FindBitmapMaskTolerance(MskUsePortal,x,y,0,0,495,325,0,100)) then
begin
MouseIt(x+random(10),y+5,3);
Wait(100+random(50));
GetMousePos(x,y);
MouseIt(x,y,1);
Wait(400+random(300))
end;
end;
end;
wait(500)
Flag;
Wait(500+random(200))
repeat
wait(500)
tp:=tp+1;
until(findcolorspiraltolerance(x, y, 6252632,3, 3,515, 337,15)) or (TP=10)
if(TP=10) then
begin
If(FindObject('Use P',6128524,5)) then
begin
GetMousePos(x,y)
MouseIt(x,y,1)
end;
TP:=11;
end;
end;
procedure CraftWithoutTiara;
begin
Status('Crafting the air runes')
Debug('Crafting')
randoms;
MouseIt(582,227,3)
wait(200)
clickhuman(582,227,true)
if(findobject('Use Air talisman with Mysterious',4079672,5))then
getmousepos(x,y);
MouseIt(x,y,1)
repeat
wait(250)
until(findobject('Walk here',5670294,5))
MouseIt(350,23,1)
mapflagging;flag;
wait(200)
talker;
wait(200)
MouseIt(178,330,3)
wait(300)
MouseIt(178,330,1)
wait(500)
repeat
wait(300)
until(findobject('Walk here',4079672,5))
end;
procedure MouseFindFlag(ax,ay,xmod,ymod:integer);
var
xx,yy:integer;
begin
if(not(FlagPresent))then
begin
xx:=ax;
yy:=ay;
repeat
xx:=xx+xmod;
yy:=yy+ymod;
MouseIt(xx,yy,1);
until(FlagPresent)or(xx<570)or(xx>725)or(yy<5)or(yy>160)
end;
end;
procedure FindBestBooth(Color:integer); //
var
c, ax, ay: Integer;
begin
while c<30 do
begin
c:=c+5;
if(FindColorSpiral(x,y,BankColor,571, 2,727, 159)) then
begin
if(FindColorSpiralTolerance(ax, ay, 195836, x-c, y-c, x+c, y+c, 10))then
begin
x:=ax;
y:=ay;
MouseFindFlag(x, y-3, 0, -2);
repeat
Wait(500+random(100));
until(FindColor(x,y,Color,618,54,678,113))
Flag;
Wait(1000+Random(100));
Break;
end;
end;
end;
end;
procedure ToBank;
begin
SetRunOff;
Randoms;
Status('Moving from altar to bank')
Debug('Moving to Bank')
MouseIt(661+random(10), 25+random(10), 1)Flag;Randoms;
if(FindColorSpiral(x,y,YewColor,571, 2,727, 159)) then
begin
MouseIt(x-10,y+4,1);
Flag;
Randoms;
end;
if(FindColorSpiral(x,y,YewColor,571, 2,727, 159)) then
begin
MouseIt(x+44,y-40,1);
Flag;
Randoms;
end;
repeat
RadialWalk(RoadColor,340,400,47)
until(FindColorSpiral(x,y,BankColor,571, 2,727, 159))
if(FindColorSpiral2(x,y,BankColor,571, 2,727, 159)) then
begin
MouseIt(x+3,y+4,1);
Wait(3000+random(1000));
Flag;
Randoms;
end;
end;
procedure bankcode;
begin
if(getcolor(245, 169) = 65535)then
begin
wait(100)
MouseIt(245, 169, 1)
wait(300)
end else;
end;
Procedure EnterPin;
Var
a, b, c, d, bmp0, bmp1, bmp2, bmp3, bmp4, bmp5, bmp6, bmp7 : Integer;
bmp8, bmp9 : Integer;
Begin
Debug('Entering PIN')
If(BankID=0)Then
Begin
Logout;
writeln('Didnt know the pin');
TerminateScript;
End;
bmp0 := BitmapFromString(7, 10, 'z78DA333040003737733754121' +
'360CA12236280D796E1A4925A61820C00BBB55997');
bmp1 := BitmapFromString(6, 10, 'z78DA333040003737733718890' +
'9906531D560CAE2328718BB86961A5C7E472601BA4A4B34');
bmp2 := BitmapFromString(7, 10, 'z78DA33300001373773376C243' +
'220551C17205E3D312A87A21A03BC618E4902004CF95706');
bmp3 := BitmapFromString(6, 10, 'z78DA33300001373773376CA40' +
'1862C32C0254EB91AFCEEA1AE5DF8D510EF77FCBA0095DD4C0F');
bmp4 := BitmapFromString(7, 10, 'z78DA737333773330700393F88' +
'1DB2053894B2FAD55E22769111A008EE75798');
bmp5 := BitmapFromString(6, 10, 'z78DA73733377333070239AC40' +
'54855438C7AE24D26CF0D94B813531CBF2E00DDB94C0F');
bmp6 := BitmapFromString(4, 5, 'z78DA33304000373773371849BC' +
'08F1E2C824000CEA19ED');
bmp7 := BitmapFromString(6, 10, 'z78DA73733377333070C34BE20' +
'2F8D58C9A800C0036BB4A59');
bmp8 := BitmapFromString(7, 10, 'z78DA333040003737733754121' +
'360CA1223423B13E869CB40F908007961594E');
bmp9 := BitmapFromString(7, 10, 'z78DA3330000137377337DCA40' +
'1861A4C805F2FE52AF1BB811871626C24C64CFAAB0400EB7F5873' +
'');
Repeat
c:= c + 1;
case c of
1 : d:= strtoint(copy(inttostr(BankID), c, 1));
2 : d:= strtoint(copy(inttostr(BankID), c, 1));
3 : d:= strtoint(copy(inttostr(BankID), c, 1));
4 : d:= strtoint(copy(inttostr(BankID), c, 1));
End;
Case d of
0 : FindBitmapTolerancein(bmp0, a, b, 30, 90, 380, 285, 100);
1 : FindBitmapTolerancein(bmp1, a, b, 30, 90, 380, 285, 100);
2 : FindBitmapTolerancein(bmp2, a, b, 30, 90, 380, 285, 100);
3 : FindBitmapTolerancein(bmp3, a, b, 30, 90, 380, 285, 100);
4 : FindBitmapTolerancein(bmp4, a, b, 30, 90, 380, 285, 100);
5 : FindBitmapTolerancein(bmp5, a, b, 30, 90, 380, 285, 100);
6 : FindBitmapTolerancein(bmp6, a, b, 30, 90, 380, 285, 100);
7 : FindBitmapTolerancein(bmp7, a, b, 30, 90, 380, 285, 100);
8 : FindBitmapTolerancein(bmp8, a, b, 30, 90, 380, 285, 100);
9 : FindBitmapTolerancein(bmp9, a, b, 30, 90, 380, 285, 100);
End;
if(a<>2)then
MouseC(a + random(10) - random(10), b + random(10) - random(10), 1)
else
begin
getmousepos(a, b);
MouseC(a, b, 1);
end;
a:= 2;
if(c=1)then
repeat
wait(random(300) + 1000);
until(getcolor(433, 40) = 65535);
if(c=2)then
repeat
wait(random(300) + 1000);
until(getcolor(449, 40) = 65535);
if(c=3)then
repeat
wait(random(300) + 1000);
until(getcolor(465, 40) = 65535);
if(c=4)then
repeat
wait(random(300) + 1000);
until(getcolor(486, 36) <> 65535);
wait(random(300)+500);
until(c=4);
FreeBitmap(bmp0);
FreeBitmap(bmp1);
FreeBitmap(bmp2);
FreeBitmap(bmp3);
FreeBitmap(bmp4);
FreeBitmap(bmp5);
FreeBitmap(bmp6);
FreeBitmap(bmp7);
FreeBitmap(bmp8);
FreeBitmap(bmp9);
end;
procedure DepositStuff;
var
x, y: Integer;
begin
If(LampPresent)Then
Begin
CloseBank;
CheckLamp;
wait(random(200) + 400)
If(LampPresent)Then
Begin
CheckLamp;
wait(random(500) + 2000);
If(LampPresent)Then
Begin
LampSkill := LampSkill;
CheckLamp;
End;
End;
OpenBank;
End;
If(BoxPresent)Then
Begin
CloseBank;
CheckBox;
OpenBank;
End;
while(FindColor(x,y,65536,568,216,731,455))do
begin
MouseIt(x+4,y+10,2);
Wait(600+random(400));
if(FindBitmapMaskTolerance(mskAll,x,y,568,216,731,455,0,100))then
begin
MouseIt(x+10,y+5,1);
Wait(1100+random(300));
end
else
if(FindBitmapMaskTolerance(mskCancel,x,y,568,216,731,455,0,100))then
begin
MouseIt(x+10,y+5,1);
Wait(200+random(50))
end;
end;
end;
procedure FixBank;
var
x, y:Integer;
begin
if(GetColor(475,75)=1777699)then
begin
MouseIt(475,65,3)
GetMousePos(x,y)
HoldMouse(x+random(1),y+random(1),true)
end;
while(GetColor(475,75)=1777699)do
begin
Wait(100);
Wait(300+random(300))
GetMousePos(x,y)
ReleaseMouse(x,y,true)
end;
end;
procedure bankwithtiara;
var mad:integer;
begin
Status('Banking');
Debug('Banking')
randoms;
mad:=0
if(findobject('Use B',6783116,15))then
begin
getmousepos(x,y)
wait(200)
MouseIt(x,y,2)
wait(750)
end;
if(FindBitmapMaskTolerance(mskUseQuick,x,y,0,0,495,325,0,100)) then
begin
MouseIt(x+random(10),y+5,1)
wait(1250)
end
else
begin
BankWithTiara;
end;
repeat
wait(300+random(200))
until(findcolorspiraltolerance(x,y,2070783,125,17,368,64,5)) or (findcolorspiraltolerance(x,y,255,130, 33,270, 51,5))
if(findcolorspiraltolerance(x,y,255,130, 33,270, 51,5)) then
begin
Writeln('Attempting to enter PIN - ****')
MouseIt(456+random(20)-random(20), 89+random(20)-random(20), 3)
EnterPin;
end;
wait(500+random(500))
DepositStuff;
FixBank;
MouseIt(94, 77, 3)
Wait(50+random(50))
GetMousePos(x,y)
MouseIt(x, y, 2)
wait(600+random(200))
if(FindBitmapMaskTolerance(mskAll,x,y,27,60,459,286,0,100))then
begin
wait(400+random(200))
MouseIt(x+10,y+5,1)
wait(1000-random(500))
closebank;
randoms;
end;
end;
procedure bankwithouttiara;
var cow:integer;
begin
Status('Banking');
Debug('Banking')
randoms;
cow:=0;
if(findobject('Use Ba',6783116,15))then
getmousepos(x,y)
wait(200)
MouseIt(x,y,2)
wait(750)
if(findbitmaptolerancein(QuicklyText,x,y,10,10,500,330,100))or
(findbitmaptolerancein(QuicklyText2,x,y,10,10,500,330,100))then
MouseIt(x,y,1)
wait(1250)
repeat
cow:=cow+1
wait(300+random(200))
if(cow>25) then
begin
bankcode;
end;
until(findcolorspiraltolerance(x,y,2070783,125,17,368,64,5))
wait(500+random(500))
MouseIt(626,228,2)
wait(500+random(200))
if(findbitmap(pic2,x,y))then
MouseIt(x,y,1)
wait(1000-random(250))
MouseIt(93,79,2)
wait(300)
if(findbitmap(pic2,x,y))then
MouseIt(x,y,1)
closebank;
randoms;
end;
procedure craft;
begin
if (usetiara=true) then
begin
craftwithtiara;
end
else if (usetiara=false) then
begin
craftwithouttiara;
end;
end;
procedure bank;
begin
if (usetiara=true) then begin
bankwithtiara;
end else
if (usetiara=false) then begin
bankwithouttiara;
end;
end;
procedure BeginWait;
begin
Status('Info');
ClearDebug;
wait(300)
writeln('~~~~~Script by Unforgived ~~~~~')
wait(300)
writeln('~~~~~~~~~~~~v2.84~~~~~~~~~~~')
wait(300)
writeln('')
wait(500)
writeln('This will begin in 3 seconds')
wait(1000)
writeln('This will begin in 2 seconds')
wait(1000)
writeln('This will begin in 1 second ')
wait(1000)
writeln('')
end;
procedure CrafterVersion;
var Ver, Version:string;
begin
Status('Getting Version Info')
Version:='2.84';
Ver:=GetPage('http://google.com);
If(not(Ver=Version))then
Begin
cleardebug;
writeln('Unforgived Air Crafter V'+ver+' is out now.')
writeln('')
writeln('PM/AIM/MSN Unforgived to get the latest version')
writeln('')
writeln('AIM= Unforgived, MSN= [email]Unforgived@MGIV.scriptdump.net[/email]')
writeln('FORUM NAME= "Cat" except sythe which is "A Mad Cat"')
writeln('EMAIL= "ididurmom@gmail.com"')
writeln('')
TerminateScript;
end;
ClearDebug;
Writeln('Using Latest Version V'+ver)
Writeln('')
Writeln('Please send all progress reports over 1 hour')
Writeln('to [email]ididurmom@gmail.com[/email] or post them')
end;
procedure loopy;
begin
toaltar;
craft;
tobank;
bank;
trips:=trips+1
report;
end;
Procedure DisguiseScar(disguise:string);
var application:tapplication;
Self: TForm;
begin
Application:= GetApplication;
Application.Title:= disguise;
Self:= GetSelf;
Self.Caption:= disguise;
end;
procedure buttonclick(sender: TObject);
begin
SaveSetting('Air Crafter', 'Save Usr', usr.text);
SaveSetting('Air Crafter', 'Save Pss', pss.text);
SaveSetting('Air Crafter', 'Save Ess1', ess1.text);
SaveSetting('Air Crafter', 'Save Ess2', ess2.text);
SaveSetting('Air Crafter', 'Save Ess3', ess3.text);
SaveSetting('Air Crafter', 'Save Ess4', ess4.text);
SaveSetting('Air Crafter', 'Save PIN', EdtPIN.text);
frmDesign.Caption:= frmDesign.Caption + '.';
frmDesign.ModalResult:= mrOk;
UseTiara := true;
RandTalk := true;
GoForever:= true;
if (checkbox1.State = cbUnChecked) then
UseTiara:=false;
if (checkbox2.State = cbUnChecked) then
RandTalk:=false;
if (checkbox3.State = cbUnChecked) then
GoForever:=false;
Clicked:=true;
if(UseTiara) then
SaveSetting('Air Crafter', 'Save Tiara', 'True')
if(RandTalk) then
SaveSetting('Air Crafter', 'Save Talk', 'True')
if(GoForever) then
SaveSetting('Air Crafter', 'Save Forever', 'True')
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafePaint;
var
Canvas: TCanvas;
begin
Canvas:= GetBitmapCanvas(formpic);
SafeCopyCanvas(Canvas, frmdesign.canvas, 0, 0, 425, 288, 0, 0, 425, 288);
end;
procedure PaintForm(Sender:TObject);
begin
SafePaint;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure InitForm;
begin
Application:= GetApplication;
Self:= GetSelf;
frmDesign := TForm.Create(nil);
frmDesign.Left := 250;
frmDesign.Top := 107;
frmDesign.Width := 423;
frmDesign.Height := 288;
frmDesign.BorderStyle := bsToolWindow;
frmDesign.OnPaint:= @PaintForm;
frmDesign.Caption := 'Unforgived Air Crafter';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clBlack;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 36;
Label1.Top := 37;
Label1.Width := 48;
Label1.Height := 13;
Label1.Caption := 'Username';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 36;
Label2.Top := 65;
Label2.Width := 46;
Label2.Height := 13;
Label2.Caption := 'Password';
Label3 := TLabel.Create(frmDesign);
Label3.Parent := frmDesign;
Label3.Left := 197;
Label3.Top := 36;
Label3.Width := 39;
Label3.Height := 13;
Label3.Caption := 'First Ess';
Label4 := TLabel.Create(frmDesign);
Label4.Parent := frmDesign;
Label4.Left := 196;
Label4.Top := 64;
Label4.Width := 57;
Label4.Height := 13;
Label4.Caption := 'Second Ess';
Label5 := TLabel.Create(frmDesign);
Label5.Parent := frmDesign;
Label5.Left := 196;
Label5.Top := 91;
Label5.Width := 44;
Label5.Height := 13;
Label5.Caption := 'Third Ess';
Label6 := TLabel.Create(frmDesign);
Label6.Parent := frmDesign;
Label6.Left := 197;
Label6.Top := 119;
Label6.Width := 44;
Label6.Height := 13;
Label6.Caption := 'Fourth Ess';
Label7 := TLabel.Create(frmDesign);
Label7.Parent := frmDesign;
Label7.Left := 172;
Label7.Top := 152;
Label7.Width := 51;
Label7.Height := 13;
Label7.Caption := 'Lamp Skill:';
Button1 := TButton.Create(frmDesign);
Button1.Parent := frmDesign;
Button1.OnClick:= @buttonclick;
Button1.Left := 146;
Button1.Top := 194;
Button1.Width := 106;
Button1.Height := 44;
Button1.Caption := 'Start';
Button1.Font.Color := clWindowText;
Button1.Font.Height := -32;
Button1.Font.Name := 'Comic Sans MS';
Button1.Font.Style := [];
Button1.ParentFont := False;
Button1.TabOrder := 0;
Usr := TEdit.Create(frmDesign);
Usr.Parent := frmDesign;
Usr.Left := 94;
Usr.Top := 33;
Usr.Width := 96;
Usr.Height := 21;
Usr.Text := LoadSetting('Air Crafter', 'Save Usr')
Usr.TabOrder := 9;
Pss := TEdit.Create(frmDesign);
Pss.Parent := frmDesign;
Pss.Left := 94;
Pss.Top := 60;
Pss.Width := 96;
Pss.Height := 21;
Pss.Text := LoadSetting('Air Crafter', 'Save Pss')
Pss.TabOrder := 11;
Pss.PasswordChar:= '*';
CheckBox1 := TCheckBox.Create(frmDesign);
CheckBox1.Parent := frmDesign;
CheckBox1.Left := 41;
CheckBox1.Top := 92;
CheckBox1.Width := 97;
CheckBox1.Height := 17;
CheckBox1.Caption := 'Use Tiara?';
CheckBox1.TabOrder := 12;
CheckBox1.State :=cbUnChecked;
if ((LoadSetting('Air Crafter', 'Save Tiara'))='True') then
CheckBox1.State :=cbChecked;
CheckBox2 := TCheckBox.Create(frmDesign);
CheckBox2.Parent := frmDesign;
CheckBox2.Left := 41;
CheckBox2.Top := 118;
CheckBox2.Width := 97;
CheckBox2.Height := 16;
CheckBox2.Caption := 'Random Talk?';
CheckBox2.State :=cbUnChecked;
if ((LoadSetting('Air Crafter', 'Save Talk'))='True') then
CheckBox2.State :=cbChecked;
CheckBox3 := TCheckBox.Create(frmDesign);
CheckBox3.Parent := frmDesign;
CheckBox3.Left := 41;
CheckBox3.Top := 142;
CheckBox3.Width := 97;
CheckBox3.Height := 17;
CheckBox3.Caption := 'Go Forever?';
CheckBox3.TabOrder := 19;
CheckBox3.State :=cbUnChecked;
if ((LoadSetting('Air Crafter', 'Save Forever'))='True') then
CheckBox3.State :=cbChecked;
Ess1 := TEdit.Create(frmDesign);
Ess1.Parent := frmDesign;
Ess1.Left := 258;
Ess1.Top := 32;
Ess1.Width := 121;
Ess1.Height := 21;
Ess1.TabOrder := 14;
Ess1.Text := LoadSetting('Air Crafter', 'Save Ess1')
Ess2 := TEdit.Create(frmDesign);
Ess2.Parent := frmDesign;
Ess2.Left := 258;
Ess2.Top := 59;
Ess2.Width := 121;
Ess2.Height := 21;
Ess2.TabOrder := 15;
Ess2.Text := LoadSetting('Air Crafter', 'Save Ess2')
Ess3 := TEdit.Create(frmDesign);
Ess3.Parent := frmDesign;
Ess3.Left := 258;
Ess3.Top := 88;
Ess3.Width := 121;
Ess3.Height := 21;
Ess3.TabOrder := 16;
Ess3.Text := LoadSetting('Air Crafter', 'Save Ess3')
Ess4 := TEdit.Create(frmDesign);
Ess4.Parent := frmDesign;
Ess4.Left := 258;
Ess4.Top := 114;
Ess4.Width := 121;
Ess4.Height := 21;
Ess4.TabOrder := 17;
Ess4.Text := LoadSetting('Air Crafter', 'Save Ess3')
Lamp := TComboBox.Create(frmDesign);
Lamp.Parent := frmDesign;
Lamp.Left := 235;
Lamp.Top := 147;
Lamp.Width := 145;
Lamp.Height := 21;
Lamp.ItemHeight := 13;
Lamp.TabOrder := 18;
Lamp.DropDownCount:= 18;
Lamp.Items.Add('Attack');
Lamp.Items.Add('Strength');
Lamp.Items.Add('Ranged');
Lamp.Items.Add('Magic');
Lamp.Items.Add('Defence');
Lamp.Items.Add('Hitpoints');
Lamp.Items.Add('Prayer');
Lamp.Items.Add('Agility');
Lamp.Items.Add('Herblore');
Lamp.Items.Add('Theiving');
Lamp.Items.Add('Crafting');
Lamp.Items.Add('Runecrafting');
Lamp.Items.Add('Mining');
Lamp.Items.Add('Smithing');
Lamp.Items.Add('Fishing');
Lamp.Items.Add('Cooking');
Lamp.Items.Add('Firemaking');
Lamp.Items.Add('Woodcutting');
Lamp.Items.Add('Slayer');
Lamp.Items.Add('Farming');
Lamp.itemindex:= 0;
Lamp.Parent := Frmdesign;
EdtPIN := TEdit.Create(frmDesign);
EdtPIN.Parent := frmDesign;
EdtPIN.Left := 79;
EdtPIN.Top := 197;
EdtPIN.Width := 41;
EdtPIN.Height := 21;
EdtPIN.Text := LoadSetting('Air Crafter', 'Save PIN')
EdtPIN.TabOrder := 20;
EdtPIN.PasswordChar:= '*';
LabelBankPin := TLabel.Create(frmDesign);
LabelBankPin.Parent := frmDesign;
LabelBankPin.Left := 20;
LabelBankPin.Top := 200;
LabelBankPin.Width := 52;
LabelBankPin.Height := 13;
LabelBankPin.Caption := 'Bank PIN?';
end;
procedure DoYouHaveEss;
begin
Status('Checking For Ess')
Debug('Getting Ess')
SayIt:=0;
OpenBag;
if(getcolor(710,444)=4345174)then
begin
Writeln('Getting Ess')
Bank;
end;
end;
begin
SetupSquig;
repeat
abc:=abc+1
cleardebug;
until(abc>20)
DoneTimes:=0
CrafterVersion;
chrUpChars := LoadChars2(AppPath + 'Charsrs22\');
BankColor:=BankC;
YewColor:=YewC;
RoadColor:=RoadC;
Clicked:=false;
Status('Loading… Please wait a moment')
FormPic := loadbitmap('airform.bmp')
Status('Setup')
abc:=0
DisguiseSCAR('Control Panel')
SafeInitForm;
SafeShowFormModal;
FreeForm(frmDesign)
FreeBitmap(FormPic)
if (not(clicked)) then terminatescript;
if (EdtPIN.text= '') then
EdtPIN.text:= '0';
FirstEss:=strtoint(Ess1.text);
SecondEss:=strtoint(Ess2.text);
ThirdEss:=strtoint(Ess3.text);
FourthEss:=strtoint(Ess4.text);
LampSkill:=lamp.text;
User:=usr.text
Pass:=pss.text
checkmods:=true;
checkplant:=false;
checkmime:=true;
checkmaze:=true;
checktext:=true;
checkfights:=false;
checkboxes:=true;
checklamps:=true;
loadbankDTMs;
loadaltarDTMs;
loadbmps;
loadmasks;
BankID:=strtoint(EdtPIN.text)
BeginWait;
GetApplication.Minimize
ChangeReportWidth(205)
//Report;
if(loggedout=true) then
begin
SSLogin;
end;
SetQuality(4);
OpenBag;
airamount;
XPamount;
FirstWait:=0;
SecondWait:=0;
ThirdWait:=0;
FourthWait:=0;
DoYouHaveEss;
repeat
Loopy;
until(FirstEss<=trips*tiaraairs)
writeln('First Ess Amount Completed successfully!')
LogOutTalk;
wait(1000)
Logout;
Firstwait:=50000+random(10000)
Status('Sleeping')
wait(firstwait)
SSLogIn;
repeat
Loopy;
until(SecondEss<=Trips*tiaraairs-FirstEss)
writeln('Second Ess Amount Completed successfully!')
LogOutTalk;
wait(1000)
logout;
secondwait:=100000-random(10000)
Status('Sleeping')
wait(secondwait)
SSLogIn;
repeat
Loopy;
until(ThirdEss<=Trips*tiaraairs-FirstEss-SecondEss)
writeln('Third Ess Amount Completed successfully!')
LogOutTalk;
wait(1000)
logout;
thirdwait:=200000+random(20000)
Status('Sleeping')
wait(thirdwait)
SSLogIn;
repeat
Loopy;
until(FourthEss<=Trips*tiaraairs-FirstEss-SecondEss-ThirdEss)
writeln('Forth Ess Amount Completed successfully!')
EndOfScriptTalk;
wait(1000)
logout;
fourthwait:=300000+random(10000)+random(10000)
Status('Sleeping')
wait(fourthwait)
if(GoForever=True)then
begin
SSLogIn;
repeat
Loopy;
until(false)
end;
if(GoForever=False)then
begin
writeln('Script successfully completed')
writeln('~~~~~Yay, You didnt die~~~~~')
end;
end.
——————————————————
<!– END TEMPLATE: formanswers –>