Bad Processor
2009-02-07 04:04:10
<!– BEGIN TEMPLATE: formanswers –>
BadProcessor - SRL Member Application Form
BadProcessor
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
VB6, Bit of Delphi, Some Ruby, Some C#.NET, Some VB.NET
Other Communitys
Sythe
How Long have You Played Runescape
1 Year, 4-5 Months
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, I first heard about SCAR when a bot was advertising it on FrugooScape. I looked into it, made a few simple scripts for it, but then I forgot about it until a few months later.
Then, I was googling for a Pascal Compiler written in VB6, and found SRL-Forums. I joined, made a few scripts, and at this point, I thought you had to apply to become a Junior member. I applied, and yes - 17 no's.
I've got more experience now, and I've made a few working scripts, such as CrudCatcher (Which is somewhat better than it's name suggests :P), auto GE buyer, and this script I am applying with - NoobKiller - which I think I have coded quite well.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
NoobKiller 1.04 with Multiplayer and autoresponder
——————————————————
<!– END TEMPLATE: formanswers –>
BadProcessor - SRL Member Application Form
BadProcessor
What is the meaning to life?
Where you Referred to SRL? If yes, by whom?
no
Programming Knowledge
VB6, Bit of Delphi, Some Ruby, Some C#.NET, Some VB.NET
Other Communitys
Sythe
How Long have You Played Runescape
1 Year, 4-5 Months
Are you affilated in anyway with Jagex LTD?
No
—————————————————–
Please write down a paragraph about Yourself.
Well, I first heard about SCAR when a bot was advertising it on FrugooScape. I looked into it, made a few simple scripts for it, but then I forgot about it until a few months later.
Then, I was googling for a Pascal Compiler written in VB6, and found SRL-Forums. I joined, made a few scripts, and at this point, I thought you had to apply to become a Junior member. I applied, and yes - 17 no's.
I've got more experience now, and I've made a few working scripts, such as CrudCatcher (Which is somewhat better than it's name suggests :P), auto GE buyer, and this script I am applying with - NoobKiller - which I think I have coded quite well.
——————————————————
Please Post a Sample of your Work. Only SCAR Scripts Accepted
NoobKiller 1.04 with Multiplayer and autoresponder
{.Script Info:
# ScriptName = NoobKiller
# Author = BadProcessor
# Description = Kills nooby enemies, like man, rat, imp, woman etc.
# Version = 1.04
# Date = 6th Feb 09
# Comments = Easy to make.
/Script Info}
program NoobKiller;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Fighting.scar}
//FILL ME IN PLEASE!
const WhatToKill= 'All'; //Choose Imp, Rat, Cow, Chicken, Goblin, Man or Woman (Choose All to find all)
const HealAt= 3; //HP to eat food at
const HowManyToKillPerAccount= 100;
const RunAwayTo= 'N'; // Run away to N, S, E or W?
const RunAwayOnFight= False; //this prevents fighting randoms, but also
var loop, mloop :Integer; //sometimes runs away while you are killing stuff.
var TargetColors: array of Integer;
var TargetText: array of string;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'Made A Smell';
Players[0].Pass := '...';
Players[0].Nick := 'mell';
Players[0].Active := True;
{Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := False;}
end;
procedure AutoRespond;
begin
if GetLastChatText('Lvl') orGetLastChatText('Atk lvl') orGetLastChatText('Hp lvl') or
GetLastChatText('Str lvl') or GetLastChatText('Def lvl') then begin
Wait(3500+random(500));
case Random(10) of
0: TypeSend('Cbb');
[1..5]: TypeSend('nvm.');
6: TypeSend('99 ftw, lol');
7: TypeSend('Y do u wanna know?');
8,9: TypeSend('mind ur own.');
end;
end;
end;
procedure FindAndKill;
var x, y :integer;
begin
FindObjCustom(x, y, 'Attack '+WhatToKill, [3496051,8761030,857708,4343891,
8422794,1980738,4680280,4344915,3050936,1844522,3433105,4348534,1317202,
2369894,3224940,4144964,5926534,815998,3754837,3094332,4348534]], 25);
case Random(5) of
0,1,2,3: Mouse(x, y, 2, 2, True);
4: begin
Mouse(x, y, 2, 2, True);
ChooseOption('Attack');
end;
end;
repeat //START
Wait(5000+random(1000));
FindNormalRandoms;
FindInventoryRandoms;
FindNonInventoryRandoms;
if FindFight then RunAway(RunAwayTo, False, 0, 10000);
case Random(50) of
1,2,3,4: PickUpMouse;
5,8,11: BoredHuman;
7: RandomMovement;
[12..17]: AutoRespond;
end;
FindMod;
until(InFight); //END
repeat //START
Wait(5000+random(1000));
FindNormalRandoms;
FindInventoryRandoms;
FindNonInventoryRandoms;
if FindFight then RunAway(RunAwayTo, False, 0, 10000);
case Random(50) of
1: PickUpMouse;
5: BoredHuman;
7: RandomMovement;
[8..11]: AutoRespond;
end;
FindMod;
until(not InFight); //END
WriteLn('Attacked a "'+WhatToKill+'".');
end;
function CriticalHealth: Boolean;
begin
if Damage <= HealAt then Result:= True;
end;
function GetNextInvItem: Integer;
var l, nii :Integer;
begin
for l := 1 to 28 do begin
if ExistsItem(l) then begin
nii := l;
Break;
end;
end;
Result:= nii;
end;
procedure CheckDamageAndHeal;
begin
if CriticalHealth then begin
MouseItem(GetNextInvItem, True);
WriteLn('Reached critical health - healed.');
end;
end;
procedure AntiBanRandoms;
begin
FindNormalRandoms;
FindInventoryRandoms;
FindNonInventoryRandoms;
if FindFight and RunAwayOnFight then RunAway(RunAwayTo, False, 0, 10000);
case Random(20) of
1,2,3,4: PickUpMouse;
5,8,11: BoredHuman;
7: RandomMovement;
end;
FindMod;
end;
procedure MoveAround;
begin
RadialWalk( GetColor(67,721) , random(180), random(360), random(60), 1, -1);
//The GetColors get the color of ground around them
Wait(2500+random(500));
RadialWalk( GetColor(67,721) , random(180), random(360), random(60), -1, 1);
end;
procedure MainLoop;
begin
AntiBanRandoms;
FindAndKill;
MoveAround;
CheckDamageAndHeal;
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
for mloop:= 1 to HowManyPlayers do begin
for loop:= 1 to HowManyToKillPerAccount do begin
Mainloop;
WriteLn('Gone through '+IntToStr(loop)+' kills.');
end;
WriteLn('Kills: '+IntToStr(loop)+' Please post results at');
WriteLn('http://www.villavu.com/forum/showthread.php?t=41642');
NextPlayer(False);
end;
end.——————————————————
<!– END TEMPLATE: formanswers –>