Harry
2008-05-28 16:25:07
Not my first script… it is very simple, but I decided to release here to teach them a few little basics I use in it.
This script will ban you.
Have fun!
~Harry.
By the way, the sites I autospam in this I do NOT support. I just though of them, and I did not want to spam SRL's stuff because it would make more leechers than we already have.
Script:
This script will ban you.
Have fun!
~Harry.
By the way, the sites I autospam in this I do NOT support. I just though of them, and I did not want to spam SRL's stuff because it would make more leechers than we already have.
Script:
// Due to some offence language, this script should not be ran or viewed
// by anyone who takes offence to obsecene words.
// You have been warned.
// This script will ban you. Hy71194 is not responsible for bans.
program UberBanz0r;
var Char,Spammed,i: integer;
const Usernamez = 'USERNAME'; // Your RS username you want banned.
{.include SRL/SRL.scar}
procedure Proggeh;
begin
ClearDebug;
WriteLn('Spammed and annoy''d noobs '+IntToStr(Spammed)+' times!');
WriteLn(TimeRunning);
end;
procedure HySpam(Line: string; SendWait: boolean); // No pun intended -_-
begin
SendKeys(Line);
Wait(10);
TypeByte(Char);
if SendWait then
Wait(1000+Random(600));
Wait(900-Random(100)+Random(100)); // If you type too much on RS in a second, it won't type it out.
Inc(Spammed);
Proggeh;
end;
begin
ClearDebug;
WriteLn('This script WILL ban your on RS.');
WriteLn('Do NOT use if you like your account!');
WriteLn('Hy71194 is not responsible for your ban! :)');
WriteLn('Start LoggedIn!');
Wait(4000);
SetupSRL;
ActivateClient;
Wait(2000);
if SmartReady then
Char := 10
else
Char := 13;
if not LoggedIn then
begin
WriteLn('Start script LOGGED IN!!');
TerminateScript;
end else
repeat
HySpam('Everyone report me!!',True);
HySpam('Go to RPGSTASH DOT C 0M for account sale!!',True);
wait(1000);
HySpam('Go to RSBOT DOT C 0M for RS bots and macro!!',True);
wait(1000);
HySpam('I abuse the party hat glitch!!',True);
wait(1000);
HySpam('I multi log and auto mine on 6 accounts!',True);
wait(1000);
HySpam('I real world trade for real money off my macroers!',True);
wait(1000);
HySpam('free armour trimming!',True);
wait(1000);
HySpam('get firefox and ad block plus to remove g e y RS ad''s!',True);
wait(1000);
HySpam('come with me and bot, i love botting!!',True);
wait(1000);
HySpam('if you write your pass backwords, it stars it out! ********',True);
wait(1000);
HySpam('im a jagex mod, give me ur pass or ill ban you!!',True);
wait(1000);
HySpam('im real world trading 900k yew logs in the party room world 1',True);
wait(1000);
HySpam('report me freeking noobs!!',True);
wait(1000);
HySpam('you are all g e y noobs!!',True);
wait(1000);
HySpam('abuse this bug i found in rs with me! i do it!',True);
wait(1000);
HySpam('ill make u a mod if u give me ur pass!',True);
wait(1000);
HySpam('type ur pass backwards and it start it out! ******** try!',True);
wait(1000);
HySpam('remember my name beaches!! i am '+Usernamez+'!!',True);
wait(1000);
HySpam('f',False);
wait(100);
HySpam('u',False);
wait(100);
HySpam('c',False);
wait(100);
HySpam('k',False);
HySpam('you noobs!!',True);
wait(2000);
HySpam('last night I',True);
HySpam('r',False);
wait(250);
HySpam('a',False);
wait(200);
HySpam('p',False);
wait(200);
HySpam('e',False);
wait(200);
HySpam('d',False);
wait(200);
HySpam('your mother!',True);
wait(2000);
HySpam('i grabbed your dad''s long',True);
HySpam('c',False);
wait(200);
HySpam('o',False);
wait(200);
HySpam('c',False);
wait(200);
HySpam('k!',False);
wait(1000);
for i := 1 to 50 do
begin // Let's also get you some Macro offences ;) (Should only take 3 seconds - don't be suprised about the 1 to 50.)
MoveMouse(100,100);
Wait(10);
ClickMouse(200,200,False);
Wait(10);
MoveMouse(300,300);
Wait(10);
ClickMouse(200,200,False);
Wait(10);
if Random(30) = 0 then
ClickMouse(MMCX,MMCY,True); // Excessive ClickMousing(true) has the ability to lag the RS client out - it can not click 50 times in <2 seconds.
end;
Wait(5000);
until not LoggedIn;
Proggeh;
WriteLn('Thnx for running :D');
end.