zonfire
2009-04-28 12:50:32
How Long have You Played Runescape?
5 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
i have scripted for scar during kaitnieks days
Are you a member of any other communities?
havent been active much since kait went on many sites
Tell us about yourself…
Please show us one (or multiple) of your scripts.
havent done much scripting lately i here is a col finding function and banking procedure for lumbridge which will be in a script hopefully soon to be released.
5 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
i have scripted for scar during kaitnieks days
Are you a member of any other communities?
havent been active much since kait went on many sites
Tell us about yourself…
From: zonfire
i scripted on kaits site for a while i had created guide miner, smelter fire runecrafter and a smither. i was a community member and well trusted and respected amongst the community.
Please show us one (or multiple) of your scripts.
havent done much scripting lately i here is a col finding function and banking procedure for lumbridge which will be in a script hopefully soon to be released.
function closecolpoint(centcordx,centcordy,skip,col:integer):boolean ;
var ccx,ccxx,ccyy,ccy:integer;
begin
ccx:=0;
ccxx:=0;
ccyy:=0;
ccy:=0;
result:=false;
ccx:=centcordx-10;
ccy:=centcordy-10;
ccxx:=centcordx+10;
ccyy:=centcordy+10;
repeat
if(FindColorTolerance(x,y,col,ccx,ccy,ccxx,ccyy,10) )then
begin
result:=true;
end;
ccx:=ccx-skip;
ccy:=ccy-skip;
ccxx:=ccxx+skip;
ccyy:=ccyy+skip;
until(result=true);
end;
procedure sopenbank;
var ttr:integer;
begin
ttr:=0
wait(100);
if(closecolpoint(331,70,5,8544600))then
begin
if(closecolpoint(x,y+30,5,8621719))then
begin
MMouse(x,y,0,0);
wait(1000+random(1000));
if(isuptext('Use'))then
begin
holdmouse(x,y,false);
wait(5+random(20));
releasemouse(x,y,false);
wait(1000+random(500));
chooseoption('-qui');
repeat
ttr:=ttr+1;
wait(1000+random(500));
lvledupp;
until((bankscreen=true) or (ttr=20));
DepositAll;
ttr:=0;
repeat
ttr:=ttr+1;
wait (100+random(5));
until((InvEmpty=true) or (ttr=300));
Withdraw(1,1,0);
wait(2000+random(1000));
closebank;
end;
end;
end;
end;