fabis94
2007-04-22 05:31:24
<!– BEGIN TEMPLATE: formanswers –>
fabis94 - SRL Member Application Form
fabis94
What is the meaning to life?
dunno
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
nope…only a bit of SCAR
Other Communitys
Sythe,Sal's,Tip.it,RuneCrypt
How Long have You Played Runescape
1 year
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
Well…
im playing for 1 year and 1 of my accs got banned! I got new one with 70 combat and im training crafting for it but its really boring because i need to kill cows myself (i dont have much money)! :( Now im learning SCAR :)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
——————————————————
<!– END TEMPLATE: formanswers –>
fabis94 - SRL Member Application Form
fabis94
What is the meaning to life?
dunno
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
nope…only a bit of SCAR
Other Communitys
Sythe,Sal's,Tip.it,RuneCrypt
How Long have You Played Runescape
1 year
Are you affilated in anyway with Jagex LTD?
No Comment
—————————————————–
Please write down a paragraph about Yourself.
Well…
im playing for 1 year and 1 of my accs got banned! I got new one with 70 combat and im training crafting for it but its really boring because i need to kill cows myself (i dont have much money)! :( Now im learning SCAR :)
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
program login;
{.include srl/srl.scar}
{
/////////////////////////////////
///Simple Auto Login by Fabis!///
/// v1.0 ///
/////////////////////////////////
1.Type in your Username and Password !
2.Specify RS window (with that crossfire)!
3.Start the script!
}
//////////////////////////Setup/////////////////////////////////////////
const
Username='Username'; //Put your username here!
Password='Password'; //Put your password here!
///////////////////////////Dont touch this!/////////////////////////////
procedure Whatever;
begin
MouseSpeed:=15 //Speed
BenMouse:=False; //Change to True, and see what happens. :D
MMouse(random(600),random(400),6,6);
end;
procedure loggingin;
begin
Wait(3000)
MoveMouseSmoothEx(454,288,1,3,45,20,10);
ClickMouse(454,288,true);
Wait(100);
MoveMouseSmoothEx(329,257,1,3,45,20,10);
ClickMouse(329,257,true);
Wait(100);
SendKeys(Username);
Wait(1000);
MoveMouseSmoothEx(317,275,1,3,45,20,10);
ClickMouse(317,275,true);
SendKeys(Password)
Wait(500)
MoveMouseSmoothEx(300,322,1,3,45,20,10);
ClickMouse(300,322,true);
end;
procedure presshere;
begin
Wait(5000)
MoveMouseSmoothEx(405,327,1,3,45,20,10);
ClickMouse(405,327,true);
end;
begin
SetupSRL;
loggingin;
presshere;
end.
{//////////////////////////
//Fabis Goblin Autofighter/
///////v1.1////////////////
Autofighter with AutoLogin from my other script that fights goblins!
In this version it includes:
*Auto Login
*Auto Fighter
*Anti Ban (updated: now better)
And maybe in next versions:
*AntiRandoms
*Auto Picker(w00t)
*If dead it will log back in and walk to goblin house!
Be at lumby goblin house doorway logged out!
Must be 32-bit color and screen wery bright!
This will go for ever thats why to stop press Ctrl+Alt+S!
1. Write your username and password in lines:34-35
2.Specify RS window
3.Start this script
}
program Fabis_AutoFighter_v0_1;
{.include srl/srl.scar}
var
xa,ya,aa,ba,ca,da: Integer;
Const
Goblin1= 8174245;
Goblin2= 1067853;
Goblin3= 3431235;
///////////////Auto Login//////////////////////////////////////////////
//////////////////////////Setup/////////////////////////////////////////
const
Username='username'; //Put your username here!
Password='password'; //Put your password here!
// With this player you will fight!
///////////////////////////Dont touch this!/////////////////////////////
procedure Whatever;
begin
MouseSpeed:=15 //Speed
BenMouse:=False; //Change to True, and see what happens. :D
MMouse(random(600),random(400),6,6);
end;
procedure loggingin;
begin
Wait(3000)
MoveMouseSmoothEx(454,288,1,3,45,20,10);
ClickMouse(454,288,true);
Wait(100);
MoveMouseSmoothEx(329,257,1,3,45,20,10);
ClickMouse(329,257,true);
Wait(100);
SendKeys(Username);
Wait(1000);
MoveMouseSmoothEx(317,275,1,3,45,20,10);
ClickMouse(317,275,true);
SendKeys(Password)
Wait(500)
MoveMouseSmoothEx(300,322,1,3,45,20,10);
ClickMouse(300,322,true);
end;
procedure presshere;
begin
Wait(5000)
MoveMouseSmoothEx(405,327,1,3,45,20,10);
ClickMouse(405,327,true);
Writeln('Succesfuly logged in or incorrect password or username!')
end;
//////////////////////////////////////////////////////////////////
////////////////////////Auto Fighter//////////////////////////////
//////////////////////////////////////////////////////////////////
procedure fight;
begin
if(FindColor(xa,ya,Goblin1,0,0,700,700)) then
begin
Writeln('Goblin found!');
MoveMouseSmoothEx(xa,ya +random(0),20,40,45,25,20);
Wait(100+random(10));
ClickMouse(xa,ya,true);
end else
Writeln('Cant find goblin!Searching!');
Wait(500+random(500));
end;
procedure fight2;
begin
if(FindColor(aa,ba,Goblin2,0,0,700,700)) then
begin
Writeln('Goblin found!');
MoveMouseSmoothEx(aa,ba +random(0),20,40,45,25,20);
Wait(100+random(10));
ClickMouse(aa,ba,true);
end else
Writeln('Cant find goblin!Searching!');
Wait(500+random(500));
end;
procedure fight3;
begin
if(FindColor(ca,da,Goblin3,0,0,700,700)) then
begin
Writeln('Goblin found!')
MoveMouseSmoothEx(ca,da +random(0),20,40,45,25,20);
Wait(100+random(10));
ClickMouse(ca,da,true);
end else
Writeln('Cant find goblin!Searching!');
Wait(500+random(500));
end;
procedure antban;
begin
SendKeys('This is boring'+chr(13));
Wait(1000+random(100));
fight;
SendKeys('Ehh...'+chr(13));
Wait(1000+random(100));
fight2;
SendKeys('Leave me alone!'+chr(13));
fight3;
Wait(1000+random(2000));
Fight;
fight2;
fight3;
Wait(1000+random(2000));
SendKeys('I have put you all in my ignore list! hahahahaha'+chr(13));
end;
Procedure WereHuman;
Begin
If not(LoggedIn) then Exit;
Begin
Case Random(20) of
0: HoverSkill('random', false);
1: RandomRClickEvery(2 + Random(8));
2: RotateEvery(20 + Random(10));
3: LeaveScreenEvery(5 + Random(5));
4: HoverSkill('Strenght', false);
5: BoredEvery(9 + Random(24));
6: Begin
GameTab(1 + Random(12));
Wait(1500 + Random(500));
GameTab(4);
end;
7: SleepAndMoveMouse(1000 + Random(1000));
8: MMouse(Random(MIX2), Random(MIY2), 0, 0);
9: HoverSkill('Attack', false);
end;
end
end;
begin
SetupSRL;
Whatever;
loggingin;
presshere;
repeat
fight;
fight2;
antban;
fight3;
until(false)
end.
Writeln('Stopped!')
——————————————————
<!– END TEMPLATE: formanswers –>