Tignes
2007-09-05 19:05:00
<!– BEGIN TEMPLATE: formanswers –>
Tignes - SRL Member Application Form
Tignes
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
Wt-fakawi, wizzup,
Programming Knowledge
None
Other Communitys
Sythe, Fagex
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Attention Wt-fakawi, yohojo, wizzup please auto accept.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
Tignes - SRL Member Application Form
Tignes
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
Wt-fakawi, wizzup,
Programming Knowledge
None
Other Communitys
Sythe, Fagex
How Long have You Played Runescape
2 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Attention Wt-fakawi, yohojo, wizzup please auto accept.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{
//////////////////////////////////////////////////////////////////////////
/***//////***/////****/////******///////*****////****///**//////**//////**
/****////****////**//**////**///**/////**///////**//**///**////****////**/
/**/**//**/**///********///**////**///**///////**////**///**//**//**//**//
/**//****//**//**//////**//**///**/////**//////**////**////****////****///
/**///**///**/**////////**/******///////*****////*****//////**//////**////
//////////////////////////////////////////////////////////////////////////
}
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
{ Mad Cow Presents
Falador Air Crafter
Now for RS or SS
Version 2.84
By: Mad Cow }
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
{ 1.0 -Started creating
1.1 -Added Randoms+Fixed Bugs
1.2 -Added Ess amounts
1.3 -Fixed up major randoms
1.4 -Fixed up username and password
1.5 -BETA testing
1.6 -Fixed some bugs, made it tiara only
1.7 -Testing again
1.8 -Fixing up cords for bank to altar
1.9 -Changed it all to DTMS
2.0 -Changed from si to squig
2.1 -Made it air talisman compatiable
2.2 -Forms!!
2.21-Miner Bugs Fixed
2.21-Hosting for updates, bank bug fixed
2.3 -Added Bank PIN feature
2.4 -New form pic... looks better
2.5 -Converted to RS
2.6 -Auto-FindColor Procedure!!!
2.61-Minor Updates fixed
2.62-Major walking updates fixed
2.7 -Better crafting procedure and walking procedures
2.71-Minor banking bugs fixed... Added text report
2.72-Major flaws all fixed... Crafting procedure updated
2.8 -Major bugs all fixed due to noob harrassment lol
2.81-Minor banking bugs fixed
2.82-Major bugs fixed... I recommend using Scarscape
2.83-Login bug fixed
2.84-Banking and ToBank procedures fixed }
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
{ Credits go to........
Squigglyo:For creating squig
Zonfire:For the randomtalking procedure that I like
better than squigs one.
Zestyroper:For the mad as template I used(from his nat crafter)
Stupid3000 and KnightStreak:New Randoms!!
XxkanexX:For helping me find problems with my script
Yohojo for taking it in the ass from the srl devs and admins we all know its gotta hurt (but hes gay so I dont think he minds)
Ram rune for sucking all their dicks even though he likes it.
And to all the other srl members who think its cool to act like a bunch of nerdy srl devs and mods and admins!
Srl FTL! }
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
{ 1.Scarscape only!!!
2.Weild an air tiara or start with air talisman in first
inventory slot followed by the ess!!
3.Start in fally east bank inside!!
4.Start with inventory full of ess!!
5.Start with ess in the first bank slot!!
6.SCAR 2.03 or higher
7.Low Detail
8.Press Play }
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
const
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\\
//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); // A Stupid3ooo Procedure edited by Mad Cow
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 Mad Cow ~~~~~')
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://madcow.freeserverhost.com/crafterver.txt');
If(not(Ver=Version))then
Begin
cleardebug;
writeln('Mad Cows Air Crafter V'+ver+' is out now.')
writeln('')
writeln('PM/AIM/MSN Mad Cow to get the latest version')
writeln('')
writeln('AIM= Mad Cow Maniac 1, MSN= [EMAIL="madcow@mcow.scriptdump.net"]madcow@mcow.scriptdump.net[/EMAIL]')
writeln('FORUM NAME= "Mad Cow" except sythe which is "A Mad Cow"')
writeln('EMAIL= "mad.cow.maniac@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="Mad.Cow.Maniac@gmail.com"]Mad.Cow.Maniac@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 := 'Mad Cows 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 –>