{ 
Setup 
1. Have Fish etc in first bank slot 
2. Drag CrossHair over screen 
4. HIT PLAY! 
5. Send any bugs to my email which is  
chop_style@hotmail.com 
} 

program Edgeville_Cooker; 
var RawFish,Fishies,lvl,Burnt,Drop,DropY:integer; 
cst,srt,sst,THour,TMin,TSec:integer; 
CookerPicture:integer; 
  FishType,HowMany,Fishy:String; 
  cForm, Self : TForm; 
  LblHowMany,TitleLabel : TLabel; 
  ComboCook : TComboBox; 
  ButtonCook : TButton; 
  TxtHowMany : TEdit; 
  Application : TApplication; 


{.include sslibrary.txt} 
{.include boxbreaker.txt} 
{.include par.txt} 

Const 
(*----Setup----*) 

LampSkill='cooking'; 
CookWait=2500;            //how long to wait while it cooks 1 fish 

(*----Setup----*) 


//No Touchy These 1's! 
BankSymbol=3060683; 
BankBooth=605006; 
WaterSymbol=12657153; 
PotSymbol=1331103; 
StoveColor=1649868; 

procedure AddPicture1; 
var 
 Canvas: TCanvas; 
begin 
 Canvas:= GetBitmapCanvas(CookerPicture); 
 CopyCanvas(Canvas, cForm.canvas, 0, 0, 84, 32, -8, 0, 250, 75); 
 Canvas:= GetBitmapCanvas(CookerPicture); 
 CopyCanvas(Canvas, cForm.canvas, 0, 0, 84, 32, -8, 0, 250, 75); 
end; 

procedure FormPaint(Sender: TObject); 
begin 
AddPicture1; 
end; 

procedure ButtonClick(Sender: TObject); 
begin 
FishType:= ComboCook.TEXT; 
HowMany:= TxtHowMany.TEXT; 
end; 

procedure PrintProgress;  //again by the marvelous hatlesscow :P 
begin 
     ChangeReportWidth(375); 
     ClearReport; 
     cst:=getsystemTime; 
     srt:=(cst-sst)/1000; 
     tHour:=srt/3600; 
     tMin:=(srt/60)-tHour*60; 
     tSec:=srt-tMin*60-tHour*3600; 
     Addtoreport('/\/\/\/\Progress Report/\/\/\/\'); 
     AddToReport('Cooked For '+inttostr(tHour)+' Hours '+inttostr(TMin)+' Minutes '+inttostr(TSec)+' Seconds.'); 
     Addtoreport('Successfully Cooked '+inttostr((fishies)-(burnt))+' '+(Fishy)+'.'); 
     if((burnt)=0)then AddToReport('You Havnet Burnt Any Fish! MONSTER!'); 
     if((burnt)>0)then AddtoReport('You Have Burnt '+inttostr(burnt)+' '+(Fishy)+'.'); 
     if(lvl>0)then Addtoreport('Gone Up '+inttostr(lvl)+' Cooking Level[s].'); 
     Addtoreport(''); 
     Addtoreport('/\/\/\/\/\/\By Chop/\/\/\/\/\/\'); 
end; 

Procedure WildyCheck; 
begin 
if(GetColor(466,61)=8421504)or(GetColor(466,61)=16777215)then 
  Mouse(435,60,10,3,true); 
end; 

function CheckLeveled:boolean;  //by the marvelous hatlesscow!!! :P 
begin 
 if(FindColor(x,y,16711680,114,358,494,454))or 
 (FindColor(x,y,16777215,114,358,494,454))then 
  begin 
   result:=true; 
   Mouse(x,y,0,0,true); 
   wait(500); 
   if(FindColor(x,y,16711680,114,358,494,454))or 
   (FindColor(x,y,16777215,114,358,494,454))then 
   begin 
    Mouse(x,y,0,0,true); 
    wait(300); 
   end; 
   lvl:=lvl+1; 
  end; 
end; 

procedure Randoms; 
begin 
WildyCheck; 
CheckLeveled; 
Check4Randoms; 
GameTab(4); 
FindBox; 
Check4Lamp(LampSkill); 
end; 

procedure ToWater; 
var waterx,watery:integer; 
begin 
Randoms; 
if(FindColorSpiral(waterx,watery,WaterSymbol,566,6,721,158))then 
Mouse(waterx+10,watery,5,5,true); 
Wait(500); 
Flag; 
Randoms; 
end; 

procedure ToPot; 
var potx,poty:integer; 
begin 
Randoms; 
if(FindColorSpiral(potx,poty,PotSymbol,566,6,721,158))then 
Mouse(potx+20,poty,10,1,true); 
Wait(500); 
Flag; 
Wait(500); 
Randoms; 
end; 

procedure ToBank; 
var bankx,banky:integer; 
begin 
Randoms; 
if(FindColorSpiral(bankx,banky,BankSymbol,566,6,721,158))then 
Mouse(bankx+5,banky+5,10,10,true); 
Wait(500); 
Flag; 
Randoms; 
end; 

procedure WithdrawDeposit; 
begin 
OpenBank; 
Deposit(0,0,0); 
if((Fishies+burnt)>=strtoint(HowMany))then 
begin 
Mouse(457,40,0,0,true); 
Logout; 
Writeln('You have finished Cooking!'); 
repeat 
Wait(100); 
until(false); 
end else 
Withdraw(1,1,0); 
Wait(3000); 
Mouse(457,40,0,0,true); 
Wait(100); 
end; 

procedure ClimbLadder; 
begin 
Randoms; 
If(FindObj('Climb',4616328,10))then 
Mouse(x,y,1,1,true); 
Wait(200+random(1000)); 
Flag; 
repeat 
Wait(4000); 
Randoms; 
until(FindColorSpiral(x,y,StoveColor,4,4,515,336))or(FindColorSpiral(x,y,WaterSymbol,566,6,721,158)); 
end; 

procedure DropBurnt; 
var burntx,burnty:integer; 
begin 
if(FindColorSpiralTolerance(burntx,burnty,4802894,559,210,736,460,0))then 
begin 
repeat 
if(FindColorSpiralTolerance(burntx,burnty,4802894,559,210,736,460,0))then 
wait(100); 
MMouse(burntx,burnty,1,1); 
GetMousePos(burntx,burnty); 
Wait(50); 
if(IsTextAt2(9,9,'Use Bur',100))then 
Mouse(burntx,burnty,1,1,false); 
Wait(100); 
if(FindBitmap(Drop,x,y))or(FindBitmap(DropY,x,y))then 
Mouse(x,y,0,0,true); 
Wait(700+random(300)); 
Burnt:=Burnt+1; 
until(not(FindColorSpiralTolerance(burntx,burnty,4802894,559,210,736,460,0))); 
end; 
end; 


procedure CookFish; 
var rawx,rawy,stovex,stovey:integer; 
begin 
Mouse(261,303,1,1,true); 
Flag; 
Wait(1000+random(1000)); 
While(FindBitmapToleranceIn(RawFish,rawx,rawy,560,210,730,465,30))and 
     (FindColorSpiral(stovex,stovey,StoveColor,4,4,515,337))do 
begin 
repeat 
if(FindBitmapToleranceIn(RawFish,rawx,rawy,560,210,730,465,30))and 
     (FindColorSpiral(stovex,stovey,StoveColor,4,4,515,337))then 
Randoms; 
Mouse(rawx,rawy,5,5,true); 
Mouse(stovex,stovey,1,1,true); 
Flag; 
wait(cookwait+random(500)); 
Fishies:=Fishies+1; 
randoms; 
until(not(FindBitmapToleranceIn(RawFish,rawx,rawy,560,210,730,465,30))); 
end; 
end; 


procedure LoadFishBmps; 
begin 
case FishType of 
'Lobster':begin RawFish := BitmapFromString(8, 4, 
       '000001874D23804921834C21874D238D5123975725000001000001' + 
       '874D23804921874D23905325995928A35E2A000001000001874D23' + 
       '834C218D5123000001000001000001000000000000000001000001' + 
       '000001000000000000000000000000');Fishy:='Lobsters'; end;//Lobster 
'Trout':begin RawFish := BitmapFromString(4, 4, 
       '000001B9AEADBFB6B6C6BEBE000001C4BBBACBC4C4D4CECE000001' + 
       'CDC6C5D6D0D0DAD4D4000000000001000001000001');Fishy:='Trouts'; end;//Trout 
'Salmon':begin RawFish := BitmapFromString(4, 4, 
       '000001A98B86AE908AB59691000001B2938DBB9A95C1A49E000001' + 
       'BC9C97C2A5A1C4A9A5000000000001000001000001');Fishy:='Salmons';end;//Salmon 
'Shrimp':begin RawFish := BitmapFromString(5, 2, 
       '564D42000001CAB7ADA67A5F000001000001DACEC7CFBEB6000001' + 
       '302020');Fishy:='Shrimps';end;//Shrimp 
'SwordFish':begin RawFish := BitmapFromString(5, 6, 
       '000001D3B3D9C395CCAE7BB79C7FA1000001D6C7DACFBDD3C9B4CD' + 
       '000001000001CCB7CFC4ACC9000001302020000001C0A6C5BB9FC0' + 
       '000001302020000001B495BA000001302020302020000001C9B4CD' + 
       '000001302020564D42')Fishy:='Swordfishs';;end;//Sowrdfish 
'Herring':begin RawFish := BitmapFromString(4, 5, 
       '564D42000001B7ADAC5F5858000001C2BAB9C9C2C1CFC9C9000001' + 
       'CDC6C5D8D2D1DBD6D6000001D9D3D3DCD8D8E0DCDC000001FBFAFA' + 
       'F5F3F3F0EEEE');Fishy:='Herrings'; end;//Herring 
'Tuna':begin RawFish := BitmapFromString(6, 6, 
       '001C00001C00001C00001C00001C00C2BAB9001C00CDC6C5001C00' + 
       '001C00CAC3C2C7C0C0001C00D2CCCC001C00001C00CFC9C9CFC7C7' + 
       'D9D3D3D9D3D3D8D2D1D6D1D0D5CFCFD3CDCDDFDADADED9D9DCD8D8' + 
       'DBD6D6DED9D9DCD8D8E8E4E4EAE7E7E9E6E6000001000001000001' + 
       '');Fishy:='Tunas'; end;//Tuna 
'Sardine':begin RawFish := BitmapFromString(4, 5, 
       '0000010000013D6F3F509052345B34478049599E5A5DA55E529253' + 
       '62AF6367B7686ABE6C6ABE6C6EC46F71CA737DD37F8AAE8A8AAE8A' + 
       '8AAE8A83D484');Fishy:='Sardines'; end;//Sardine 
'Pike':begin RawFish := BitmapFromString(6, 5, 
       '000001617B626782676E8B6E7493750000016079606580666A876B' + 
       '718F71769576000001475A474E624E546A545A715A87AB877E9F7E' + 
       '506650546A545A715A60796091B79284A785586F585B745D617B62' + 
       '9FC09F93BA93000001');Fishy:='Pikes';end;//Pike 
'Anchovies':begin RawFish := BitmapFromString(5, 4, 
       '707079797A8483838D78788200000185858F8989951410106C6C75' + 
       '00000100000190909C4E4E545B5B6358585F00000187879162626A' + 
       '55555B000001');Fishy:='Anchovies'; end;//Anchovies 
'Cod':begin RawFish := BitmapFromString(6, 7, 
       '6F6F8C70718E7374927777967A7A9A7F7FA07777967A7A9A7C7C9C' + 
       '7F7FA08081A28484A57F7FA08283A48586A88888AC8B8BAF8E8FB3' + 
       '8586A87E7E887E7E887E7E887E7E880000018888AC7E7E887E7E88' + 
       '7E7E887E7E880000018B8BAF7E7E887E7E887E7E887E7E887E7E88' + 
       '0000010000010000010000017E7E887E7E88');Fishy:='Cods';end;//Cod 
'Shark':begin RawFish := BitmapFromString(6, 4, 
       '887F7E8379797A71718A81807A71710000018C8282877D7C9B9090' + 
       '8C82827C7373000001AA9E9EACA0A09C91918E84847E7575000001' + 
       '000001A49897978D8C8A81807C7373000001');Fishy:='Sharks';end; //Shark 
'Mackerel':begin RawFish := BitmapFromString(6, 4, 
       '00000184834A89884E8E8D509392539897559291739A9A7AA2A180' + 
       'A6A55EABA960B0AE639E9D7DA5A584605959B4B490BBBA96C0BF9D' + 
       'A9A987605959BABA94C0BF9DC4C4A5CDCC73');Fishy:='Mackerels';end; //Mackerel 
'Bass':begin RawFish := BitmapFromString(5, 5, 
       '001D00001D00CB8172C98071C77E70001D00001D00D18576CF8474' + 
       'CD8373D48F81D48F81D38C7ED38C7ED38A7BD69689D69689D7978C' + 
       'D69689D59387DBA59B000001000001000001000001');Fishy:='Bass';end; //Bass 
end; 
begin 
Drop := BitmapFromString(30, 3, 'z78DA337531353131774302066' + 
       '0604AB438B22C7EBD10802C0E51492DF5A48A23CB52CB4CFA88D3' + 
       'C7CD001DF77FA5'); 
DropY := BitmapFromString(18, 4, 'z78DA33753135313177030203' + 
       '03080901A618E2C824441699244F257EBB90012EBD1080CB4662E' + 
       'CC2B48554BDE48993671700AA3C60E7'); 
end; 
end; 

procedure Script; 
begin 
WithDrawDeposit; 
ToBank; 
ToWater; 
ToPot; 
ClimbLadder; 
CookFish; 
DropBurnt; 
ClimbLadder; 
ToWater; 
ToBank; 
PrintProgress; 
end; 

begin 
LoadLibrary('Internet Explorer'); 
CookerPicture := BitmapFromString(35, 32, 'z78DAD598EB7' + 
       '2E3200C855F096C40E62760F2FE8FB4548774E4919D751ADCF5B6' + 
       '33A79DE6527D483A12C929797A64684C33D51D75C950FE48E7582' + 
       '9FE929E210AC952D9D1A15CE6EBCB1EE9FF45849897C9055393F3' + 
       '8B9DE2EA7D53F2B6A971AB9DDEE0BA438E4C5C6941CC949C35154' + 
       '4B906B2318730D9908DAF369CE2BA1BD13457D362B7939DD640B3' + 
       '2DABA3A9A9256363A9E161E35FAAF10AA2777B5910A5E2D7C6C34' + 
       '4B5D0C33E6AA2DA74A1D2D453B6A5CE949A1A5A6CD9E1BA255129' + 
       '61B5115CAF1D633653FB86DE8708B121FE1242B6718DE45A16382' + 
       'F3A72ADF7C911A2850FF4DEA944C72CC8E68EFE8E339C6049E453' + 
       'F33176B33287B8ADB4532C5A0711F50E3D3D7D10393C192E0D1F4' + 
       '38E24D11B2C1F13C90ED55D7CC492E7609E6E9673704F1F583385' + 
       '2DCBEF10C998313B30EB11614CFE5BB52FF9759E4C04112A4DBBC' + 
       '147D9394DA429A83AD758622BAF1A67F778EE2DBD8A6298BF95B3' + 
       '40C199F62A56495462288D85A7E7807A3B417486A27737B3E0B47' + 
       'B15F1ACEFB9E3DD4CB280B713717674D58D253AC5127D6EB1214E' + 
       '7404FB5577609EEFE0C5FEB921C2F3059176EC5144B2D3A526EBD' + 
       'B4FCCF45E33362C4FBF6DD9F8F25ED64D95F2697422911D10B5C5' + 
       '2DB430787FDBB9410C25422E3A05728178E0B4B2FEF984250B4EB' + 
       '8BF0FDF08E4F3C182F7D1E726F5875C0744BD3B502782A22B3A05' + 
       '44E284A5EBE22FC8A3EC7D6C9E3283BD9E991DD94425FCB0020F8' + 
       '87AE7723C1B0AEEF73E0DF9F7A38D7143C4D492E5B5C3E0242F21' + 
       '122CB2C2BB03F0C96FFEAF9CA49C59DD1D985F3D23B2AA956F8C2' + 
       '542CCF286A56BE9A8D2248B7E545797760CFDFEA3DC7BA7A2C4E6' + 
       'B0C3A2CE563E8A5CF48CC8592CBCA29F24CFB5B144D00D8BDAAEF' + 
       '5DDE4754FF5C8A58202DD0A1655E797ECDE6FDE178E4851C3387F' + 
       '39915FBBF71D880EB76E549ACC8EDA9AF4BE7A4FA24DA65057722' + 
       'E6016C0E17977BAFC7E740591F052ECA898568FB0F80FB7BB7F45' + 
       '843BD1C14677F98D6FE8E7F3AFE3FF88451341AFFE744EF8E180F' + 
       '86F43243F7B1CAB7F001E3DD847'); 
Application := GetApplication; 
Self := GetSelf; 

cForm := TForm.Create(nil); 
cForm.Left := 313; 
cForm.Top := 229; 
cForm.BorderStyle := bsSingle; 
cForm.Caption := 'Ub3r CoOkEr -EdgeVille'; 
cForm.ClientHeight := 160; 
cForm.ClientWidth := 370; 
cForm.Color := 7970483; 
cForm.Font.Color := clWindowText; 
cForm.Font.Height := -11; 
cForm.OnPaint :=@FormPaint; 
cForm.Font.Style := []; 
cForm.Visible := False; 
cForm.PixelsPerInch := 96; 

TitleLabel := TLabel.Create(cForm); 
TitleLabel.Top := 12; 
TitleLabel.Left := 100; 
TitleLabel.Font.Color:= 801804; 
TitleLabel.Font.size:= 24; 
TitleLabel.Font.name:= 'Impact'; 
TitleLabel.Caption := 'Ub3r Cooker'; 
TitleLabel.Parent := cForm; 

LblHowMany := TLabel.Create(cForm); 
LblHowMany.Parent := cForm; 
LblHowMany.Left := 240; 
LblHowMany.Top := 99; 
LblHowMany.Width := 62; 
LblHowMany.Height := 13; 
LblHowMany.Caption := 'How Many?'; 

ComboCook := TComboBox.Create(cForm); 
ComboCook.Parent := cForm; 
ComboCook.Left := 10; 
ComboCook.Top := 96; 
ComboCook.Width := 179; 
ComboCook.Height := 21; 
ComboCook.ItemHeight := 13; 
ComboCook.TabOrder := 8; 
ComboCook.Text := 'What Do You Want To Cook?'; 
ComboCook.DROPDOWNCOUNT :=14; 
ComboCook.Items.Add('Lobster'); 
ComboCook.Items.Add('Trout'); 
ComboCook.Items.Add('Salmon'); 
ComboCook.Items.Add('Shrimp'); 
ComboCook.Items.Add('SwordFish'); 
ComboCook.Items.Add('Herring'); 
ComboCook.Items.Add('Tuna'); 
ComboCook.Items.Add('Sardine'); 
ComboCook.Items.Add('Pike'); 
ComboCook.Items.Add('Anchovies'); 
ComboCook.Items.Add('Cod'); 
ComboCook.Items.Add('Shark'); 
ComboCook.Items.Add('Mackerel'); 
ComboCook.Items.Add('Bass'); 

ButtonCook := TButton.Create(cForm); 
ButtonCook.Parent := cForm; 
ButtonCook.Left := 10; 
ButtonCook.Top := 120; 
ButtonCook.Width := 75; 
ButtonCook.Height := 25; 
ButtonCook.Caption := 'Cook It!'; 
ButtonCook.TabOrder := 9; 

TxtHowmany := TEdit.Create(cForm); 
TxtHowmany.Parent := cForm; 
TxtHowmany.Left := 300; 
TxtHowmany.Top := 96; 
TxtHowmany.Width := 64; 
TxtHowmany.Height := 21; 
TxtHowmany.TabOrder := 10; 
TxtHowmany.Text := '1000'; 

ButtonCook.OnClick :=@buttonclick; 
ButtonCook.Parent :=cForm; 
ButtonCook.DEFAULT :=True; 
ButtonCook.ModalResult:= mrOk; 

cForm.ShowModal; 
cForm.Free; 


sst:=GetSystemTime; 
LoadFishBmps; 
SetChat('Off'); 
SetBrightness('vbright'); 
Run(true); 
Mouse(651,185,2,2,true); 
Clearreport; 
lvl:=0; 
Fishies:=0; 
Burnt:=0; 
repeat 
Script; 
until(false); 
end.