SRL Archive - RS3 Outdated / Broken Scripts

I've searched around a few different forums but I have never found a wiz tower demon killer, so mabye someone could have a go at making one including wich spell you want to use (I would try and make it myself but I only know how to make basic scripts).

I could make one if you wanted.

Not a very hard script to make :P

It would be cool with an option for range also. I will also try.

°selecting spell
°clicking monster
°anti randoms
°anti ban actions
this could be done in like, mhmm 100-150 lines??

ranged/magic compatble, mhmm 150-200 lines??
Aren't there a lot of people over there that also train that can increase the chance to be banned??

ye but most ppl there dont talk exept asking ure mage/range lvl so may b u cud add a chat function 2 it?

Yeah…A simple chat function could really help it…

It'd be pretty cool if the script had confuse/weaken/etc functions in it: confuse, attack, weaken, attack; less macro-like, more xp….

hmmm….i have a script already made from this guy named Haxor or somthing like that…ill try to post it over here but its on a diff pc

CAn any one tell me the DEmon color number?

program HaxorNashi; //Haxor & Nashi's Uberlicious Lesser Demon Hallyer/Mager

type
AntiQnA = record
Q, A: String;
end;

var
LogMark, LogOutNH: Integer;
Responder: array of AntiQnA;

{.include SRL\SRL.scar}
{.include SRL\SRL\skill\Magic.scar}
{.include SRL\SRL\skill\Fighting.scar}

{


NOTE:
You MUST use autocast or a halberd.


CREDITS:
Fawki - Uses FindFastRandoms


}

////////////////////SETUP\\\\\\\\\\\\\\\\\\\\
const
NHMouseSpeed = 2; //Your custom mousespeed (Leave as 0 for default of 1 + random(10))
TLogOutEvery = 10; //How often to log in and out, In minutes(Don't put higher then changeplayer time
LesserColour = 1451874; //Colour of the demon

procedure DeclarePlayers;
begin
HowManyPlayers := 4; // Set Number of Players here.
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0; // CurrentPlayer = Array Index

Players[0].Name := 'creps20'; //Your Username
Players[0].Pass := 'shamim'; //Your Password
Players[0].Nick := 'eve'; //3 or 4 letters from your Username
Players[0].Active := True; //Will You Be Using This Player?
Players[0].Integer1 := 60; //Minutes before change player
Players[0].Integer2 := 1; //Attack style
Players[0].Boolean1 := True; //Using magic?(False if hallying)
Players[0].String1 := 'fire strike'; //type of spell('wind strike','water strike','earth strike' or 'fire strike')

Writeln(IntToStr(HowManyPlayers) + ' Players');
end; {
\\\\\\\\\\\\\\\\\\\\SETUP//////////////////// }

procedure LoadResponder;
begin
SetArrayLength(Responder, 51);
Responder[0].Q := 'hi';
Responder[0].A := 'hey';
Responder[1].Q := 'hey';
Responder[1].A := 'hey';
Responder[2].Q := 'wats up';
Responder[2].A := 'nm';
Responder[3].Q := 'how are you';
Responder[3].A := 'bored as';
Responder[4].Q := 'bro';
Responder[4].A := 'im not ur bro';
Responder[5].Q := 'so bored';
Responder[5].A := 'me to';
Responder[6].Q := 'good morning';
Responder[8].Q := 'woot';
Responder[8].A := 'someones in a good mood';
Responder[9].Q := 'i need mage exp';
Responder[9].A := 'me to';
Responder[10].Q := 'hmmmm';
Responder[10].A := 'whats wrong';
Responder[11].Q := 'not talking';
Responder[11].A := 'i dont talk much';
Responder[12].Q := 'i think hes a auto';
Responder[12].A := 'who? me?';
Responder[13].Q := 'do u autokill';
Responder[13].A := 'no why';
Responder[14].Q := 'songs';
Responder[14].A := 'what songs do u like';
Responder[15].Q := 'this is taking so long';
Responder[15].A := 'good exp though';
Responder[16].Q := 'this is the best training spot';
Responder[16].A := 'i know';
Responder[17].Q := 'whats up';
Responder[17].A := 'nothing bored as hell';
Responder[18].Q := 'grrr';
Responder[18].A := 'whats wrong';
Responder[19].Q := 'bye';
Responder[19].A := 'bye';
Responder[20].Q := 'cya';
Responder[20].A := 'cya';
Responder[21].Q := 'gtg';
Responder[21].A := 'im gonna go in sec';
Responder[22].Q := 'gtg';
Responder[22].A := 'have a nice day';
Responder[23].Q := 'got to go';
Responder[23].A := 'what ever';
Responder[24].Q := 'ummm';
Responder[24].A := 'what';
Responder[25].Q := 'pets';
Responder[25].A := 'i have 2 pets';
Responder[26].Q := 'want to be friends';
Responder[26].A := 'no thank you';
Responder[27].Q := 'can i add you to my friends list?';
Responder[27].A := 'nah';
Responder[28].Q := 'welcomeback';
Responder[28].A := 'its good to be back';
Responder[29].Q := 'this takes ages and ages';
Responder[29].A := 'nah its quite fast';
Responder[30].Q := 'i hate u';
Responder[30].A := 'thats nice to know';
Responder[31].Q := 'im glad theres a fence between me and that demon';
Responder[31].A := 'i know';
Responder[32].Q := 'is ur pc good';
Responder[32].A := 'nah its laggy and slow';
Responder[33].Q := 'this is so fun';
Responder[33].A := 'lol it gets boring after a while';
Responder[34].Q := 'im happy';
Responder[34].A := 'good on u';
Responder[35].Q := 'r u deaf';
Responder[35].A := 'no im not';
Responder[36].Q := 'sik dude';
Responder[36].A := 'wats sick';
Responder[37].Q := 'nice damage';
Responder[37].A := 'i know';
Responder[38].Q := 'that spell sucks';
Responder[38].A := 'cheap and good xp though';
Responder[39].Q := 'nice spell';
Responder[39].A := 'thanks';
Responder[40].Q := 'r u der dude';
Responder[40].A := 'yes i am';
Responder[41].Q := 'when is this gonna end';
Responder[41].A := 'i dunno';
Responder[42].Q := 'lol haha';
Responder[42].A := 'wats so funny';
Responder[43].Q := 'im gonna be a pker';
Responder[43].A := 'same here';
Responder[44].Q := 'im a mage pker';
Responder[44].A := 'cool';
Responder[45].Q := 'im turning this account into a staker';
Responder[45].A := 'make lots of cash';
Responder[46].Q := 'u a pker';
Responder[46].A := 'yep';
Responder[47].Q := 'i like pking';
Responder[47].A := 'same here';
Responder[48].Q := 'i own heaps of peeps in wildy';
Responder[48].A := 'kool';
Responder[49].Q := 'its so fun killing peeps';
Responder[49].A := 'i know it is';
Responder[50].Q := 'friends?';
Responder[50].A := 'no srry, list full :/';
end;

function FindFastRandoms: Boolean; // By WT-Fakawi, Modded by Nashi
var
i: Integer;
begin
for I := 1 to 9 do
begin
case I of
1: if FindDead then
Result := True;
2: if FindMod then
Result := True;
3: if FindMime then
Result := True;
4: if FindMaze then
Result := True;
5: if FindQuiz then
Result := True;
6: if FindDemon then
Result := True;
7: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
8: if RC then
Result := True;
9: if FindTalk then
Result := True;
end;
Wait(1);
end;
end;

procedure SetUpTehMagicz;
begin
if Players[CurrentPlayer].Boolean1 then
SetUpAutoCast(Players[CurrentPlayer].String1, False)
else
SetFightMode(Players[CurrentPlayer].Integer2);
end;

procedure LogBackIn;
begin
if not LoggedIn then
begin
LogInPlayer;
SetUpTehMagicz;
end;
end;

function NoneActive: Boolean;
var
T: Integer;
begin
Result := True;
for T := 0 to HowManyPlayers - 1 do
if (Players[T].Active) then Result := False;
end;

procedure Report;
begin
ClearDebug;
Writeln('<====================Nashi && Haxor====================>');
Writeln('Worked for ' + TimeRunning);
Writeln('<======================================================>');
SRLRandomsReport;
end;

procedure FinishScript(Reason: String);
begin
Writeln(Reason);
Players[CurrentPlayer].Active := False;
if NoneActive then begin
Report;
LogOut;
TerminateScript;
end;
NextPlayer(False);
MarkTime(LogMark);
end;

function NHInFight: Boolean;
begin
Result := (FindColor(x, y, 65280, MSX1, MSY1, MSX2, MSY2) or FindColor(x, y, 255, MSX1, MSY1, MSX2, MSY2))
end;

procedure NHAntiBan;
begin
case Random(25) of
1: PickUpMouse;
2: MouseBox(MSx1, MSy1, MSx2, MSy2, 3);
3: AlmostLogout;
4: HoverSkill('Defence', False);
5: HoverSkill('Attack', False);
6: MouseBox(MIx1, MIy1, MIx2, MIy2, 3);
7: HoverSkill('Strength', False);
8: RandomRClick;
9: BoredHuman;
10: GameTab(5);
11: GameTab(6);
12: GameTab(13);
13: HoverSkill('Magic', False);
14: GameTab(Random(13) + 1);
15: Wait(100+Random(100));
16: Wait(50+Random(100));
17: Wait(1000+Random(100));
19: BoredHuman;
end;
end;

function FindTextInBox: Boolean;
Begin
Result:= False;
if (FindColorTolerance(x, y, 16711680, 90, 415, 480, 435, 10)) and (LoggedIn) then Result:= True;
end;

procedure RespondPeeps;
var
T: Integer;
Chat, Last, You: String;
begin
if not FindTextInBox then Exit;
GetLastChatText(Chat);
Chat := LowerCase(Chat);
LastChatter(Last);
Last := LowerCase(Last);
You := LowerCase(Players[CurrentPlayer].Name);
for T := 0 to GetArrayLength(Responder) - 1 do
begin
if (pos(Responder[T].Q, Chat) <> 0) and (Pos(You, Last) = 0) then begin
TypeSend(Responder[T].A);
end;
end;
end;

procedure NHRandoms;
begin
LogBackIn;
if WeAreDead then
begin
Deaths := Deaths + 1;
FinishScript('Player Dead.');
end;
FindFastRandoms;
RespondPeeps;
if Random(5) = 0 then FindNormalRandoms;
if Random(35) = 0 then NHAntiBan;
end;

function FindMonsterNHTol(var Mx, My: Integer; MonsterName: string; Monstercolor,
x1, y1, x2, y2, tol: Integer): Boolean;
var
c: Integer;
begin
if (FindColorSpiralTolerance(x, y, monstercolor, x1, y1, x2, y2, tol)) then
begin
MMouse(x, y, 2, 3)
if IsUpText('2 more options') then
begin
MMouse(x, y, 2, 3);
Mx := x;
My := y;
Result := True;
Exit;
end;
end
if not Result then
begin
repeat
Wait(250 + Random(500))
c := c + 1;
if (FindColorSpiralTolerance(x, y, monstercolor, x1, y1, x2, y2, c)) then
begin
MMouse(x, y, 5, 4);
if IsUpText('2 more options') then
begin
Mx := x;
My := y;
Result := True;
Exit;
end;
end;
until Result or (c >= tol);
end;
if not Result then
WriteLn('Monster NOT Found');
end;

function OwningTime: Boolean;
begin
Result := False;
if FindMonsterNHTol(X, Y, 'Lesser demon', LesserColour, MSX1, MSY1, MSX2, MSY2, 10) then
begin
Mouse(X, Y, 0, 0, False);
wait(250 + Random(500));
if ChooseOptionEx('Attack') then
begin
Result := True;
wait(500 + Random(1000));
if FindBlackChatMessage('do not have enough') then FinishScript('Out of Runes');
repeat
NHRandoms;
Wait(250 + Random(500));
until(not NHInFight);
end;
end;
end;

procedure LogOutForAWhile;
begin
TypeSend('brb');
LogOut;
Wait(8000 + Random(10000) - Random(10000));
LogBackIn;
MarkTime(LogOutNH);
end;

procedure NHMainLoop; //MainLoop
begin
repeat
SetUpTehMagicz;
MarkTime(LogMark);
MarkTime(LogOutNH);
repeat
if not OwningTime then NHRandoms;
if TimeFromMark(LogOutNH) >= (TLogOutEvery * 60000) then LogOutForAWhile;
until((TimeFromMark(LogMark) >= (Players[CurrentPlayer].Integer1 * 60000)) or (not LoggedIn));
Report;
NextPlayer(True);
until(IsFKeyDown(2));
end;

begin
SetUpSRL;
DeclarePlayers;
MouseSpeed := 1 + Random(10);
if NHMouseSpeed > 0 then MouseSpeed := NHMouseSpeed;
if not LoggedIn then LogInPlayer;
LoadResponder;
NHMainLoop; //It's just of my own preference to have the main loop in another procedure
end.

lol this thing is long…im new person who oined using scripts i downloaded this in to my other c from another post posted by its origanal maker …so the credit goes to the person who made this i tried to find that post but turned up nothin…i need help to make this script better …so can u guys fix the errors please thank you…mail me at [email]ahmad.gull@hotmail.com[/email]

If you want magic training why not just use LAME?

Edit: I changed your password.. you left it in the script. Ill send you a pm now with your new one.

Iv made a Lesser Demon killer which is compatible with mages and rangers, has anti-randoms, world-switcher, and heaps more. The current version is 1.4, the next version will have rune med telegraber and auto-reponder. Click the link in my sig to have a look at it!

-daazndagger-

07-27-2007, 03:20 AM

O.o

Hey,

Check Out My Tower Trainer

Tvs Tower Trainer v1.0

Yours Tv.