kimalia
2011-12-21 12:51:38
How Long have You Played Runescape?
6 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
''Simba'' scripting! :)
Are you a member of any other communities?
yes!
*ex-RSBuddy
*ex-PowerBot
*ShadowScripting
*this forums!:)
Tell us about yourself…
Please show us one (or multiple) of your scripts.
6 Year(s)
Are you affilated in anyway with Jagex LTD?
no
Were you Referred to SRL?
What is your general programming knowledge?
''Simba'' scripting! :)
Are you a member of any other communities?
yes!
*ex-RSBuddy
*ex-PowerBot
*ShadowScripting
*this forums!:)
Tell us about yourself…
From: kimalia
well…
*Im in the Srl irc all the time….
*I am a GFX artist! one of the best BTW.(i made the siggys for ArteBots and iDungeon… all of them!)
*I'm new at scripting, but im learning fast and going to make many awesome scripts for this site!
*im a really friendly guy!
(u guys will like me :p)…
Please show us one (or multiple) of your scripts.
program IronPowerMiner; //By: kimalia.
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
var
Current:Integer;
Keeper:Integer;
Experience:Integer;
Base:Integer;
WaitTime:Integer;
Xp:Integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'username';
Players[0].Pass := 'password';
Players[0].Nick := 'nick name';
Players[0].Active := True;
Players[0].Pin := 'pinkode';
end;
//------------------------------------------------------------------
procedure Antirandom;
begin
FindNormalRandoms;
FindNonInventoryRandoms
LampSkill := 'mining';
end;
//------------------------------------------------------------------
procedure Antiban;
begin
case Random(157) of
10: RandomRClick;
20: HoverSkill('Mining', False);
30: PickUpMouse;
40: RandomMovement;
50: BoredHuman;
59: ExamineInv;
60: ArrangeInv;
end;
end;
//------------------------------------------------------------------
procedure Unstucker;
begin
if (Keeper>5) then
begin
Mouse(524,24,6,6,true)
KeyDown(38);
Wait(RandomRange(500,1000));
KeyUp(38);
wait(Random(600));
Mouse(617,130,6,6,true)
Keeper:=0;
end;
end;
//------------------------------------------------------------------
procedure Iron;
var
current,fails,x,y: Integer;
randomColor,color:LongInt;
begin
current:=Random(11);
randomColor:=(2503511-Random(2))
fails:=0;
repeat
if (FindColorTolerance(x, y, randomColor, 4, 4, 515, 337,2) OR
(FindColorTolerance(x, y, randomColor, 4, 4, 515, 337,1))) then
begin
Xp:=35;
Wait(WaitTime+2);
MMouse(x, y, Random(6), (7));
wait(400+Random(200));
writeln(GetUpText);
if (IsUpText('Mine')) then
begin
writeln('Clicking On Iron');
WaitTime:=(Base+(random(2313)));
randomColor:=(2503511+Random(2))
Antiban;
color:=(GetColor(x,y));
writeln('The color of this iron ore is '+IntToStr(color));
ClickMouse2(true);
fails:=0;
Inc(current);
Flag;
wait(400+Random(200));
end
end
else
if ClickToContinue=true then
begin
Antirandom;
ClickContinue(true, true);
current:=28;
end;
if (fails>5) then
begin
Logout;
end;
if (fails>10) then
if ClickToContinue=true then
TerminateScript;
until(current=28);
end;
begin
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
Wait(1000);
SetupSRL;
DeclarePlayers;
LoginPlayer;
Wait(4000);
SetAngle(true)
repeat
Antirandom;
Antiban;
Iron;
DropAll;
until(false)
TerminateScript;
end.