hakeris15
2007-03-25 05:28:36
<!– BEGIN TEMPLATE: formanswers –>
hakeris15 - SRL Member Application Form
hakeris15
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
c, c++ OOP
Other Communitys
dont have …
How Long have You Played Runescape
Don't remember
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
Hmm i am quik lerner :) , but me English is bad .. so not all time ewery understand wath i say … :) Lithuania roolz :)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
hakeris15 - SRL Member Application Form
hakeris15
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
c, c++ OOP
Other Communitys
dont have …
How Long have You Played Runescape
Don't remember
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
Hmm i am quik lerner :) , but me English is bad .. so not all time ewery understand wath i say … :) Lithuania roolz :)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program ChickenKiller;
{.include srl/srl.scar}
{.Include srl/srl/skill/fighting.scar}
Const
HPlayers = 5;//How many players to use.
CC1 = 792178;//these colors are good so dont change =)
CC2 = 2029819;
CC3 = 4679296;
CC4 = 4217714;
TimeToKill = 8;//how long it takes to kill chicken
Var
I,CheckHp,Water,WT,BB : Integer;
Killed, Exp, TheAuto : Integer;
Ver : String;
CC : array[1..4] of Integer;
Feather : array[1..2] of integer;
RawMeat : array[1..3] of Integer;
procedure Declareplayers;
begin
HowManyPlayers:=(HPlayers);
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :=''; //PlayerName
Players[0].Pass :=''; //Password
Players[0].Nick :='';//Players nick name( a few letters from playername)
Players[0].Skill :='';//The skill to pick if you get Genie random
Players[0].Integer1 := 45;//Kills to do
Players[0].Boolean1 := False;//Pick Up Feathers?
Players[0].String1 := 'shared';//attack,strength,shared,defense
Players[0].Loc :='Chicken Pen'; //leave this alone
Players[0].Active :=True;// Leave this alone 2
Players[1].Name :=''; //PlayerName
Players[1].Pass :=''; //Password
Players[1].Nick :='';//Players nick name( a few letters from playername)
Players[1].Skill :='';//The skill to pick if you get Genie random
Players[1].Integer1 := 45;//Kills to do
Players[1].Boolean1 := False;//Pick Up Feathers?
Players[1].String1 := 'shared';//attack,strength,shared,defense
Players[1].Loc :='Chicken Pen'; //leave this alone
Players[1].Active :=True;// Leave this alone 2
Players[2].Name :=''; //PlayerName
Players[2].Pass :=''; //Password
Players[2].Nick :='';//Players nick name( a few letters from playername)
Players[2].Skill :='';//The skill to pick if you get Genie random
Players[2].Integer1 := 45;//Kills to do
Players[2].Boolean1 := False;//Pick Up Feathers?
Players[2].String1 := 'shared';//attack,strength,shared,defense
Players[2].Loc :='Chicken Pen'; //leave this alone
Players[2].Active :=True;// Leave this alone 2
Players[3].Name :=''; //PlayerName
Players[3].Pass :=''; //Password
Players[3].Nick :='';//Players nick name( a few letters from playername)
Players[3].Skill :='';//The skill to pick if you get Genie random
Players[3].Integer1 := 45;//Kills to do
Players[3].Boolean1 := False;//Pick Up Feathers?
Players[3].String1 := 'shared';//attack,strength,shared,defense
Players[3].Loc :='Chicken Pen'; //leave this alone
Players[3].Active :=True;// Leave this alone 2
Players[4].Name :=''; //PlayerName
Players[4].Pass :=''; //Password
Players[4].Nick :='';//Players nick name( a few letters from playername)
Players[4].Skill :='';//The skill to pick if you get Genie random
Players[4].Integer1 := 45;//Kills to do
Players[4].Boolean1 := False;//Pick Up Feathers?
Players[4].String1 := 'shared';//attack,strength,shared,defense
Players[4].Loc :='Chicken Pen'; //leave this alone
Players[4].Active :=True;// Leave this alone 2
Players[5].Name :=''; //PlayerName
Players[5].Pass :=''; //Password
Players[5].Nick :='';//Players nick name( a few letters from playername)
Players[5].Skill :='';//The skill to pick if you get Genie random
Players[5].Integer1 := 45;//Kills to do
Players[5].Boolean1 := False;//Pick Up Feathers?
Players[5].String1 := 'shared';//attack,strength,shared,defense
Players[5].Loc :='Chicken Pen'; //leave this alone
Players[5].Active :=True;// Leave this alone 2
End;
Procedure CheckRandoms;
Begin
FindMod;
FindDead;
FindDemon;
SolveCerter;
If(FindFrogCave) Then
Begin
SolveFrogSwamp;
end;
FindTalk;
FindName;
FindLamp(Players[CurrentPlayer].Skill);
End;
Procedure SetFight;
Begin
Case Lowercase(Players[CurrentPlayer].String1) of
'attack' : SetFightMode(1);
'strength' : SetFightMode(2);
'shared' : SetFightMode(3);
'defense' : SetFightMode(4);
End;
End;
Procedure SetUp;
Begin
HighestAngle;
SetChat('On',1);
SetChat('Off',2);
SetChat('Off',3);
PerfectNorth;
SetRun(True);
End;
Procedure InitiateColors;
Begin
Feather[1] := 12171714;
Feather[2] := 9472;
RawMeat[1] := 7829911
RawMeat[2] := 9408950;
RawMeat[3] := 11251145;
WriteLn('Done Initiating Color Arrays');
WriteLn('WILL BE ADDING THIS IN LATERZ');
End;
Procedure Rotate;
Begin
Case Random(4) Of
0 : MakeCompass('W');
1 : MakeCompass('S');
2 : MakeCompass('E');
3 : MakeCompass('N');
End;
end;
Procedure GetThoseChickens;
Var
XX , YY, Search : Integer;
Begin
CheckHp := GetHp;
WriteLn('We started fighting at '+IntToStr(CheckHp)+' Health Points');
Repeat
MarkTime(Search);
If(FindColorSpiralTolerance(XX,YY,CC1,MSX1,MSY1,MSX2,MSY2,15)) Or
(FindColorSpiralTolerance(XX,YY,CC2,MSX1,MSY1,MSX2,MSY2,15)) Or
(FindColorSpiralTolerance(XX,YY,CC3,MSX1,MSY1,MSX2,MSY2,15)) Or
(FindColorSpiralTolerance(XX,YY,CC4,MSX1,MSY1,MSX2,MSY2,15)) Then
MMouse(XX,YY,2,2);
Wait(1);
Until(IsUpText('Chic') or (TimeFromMark(Search) >= 8000))
If(TimeFromMark(Search) >= 1000)Then
Begin
Rotate;
GetThoseChickens;
End;
Mouse(XX,YY,0,0,True);
Flag;
CheckRandoms;
SRlRandomsReport;
Wait(TimeToKill*1000+Random(1750));
Killed := Killed + 1;
Exp := EXp + 12;
End;
Procedure FullReport;
Begin
Ver := '1.0';
WriteLn('Player : '+Players[CurrentPlayer].Name);
WriteLn('Killed : '+IntToStr(Killed));
WriteLn('Exp : '+IntToStr(Exp));
WriteLn('Time Autoing : '+TimeRunning);
WriteLn('Buckley''s Chicken Sweeper '+Ver);
End;
Procedure SetUpScript;
Begin
BenMouse := False;
MouseSpeed := 25;
SRLRandomsReport;
If(not(LoggedIn)) Then
begin
LoginPlayer;
SetUp;
End;
If(LoggedIn)Then
Begin
SetUp;
End;
End;
Begin
SetUpSRL;
DeclarePlayers;
Repeat
SetUpScript;
SetUp;
InitiateColors;
SetUp;
SetFight;
MarkTime(TheAuto);
Repeat
GetThoseChickens;
FullReport;
Until(Killed = Players[CurrentPlayer].Integer1)
If(Not(FindDead)) Then
Begin
NextPlayer(True);
End;
If(FindDead)Then
Begin
NextPlayer(False);
End;
Until(False)
End.
and this script is next ....
//edgeyewcterbnker_hakeris15.1b.scar
//made by Hakeris15
//tnx to realrune (i think) for the old script i've started to work on
// (without i'd nver started scripting)
//tnx -hai-
//tnx srl community for make scripting easier than ever
//and remeber is my first script so run it with caution
//remember to setup colors
//have fun
program edgeyewcutterbanker;
{.include srl/srl.scar}
{.include srl/srl/skill/woodcutting.scar}
var
deka:boolean;
kiki:integer;
ct:longint;
const
treecolor = 870456;
treecolorMM = 597039;
glvl = 99; //the level you wish to reach
procedure DeclarePlayers;
begin
HowManyPlayers:=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:=0;
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='';
Players[0].Active:=True;
end;
procedure FindWcRandoms;
begin
FindNormalRandoms;
FindAxeHeadColor;
if FindHead then begin
attachHead;
end;
FindBirdsNest;
FindEnt(TreeColor);
findDead;
findMod;
FindMime;
findMaze;
FindQuiz;
BoredHuman;
Findlamp ('woodcutting');
FindFight;
if (FindName = true) then;
begin
TalkToRand;
end;
WriteLn('random check');
if not loggedin then loginplayer;
end;
procedure ToTrees;
begin
setrun (true)
mouse(613,101,2,2,true);
Flag;
if (FindSymbol (x ,y ,'tree')) then
mouse(x+8,y-6,0,0,true);
Flag;
end;
procedure ToBank;
begin
mouse(650,40,2,2,true);
wait(10000);
flag;
if (FindSymbol(x, y, 'bank')) then
mouse(x,y,2,2,true);
end;
procedure banking;
begin
wait (5000)
OpenBank3;
WriteLn('bank opened');
wait (3000);
deposit (2, 28 , 2 );
WriteLn('deposited');
closebank;
end;
procedure choppers;
begin
deka:=false;
if FindColorSpiral(x,y,TreeColor,10,10,350,330)then begin
mmouse(x,y,0,0);
wait(100+random(50));
if IsUpText('Chop') and (not FindColorTolerance(x,y,55769,85,15,115,15,20)) then begin
if kiki=1 then begin
mouse(x,y,0,0,true);
kiki:=2
end;
deka:=true;
WriteLn('deka diventa true');
end
end
end;
procedure chopchecks;
begin
if deka then
FindWcRandoms;
begin
if not deka then
writeln ('no trees in there');
end
end;
begin
Setupsrl;
declareplayers;
perfectnorth;
DisguiseScar('Imageshack');
totrees;
ct:=2;
kiki:=1
repeat
RandomChatevery (3);
RandomRClickevery (3);
AntiBan;
Flag;
wait(800+random(200));
choppers;
chopchecks;
if (not deka) then begin
WriteLn('deka รจ diventato false');
kiki:=1
if ct=1 then begin
ct:=2;
WriteLn('Step to ct_1');
if FindColorSpiral(x,y,TreeColorMM,627,23,677,56) then begin
mouse(x+3,y+5,0,0,true);
wait(5000+random(200));
WriteLn('Found ct_1');
end;
end
else begin
ct:=1;
WriteLn('Step to ct_2');
if FindColorSpiral(x,y,TreeColorMM,631,110,672,133) then begin
mouse(x+3,y-12,0,0,true);
wait(5000+random(200));
WriteLn('Found ct_2');
end;
end;
end;
if InvFull then begin;
tobank;
banking;
totrees;
kiki:=1;
ct:=2;
end;
until(GetSkillLevel('Woodcutting')=Glvl);
end.
——————————————————
<!– END TEMPLATE: formanswers –>
