Include file C:\Program Files\SCAR 3.15\includes\osi.txt does not exist.
Include file C:\Program Files\SCAR 3.15\includes\par.txt does not exist.
Include file C:\Program Files\SCAR 3.15\includes\boxbreaker.txt does not exist.
Failed when compiling
Is waht happens when i hit start in SCAR. the Script i am using is below. Please some help with what is wrong?
///////////////////////////////////////////////
// Guild Fisher v1.5 - by pplsuqbawlz //
///////////////////////////////////////////////
///////////////////////////////////////////////
// HISTORY //
// --------- //
// V 1.0 | Complete Script. //
// V 1.1 | Minor Updates. BoxBreaker added.//
// V 1.2 | Updated Script. Far better. //
// V 1.3 | Fixed logout error. //
// V 1.4 | Redid Script. More features. //
// V 1.5 | MULTI FISH SUPPORT! YAY! //
// //
///////////////////////////////////////////////
// WARNINGS //
// ---------- //
// This script has anti mod protection and //
// anti-random protection, but if you are //
// banned we are not responsible. //
// //
///////////////////////////////////////////////
// LEGAL //
// ------- //
// This script is not to be altered or //
// modified in any form without permission //
// of pplsuqbawlz. This script may not be //
// sold except by pplsuqbawlz. //
// //
///////////////////////////////////////////////
// CUSTOMIZE //
const// ----------- //
user='Username'; //
pass='Password'; //
FishType='Swordfish'; //
LampSkill='fishing'; //
mintimeperspot=35; // seconds @ fish spot //
rantimeperspot=10; // ran seconds @ fish spot//
modwait=30; // mins 2 wait after mod find //
// //
///////////////////////////////////////////////
///////////////////////////////////////////////
// DO NOT ALTER BELOW THIS //
///////////////////////////////////////////////
{.include osi.txt}
{.include par.txt}
{.include boxbreaker.txt}
var close,existing,expmultiplier,netfish,logbtn,cage,h arpoon,utensil,fished,exp:integer;
procedure report(action:string);
begin
exp:=fished*expmultiplier;
ClearReport;
AddToReport('GUILD FISHER V1.4 - by pplsuqbawlz');
AddToReport('**********************************');
AddToReport('Currently: ' + action);
AddToReport('Fished: ' + inttostr(fished));
AddToReport('Experience Gained: ' + inttostr(exp));
end;
Procedure settypes;
begin
if(FishType='lobster')then
begin
utensil := BitmapFromString(24, 6,
'472F08472F08472F084B33084B33084B33085036085036085 03608' +
'5539085539085539085A3D085A3D085A3D085F40085F40085 F4008' +
'63430863430878706F726A6A726A6A000001472F084B33084 B3308' +
'4B33085036085036085036085539085539085539085A3D085 A3D08' +
'5A3D085F40085F40085F40086343086343086343086C480D7 46C6B' +
'766E6D766E6D0000015539085036085036085036085036085 53908' +
'5539085539085A3D085A3D085A3D085F40085F40085F40086 34308' +
'6343086343086845086845086D666678706F746C6B78706F0 00001' +
'0000014743436343086343086343085F40085F40085A3D085 A3D08' +
'5F40085F40085F40086343086343086343086845086845086 C480D' +
'746C6B6F6868766E6D726A6A7C73735539080000017C73736 B6363' +
'6F68686B63634743437C73736C480D6845086845086845086 34308' +
'6845086845086845086C480D6C480D78706F6F6868746C6B7 46C6B' +
'5539085539085A3D0800000178706F6D6666746C6B675F5F4 E4847' +
'78706F6B6363412C004B45457A71716F4B0D6F4B0D6F4B0D6 F4B0D' +
'6F4B0D696161746C6B6B6363766E6D726A6A5A3D085A3D085 F4008');
expmultiplier:=90;
end;
if(FishType='shark')or(FishType='swordfish')then
begin
utensil := BitmapFromString(12, 12,
'4D44384D4438544A3B544A3B544A3B544A3B544A3B544A3B4 D4438' +
'544A3B544A3B544A3B544A3B544A3B544A3B544A3B544A3B0 00001' +
'0000010000010000014D44384D4438564D42564D420000010 00001' +
'0000010000017C73738C82827C73736B63630000014D44385 44A3B' +
'0000017E7575807777837979857B7A8A8180746C6B5D57576 55E5D' +
'000001302020544A3B564D420000010000010000018A81807 26A6A' +
'5852523E3A3A5A5454625B5A0000014D4438564D42564D420 00001' +
'8E84847C7373696161554F4F0000010000015A54540000013 02020' +
'544A3B0000019086869288886F68685A54544B46460000013 02020' +
'0000013020203020200000019288889489888A6711625B5A5 85252' +
'000001302020302020544A3B3020204D4438544A3B0000018 7650D' +
'5540081A1717585252000001302020564D42544A3B4D44384 D4438' +
'00000187650D554008000001000001312E2E0000013020205 44A3B' +
'4D4438544A3B544A3B87650D5A43080000013020203020200 00001' +
'302020302020544A3B544A3B564D42564D425F4708503D080 00001' +
'3020204D44384D4438302020564D42564D424D4438544A3B5 64D42');
end;
if(FishType='shark')then expmultiplier:=110;
if(FishType='swordfish')then expmultiplier:=100;
if(FishType='bignet')then
begin
utensil := BitmapFromString(26, 6,
'0000010000015848355848350000010000015848354838305 84835' +
'58483560504200000100000148382D0000014030284838384 03032' +
'40303250403848403C5040382C20173C38303C302B3C38305 84842' +
'60504260504200000158484248403C6050420000010000014 8403C' +
'48382D00000140302848382D48382D00000148382D5040383 C3023' +
'58403C0000010000014838303C302344382B3C30230000010 00001' +
'58483560504248403C58484248403C0000015848355848355 84842' +
'48382D48383868504800000100000168504848382D0000013 42C28' +
'0000010000013C383044382B48383044382B0000016850486 8604F' +
'00000100000158483500000160504200000100000168604F4 83830' +
'60504248403C40303248382D3C38304030323428203C302B3 C3023' +
'3C30235040380000010000010000010000016050420000013 02020' +
'00000158483560504200000148383848403C68604F0000014 8403C' +
'5848425850483C302B342C28403028342C283C30230000013 42820' +
'342C28000001000001302020564D420000013020203020200 00001' +
'68604F58504800000148382D0000015850424030324838385 85042' +
'48382D000001342C284838303C302348383848382D48382D3 42C28' +
'44382B44382B000001');
expmultiplier:=45;
end;
end;
Procedure guildbmps;
Begin
// login bitmaps.. yumm
existing := BitmapFromString(15, 5,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000000000000 00000' +
'000000000000000000000000000000000000FFFFFFFFFFFF0 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'000000000000000000FFFFFFFFFFFF0000000000000000000 00000' +
'0000000000000000000000000000000000000000000000000 00000' +
'FFFFFFFFFFFF0000000000000000000000000000000000000 00000' +
'000000000000000000000000000000000000FFFFFFFFFFFFF FFFFF' +
'FFFFFF000000000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF000000000000');
logbtn := BitmapFromString(13, 7,
'FFFFFFFFFFFF0000000000000000000000000000000000000 00000' +
'000000000000000000000000FFFFFFFFFFFF0000000000000 00000' +
'000000000000000000000000000000000000000000000000F FFFFF' +
'FFFFFF0000000000000000000000000000000000000000000 00000' +
'000000000000000000FFFFFFFFFFFF0000000000000000000 00000' +
'000000000000000000000000000000000000000000FFFFFFF FFFFF' +
'000000000000000000000000000000000000FFFFFFFFFFFFF FFFFF' +
'FFFFFF000000FFFFFFFFFFFF0000000000000000000000000 00000' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFFFFFFFFFFFFFF0 00000' +
'000000000000000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFF');
close := BitmapFromString(26, 4,
'494034494034494034483E33483E33483E33483E33463D324 63D32' +
'463D32463D32463D32483E33483E33483E338080800000004 83E33' +
'483E33483E33483E33808080000000483E33808080483E334 94034' +
'808080808080808080483E33483E33463D328080808080804 63D32' +
'463D32463D32483E33483E33483E33808080000000483E334 83E33' +
'483E33483E33808080000000483E33483E330000008080804 94034' +
'000000000000000000483E33808080463D320000008080804 63D32' +
'463D32483E33483E33483E33808080000000483E338080804 83E33' +
'483E33808080000000483E33808080483E334940348080808 08080' +
'483E33483E33463D32808080808080808080463D320000004 63D32' +
'483E33483E33483E33808080000000483E338080800000004 83E33' +
'808080000000483E33808080000000');
// other shit... thats... needed....yesss....
harpoon := BitmapFromString(37, 5,
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000005 D5447' +
'5D5447FFFFFFFFFFFFFFFFFFFFFFFF5D54475D54475D5447F FFFFF' +
'FFFFFFFFFFFFFFFFFF5D54475D54475D5447FFFFFFFFFFFFF FFFFF' +
'FFFFFF5D54475D54475D54475D5447FFFFFFFFFFFFFFFFFFF FFFFF' +
'5D54475D5447FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'5D5447FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475 D5447' +
'FFFFFFFFFFFFFFFFFF0000000000005D5447FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF5D5447FFFFFFFFFFFF0000005D5447FFFFFFF FFFFF' +
'0000005D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0 00000' +
'5D5447FFFFFFFFFFFF0000000000005D54475D5447FFFFFFF FFFFF' +
'0000005D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0 00000' +
'5D5447FFFFFFFFFFFF000000FFFFFFFFFFFF0000005D5447F FFFFF' +
'FFFFFF0000005D5447FFFFFFFFFFFF000000000000FFFFFFF FFFFF' +
'0000005D5447FFFFFFFFFFFF0000005D54475D54475D5447F FFFFF' +
'FFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFFF FFFFF' +
'0000005D5447FFFFFFFFFFFF000000');
cage := BitmapFromString(23, 5,
'FFFFFFFFFFFF0000005D54475D54475D54475D54475D5447F FFFFF' +
'FFFFFF000000000000FFFFFFFFFFFF5D54475D5447FFFFFFF FFFFF' +
'000000000000FFFFFFFFFFFF5D5447FFFFFFFFFFFF0000005 D5447' +
'5D54475D54475D54475D54475D5447FFFFFFFFFFFFFFFFFFF FFFFF' +
'FFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFFF FFFFF' +
'000000FFFFFFFFFFFF0000005D54475D54475D54475D54475 D5447' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000005D5447F FFFFF' +
'FFFFFF0000005D5447FFFFFFFFFFFF0000005D5447FFFFFFF FFFFF' +
'5D5447FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0000005 D5447' +
'FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF0000005D5447F FFFFF' +
'FFFFFF0000005D54475D5447FFFFFFFFFFFFFFFFFF0000000 00000' +
'5D54475D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000005 D5447' +
'5D5447FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000');
utensil := BitmapFromString(24, 6,
'472F08472F08472F084B33084B33084B33085036085036085 03608' +
'5539085539085539085A3D085A3D085A3D085F40085F40085 F4008' +
'63430863430878706F726A6A726A6A000001472F084B33084 B3308' +
'4B33085036085036085036085539085539085539085A3D085 A3D08' +
'5A3D085F40085F40085F40086343086343086343086C480D7 46C6B' +
'766E6D766E6D0000015539085036085036085036085036085 53908' +
'5539085539085A3D085A3D085A3D085F40085F40085F40086 34308' +
'6343086343086845086845086D666678706F746C6B78706F0 00001' +
'0000014743436343086343086343085F40085F40085A3D085 A3D08' +
'5F40085F40085F40086343086343086343086845086845086 C480D' +
'746C6B6F6868766E6D726A6A7C73735539080000017C73736 B6363' +
'6F68686B63634743437C73736C480D6845086845086845086 34308' +
'6845086845086845086C480D6C480D78706F6F6868746C6B7 46C6B' +
'5539085539085A3D0800000178706F6D6666746C6B675F5F4 E4847' +
'78706F6B6363412C004B45457A71716F4B0D6F4B0D6F4B0D6 F4B0D' +
'6F4B0D696161746C6B6B6363766E6D726A6A5A3D085A3D085 F4008');
netfish := BitmapFromString(36, 6,
'FFFFFFFFFFFF5D54475D54475D5447FFFFFFFFFFFF5D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D54475 D5447' +
'FFFF00FFFF00FFFF00FFFF00FFFF00FFFF005D54475D54475 D5447' +
'FFFFFFFFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0000005 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D5447F FFFFF' +
'FFFFFF5D54475D54475D54475D54475D54475D54475D54475 D5447' +
'FFFF00FFFF000000000000000000000000000000005D54475 D5447' +
'FFFFFFFFFFFFFFFFFFFFFFFF5D5447FFFFFFFFFFFF0000005 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D5447F FFFFF' +
'FFFFFF0000005D54475D54475D54475D54475D54475D54475 D5447' +
'FFFF00FFFF000000005D54475D54475D54475D54475D54475 D5447' +
'FFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFF0000005 D5447' +
'5D54475D54475D54475D54475D54475D54475D54475D5447F FFFFF' +
'FFFFFF0000005D54475D54475D54475D54475D54475D54475 D5447' +
'FFFF00FFFF000000005D54475D54475D54475D5447FFFF00F FFF00' +
'FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF0000005 D5447' +
'5D5447FFFFFFFFFFFFFFFFFFFFFFFF5D54475D54475D5447F FFFFF' +
'FFFFFFFFFFFFFFFFFF5D54475D54475D54475D54475D54475 D5447' +
'FFFF00FFFF00FFFF00FFFF005D54475D54475D54475D54470 00000' +
'FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF0000005 D5447' +
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF5D54475D5447F FFFFF' +
'FFFFFF0000000000000000005D54475D54475D54475D54475 D5447' +
'FFFF00FFFF000000000000000000005D54475D5447FFFF00F FFF00' );
End;
Procedure Login(user,pass:string);
var timeout:integer;
begin
while(FindBitmapSpiralTolerance(close,x,y,4,4,516, 338,10)) or
(FindBitmapSpiralTolerance(existing,x,y,200,240,55 0,340,50)) or
(FindBitmapSpiralTolerance(logbtn,x,y,200,240,550, 340,50)) do
begin
if(FindBitmapSpiralTolerance(existing,x,y,200,240, 550,340,50))then
begin
mouse(x,y,86,10,true);
mouse(293,251,65,9,true);
SendKeysSilent(user);
wait(1000);
mouse(295,270,63,5,true);
SendKeysSilent(pass);
wait(1000);
writeln('Logging in.');
if(FindBitmapSpiralTolerance(logbtn,x,y,200,240,55 0,340,50)) then mouse(x,y,86,10,true);
repeat
wait(100);
timeout:=timeout+1;
until(FindBitmapSpiralTolerance(close,x,y,4,4,516, 338,10))or(timeout>200);
if (FindBitmapSpiralTolerance(close,x,y,4,4,516,338,1 0))then mouse(x,y,10,3,true);
end;
if(FindBitmapSpiralTolerance(logbtn,x,y,200,240,55 0,340,50))then
begin
mouse(442,315,41,10,true);
end;
timeout:=0;
end;
end;
function checkutensil:boolean;
begin
if (not FindColor(x,y,2829182,630,170,660,200)) then Mouse(640,180,5,5,true);
if (FindBitmapToleranceIn(utensil,x,y,555,205,612,250 ,25)) then begin result:=false; end
else begin result:=true; end;
end;
function CL_Inventory:integer;
var used,i,e:integer;
begin
e:=0; i:=0; used:=0;
if (not FindColor(x,y,2829182,630,170,660,200)) then Mouse(640,180,5,5,true);
while(i < 6) do
begin
if (i = 5) and (e < 8) then
begin
i:= 0;
e:= e + 1;
end;
if (FindColor(x,y,65536,(571+47*i),(215+36*e),(601+47 *i),(245+36*e)))then used:=used+1;
i:= i + 1;
end;
result:=used;
end;
Procedure Pathing(path:integer);
begin
if(path=0)then
if (FindColorSpiralTolerance(x,y,5360864,574,8,721,16 0,41)) then
begin
report('Heading to bank area.');
Mouse(x+17,y+4,0,0,true);
end;
begin
end;
if(path=1)then
begin
if (FindColorSpiralTolerance(x,y,5360864,574,8,721,16 0,41)) then
begin
report('Heading to middle.');
Mouse(x+41,y+6,2,3,true);
end;
end;
if(path=2)then
begin
if (FindColorTolerance(x,y,16744469,574,8,721,80,41)) then
begin
report('Heading to docks.');
Mouse(x-7,y-4,6,6,true);
end;
end;
if(path=3)then
begin
if (FindColorTolerance(x,y,16744469,574,8,721,100,41) ) then
begin
report('Heading to bank, from mid.');
Mouse(x-40,y+20,2,3,true);
end;
end;
MapFlagWalk;
end;
function FindFish:boolean;
var a,b,c,secx,secy:integer;
var tehspot:boolean;
begin
a:=0; b:=0; x:=0; y:=0; c:=1;
tehspot:=false;
repeat
report('Finding fish, try #' + inttostr(c) + '.');
while(b<11)do
begin
if(a = 18)then
begin
a:= 0;
b:= b + 1;
end;
if(FindColorSpiralTolerance(x,y,15249544,a*30+4,b* 30+4,a*30+24,b*30+24,25))then
begin
MMouse(x,y,0,0);
Mouse(x,y,1,1,false);
if((FishType='swordfish')or(FishType='lobster'))th en
begin
if(FindBitmapIn(cage,x,y,4,4,516,338))then
begin
wait(100+random(500));
if(FindBitmapIn(harpoon,secx,secy,4,4,516,338))and (FishType='swordfish')then
begin
Mouse(secx+5,secy,50,0,true);
MapFlagWalk; b:=20; tehspot:=true;
end else
begin
Mouse(x+5,y,50,0,true);
MapFlagWalk; b:=20; tehspot:=true;
end;
end else begin
MMouse(530,160,100,100);
end;
end;
if((FishType='bignet')or(FishType='shark'))then
begin
if(FindBitmapIn(netfish,x,y,4,4,516,338))then
begin
wait(100+random(500));
if(FindBitmapIn(harpoon,secx,secy,4,4,516,338))and (FishType='shark')then
begin
Mouse(secx+5,secy,50,0,true);
MapFlagWalk; b:=20; tehspot:=true;
end else
begin
Mouse(x+5,y,50,0,true);
MapFlagWalk; b:=20; tehspot:=true;
end;
end else begin
MMouse(530,160,100,100);
end;
end;
end;
a:=a+1;
//Check4Randoms;
end;
if(not tehspot) and (c<2) then
begin
movemousesmooth(648,83);
wait(500);
clickmouse(648,83,true);
wait(500);
a:=0;
b:=0;
c:=c+1;
end;
until(tehspot)or(c>1);
report('Found fish after try #' + inttostr(c) + '.');
if (tehspot) then result:=true else result:=false;
end;
procedure fish;
var timer1,timerwait:integer;
var quit:boolean;
begin
quit:=false;
Repeat
report('Fishing.');
timerwait:=mintimeperspot + random(rantimeperspot);
movemousesmooth(648,83);
wait(500);
clickmouse(648,83,true);
wait(500);
if(not FindFish) then begin
timer1:=timerwait;
quit:=true;
end;
timer1:=0;
Repeat
If (FindBitmapSpiralTolerance(existing,x,y,200,240,55 0,340,50)) Then
Begin
report('We logged out why???');
timer1:=timerwait;
quit:=true;
Writeln('Logged out: Dunno why...');
end;
if(checkutensil) then
begin
report('Stole the damn pot... faggots!');
timer1:=timerwait;
quit:=true;
Writeln('Went to bank because we lost the ' + FishType + ' utensil.');
end;
if (findcolor(x,y,65280,220,130,290,165))and(findcolo r(x,y,255,220,130,290,165)) then
begin
report('Ahhh, Chicken!');
timer1:=timerwait;
quit:=true;
Writeln('Ran because we found the health bar!');
end;
Check4Randoms;
timer1:=timer1+1;
report('Fished for ' + inttostr(timer1) + ' out of ' + inttostr(timerwait) + ' seconds.');
wait(1000);
until(timer1>timerwait)or(FindColor(x,y,16711680,1 89,437,333,447));
Until(FindColor(x,y,16711680,189,437,333,447)) or (quit);
end;
procedure bankhandle;
begin
report('Depositing items.');
Deposit(0,0,0);
report('Grabbing lobster pot.');
Withdraw(1,1,1);
end;
begin
SetupOSi;
writeln('Loaded Guild Fisher v1.5 by pplsuqbawlz');
Report('Script Started.');
guildbmps;
settypes;
writeln('');
writeln('');
writeln('GUILD FISHER LOG')
writeln('******************')
repeat
Login(user,pass);
setrun(true);
Pathing(0);
report('Breaking any lamps.');
Check4Lamp(LampSkill);
report('Breaking any boxes.');
LookForBox(true);
FindBox;
report('Banking if possible.');
if (FindColorSpiralTolerance(x,y,5360864,574,8,721,16 0,41)) then
begin
writeln('Banked.');
if(CL_Inventory>0) then
begin
fished:=fished+(CL_Inventory-1);
end;
openbank;
bankhandle;
closebank;
end;
Pathing(1);
Check4Randoms;
Pathing(2);
Check4Randoms;
fish;
Pathing(3);
Check4Randoms;
until(false);
end.


Reply With Quote

