Lancelot074
08-22-2007, 03:30 PM
//Made by Lancelot074
program New;
{.include OSi.txt}
const Fire = 3584499; //Change only if needed
Procedure Cook(FishType:integer);
var c,Cooked,RawFish,rawx,rawy,firex,firey,subx,suby:i nteger;
begin
case FishType of
0:begin RawFish := BitmapFromString(8, 4,
'000001874D23804921834C21874D238D51239757250000010 00001' +
'874D23804921874D23905325995928A35E2A0000010000018 74D23' +
'834C218D51230000010000010000010000000000000000010 00001' +
'000001000000000000000000000000'); subx:=20; suby:=20; end;//Lobster
1:begin RawFish := BitmapFromString(4, 4,
'000001B9AEADBFB6B6C6BEBE000001C4BBBACBC4C4D4CECE0 00001' +
'CDC6C5D6D0D0DAD4D4000000000001000001000001'); subx:=-2; suby:=20; end;//Trout
2:begin RawFish := BitmapFromString(4, 4,
'000001A98B86AE908AB59691000001B2938DBB9A95C1A49E0 00001' +
'BC9C97C2A5A1C4A9A5000000000001000001000001'); subx:=-2; suby:=20; end;//Salmon
3:begin RawFish := BitmapFromString(5, 2,
'564D42000001CAB7ADA67A5F000001000001DACEC7CFBEB60 00001' +
'302020'); subx:=0; suby:=8; end; //Shrimp
end;
while(FindBitmapToleranceIn(RawFish,rawx,rawy,560, 210,730,465,50))and(FindColorSpiralTolerance(firex ,firey,Fire,5,5,514,337,20))do
begin
Mouse(rawx-subx,rawy-suby,25,25,true);
Mouse(firex,firey,3,3,true);
c:=0;
while(FindBitmapToleranceIn(RawFish,x,y,rawx-10,rawy-10,rawx+10,rawy+10,50))and(c<30)do
begin
c:=c+1;
wait(75+random(25));
end;
Cooked:=Cooked+1;
status('Cooked: '+inttostr(Cooked));
wait(100+random(300));
end;
end;
begin
SetupOSi;
Cook(3);
end.
Well, this is my frist script, it basically cooks fish on a fire.
I know it looks nooby and it nooby but I need some help.
I still need to add multiple players and a banking procedure so I need some help with that if anyone can help. I also need to put in anti randoms and anti ban. All help is appreciated.:spot:
program New;
{.include OSi.txt}
const Fire = 3584499; //Change only if needed
Procedure Cook(FishType:integer);
var c,Cooked,RawFish,rawx,rawy,firex,firey,subx,suby:i nteger;
begin
case FishType of
0:begin RawFish := BitmapFromString(8, 4,
'000001874D23804921834C21874D238D51239757250000010 00001' +
'874D23804921874D23905325995928A35E2A0000010000018 74D23' +
'834C218D51230000010000010000010000000000000000010 00001' +
'000001000000000000000000000000'); subx:=20; suby:=20; end;//Lobster
1:begin RawFish := BitmapFromString(4, 4,
'000001B9AEADBFB6B6C6BEBE000001C4BBBACBC4C4D4CECE0 00001' +
'CDC6C5D6D0D0DAD4D4000000000001000001000001'); subx:=-2; suby:=20; end;//Trout
2:begin RawFish := BitmapFromString(4, 4,
'000001A98B86AE908AB59691000001B2938DBB9A95C1A49E0 00001' +
'BC9C97C2A5A1C4A9A5000000000001000001000001'); subx:=-2; suby:=20; end;//Salmon
3:begin RawFish := BitmapFromString(5, 2,
'564D42000001CAB7ADA67A5F000001000001DACEC7CFBEB60 00001' +
'302020'); subx:=0; suby:=8; end; //Shrimp
end;
while(FindBitmapToleranceIn(RawFish,rawx,rawy,560, 210,730,465,50))and(FindColorSpiralTolerance(firex ,firey,Fire,5,5,514,337,20))do
begin
Mouse(rawx-subx,rawy-suby,25,25,true);
Mouse(firex,firey,3,3,true);
c:=0;
while(FindBitmapToleranceIn(RawFish,x,y,rawx-10,rawy-10,rawx+10,rawy+10,50))and(c<30)do
begin
c:=c+1;
wait(75+random(25));
end;
Cooked:=Cooked+1;
status('Cooked: '+inttostr(Cooked));
wait(100+random(300));
end;
end;
begin
SetupOSi;
Cook(3);
end.
Well, this is my frist script, it basically cooks fish on a fire.
I know it looks nooby and it nooby but I need some help.
I still need to add multiple players and a banking procedure so I need some help with that if anyone can help. I also need to put in anti randoms and anti ban. All help is appreciated.:spot: