smileplz
Forum Addict
i bought afew scripts of a guy a while ago havent head from him since lol
i think may of died from 0d but i dont know he was heavy drug user
if u guy can help fix it or make me anothe rone id be happy
take a look
//----------PowerFighter By Chop BETA*----------\\
// For both RS2 and SS \\
// \\
//--------------------Credits-------------------\\
//**Stupid3ooo For his 1337 include
//**Someone :S For making boxbreaker
gj
//**Jagex for being tight arses and banning my main
//**Which incluenced me to make more scripts to fuck them over!
//--------------------Credits-------------------\\
// \\
//--------------------Includes------------------\\
//**SSI2.txt
//**Boxbreaker.txt
//--------------------Includes------------------\\
//
//---------------------Setup--------------------\\
//Setup Lines 35-62
//Drag crosshair over runescape
//Hit play and ENJOY!
//Sorry about the swearing in the script but im pissed off lol :S
//NOTE* please dont use arrow collector. it doesnt work atm still in the making
//---------------------Setup--------------------\\
program PowerFighterbyChop;
var
Color1,Color2,Tol,FoodColor,EatAt,Timeout,Report,Ate,Report2,Killed:integer;
MonsterColor,ax,ay,c,ArrowColor,TeleportTo,Varrock,Fally:integer;
EatFood,CHP,Attacking,Run,Att,TakeArrows,InFight,TeleportRunes:boolean;
STT,LastFight,TBF,TT:LongInt;
RunDirection,ArrowKind:string;
{.include SSI2.txt}
{.include boxbreaker.txt}
procedure SetUp;
begin
//Please remember to input username and password into SSI2.txt!
Color1:=1189028; //1st color of monster
Color2:=950658; //2nd color of monster
Tol:=10; //Color tolerance for monster leave at 10
TeleportRunes:=true; //Do you want to tele if ur health gets low with no food?
TeleportTo:=2; //1=varrock,2=fally
SetFightMode(2); //Sets fight mode 1 - 4
//++++NOT WORKING!+++++\\
TakeArrows:=false; //pick up arrows? //not really working so dont bother
ArrowColor:=923247; //Arrow feather color
ArrowKind:='arrow'; //Bronze,Iron,Steel,Mith,Addy,Rune
//++++NOT WORKING!+++++\\
EatFood:=true; //Eat food? true or false?
FoodColor:=1664958; //Food invo color '1664958'=lobster
EatAt:=70; //Eat food at hp %
RunDirection:= 'S'; //Which way to run if fight?
Timeout:=40; //Maximum time fight lasts
TBF:=8; //Maximum time between fights (minutes)
Report:=5; //Print progress every () minutes
end;
procedure LogDaFuckOut;
var a,t:integer;
begin
if(not(GetColor(631,490)=2829182))then
begin
a:=0;
t:=0;
begin
Mouse(647,484,1,1,true);
repeat
t:=t+1;
Wait(1000+random(100));
until(GetColor(619,376)=16777215) or (c>10);
begin
repeat
a:=a+1;
Wait(5000+random(5000));
Mouse(654,376,1,1,true);
until(not(GetColor(619,376)=16777215)or(a>10));
Writeln('You Logged The Fuck Out!');
end;
end;
end;
end;
procedure CheckTele;
begin
if(TeleportRunes=true)then
begin
GameTab(7);
Wait(100);
Mouse(728,237,1,1,true);
Wait(100);
begin
case TeleportTo of
1: begin if(TeleportTo=1)and(FindBitmap(Varrock,x,y))then
begin
FindBitmap(Varrock,x,y)
Mouse(x,y,1,1,true);
Wait(5000);
LogDaFuckOut;
end else
if(not(FindBitmap(Varrock,x,y)))then
begin
LogDaFuckOut;
Writeln('Sorry but make sure you have tele runes next time!');
end;
end;
2: begin if(TeleportTo=2)and(FindBitmap(Fally,x,y))then
begin
FindBitmap(Fally,x,y)
Mouse(x,y,1,1,true);
Wait(5000);
LogDaFuckOut;
end else
if(not(FindBitmap(Varrock,x,y)))then
begin
Writeln('Sorry but make sure you have tele runes next time!');
LogDaFuckOut;
end;
end;
end;
end;
end;
end;
procedure FFSTele;
begin
if(not(FindColorSpiral(x,y,FoodColor,560,210,730,460)))and(GetHp<80)then
begin
GameTab(7);
if(GetColor(682,272)=16711423)and(GetColor(683,415)=0)then
begin
CheckTele;
end;
end;
end;
procedure EatDeFood;
var f:integer;
begin
if(GetHp<EatAt)then
begin
Writeln('Your ass is nearly dead! i think you have to eat?')
GameTab(4);
Wait(100+random(1000));
if(EatFood) and (FindColorSpiral(x,y,FoodColor,560,210,730,460))then
GameTab(4);
if(FindColorSpiral(x,y,FoodColor,560,210,730,460))then
begin
repeat
GameTab(4);
FindColorSpiral(x,y,FoodColor,560,210,730,460)
Wait(100);
Mouse(x,y,2,2,true);
Wait(3000+random(500));
Ate:=Ate+1;
f:=f+1;
until(GetHp>80)or(f>2);
end;
begin
GameTab(4);
end;
if(not(FindColorSpiral(x,y,FoodColor,560,210,730,460)))and(GetHp<80)then
begin
FFSTele;
Wait(1000+random(1000));
Writeln('Logged out because you had no food!');
CHP:=false;
end;
end;
end;
procedure Randoms;
begin
LoginIfNeeded;
FindNormalRandoms;
FindBox;
end;
procedure PickUpArrows;
var a:integer;
begin
if(InFight=false) and (TakeArrows=true)then
begin
Wait(1000+random(1000));
a:=0;
repeat
If(FindColorSpiral(x,y,ArrowColor,4,4,515,337))then
a:=a+1;
Writeln('Picking Up Arrows, Please Wait!');
Mouse(x,y,0,0,false);
Wait(100);
ChooseOption(ArrowKind);
Wait(1000+random(500));
until(not(FindColorSpiral(x,y,ArrowColor,4,4,515,337)))or(a>4);
end;
end;
procedure DeProgressReport;
var
RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
Time:String;
begin
if(GetSystemTime-report2 > report*60000)then
begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
begin
writeln(' ');
writeln('<=============Progress Report===========>');
writeln('Worked for '+Time);
writeln('Fought '+inttostr(Killed)+' time');
if(EatFood)then
writeln('Ate '+inttostr(ate)+' pieces of food')
writeln('<=================BY CHOP===============>');
Report2:=GetSystemTime;
end;
end;
end;
procedure AttackDeMonster;
begin
MonsterColor:=random(2);
case MonsterColor of
0:MonsterColor:=Color1;
1:MonsterColor:=Color2;
end;
x:=25+random(200);
y:=25+random(200);
if(FindColorSpiralTolerance(ax,ay,MonsterColor,5,5,515,337,Tol))then
begin
GetMousePos(x,y);
MoveMouseSmooth(x,y);
if(not(FindColor(ax,ay,65280,ax-15,ay-30,ax+10,ay+15)))and
(not(FindColor(ax,ay,65280,240,125,270,180)))then
begin
Mouse(ax,ay,1,1,false);
Wait(150+random(50));
begin
ChooseOption('Attack');
Attacking:=true;
for c:=0 to 3 do
if(not(FindColorSpiral(ax,ay,65280,240,125,270,180)))then
begin
Flag;
Wait(500+random(100));
Randoms;
end else
MMouse(5,5,60,60);
end;
end;
end;
end;
procedure WaitWhileAttacking;
var c:integer;
begin
if(FindColorSpiral(ax,ay,65280,240,125,270,180))then
begin
if(Attacking)then
begin
Killed:=Killed+1;
Attacking:=false;
InFight:=true;
end;
STT:=GetSystemTime;
repeat
TT:=(GetSystemTime-STT)/1000;
status('Fighting Monster for ' + inttostr(TT) + ' Second.');
Wait(300);
if(TT>Timeout)then
Run:=true;
if(c>3)then
begin
Randoms;
if(GetHp<EatAt)then
CHP:=true;
c:=0;
end;
c:=c+1;
until(not(FindColorSpiral(ax,ay,65280,240,125,270,180)))or(Run)or(CHP)
if(Run)then
begin
Writeln('Fight lasted toooooooooo long');
SetRun(true);
RunAwayDirection(RunDirection);
Wait(10000+random(5000));
RunBack;
Run:=false;
end;
if(CHP)then
EatDeFood;
LastFight:=GetSystemTime;
end;
end;
procedure TeleBmps;
begin
Fally := BitmapFromString(10, 6, 'z78DA3377347774B3340793C6' +
'A6C62666AE6E6E6EAE6E584888AC39927A645D062060085109616' +
'392C82620EB42D68B4CE23201975E5CF6E2B79D78379BE3082B62' +
'740100B2A14EDC');
Varrock := BitmapFromString(10, 6, 'z78DA3377347774B3340793' +
'C6A6C62666AE06206088494264CD91D423EB7273737375C3A9172' +
'28B6C02B25DC4E8457603A63B314DC01421DE764C1B71F91A593D' +
'7E5D00A8B24E5B');
end;
begin
SetUpSSI;
SetUp;
TeleBmps;
LoginIfNeeded;
Report2:=ST;
GameTab(4);
ChatsOff;
SetRun(true);
TBF:=TBF*60000;
LastFight:=GetSystemTime;
InFight:=false;
repeat
Randoms;
Wait(300+random(150));
Att:=False;
AttackDeMonster;
WaitWhileAttacking;
if(EatFood=true)then
begin
EatDeFood;
end;
if(TakeArrows=true)then
begin
PickUpArrows;
end;
DeProgressReport;
until(GetSystemTime-LastFight>TBF);
LogOut;
Writeln('Loop Ended');
end.
i think may of died from 0d but i dont know he was heavy drug user
if u guy can help fix it or make me anothe rone id be happy
take a look
//----------PowerFighter By Chop BETA*----------\\
// For both RS2 and SS \\
// \\
//--------------------Credits-------------------\\
//**Stupid3ooo For his 1337 include
//**Someone :S For making boxbreaker
gj//**Jagex for being tight arses and banning my main
//**Which incluenced me to make more scripts to fuck them over!
//--------------------Credits-------------------\\
// \\
//--------------------Includes------------------\\
//**SSI2.txt
//**Boxbreaker.txt
//--------------------Includes------------------\\
//
//---------------------Setup--------------------\\
//Setup Lines 35-62
//Drag crosshair over runescape
//Hit play and ENJOY!
//Sorry about the swearing in the script but im pissed off lol :S
//NOTE* please dont use arrow collector. it doesnt work atm still in the making
//---------------------Setup--------------------\\
program PowerFighterbyChop;
var
Color1,Color2,Tol,FoodColor,EatAt,Timeout,Report,Ate,Report2,Killed:integer;
MonsterColor,ax,ay,c,ArrowColor,TeleportTo,Varrock,Fally:integer;
EatFood,CHP,Attacking,Run,Att,TakeArrows,InFight,TeleportRunes:boolean;
STT,LastFight,TBF,TT:LongInt;
RunDirection,ArrowKind:string;
{.include SSI2.txt}
{.include boxbreaker.txt}
procedure SetUp;
begin
//Please remember to input username and password into SSI2.txt!
Color1:=1189028; //1st color of monster
Color2:=950658; //2nd color of monster
Tol:=10; //Color tolerance for monster leave at 10
TeleportRunes:=true; //Do you want to tele if ur health gets low with no food?
TeleportTo:=2; //1=varrock,2=fally
SetFightMode(2); //Sets fight mode 1 - 4
//++++NOT WORKING!+++++\\
TakeArrows:=false; //pick up arrows? //not really working so dont bother
ArrowColor:=923247; //Arrow feather color
ArrowKind:='arrow'; //Bronze,Iron,Steel,Mith,Addy,Rune
//++++NOT WORKING!+++++\\
EatFood:=true; //Eat food? true or false?
FoodColor:=1664958; //Food invo color '1664958'=lobster
EatAt:=70; //Eat food at hp %
RunDirection:= 'S'; //Which way to run if fight?
Timeout:=40; //Maximum time fight lasts
TBF:=8; //Maximum time between fights (minutes)
Report:=5; //Print progress every () minutes
end;
procedure LogDaFuckOut;
var a,t:integer;
begin
if(not(GetColor(631,490)=2829182))then
begin
a:=0;
t:=0;
begin
Mouse(647,484,1,1,true);
repeat
t:=t+1;
Wait(1000+random(100));
until(GetColor(619,376)=16777215) or (c>10);
begin
repeat
a:=a+1;
Wait(5000+random(5000));
Mouse(654,376,1,1,true);
until(not(GetColor(619,376)=16777215)or(a>10));
Writeln('You Logged The Fuck Out!');
end;
end;
end;
end;
procedure CheckTele;
begin
if(TeleportRunes=true)then
begin
GameTab(7);
Wait(100);
Mouse(728,237,1,1,true);
Wait(100);
begin
case TeleportTo of
1: begin if(TeleportTo=1)and(FindBitmap(Varrock,x,y))then
begin
FindBitmap(Varrock,x,y)
Mouse(x,y,1,1,true);
Wait(5000);
LogDaFuckOut;
end else
if(not(FindBitmap(Varrock,x,y)))then
begin
LogDaFuckOut;
Writeln('Sorry but make sure you have tele runes next time!');
end;
end;
2: begin if(TeleportTo=2)and(FindBitmap(Fally,x,y))then
begin
FindBitmap(Fally,x,y)
Mouse(x,y,1,1,true);
Wait(5000);
LogDaFuckOut;
end else
if(not(FindBitmap(Varrock,x,y)))then
begin
Writeln('Sorry but make sure you have tele runes next time!');
LogDaFuckOut;
end;
end;
end;
end;
end;
end;
procedure FFSTele;
begin
if(not(FindColorSpiral(x,y,FoodColor,560,210,730,460)))and(GetHp<80)then
begin
GameTab(7);
if(GetColor(682,272)=16711423)and(GetColor(683,415)=0)then
begin
CheckTele;
end;
end;
end;
procedure EatDeFood;
var f:integer;
begin
if(GetHp<EatAt)then
begin
Writeln('Your ass is nearly dead! i think you have to eat?')
GameTab(4);
Wait(100+random(1000));
if(EatFood) and (FindColorSpiral(x,y,FoodColor,560,210,730,460))then
GameTab(4);
if(FindColorSpiral(x,y,FoodColor,560,210,730,460))then
begin
repeat
GameTab(4);
FindColorSpiral(x,y,FoodColor,560,210,730,460)
Wait(100);
Mouse(x,y,2,2,true);
Wait(3000+random(500));
Ate:=Ate+1;
f:=f+1;
until(GetHp>80)or(f>2);
end;
begin
GameTab(4);
end;
if(not(FindColorSpiral(x,y,FoodColor,560,210,730,460)))and(GetHp<80)then
begin
FFSTele;
Wait(1000+random(1000));
Writeln('Logged out because you had no food!');
CHP:=false;
end;
end;
end;
procedure Randoms;
begin
LoginIfNeeded;
FindNormalRandoms;
FindBox;
end;
procedure PickUpArrows;
var a:integer;
begin
if(InFight=false) and (TakeArrows=true)then
begin
Wait(1000+random(1000));
a:=0;
repeat
If(FindColorSpiral(x,y,ArrowColor,4,4,515,337))then
a:=a+1;
Writeln('Picking Up Arrows, Please Wait!');
Mouse(x,y,0,0,false);
Wait(100);
ChooseOption(ArrowKind);
Wait(1000+random(500));
until(not(FindColorSpiral(x,y,ArrowColor,4,4,515,337)))or(a>4);
end;
end;
procedure DeProgressReport;
var
RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
Time:String;
begin
if(GetSystemTime-report2 > report*60000)then
begin
Seconds:=(GetSystemTime-ST) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
begin
writeln(' ');
writeln('<=============Progress Report===========>');
writeln('Worked for '+Time);
writeln('Fought '+inttostr(Killed)+' time
if(EatFood)then
writeln('Ate '+inttostr(ate)+' pieces of food')
writeln('<=================BY CHOP===============>');
Report2:=GetSystemTime;
end;
end;
end;
procedure AttackDeMonster;
begin
MonsterColor:=random(2);
case MonsterColor of
0:MonsterColor:=Color1;
1:MonsterColor:=Color2;
end;
x:=25+random(200);
y:=25+random(200);
if(FindColorSpiralTolerance(ax,ay,MonsterColor,5,5,515,337,Tol))then
begin
GetMousePos(x,y);
MoveMouseSmooth(x,y);
if(not(FindColor(ax,ay,65280,ax-15,ay-30,ax+10,ay+15)))and
(not(FindColor(ax,ay,65280,240,125,270,180)))then
begin
Mouse(ax,ay,1,1,false);
Wait(150+random(50));
begin
ChooseOption('Attack');
Attacking:=true;
for c:=0 to 3 do
if(not(FindColorSpiral(ax,ay,65280,240,125,270,180)))then
begin
Flag;
Wait(500+random(100));
Randoms;
end else
MMouse(5,5,60,60);
end;
end;
end;
end;
procedure WaitWhileAttacking;
var c:integer;
begin
if(FindColorSpiral(ax,ay,65280,240,125,270,180))then
begin
if(Attacking)then
begin
Killed:=Killed+1;
Attacking:=false;
InFight:=true;
end;
STT:=GetSystemTime;
repeat
TT:=(GetSystemTime-STT)/1000;
status('Fighting Monster for ' + inttostr(TT) + ' Second
Wait(300);
if(TT>Timeout)then
Run:=true;
if(c>3)then
begin
Randoms;
if(GetHp<EatAt)then
CHP:=true;
c:=0;
end;
c:=c+1;
until(not(FindColorSpiral(ax,ay,65280,240,125,270,180)))or(Run)or(CHP)
if(Run)then
begin
Writeln('Fight lasted toooooooooo long');
SetRun(true);
RunAwayDirection(RunDirection);
Wait(10000+random(5000));
RunBack;
Run:=false;
end;
if(CHP)then
EatDeFood;
LastFight:=GetSystemTime;
end;
end;
procedure TeleBmps;
begin
Fally := BitmapFromString(10, 6, 'z78DA3377347774B3340793C6' +
'A6C62666AE6E6E6EAE6E584888AC39927A645D062060085109616' +
'392C82620EB42D68B4CE23201975E5CF6E2B79D78379BE3082B62' +
'740100B2A14EDC');
Varrock := BitmapFromString(10, 6, 'z78DA3377347774B3340793' +
'C6A6C62666AE06206088494264CD91D423EB7273737375C3A9172' +
'28B6C02B25DC4E8457603A63B314DC01421DE764C1B71F91A593D' +
'7E5D00A8B24E5B');
end;
begin
SetUpSSI;
SetUp;
TeleBmps;
LoginIfNeeded;
Report2:=ST;
GameTab(4);
ChatsOff;
SetRun(true);
TBF:=TBF*60000;
LastFight:=GetSystemTime;
InFight:=false;
repeat
Randoms;
Wait(300+random(150));
Att:=False;
AttackDeMonster;
WaitWhileAttacking;
if(EatFood=true)then
begin
EatDeFood;
end;
if(TakeArrows=true)then
begin
PickUpArrows;
end;
DeProgressReport;
until(GetSystemTime-LastFight>TBF);
LogOut;
Writeln('Loop Ended');
end.