killerpoop
2008-10-05 02:44:56
<!– BEGIN TEMPLATE: formanswers –>
killerpoop - SRL Member Application Form
killerpoop
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
None
Other Communitys
I am a mod at BlackScape
How Long have You Played Runescape
6-7 years on and off
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Before i came to SRL i could barely even run a script, but look i actually made one thanks to EVERYONE who wrote those amazing guides. I am going to school for Computer Programming on October 17th, i am going to try and double major in Information Tech.
I am currently i think the only Mod on BlackScape, I was a polevaulter in highschool, 11'6", yeah beat that :p.
I am a very quick learner but still a newb when it comes to scar i can write scripts, but not ones that come close to what some of the people here can. I really think that it is amazing how you guys can do stuff like that it really intrigues me to want to learn as much as i possibly and as quickly as i possible can lol.
Thanks.
(I looked at my preview and saw the question what is the meaning to life… I can't find the question on this page, so im going to put my answer here, The meaning of life isn't to be rich or to be popular its how you feel when you know everything is right.)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
killerpoop - SRL Member Application Form
killerpoop
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
None
Other Communitys
I am a mod at BlackScape
How Long have You Played Runescape
6-7 years on and off
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Before i came to SRL i could barely even run a script, but look i actually made one thanks to EVERYONE who wrote those amazing guides. I am going to school for Computer Programming on October 17th, i am going to try and double major in Information Tech.
I am currently i think the only Mod on BlackScape, I was a polevaulter in highschool, 11'6", yeah beat that :p.
I am a very quick learner but still a newb when it comes to scar i can write scripts, but not ones that come close to what some of the people here can. I really think that it is amazing how you guys can do stuff like that it really intrigues me to want to learn as much as i possibly and as quickly as i possible can lol.
Thanks.
(I looked at my preview and saw the question what is the meaning to life… I can't find the question on this page, so im going to put my answer here, The meaning of life isn't to be rich or to be popular its how you feel when you know everything is right.)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program AutoCut;
Var
TreeName,Username,Password,RunDirection,LampSkill,ScarDisguiseName,
LogName:String;
TreeColor1,TreeColor2,TreeColor3,LogColor1,LogColor2,LogOutHp,
TargetLogColor,TargetColor,RandC,RandD:Integer;
Procedure Setup;
Begin
{ -- SETUP -- }
TreeName:= '';
LogName:='';
TreeColor1:= 0;
TreeColor2:= 0;
TreeColor3:= 0;
LogColor1:= 0; // Put Log in 1st invy Spot for auto collect colors.
LogColor2:= 0; // Put Log in 1st invy Spot for auto collect colors.
{ -- ANTI RANDOM -- }
Username:= '';
Password:= '';
RunDirection:= 'N';
LampSkill:= 'Woodcutting';
ScarDisguiseName:= 'i Tunes';
LogOutHp:= 5;
{ -- END OF SETUP -- }
End;
Procedure Getcolors;
Begin
GetTab('Invy')
ClickRBox(574,222,590,237,False)
If(IsTextUpIn(LogName,563,210,738,348))Then
Click(537,260,5,5,True)
LogColor1:= Getcolor(576,226);
LogColor2:= Getcolor(588,233);
End;
Function InFight:Boolean;
Begin
If(Getcolor(359, 360)=65280)Then Result:= True;
End;
Procedure CheckDead;
Begin
If(Dead)Then Logout;
End;
Procedure CheckFight;
Begin
If(InFight)Then
Run(True)
Walk(RunDirection)
LogOut;
End;
Procedure AntiEnt;
Begin
If(IsTextUpInColor(TreeName,65535,x,y,x+100-0,y+100-0))Then
StandStillFor(30000,4000)
End;
Procedure RubLamp;
Begin
Lamp(LampSkill)
End;
Procedure Randoms;
Begin
CheckFight;
RubLamp;
AntiEnt
End;
Procedure LoginIfNeeded;
Begin
LoginToRS(Username,Password);
Randoms;
End;
Procedure Chop(Num:Integer);
Begin
Case Num Of
1: TargetColor:= TreeColor1;
2: TargetColor:= TreeColor2;
3: TargetColor:= TreeColor3;
End;
ClickColor(TargetColor,0,0,False)
If(IsTextUp('Chop'))And(IsTextUp(TreeName))Then
Begin
TClick('Chop Down '+TreeName,True)
Randoms
Repeat
Wait(1000+Random(500))
Until(Not(Getcolor(x,y)=TargetColor))
End;
End;
Procedure Drop(Num:Integer);
Begin
Case Num Of
1: TargetLogColor:= LogColor1;
2: TargetLogColor:= LogColor2;
End;
DropItem(TargetLogColor);
End;
Procedure LogHP;
Begin
HP:= GetHP;
If(HP < LogOutHp)Then Logout;
End;
begin
Setup;
ActivateClient;
LoginIfNeeded;
Getcolors;
Repeat
SetVbright;
RandC:= 1 + random(2);
RandD:= 1 + Random(1);
Chop(RandC)
If((InventoryCount)=28)Then
Drop(RandD)
Until(False)
end.——————————————————
<!– END TEMPLATE: formanswers –>