kooldude
2007-05-25 23:06:04
<!– BEGIN TEMPLATE: formanswers –>
kooldude - SRL Member Application Form
kooldude
What is the meaning to life?
Life is about taking risk's, about exploring what you havent yet achieved.
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Ive tried With C++ With Counter Strike Source But never Really got intrested
Other Communitys
Sythe,org
How Long have You Played Runescape
4-5 Years, ive had many accounts
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, I started scripting about 2-3 months ago, and became very active and wanting to know more about it. Ive became so intrested all ive done is this. I know all the basic involving scripting, Forms are comfusing :S but other than that ive learned everything, Ive read over the Srl-manual many times, in search of better procedures and functions. Im Not the best scripter in the world, but im a scripter thats learning the Advanced stuff. I normally spend about 5 hours + On srl-forums.com. I trust this website and want it to become a better place, i will help any scripter in need and will do anything i can for the community. :p
About my self:
My Name: Raymond Calhoun
Country: USA
Problems With Scripting: Forms, Sometimes Dont understand some advanced Procedures and Functions.
Activity: 5hours+ a day
Well hope you like my long Paragraph.
-kooldude
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Here it is
——————————————————
<!– END TEMPLATE: formanswers –>
kooldude - SRL Member Application Form
kooldude
What is the meaning to life?
Life is about taking risk's, about exploring what you havent yet achieved.
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
Ive tried With C++ With Counter Strike Source But never Really got intrested
Other Communitys
Sythe,org
How Long have You Played Runescape
4-5 Years, ive had many accounts
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, I started scripting about 2-3 months ago, and became very active and wanting to know more about it. Ive became so intrested all ive done is this. I know all the basic involving scripting, Forms are comfusing :S but other than that ive learned everything, Ive read over the Srl-manual many times, in search of better procedures and functions. Im Not the best scripter in the world, but im a scripter thats learning the Advanced stuff. I normally spend about 5 hours + On srl-forums.com. I trust this website and want it to become a better place, i will help any scripter in need and will do anything i can for the community. :p
About my self:
My Name: Raymond Calhoun
Country: USA
Problems With Scripting: Forms, Sometimes Dont understand some advanced Procedures and Functions.
Activity: 5hours+ a day
Well hope you like my long Paragraph.
-kooldude
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
Here it is
{ //-------------------------------------------------------------\\
|| INSTRUCTIONS ||
||-------------------------------------------------------------||
|| BY: Kooldude ||
|| ||
|| 1.Axe Wielded (Optinal)! ||
|| 2.Start Next To Oak East of Draynor Bank! ||
|| 3.Setup Lines are 31, 39 ||
|| 4.Drag Crosshair into RS window. ||
|| 5.Hit play and fill out forms. ||
|| ||
||-------------------------------------------------------------||
|| INSTRUCTIONS ||
\\-------------------------------------------------------------//
}
program RayzOakPowerChopper;
{.include srl/srl.scar}
{.include srl/srl/skill/Woodcutting.scar}
var
OakLog: integer;
BrokeAxe: Integer;
Loads: integer;
StartXp, EndXp, TotalXp: integer;
ChopMark:Integer;
const
AntiBanRatio= 10; //More the better :p (10 is highest)
LoadsToChop= 5; //Loads to chop before switcing players
{------------------------------}
{ Players }
{------------------------------}
procedure DeclarePlayers;
begin
HowManyPlayers := 3; //Number of PLAYERS. active or not.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; //Player to start on.
Players[0].Name :='Username';
Players[0].Pass :='Password';
Players[0].Nick :='NickName'; //3-4 *Lower Case* Letters Of Username!
Players[0].Active :=True;
Players[1].Name :='Username';
Players[1].Pass :='Password';
Players[1].Nick :='NickName'; //3-4 *Lower Case* Letters Of Username!
Players[1].Active :=True;
Players[2].Name :='Username';
Players[2].Pass :='PassWord';
Players[2].Nick :='Nick'; //3-4 *Lower Case* Letters Of Username!
Players[2].Active :=True;
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
{------------------------------}
{ BitMaps, DTM's }
{------------------------------}
Procedure BitmapsAndDMTs;
begin
OakLog := DTMFromString('78DA6314666060106440017921460CBF80342' +
'310FF0702460520439C010D302291405A1248B01250C30E247809' +
'A8110212D204D4B0010949FC6A00C18F06D5');
BrokeAxe := DTMFromString('78DA63E4656060E0674001CD29100146289F5' +
'11A48B033600570359240820F55AE538811550DC8583654354D49' +
'9CA86A3880842CAA9A50071E543520378B11700F37A6BF30D4886' +
'0BA07438D3890E042958B286E40510300ADF10595');
end;
{------------------------------}
{ OakCutting }
{------------------------------}
procedure ChopTree;
begin
if(FindColor(x,y,4026472,MSX1,MSY1,MSX2,MSY2))
or(FindColor(x,y,4624512,MSX1,MSY1,MSX2,MSY2))
or(FindColor(x,y,3690568,MSX1,MSY1,MSX2,MSY2))
or(FindColor(x,y,4096,MSX1,MSY1,MSX2,MSY2))then
MMouse(x,y,10,10)
If(IsUpText('ak'))then
Mouse(x,y,20,20,true)
Flag;
Wait(800)
if(not(LoggedIn))then
Nextplayer(false);
FindNormalRandoms;
FindHead;
MarkTime(ChopMark)
repeat
if(TimeFromMark(ChopMark)>=10000)then
Break;
wait(50+random(50))
until(InvFull)
end;
{------------------------------}
{ Broken Axe }
{------------------------------}
Procedure BrokeAxePro;
begin
If FindDTM(BrokeAxe, x, y, 0, 0,765, 503) then
begin
If FindColor(x, y, 3458523, 0, 0, 515, 339) then
Mouse(x, y, 2, 2, true)
Flag;
if FindColorTolerance(x, y, 5593184, 0, 0, 766, 501, 2) then
begin
Mouse(x, y, 1, 1, False)
if(isuptext('se')) then
begin
mouse(x,y,2,2,false)
wait(200+Random(200))
ChooseOption(x, y, 'se-uickly')
wait(200+Random(200))
end;
Mouse(94, 73, 1, 1, false)
if(isuptext('ithdraw 1')) then
begin
Mouse(96, 101, 1, 1, true)
wait(1000 +random(500))
Deposit(1,1,28)
FreeDTM(BrokeAxe)
end;
end;
end;
end;
{------------------------------}
{ Dropage }
{------------------------------}
Procedure Dropage;
begin
if (InvFull) then
begin
GameTab(4);
repeat
If FindDtm(OakLog,x,y,MIX1,MIY1,MIX2,MIY2)then
Writeln('Found OakLog!')
Mouse(x,y,2,2,false)
ClickOption('rop', 2);
until(not(FindDTM(OakLog,x,y,MIX1,MIY1,MIX2,MIY2)))
Loads:= Loads + 1;
if(Loads=Loadstochop)then
NextPlayer(True)
FreeDTM(Oaklog)
end;
end;
{------------------------------}
{ Ent Finder }
{------------------------------}
procedure EntFinder;
begin
if FindColorSpiral(x, y, 5804160, MSX1, MSY1, MSX2, MSY2)then
begin
Mmouse(x, y,0,0)
if isuptext('ak')then
begin
if FindColorSpiral(x, y, 65535, MSX1, MSY1, MSX2, MSY2)then
DoEmote(3)
wait(15458 +random(1324))
end;
end;
end;
{------------------------------}
{ AntiBanage }
{------------------------------}
procedure MouseAntiBan;
begin
if not(LoggedIn)then Exit;
case Random(6) of
0 : PickupMouse;
1 : IdleTime(9567 + Random(359),1000,1.0);
2 : SleepAndMoveMouse(1343 + Random(2500));
3 : RandomRClick;
4 : AlmostLogout;
5 : HoverSkill('Mining', false);
end;
end;
//------------------------------------------------------------------------\\
{ MyAntiBan - Anti-Ban procedure by Yakman. ||
\\------------------------------------------------------------------------//}
procedure MyAntiBan;
var
DItem, DBanMe, AntiBanRatio: Integer;
begin
if not(LoggedIn)then
Exit;
DBanMe := Random(AntiBanRatio);
case DBanMe of
0 : MMouse(Random(MSX2), Random(MSY2),0,0);
2 : HoverSkill('mining', False);
3 : HoverSkill('smithing', False);
8 : MouseAntiBan;
9 : begin
DItem:=1+random(14);
if(ExistsItem(DItem))then
DragItem(DItem,15+random(10));
end
10 : begin
GameTab(1+random(12));
wait(1500+random(500));
GameTab(4);
end;
end;
end;
{------------------------------}
{ Siggy }
{------------------------------}
procedure Siggy;
begin
ClearDebug;
writeln(' Kooldudes Power Chopper! ');
writeln(' __ __ ');
writeln(' | | / / ');
writeln(' | |/ / ');
writeln(' | / ');
writeln(' | \ ');
writeln(' | |\ \ ');
writeln(' |__| \__\ OOL DUDE ');
wait(3000 + random(750));
end;
{------------------------------}
{ Progress }
{------------------------------}
Procedure Progress;
begin
Loads:= 0
StartXP := GetXp('Woodcutting')
EndXP := GetXp('Woodcutting')
TotalXP := (EndXP - StartXP) + (TotalXP)
end;
{------------------------------}
{ ProgressReport }
{------------------------------}
Procedure ProgressReport;
Begin
SRLRandomsReport;
ClearDebug;
WriteLn('[>-----------------------Kooldudes Report-------------------<]')
WriteLn('[>Script Time: ' + (ScriptTime2(2)) + '')
WriteLn('[>Logs Chopped: ' + IntToStr (Loads) + '')
WriteLn('[>XP Gained: ' + IntToStr (TotalXP) + '')
WriteLn('[>----------------------------------------------------------<]')
end;
{------------------------------}
{ MainLoop }
{------------------------------}
begin
SetupSrl;
Siggy;
ActivateClient;
DeclarePlayers;
if(not(LoggedIn))then
begin
LoginPlayer;
Progress;
HighestAngle;
MakeCompass('N');
repeat
ChopTree;
Dropage;
BrokeAxePro;
MouseAntiBan;
MyAntiBan;
FindNormalRandoms;
Progressreport;
until(false)
end;
end.——————————————————
<!– END TEMPLATE: formanswers –>