Julza
2007-10-15 02:40:04
<!– BEGIN TEMPLATE: formanswers –>
Julza - SRL Member Application Form
Julza
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Php
Other Communitys
Rune hq Ausrune-my site
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hi,
I am a computer programmer, mostly do websites:
Spend alot of hours on the computer, and also on runescape
Will try to be on SRL forums alot if i become a member
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
//////////////////////////////////Set up here if it doesnt work////////..
Program ChickenSlayer;
Const
RedBeakColor=857453; //Red part of chicken, also rite… only change if needed
HealthBar=65280; //Health bar ontop of your head, dont change it,its rite!
///////////////////////////Leave from here on :D//////////////////////////
Var
ChickenCount: Integer;
Function ChickenDead: Boolean;
Var
x,y:Integer;
Begin
Result:=True;
If(FindColorTolerance(x,y,HealthBar,290,209,471,364,3))Then
Begin
Result:=False;
End;
End;
Procedure KillChicken;
Var
x,y,Counter: Integer;
Stopper: Boolean;
Begin
FindColorTolerance(x,y,RedBeakColor,8,10,515,336,30);
MoveMouseSmoothEx(x,y,1,3,45,20,10);
ClickMouse(x,y,True);
Counter:=0;
Stopper:=False;
Repeat
Counter:=Counter+1;
If ChickenDead Then
Begin
Stopper:=True;
End;
Wait(10000)
Until(Stopper=True) Or (Counter>=5)
End;
Begin
MoveToTray;
ActivateClient;
Repeat
KillChicken;
ChickenCount:=ChickenCount+1;
Until(ChickenCount >=200000)
End.
end;
——————————————————
<!– END TEMPLATE: formanswers –>
Julza - SRL Member Application Form
Julza
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Php
Other Communitys
Rune hq Ausrune-my site
How Long have You Played Runescape
4 years
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Hi,
I am a computer programmer, mostly do websites:
Spend alot of hours on the computer, and also on runescape
Will try to be on SRL forums alot if i become a member
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
//////////////////////////////////Set up here if it doesnt work////////..
Program ChickenSlayer;
Const
RedBeakColor=857453; //Red part of chicken, also rite… only change if needed
HealthBar=65280; //Health bar ontop of your head, dont change it,its rite!
///////////////////////////Leave from here on :D//////////////////////////
Var
ChickenCount: Integer;
Function ChickenDead: Boolean;
Var
x,y:Integer;
Begin
Result:=True;
If(FindColorTolerance(x,y,HealthBar,290,209,471,364,3))Then
Begin
Result:=False;
End;
End;
Procedure KillChicken;
Var
x,y,Counter: Integer;
Stopper: Boolean;
Begin
FindColorTolerance(x,y,RedBeakColor,8,10,515,336,30);
MoveMouseSmoothEx(x,y,1,3,45,20,10);
ClickMouse(x,y,True);
Counter:=0;
Stopper:=False;
Repeat
Counter:=Counter+1;
If ChickenDead Then
Begin
Stopper:=True;
End;
Wait(10000)
Until(Stopper=True) Or (Counter>=5)
End;
Begin
MoveToTray;
ActivateClient;
Repeat
KillChicken;
ChickenCount:=ChickenCount+1;
Until(ChickenCount >=200000)
End.
end;
——————————————————
<!– END TEMPLATE: formanswers –>