KuJi
2007-03-03 11:51:04
<!– BEGIN TEMPLATE: formanswers –>
KuJi - SRL Member Application Form
KuJi
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
Google ;)
Programming Knowledge
Other Communitys
http://graalonline.com
How Long have You Played Runescape
Restarted playing since 2004 =o
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Haven't messed with Scar in some time now, rarely have been playing Runescape. Kind of bores me now, but forum communities 'can' get fun ;).
Anyway, yeah, the only script I've released on the forums I attached. I've reformatted and lost anything else I really made.
Knowledge in 'Real' Coding:
C -> Didn't really use this for much, most of the coding I know in C is what I know from C++.
C++ -> I've done pretty much all the basics, never really 'exceeded' past that since I am into PHP-Coding over C/C++.
CSS / HTML -> Use it with PHP, I guess.
PHP -> Pretty much mastered PHP… or at least 80% of it.
Game Coding:
Graal -> I am probally in the top 10 best scripters of that game..
Ragnarok -> I've done a bit of work with that a little bit of a year ago.
About it =o.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
KuJi - SRL Member Application Form
KuJi
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
yes
Google ;)
Programming Knowledge
Other Communitys
http://graalonline.com
How Long have You Played Runescape
Restarted playing since 2004 =o
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Haven't messed with Scar in some time now, rarely have been playing Runescape. Kind of bores me now, but forum communities 'can' get fun ;).
Anyway, yeah, the only script I've released on the forums I attached. I've reformatted and lost anything else I really made.
Knowledge in 'Real' Coding:
C -> Didn't really use this for much, most of the coding I know in C is what I know from C++.
C++ -> I've done pretty much all the basics, never really 'exceeded' past that since I am into PHP-Coding over C/C++.
CSS / HTML -> Use it with PHP, I guess.
PHP -> Pretty much mastered PHP… or at least 80% of it.
Game Coding:
Graal -> I am probally in the top 10 best scripters of that game..
Ragnarok -> I've done a bit of work with that a little bit of a year ago.
About it =o.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
{
# Script Name = Cow Bones Grab / Digger
# Scripter = KuJi
# Scar Version = Scar 2.03 (SRL)
# Last Updated = November 08, 2006
}
program CowBones;
{.include SRL/SRL.scar}
Const
// Setup
newName = 'Mozilla Firefox Start Page - Mozilla Firefox'; // Disguise Scar Name
LSkill = 'Prayer'; // Lamp Skill (Genies)
totalBury = 100;
// Colors
boneColor = 9671582; // Color of the Bones (In Inventory)
boneColor1 = 10724271; // Color of the Bones (On Floor)
boneColor2 = 5789790; // Color of the Bones (On Floor)
Var
reportBone : Integer;
procedure SetupPlayers;
begin
NumberOfPlayers(1);
Players[0].Name := 'ACCOUNT';
Players[0].Pass := 'PASSWORD';
Players[0].Nick := 'NICKNAME';
Players[0].Active := True;
end;
procedure BuryBone;
begin
GameTab(4)
repeat
if (FindObjArea(x, y, 'Bones', 557, 211, 734, 458, boneColor, 5, true)) then
begin
isuptext('Bones');
Mouse(x, y, 5, 5, true);
reportBone := reportBone + 1;
Writeln('-----------------------------------------');
Writeln(' Bone Burier by Joey / KuJi ');
Writeln('-----------------------------------------');
Writeln('Currently Buried: ' + IntToStr(reportBone));
Writeln(IntToStr(totalBury - reportBone) + ' more to bury! ');
Writeln('-----------------------------------------');
Writeln(' Bone Burier by Joey / KuJi ');
Writeln('-----------------------------------------');
end;
until (InvCount = 0);
end;
procedure FindBone;
begin
if (FindColorTolerance(x, y, boneColor1, Msx1, Msy1, Msx2, Msy2, 10)) or (FindColorTolerance(x, y, boneColor2, Msx1, Msy1, Msx2, Msy2, 10)) then
begin
MMouse(x, y, 0, 0);
if (IsUpText('ake')) then
begin
Mouse(x, y, 2, 2, false);
Flag;
end;
end;
end;
procedure Main;
begin
repeat
if (Not(LoggedIn)) then
LoginPlayer;
if (InvFull) then
begin
BuryBone;
end else
FindBone;
until (reportBone = totalBury);
Logout;
end;
procedure SetupConfig;
begin
BenMouse := True;
MouseSpeed := 7;
end;
begin
Writeln('Starting Bone Picker / Burier');
Writeln('by Joey / KuJi');
DisguiseScar(newName);
SetupConfig;
SetupPlayers;
SetupSRL;
if (Not(LoggedIn)) then
LoginPlayer;
Main;
end.
——————————————————
<!– END TEMPLATE: formanswers –>