dlsa
2006-09-27 18:12:50
Here's an autofighter i did a while back. Compiled it it with new version of srl and that works so hopefully it still works.
2006-09-27 18:12:50
2006-09-28 11:34:39
2006-09-28 11:44:46
From: Dogss
Sounds like a keylogger or trojan to me :)
Sorry if i am wrong , but i hope someone would check if its clean.
Cause im seeing ur first poster here ;)
Thanks.
2006-09-28 15:24:24
2006-09-28 17:19:45
2006-09-28 19:03:18
From: Dogss
Sounds like a keylogger or trojan to me :)
Sorry if i am wrong , but i hope someone would check if its clean.
Cause im seeing ur first poster here ;)
Thanks.
EDIT: well guess im justa filthy leecher ;)
Im learning tho..
2006-09-29 23:44:03
From: ilikegrapesoda72
LOL I just craked up laughing…….GUYS BETTER WATCH OUT THE WORDS MIGHT BE OFFENSEIVE and have a virus!
2006-09-30 15:16:25
2006-10-01 01:39:03
2006-10-01 15:33:55
2006-10-01 16:46:00
2006-10-02 00:52:34
2006-10-02 05:04:20
2006-10-02 09:45:25
2006-10-03 15:51:55
2006-10-03 16:22:56
2006-10-03 16:29:46
2006-10-04 16:47:37
program Autofighter;
{.include SRL/srl.scar}
{.include SRL/srl/skill/Fighting.scar}
{.include SRL/SRL/Misc/PlayerForm.Scar}
{.include SRL/SRL/extended/xAntiBan.Scar}
///Created by DLSA///
///Help from Bam Bam///
///Only because of SRL///
///Inspired by people who play runescape all there life///
const
mColor1 = 8154210;
mcolor2 = 595305;
mcolor3 = 1385643;
Monster = 'Pirate';
tol = 5;
mode = 2;
StartPlayer = 0;
GoalLevel = 60;
Eat = 'No';
Eathp = 25;
Foodname = 'Cabbage';
Foodcolor = 5683602;
procedure Mode2name;
var Goal : String;
begin
if(Mode = 1) then begin
Goal := 'Attack';
end;
if(Mode = 2) then begin
Goal := 'Strength';
end;
if(Mode = 3) then begin
Goal := 'Strength';
end;
if(Mode = 4) then begin
Goal := 'Defence';
end;
end;
procedure EatFood;
begin
repeat
if(eat = 'Yes')then begin
if(gethp < Eathp) then begin
Gametab(4)
findobjarea(x,y,foodname,557,211,734,458,foodcolor,5,true);
isuptext(foodname);
Mouse(x,y,5,5,true);
end;
end;
until(gethp > eathp);
end;
procedure stupidscreen;
begin
if(findcolor(x,y,331877,272,279,495,376)=true)then begin
mouse(385 + random(5),341 + random(5),5,5,true);
end;
end;
procedure Antis;
begin
stupidscreen;
FindNormalRandoms;
if Findname then FindTalk;
end;
procedure SkillCheck;
begin
if(Mode = 1) then begin
HoverSkill('Attack',false);
end;
if(Mode = 2) then begin
HoverSkill('Strength',false);
end;
if(Mode = 3) then begin
HoverSkill('Attack',false);
wait(1000 + random(500));
HoverSkill('Strength',false);
end;
if(Mode = 4) then begin
HoverSkill('Defence',false);
end;
end;
procedure Fighter;
begin
Setfightmode(mode);
Antis;
eatfood;
if (not(findattackablenpc(mcolor1, mcolor2, mcolor3, tol, monster))) then begin
end;
stupidscreen;
KAttackMonster(mcolor1, mcolor2, mcolor3, tol, monster);
stupidscreen;
Skillcheck;
GameTab(1 + random(12));
wait(1000 + random(120));
DontBanMe(1);
outfight;
end;
procedure Setup;
begin
Setupplayers;
SetupSRL;
ActivateClient;
end;
begin
setup;
repeat
if (not (loggedin)) then begin
loginplayer;
wait(2000 + random(1000));
highestangle;
end;
wait(200 + random(200));
stupidscreen;
fighter;
stupidscreen;
wait(200 + random(200));
until (getskilllevel('Goal')=goallevel);
end.2006-10-24 19:53:26
2006-10-25 10:10:36
2007-07-26 14:10:00
2007-08-04 23:18:43
From: I Pick Axes
The worst thing you could put into a SCAR file would be something to change someone's password. They used to do that to the leechers. Now there is no longer an in game function to change passwords, so that doesn't apply. So the worst thing I could think of would (1) get you banned, though that sort of thing is easily identifiable or (2) unbank and drop all your stuff, alching rares, but that's noticeable as well.