plz help me with a script im using
im trying a chicken killing, feather picking up, bone burier by hy71194 this script is as follows
{
Chicken Killer (KFC Style)! Version 3.0!
By:
| | \ / 77777 1 1 9999 4 4
|==| \/ 7 1 1 9999 444 <---That's my username! (hy71194)
| | | 7 1 1 9 4
*-AKA-*
| | /\ |-- |-- \ /
|==| /==\ | | \/ <---That's my real name! (Harry)
| | / \ | | |
v1.0: First script made by someone.I don't know who...
v2.0: Script maker made the bone/feather searching repeat.
v3.0: Harry got this script off some website and edited This So It Can kill
chickens, collect bones, and feathers in areas where there are chickens,
like in Lumbridge.
*-Possible Future Features-*
1. Work with SRL Include/Protection against those stupid random events! =[
2. Make more human like NO MoveMouseSmooth! <--People say this = BAN
3. Add Anti-Bans
3. Make Multi-User
4. Make Auto-Color
5. Auto-Updating with future versions of the script
6. Have it bank the stuff
7. Beef up the script
8. If you change the script to do any of these above, post it on the place
where you got this. (Hopefully on http://www.srl-forums.com/)
Be Sure To Have No 'Good' Items Incase of Death, even though is is rare
Harry or the true maker of this script are not responsible if your account
should become banned.
If you are the person that has all of those lvl-3 mules that auto,
please don't use this script. lol there is too many of those mules that
auto.
Also, if you are in any way with Jagex, like a MOD, delete this script NOW!
This script was tested on SCAR 2.03 by Kaitnieks.
Windows XP SP2 Professional.
Screen Set at 1024 by 768 Pixles, 32 Bit Color.
Using Firefox Browser 2.0.0.2, on Low RuneScape Detial, World 19
Download Firefox Browser at Firefox.com.
I <3 Firefox...
*WARNING* If I find this script on script dump pages, excluding
http://www.srl-forums.com/ , I will STOP making new versions!!
The title says KFC Style in it because KFC kills chickens... very cruley
I may add... please read this:
http://www.kentuckyfriedcruelty.com/
*and*
http://www.peta.org/feat/moorefield/
ENJOY, and don't forget to check you computer every quarter hour!
}
program autobone;
{.include OSi.txt}
{.include BoxBreaker.txt}
Procedure auto_bone;
var
x, y: Integer;
begin
x:= 70;
y:= 70;
if(FindColorSpiral(x, y, 12171714, 0, 0,514, 337))then
{Change the number that should be 12171714 here to what ever the color
that a feather on the main screen is (like on top of the bones and raw
meat you know, like when you kill a chicken...) :P}
begin
clearreport;
MoveMouseSmooth(x,y)
wait(213)
Clickmouse(x,y,true)
wait(1000)
Addtoreport('found bones/feathers/chickens on screen');
wait(520)
end;
If(findColorSpiral(x, y,14013914, 561, 209, 742, 464))then
begin
MoveMouseSmooth(x,y)
wait(100)
Clickmouse(x,y,true)
wait(1000)
Addtoreport('buried bones');
wait(142)
end else
begin
clearreport;
addtoreport('no bones/feathers/chickens found at the moment');
wait(2000)
end;
end;
begin
auto_bone;
repeat;
auto_bone;
until(false);
end.
and i think that it may be osi that is screwing up because the error is
Line 347: [Error] (411:4): Unknown identifier 'IsTextAt2' in script C:\Program Files\SCAR 3.06\includes\OSi.txt
my script for that is
//Hosted by Runescape 101
//Download more free scar scripts from www.rs101.info
{================================================= =]
OSi: Odie's Scripting Include
v4.011
by Odie5533
Thanks Kaitnieks, for making SCAR
[================================================== }
{ OSi: Odie's Scripting Include
Copyright (C) 2004-2005 David Bern
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation;
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details which can be located
at http://www.gnu.org/licenses/gpl.txt}
{ChangeLog:
v1.0 - Initial release
v2.0 - Added UberWait and Autologin, updated a few things
v2.1 - Added LoadBankBmps; feature
v2.5 - Added AutoDrop; feature
v2.51 - Added StartScriptSlow; Feature
v3.0 - Added full banking and UseItem procedures
v3.1 - Updated... some things... I think
v3.2 - Updated the UseItem feaature
v3.3 - Updated loads and added loads. Also, welcome pplsuqbawlz to the
OSi scripting team!
v3.31 - Updated mouse procedures
v3.32 - Added LogedIn and NotLogedIn
v3.4 - Added many procedures and updated things
v3.41 - Added StandStill Procedure
v3.5 - Added Buy procedure and some others
v3.52 - Summit rather i think, MouseFlags (Idea by HatlessCow)
v4.0 - FindObjColorTol Entirely Redone! pplsuqbawlz quit OSi =(
v4.01 - FindObjColorTol entirely redone, again
v4.011 - Went back to 2nd FindObjColorTol and fixed bank color}
var x,y,StoreAll,StoreAllY,rcmQuickBank,rcmQuickBankY, All,AllY,
Banks,flag,s0,s1,s2,s3,s4,s5,s6,s7,s8,s9,DropYe,Dr opW:integer;
Loged:boolean; ST:LongInt; screendir:string;
Procedure MMouse(x,y,rx,ry: Integer);
begin
x:=x+random(rx); y:=y+random(ry);
if(x<=789)and(x>=0)and(y<= 592)and(y>=0)then
begin
Wait(100+random(50));
MoveMouseSmoothEx(x,y,1,6,15,20,10);
GetMousePos(x,y);
Wait(300+random(100));
end;
end;
Procedure Mouse(x,y,rx,ry: integer; left:boolean);
begin
x:=x+random(rx); y:=y+random(ry);
if(x<=789)and(x>=0)and(y<= 592)and(y>=0)then
begin
movemousesmoothex(x,y,1,6,15,20,10);
GetMousePos(x,y);
Wait(50+random(50));
HoldMouse(x,y,left);
Wait(10+random(70));
ReleaseMouse(x,y,left);
wait(100+random(100));
x:=x-3+random(6); y:=y-3+random(6);
MoveMouseSmoothEx(x,y,1,6,25,20,10);
wait(150+random(100));
end;
end;
procedure RandObj;
begin
x:=50+random(300);
y:=50+random(300);
end;
procedure GetScreenShot(reason:string; event:Integer); {Unkown Creator}
begin
SaveScreenshot(apppath+'Scripts\'+Screendir+'\'+re ason+inttostr(event)+'.bmp');
writeln('Screenshot of: '+reason+' #'+inttostr(event));
end;
Function LogedIn:boolean;
begin
if(GetColor(377,472)=2370094)then
result:=true;
end;
Function NotLogedIn:boolean;
begin
if(GetColor(377,472)=8291967)then
result:=true;
end;
Procedure Face(facing:string);
var direction:integer;
begin
if(facing='N')then
direction := BitmapFromString(8, 11,
'640000640000640000000001640000790E006400006400006 40000' +
'790E00640000640000790E003F00003F0000790E00790E003 F0000' +
'3F0000790E00851B003F00003F0000851B00851B003F00003 F0000' +
'3F0000790E003F00003F00009622009622003F00003F00003 F0000' +
'790E003F00003F00009622009622003F00003F0000790E003 F0000' +
'3F00003F00009622009622003F00003F00009622003F00003 F0000' +
'3F00009622009622003F00003F00009622009622003F00003 F0000' +
'9C36009C36003F00003F0000AB4601AB46013F00003F00009 C3600' +
'AB46013F00003F00009C3600AB4601AB4601AB4601AB4601A B4601' +
'AB4601AB46010000019C3600BA5604BA5604BA5604');
if(facing='W')then
direction := BitmapFromString(9, 10,
'640000640000640000640000000001640000790E006400006 40000' +
'640000640000851B006400000000011B00001B00001B00001 B0000' +
'851B00851B00851B00790E006400001B00001B0000851B008 51B00' +
'851B00790E001B00001B00001B0000851B00851B009622009 62200' +
'1B00001B00001B00001B0000790E001B00001B0000851B008 51B00' +
'851B00851B001B00001B00001B00001B00001B00001B00001 B0000' +
'9C36009C3600851B00851B00851B001B00001B0000851B009 C3600' +
'9C3600851B001B00001B00001B0000851B009C3600AB4601A B4601' +
'3F00001B00001B00001B0000851B001B00001B00009C3600A B4601' +
'9C36009C36001B00001B00001B00001B00001B00001B00003 F0000' +
'');
if(facing='S')then
direction := BitmapFromString(6, 10,
'20201E20201E640000000001640000851B00640000790E006 40000' +
'0000011B0000790E00790E001B00001B00000000011B00001 B0000' +
'1B00001B0000790E00790E00851B00851B001B00001B00008 51B00' +
'851B00851B00851B001B00001B00001B00001B00001B00001 B0000' +
'9C3600851B001B00001B00001B00001B00009C36009C36009 C3600' +
'851B001B00001B00003F00001B00009C3600851B001B00009 C3600' +
'9C36001B00001B00001B00009C3600AB4601');
if(facing='E')then
direction := BitmapFromString(8, 6,
'851B00851B00851B001B0000851B00962200851B001B00001 B0000' +
'851B00851B001B0000851B00962200851B001B00001B00008 51B00' +
'851B001B0000851B00851B00851B001B00001B0000851B008 51B00' +
'1B00001B00001B00001B00001B00001B00001B00001B00001 B0000' +
'1B00001B00001B00001B00001B00001B00001B00009C36009 C3600' +
'9C36009C36009C3600');
if(length(facing)>0)then
while(not(FindBitmapIn(direction,x,y,561,4,571,17) ))do
SendArrowSilentWait(1,2);
end;
Procedure StandStill;
begin
Mouse(647,82,2,2,true);
wait(5000+random(1000));
end;
Procedure SetRun(runon: boolean);
begin
Wait(20+random(5));
Mouse(701,468,10,25,true);
Wait(70+random(50));
if(not(GetColor(607,263)=2303648))and(RunOn)then
Mouse(611,253,15,15,true);
if(GetColor(607,263)=2303648)and(not RunOn)then
Mouse(569,256,5,5,true);
Wait(100+random(50));
Mouse(644,178,5,5,true);
Wait(100+random(50));
End;
Procedure OpenBag;
begin
if(not(GetColor(633,179)=2829182))and
(LogedIn)and(not(GetColor(633,179)=5531511))then
begin
wait(400+random(100));
Mouse(635,176,15,15,true);
wait(400+random(100));
end;
end;
procedure SetFightMode(oFightMode:integer);
begin
if(GetColor(559,179)=5531511)then
Mouse(548,176,10,15,true);
wait(200+random(50));
if(oFightMode=1)and(not (GetColor(565,282)=2303647))then
Mouse(569,271,55,15,true);
if(oFightMode=2)and(not (GetColor(565,323)=2303647))then
Mouse(569,311,55,15,true);
if(oFightMode=3)and(not (GetColor(565,367)=2303647))then
Mouse(569,352,55,15,true);
if(oFightMode=4)and(not (GetColor(565,411)=2303647))then
Mouse(571,403,55,15,true);
OpenBag;
end;
Procedure ChatFixer;
begin
while(not(GetColor(54,496)=255))and(LogedIn)do
Mouse(45,485,15,10,true);
wait(300+random(100));
while(not(GetColor(183,496)=255))and(LogedIn)do
Mouse(176,485,15,10,true);
wait(300+random(100));
while(not(GetColor(323,496)=255))and(LogedIn)do
Mouse(315,485,15,10,true);
wait(300+random(100));
end;
procedure sendkeyssilentsmooth(text:string;pause:integer); {Created by Piv}
begin
repeat
sendkeyssilent(copy(text,1,1)); wait(pause+random(pause/2));
delete(text,1,1);
until(length(text)=0);
wait(100+random(50));
end;
procedure Say(text:string);
begin
SendKeysSilentSmooth(text+chr(13),70);
end;
Procedure LogOut(why:string);
var c:integer;
begin
Writeln(' ');
Writeln(why);
Writeln(' ');
Loged:=true;
if(FindColor(x,y,8421504,400,0,515,338))then
Mouse(x+5,y+1,15,5,true);
Mouse(635,470,25,20,true);
Wait(100+random(10));
c:=0;
Mouse(586,370,119,10,true);
GetMousePos(x,y);
repeat
c:=c+1
Wait(250+random(100));
ClickMouse(x,y,true);
until(GetColor(400,130)=1842201)and(GetColor(354,1 20)=1842201)or(c=15);
writeln('Infinite Loop Begin...')
repeat
wait(5000);
until(false)
end;
Procedure MapFlag;
var m,mapx,mapy:integer;
begin
Wait(300+random(100));
while(FindBitmapIn(flag,mapx,mapy,570,5,725,162))o r(M<10)do
begin
wait(100+random(50));
M:=M+1;
end;
end;
Procedure MapFlagWalk;
var M:integer;
begin
Wait(300+random(100));
while(FindBitmapIn(flag,x,y,570,5,725,162))and(not (FindBitmapIn(flag,x,y,633,64,665,90)))or(M<11)do
begin
wait(200+random(100));
M:=M+1;
end;
end;
Procedure MouseFlag(x,y,rx,ry:integer);
begin
Mouse(x,y,rx,ry,true);
MapFlag;
end;
Procedure MouseFlagWalk(x,y,rx,ry:integer);
begin
Mouse(x,y,rx,ry,true);
MapFlagWalk;
end;
Procedure LoadBankBmps;
begin
rcmQuickBank := BitmapFromString(17, 2,
'5D5447FFFFFFFFFFFFFFFFFF5D54475D54475D5447FFFFFFF FFFFF' +
'5D54475D5447FFFFFFFFFFFF5D54475D54475D5447000000F FFFFF' +
'FFFFFF000000FFFFFFFFFFFF5D54475D5447FFFFFFFFFFFF0 00000' +
'5D5447FFFFFFFFFFFF0000005D5447FFFFFFFFFFFF');
rcmQuickBankY := BitmapFromString(17, 2,
'5D5447FFFF00FFFF00FFFF005D54475D54475D5447FFFF00F FFF00' +
'5D54475D5447FFFF00FFFF005D54475D54475D5447000000F FFF00' +
'FFFF00000000FFFF00FFFF005D54475D5447FFFF00FFFF000 00000' +
'5D5447FFFF00FFFF000000005D5447FFFF00FFFF00');
All := BitmapFromString(14, 2,
'5D5447FFFFFFFFFFFFFFFFFF5D54475D54475D54475D5447F FFFFF' +
'FFFFFF5D54475D5447FFFFFFFFFFFFFFFFFFFFFFFF000000F FFFFF' +
'FFFFFF5D54475D54475D5447FFFFFFFFFFFF0000005D5447F FFFFF' +
'FFFFFF');
AllY := BitmapFromString(14, 2,
'5D5447FFFF00FFFF00FFFF005D54475D54475D54475D5447F FFF00' +
'FFFF005D54475D5447FFFF00FFFF00FFFF00FFFF00000000F FFF00' +
'FFFF005D54475D54475D5447FFFF00FFFF000000005D5447F FFF00' +
'FFFF00');
end;
Procedure UseItem(invin:integer);
var rx,ry:integer;
begin
OpenBag;
if(invin>0)and(invin<29)then
begin
ry:=218;
repeat
if(invin>4)then
begin
invin:=invin-4;
ry:=ry+36;
end;
until(invin<5);
rx:=532+(invin*42);
Mouse(rx,ry,20,20,true);
wait(400+random(200));
end;
end;
function UseItemName(invin:integer; invinname:string):boolean;
var rx,ry:integer;
begin
OpenBag;
if(invin>0)and(invin<29)then
begin
ry:=218;
repeat
if(invin>4)then
begin
invin:=invin-4;
ry:=ry+36;
end;
until(invin<5);
rx:=532+(invin*42);
if(length(invinname)>0)then
begin
MMouse(rx,ry,15,15);
if(IsTextAt2(9,9,invinname,100))then
begin
GetMousePos(x,y);
Mouse(x,y,0,0,true);
wait(300+random(100));
result:=true;
end;
end;
end;
end;
function UseItemColor(theitemcolor:integer):boolean;
var i,e:integer;
begin
while(i<6) do
begin
if (i=5) and (e<8) then
begin
i:=0;
e:=e+1;
end;
if(FindColor(x,y,theitemcolor,(569+42*i),(213+36*e ),(569+42*i+31),(213+36*e+30)))then
begin
Mouse((580+42*i),(225+36*e),10,10,true);
result:=true;
end;
i:=i+1;
if(result)then break;
end;
end;
function UseItemColorTol(uicolor,uitol:integer):boolean;
var i,e:integer;
begin
while(i<6) do
begin
if (i=5) and (e<8) then
begin
i:=0;
e:=e+1;
end;
if(FindColorTolerance(x,y,uicolor,(569+42*i),(213+ 36*e),(569+42*i+31),(213+36*e+30),uitol))then
begin
Mouse((580+42*i),(225+36*e),10,10,true);
result:=true;
end;
i:=i+1;
if(result)then break;
end;
end;
function FindObjColorTol(foname:string; focolor,fotol:integer):boolean;
var s,d,lb,xx,yy,b,c:integer;
begin
s:=168; d:=s; b:=21; c:=b/2;
while(d<=336)and(not(result))do
begin
d:=d+c; x:=d; LB:=2*S-D;
while(x>=LB)and(not(result))do
begin
x:=d;
while(x>=LB)and(not(result))do
begin
if(FindColorSpiralTolerance(xx,yy,focolor,x-c+89,d-c,x+c+89,d+c,fotol))or
(FindColorSpiralTolerance(xx,yy,focolor,x-c+89,LB-c,x+c+89,LB+c,fotol))then
begin
MMouse(xx,yy,1,1);
if(IsTextAt2(9,9,foname,100))then result:=true;
end;
x:=x-b;
wait(1);
end;
x:=d;
while(x>LB)and(not(result))do
begin
if(FindColorSpiralTolerance(xx,yy,focolor,d-c+89,x-c,d+c,x+c+89,fotol))or
(FindColorSpiralTolerance(xx,yy,focolor,LB-c+89,x-c,LB+c,x+c+89,fotol))then
begin
MMouse(xx,yy,1,1);
if(IsTextAt2(9,9,foname,100))then result:=true;
end;
x:=x-b;
wait(1);
end;
end;
end;
GetMousePos(x,y);
end;
Function OpenBank:boolean;
var c:integer;
begin
if(rcmQuickBank=0)then
LoadBankBmps;
if(FindObjColorTol('Use Bank',2710643,15))then
begin
Mouse(x,y,1,1,false);
wait(75+random(25));
if(FindBitmap(rcmQuickBank,x,y))or(FindBitmap(rcmQ uickBankY,x,y))then
begin
Mouse(x,y,5,2,true);
MapFlag;
end else
MMouse(5,5,60,60);
while(not(IsTextAt2(185,36,'The Bank of RuneScape',100)))and(c<30)do
begin
wait(50+random(25));
c:=c+1;
end;
end;
if(IsTextAt2(185,36,'The Bank of RuneScape',100))and(not(GetColor(476,76)=5531254)) then
Mouse(472,81,4,10,true);
wait(200+random(100));
if(IsTextAt2(185,36,'The Bank of RuneScape',100))then
result:=true;
end;
Procedure Withdraw(Col,Row,Amount:integer);
var rx,ry,c:integer;
begin
if(rcmQuickBank=0)then
LoadBankBmps;
if(IsTextAt2(185,36,'The Bank of RuneScape', 100))and(col>0)and(row>0)and(col<5)and(row<8)then
begin
rx:=35+(col*47)
ry:=27+(row*38)
if(amount=1)then
begin
Mouse(rx,ry,23,23,true);
wait(600+random(200));
end;
if(amount=0)or(amount>1)then
begin
Mouse(rx,ry,23,23,false)
wait(200+random(100));
if(amount=0)then
begin
if(FindBitmap(All,x,y))or(FindBitmap(AllY,x,y))the n
begin
Mouse(x,y,50,3,true)
wait(600+random(200));
end;
end else
begin
GetMousePos(x,y)
Mouse(x,y+81,20,10,true);
repeat
c:=c+1;
wait(75);
until(c>20)or(GetColor(258,412)=8388608)
wait(500+random(200));
if(GetColor(258,412)=8388608)then
SendKeysSilentSmooth(inttostr(amount)+chr(13),100)
wait(500+random(200));
end;
end;
end;
end;
Procedure Deposit(Col,Row,Amount:integer);
var rx,ry,c:integer;
begin
if(rcmQuickBank=0)then
LoadBankBmps;
if(IsTextAt2(185,36,'The Bank of RuneScape',100))then
begin
rx:=532+(col*42)
ry:=178+(row*36)
if(row=0)and(amount=0)then
begin
if(col=0)then col:=1
repeat
begin
if(findcolorspiral(x,y,65536,570,250,725,460))or(f indcolorspiral(x,y,65536,rx,210,725,245))then
begin
c:=c+1
Mouse(x,y,2,2,false);
wait(150+random(50));
if(FindBitmap(All,x,y))or(FindBitmap(AllY,x,y))the n
begin
Mouse(x,y,40,2,true);
wait(600+random(200));
end;
MMouse(650,185,5,5);
wait(400+random(200));
end;
end;
until(not FindColorSpiral(x,y,65536,570,250,725,460))and(not findcolorspiral(x,y,65536,rx,210,725,245))or(c>28)
end;
if(col>0)and(col<5)and(row>0)and(row<8)then
begin
wait(200+random(100));
if(amount=1)then
begin
Mouse(rx,ry,20,20,true);
wait(600+random(200));
end else
begin
Mouse(rx,ry,20,20,false)
wait(150+random(50));
if(amount=0)then
begin
if(FindBitmap(StoreAll,x,y))or(FindBitmap(StoreAll Y,x,y))then
begin
Mouse(x,y,40,2,true)
wait(600+random(200));
end;
end else
begin
GetMousePos(x,y)
Mouse(x,y+81,20,10,true);
wait(900+random(300));
SendKeysSilentSmooth(inttostr(amount)+chr(13),100)
wait(600+random(200));
end;
end;
end;
end;
end;
procedure CloseBank;
begin
if(IsTextAt2(185,36,'The Bank of RuneScape', 100))and(GetColor(464,39)=8421504)then
begin
Banks:=Banks+1;
Mouse(430,39,5,5,true);
wait(800+random(300));
end;
end;
procedure Buy(buyloc,buyamount:integer);
var buyx,buyy,num1,num5,num0,num1Y,num5Y,
num0Y,buyten,buyfive:integer;
begin
num5:=LoadBitmap('./Charsrs2/58.bmp');
num0:=LoadBitmap('./Charsrs2/53.bmp');
num1:= BitmapFromString(10, 2,
'5D5447FFFFFFFFFFFFFFFFFF0000005D54475D54475D54475 D5447' +
'5D5447FFFFFFFFFFFFFFFFFFFFFFFF0000005D54475D54475 D5447' +
'5D54475D5447');
num1Y:= BitmapFromString(10, 2,
'5D5447FFFF00FFFF00FFFF000000005D54475D54475D54475 D5447' +
'5D5447FFFF00FFFF00FFFF00FFFF000000005D54475D54475 D5447' +
'5D54475D5447');
num0Y:= BitmapFromString(5, 8,
'FFFF00FFFF00000000FFFF00FFFF00FFFF000000000000005 D5447' +
'FFFF00FFFF000000005D54475D5447FFFF00FFFF000000005 D5447' +
'5D5447FFFF00FFFF000000005D54475D5447FFFF00FFFF000 00000' +
'5D54475D5447FFFF00FFFF000000005D54475D5447FFFF00F FFF00' +
'FFFF005D5447FFFF00FFFF00');
num5Y:= BitmapFromString(4, 4,
'FFFF00FFFF005D54475D5447000000FFFF00FFFF005D54475 D5447' +
'5D5447FFFF00FFFF005D54475D5447FFFF00FFFF00');
buyy:=74;
while(buyloc>=9)do
begin
buyloc:=buyloc-9;
buyy:=buyy+49;
end;
buyx:=38+(buyloc*47);
while((buyamount / 10)>0)do
begin buyamount:=buyamount-10; buyten:=buyten+1;end;
while((buyamount / 5)>0)do
begin buyamount:=buyamount-5; buyfive:=buyfive+1;end;
while(buyten>=1)do
begin
Mouse(buyx,buyy,20,20,false);
if(FindBitmap(num0,x,y))or(FindBitmap(num0Y,x,y))t hen
Mouse(x,y,20,8,true);
buyten:=buyten-1;
end;
while(buyfive>=1)do
begin
Mouse(buyx,buyy,20,20,false);
if(FindBitmap(num5,x,y))or(FindBitmap(num5Y,x,y))t hen
Mouse(x,y,20,8,true);
buyfive:=buyfive-1;
end;
while(buyamount>=1)do
begin
Mouse(buyx,buyy,20,20,false);
if(FindBitmap(num1,x,y))or(FindBitmap(num1Y,x,y))t hen
Mouse(x,y,20,8,true);
buyamount:=buyamount-1;
end;
end;
function InvinCount: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;
function InvinFull:boolean;
begin
if(InvinCount=28)then result:=true;
end;
Procedure LoadDropBmps;
begin
dropW := BitmapFromString(28, 2,
'FFFFFFFFFFFF000000000000FFFFFFFFFFFF000000000000F FFFFF' +
'FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFFF FFFFF' +
'FFFFFF000000000000000000000000FFFFFFFFFFFFFFFFFFF FFFFF' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFFFFFFFF000000000000000000FFFFFFFFFFFF0 00000' +
'000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFFFFFFFF');
dropYe := BitmapFromString(28, 2,
'FFFF00FFFF00000000000000FFFF00FFFF00000000000000F FFF00' +
'FFFF00FFFF00FFFF00000000000000000000FFFF00FFFF00F FFF00' +
'FFFF00000000000000000000000000FFFF00FFFF00FFFF00F FFF00' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'FFFF00FFFF00FFFF00000000000000000000FFFF00FFFF000 00000' +
'000000FFFF00FFFF00000000000000FFFF00FFFF000000000 00000' +
'FFFF00FFFF00');
end;
Procedure AutoDrop(item :string);
var Row,Col,Ix,Iy,InvLoc,Dropx,dropy:integer;
begin
if(DropW=0)then
LoadDropBmps;
InvLoc:=1; Col:=1; Row:=1;
OpenBag;
repeat
Ix:=(Col-1)*42+574;
Iy:=(Row-1)*36+218;
MoveMouseSmooth(Ix+random(17),Iy+random(17));
wait(150+random(30));
If(IsTextAt2(9,9,item,100))then
begin
GetMousePos(x,y);
ClickMouse(x,y,false);
wait(120+random(25));
if(FindBitmap(DropW,dropx,dropy))or(FindBitmap(Dro pYe,dropx,dropy))then
Mouse(dropx+10,dropy,20,4,true);
end;
InvLoc:=InvLoc+1;
Row:=Row+1;
if(Row>7)then
begin
Col:=Col+1;
Row:=1;
end;
until(InvLoc>28)
end;
function DropColor(thedropcolor:integer):integer;
var i,e:integer;
begin
if(DropW=0)then
LoadDropBmps;
while(i<6) do
begin
if (i=5) and (e<8) then
begin
i:=0;
e:=e+1;
end;
if(FindColor(x,y,thedropcolor,(569+42*i),(213+36*e ),(569+42*i+31),(213+36*e+30)))then
begin
Mouse(574+((42-1)*i),218+((36-1)*e),20,20,false);
if(FindBitmap(DropW,x,y))or(FindBitmap(DropYe,x,y) )then
begin
Mouse(x,y,15,5,true);
result:=result+1;
wait(200+random(50));
end else
MMouse(639,179,15,15);
end;
i:=i+1;
end;
end;
function DropColorTol(thedropcolor,tdtol:integer):integer;
var i,e:integer;
begin
if(DropW=0)then
LoadDropBmps;
while(i<6) do
begin
if (i=5) and (e<8) then
begin
i:=0;
e:=e+1;
end;
if(FindColorTolerance(x,y,thedropcolor,(569+42*i), (213+36*e),(569+42*i+31),(213+36*e+30),tdtol))then
begin
Mouse(574+((42-1)*i),218+((36-1)*e),20,20,false);
wait(75+random(50));
if(FindBitmap(DropW,x,y))or(FindBitmap(DropYe,x,y) )then
begin
Mouse(x,y,15,5,true);
result:=result+1;
wait(200+random(50));
end else
MMouse(639,179,15,15);
end;
i:=i+1;
end;
end;
procedure DropHold(keep:string); {Created by x Piv x}
var booleanarray: array [1..28] of boolean; my,mx,i:integer;
begin
if(DropW=0)then
LoadDropBmps;
while(length(keep)>0)do
begin
if(pos(',',keep)=0)then
booleanarray[strtoint(keep)]:=true else
booleanarray[strtoint(copy(keep,0,pos(',',keep)-1))]:=true;
if(pos(',',keep)>0)then
delete(keep,1,pos(',',keep)) else
keep:='';
end;
for my:=0 to 6 do
for mx:=0 to 3 do
begin
i:=i+1;
if(not booleanarray[i])then
begin
Mouse(574+(mx*42),218+(my*36),20,20,false);
wait(200+random(100));
if(FindBitmap(DropW,x,y))or(FindBitmap(DropYe,x,y) )then
Mouse(x,y,15,5,true);
end;
end;
end;
Procedure LoadStatBmps;
begin
s0 := BitmapFromString(5, 8,
'000000FFFFFFFFFFFFFFFFFF000000FFFFFF0000000000000 00000' +
'FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF0000000 00000' +
'000000FFFFFFFFFFFF000000000000000000FFFFFFFFFFFF0 00000' +
'000000000000FFFFFFFFFFFF000000000000000000FFFFFF0 00000' +
'FFFFFFFFFFFFFFFFFF000000');
s1 := BitmapFromString(3, 8,
'000000FFFFFF000000FFFFFFFFFFFF000000000000FFFFFF0 00000' +
'000000FFFFFF000000000000FFFFFF000000000000FFFFFF0 00000' +
'000000FFFFFF000000FFFFFFFFFFFFFFFFFF');
s2 := BitmapFromString(5, 8,
'000000FFFFFFFFFFFFFFFFFF000000FFFFFF0000000000000 00000' +
'FFFFFF000000000000000000000000FFFFFF0000000000000 00000' +
'FFFFFF000000000000000000FFFFFF000000000000000000F FFFFF' +
'000000000000000000FFFFFF000000000000000000000000F FFFFF' +
'FFFFFFFFFFFFFFFFFFFFFFFF');
s3 := BitmapFromString(4, 8,
'000000FFFFFFFFFFFF000000FFFFFF000000000000FFFFFF0 00000' +
'000000000000FFFFFF000000FFFFFFFFFFFF0000000000000 00000' +
'000000FFFFFF000000000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFF000000FFFFFFFFFFFF000000');
s4 := BitmapFromString(4, 8,
'FFFFFF000000000000000000FFFFFF000000000000000000F FFFFF' +
'000000000000000000FFFFFF000000FFFFFF000000FFFFFF0 00000' +
'FFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000F FFFFF' +
'000000000000000000FFFFFF000000');
s5 := BitmapFromString(4, 8,
'FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000F FFFFF' +
'000000000000000000FFFFFFFFFFFFFFFFFF0000000000000 00000' +
'000000FFFFFF000000000000000000FFFFFFFFFFFF0000000 00000' +
'FFFFFF000000FFFFFFFFFFFF000000');
s6 := BitmapFromString(5, 8,
'000000000000FFFFFFFFFFFF000000000000FFFFFF0000000 00000' +
'FFFFFFFFFFFF000000000000000000000000FFFFFF000000F FFFFF' +
'FFFFFF000000FFFFFFFFFFFF000000000000FFFFFFFFFFFF0 00000' +
'000000000000FFFFFFFFFFFF000000000000000000FFFFFF0 00000' +
'FFFFFFFFFFFFFFFFFF000000');
s7 := BitmapFromString(4, 8,
'FFFFFFFFFFFFFFFFFFFFFFFF000000000000000000FFFFFF0 00000' +
'000000FFFFFF000000000000000000FFFFFF000000000000F FFFFF' +
'000000000000000000FFFFFF000000000000FFFFFF0000000 00000' +
'000000FFFFFF000000000000000000');
s8 := BitmapFromString(5, 8,
'000000FFFFFFFFFFFFFFFFFF000000FFFFFF0000000000000 00000' +
'FFFFFFFFFFFF000000000000000000FFFFFF000000FFFFFFF FFFFF' +
'FFFFFF000000FFFFFF000000000000000000FFFFFFFFFFFF0 00000' +
'000000000000FFFFFFFFFFFF000000000000000000FFFFFF0 00000' +
'FFFFFFFFFFFFFFFFFF000000');
s9 := BitmapFromString(5, 8,
'000000FFFFFFFFFFFFFFFFFF000000FFFFFF0000000000000 00000' +
'FFFFFFFFFFFF000000000000000000FFFFFF000000FFFFFF0 00000' +
'000000FFFFFF000000000000FFFFFFFFFFFFFFFFFF0000000 00000' +
'000000000000FFFFFF000000000000000000000000FFFFFF0 00000' +
'000000000000000000FFFFFF');
end;
Function GetStatFor(stat:string; bottom:integer):integer;
var ox,oy,ox2,oy2,col,row:integer;
begin
if(s0=0)then
LoadStatBmps;
if(not (GetColor(592,175)=2763390))then
begin
Mouse(577,178,10,10,true);
end;
if(stat='attack')or(stat='strength')or(stat='defen se')or(stat='ranged')or(stat='prayer')or(stat='mag ic')or(stat='rc')then
col:=1
if(stat='hp')or(stat='agility')or(stat='herb')or(s tat='thieve')or(stat='craft')or(stat='fletch')then
col:=2
if(stat='mine')or(stat='smith')or(stat='fish')or(s tat='cook')or(stat='fire')or(stat='wc')then
col:=3
if(stat='attack')or(stat='hp')or(stat='mine')then
row:=1
if(stat='strength')or(stat='agility')or(stat='smit h')then
row:=2
if(stat='defense')or(stat='herb')or(stat='fish')th en
row:=3
if(stat='range')or(stat='thieve')or(stat='cook')th en
row:=4
if(stat='prayer')or(stat='craft')or(stat='fire')th en
row:=5
if(stat='magic')or(stat='fletch')or(stat='wc')then
row:=6
if(stat='rc')then
row:=7
if(bottom=0)then
begin
ox:=520+(col*64);
oy:=179+(row*31);
end;
if(bottom=1)then
begin
ox:=532+(col*64);
oy:=191+(row*31);
end;
ox2:=ox+9
oy2:=oy+9
if(FindBitmapMaskTolerance(s1,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=10
if(FindBitmapMaskTolerance(s2,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=20
if(FindBitmapMaskTolerance(s3,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=30
if(FindBitmapMaskTolerance(s4,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=40
if(FindBitmapMaskTolerance(s5,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=50
if(FindBitmapMaskTolerance(s6,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=60
if(FindBitmapMaskTolerance(s7,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=70
if(FindBitmapMaskTolerance(s8,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=80
if(FindBitmapMaskTolerance(s9,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=90
ox:=ox+6
ox2:=ox+9
if(FindBitmapMaskTolerance(s0,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=Result+0
if(FindBitmapMaskTolerance(s1,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=Result+1
if(FindBitmapMaskTolerance(s2,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=Result+2
if(FindBitmapMaskTolerance(s3,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=Result+3
if(FindBitmapMaskTolerance(s4,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=Result+4
if(FindBitmapMaskTolerance(s5,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=Result+5
if(FindBitmapMaskTolerance(s6,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=Result+6
if(FindBitmapMaskTolerance(s7,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=Result+7
if(FindBitmapMaskTolerance(s8,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=Result+8
if(FindBitmapMaskTolerance(s9,x,y,ox,oy,ox2,oy2,10 ,240))then
Result:=Result+9
end;
Function GetHp:integer;
var Hp1,Hp2:integer;
begin
Hp1:=(GetStatFor('hp',0))
Hp2:=(GetStatFor('hp',1))
if(Hp1>0)and(Hp2>0)then
Result:=round((Hp1/Hp2)*100);
end;
Procedure StartScriptSlow;
begin
repeat
status(inttostr(round((ST-(GetSystemTime-5000))/1000)))
wait(100)
until(GetSystemTime-ST>4999)
end;
Procedure SetupOSi;
begin
setmousemode(false)
loadchars('')
ClearReport;
flag:=BitmapFromString(2, 2,
'FF00005D3311C656045D3311');
ST:=GetSystemTime;
Writeln('Using OSi Version 4.011 - Created by Odie5533')
end;
Reply With Quote
