Sucessfully Executed.??

Yo...

When i try to start this script

Code:

---

~~~~~~_______~~~~_____~~~~~~~~~~~_____~~~~__~~~~~~~~~~~~~~~~~~~~~___~~~~~~___~~~
 J  //jjjjjjj|  ||uuuu| J      ||uuuu| J||n|                  ||kk|    //kk/
  //________|  ||uuuu|        J||uuuu|  ||n|        J          ||kk|  //kk/
          ||j| J||uuuu|        ||uuuu|  ||n|___________        ||kk| J//kk/
 J    J  ||j|  ||uuuu|    J  ||uuuu|  ||n|          \\\  J  ||kk|_//kk/  J
  ___    ||j|  ||uuuu|        ||uuuu|  ||n|        J ||n|    ||kk|__kkk|
||jjj| J  ||j|  ||uuuu|        ||uuuu|  ||n|          ||n|    ||kk|  \\kk\
||jjj|    ||j|  ||uuuu|    J  ||uuuu| J||n|    J    ||n|  J  ||kk|  J\\kk\  J
||jjj|____||j|  ||uuuu|        ||uuuu|  ||n|          ||n|    ||kk|    \\kk\
||___________| J \\___|________//___// J ||_|          ||_|    ||__|J    \\__\
********************************************************************************
********************************************************************************
********************************************************************************
************************jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj*******************
**************************************jjjjjjjjjjj*******************************
****************************************jjjjjjj*********************************
**********************jjjjjjjjjjj********jjjjj**********************************
***********************jjjjjjjjj**********jjj***********************************
************************jjjjjjj*********** j************************************
*************************jjjjj*************j************************************
**************************jjj**************j************************************
***************************j***************j************************************
***************************j***************j************************************
***************************j***************j************************************
***************************j***************j************************************
***************************j***************j************************************
 ***************************jjjjjjjjjjjjjjj*************************************
********************************************************************************
{<^%$@*$%$@%$@^#%&^%&%-!=$*JUNKY PRODUCTIONS*$=-!#^$&%*&^*$!#@$*$&%^&$%$#@$#%@>}
{____________________________________READ!______________________________________
//\\{Must be in v-bright!
\\// Must be higher then the monsters level
//\\ Must Setup manually! no automatics!
\\// Enter user and password                      (MUST HAVE SRL TO WORK)
//\\ Post bugs and bad stuff
\\// Release dates will be posted
____________________________________Features!___________________________________
//\\Awsome Antiban things                    0.5v=awsome srl atacking.
\\//Awsome releases                          1.v=better antirandoms.
//\\Autochat                                  1.5v=some other awsome stuff
\\//Coin picker                              2.0=omfg this is it!like omfg!
//\\Awsome proggy
\\//A good srl eating procedure, for the greedy    ;)
//\\A long long setup but worth the while!
\\//can attack with melee range(picks up arrows) and magic!
//\\bone burrier! yah yah yah!
\\//other features will be listed soon
________________________________________________________________________________
_______________Set up the following...=setup ,user pass and nick________________
-------------------------------HAVE-FUN-----------------------------------------
_______________________________________________________________________________}
program fighter;
{.include srl/srl.scar}
{.include srl/srl/skill/Fighting.scar}
{.include srl/srl/misc/trade.scar}
{.include srl/srl/skill/Magic.scar}

var
killed :integer;
traded :integer;
randomfound :integer;
bonesfound :integer;
bonesburried :integer;
coins :integer;
arrowspickedup :integer;
spellscasted :integer;

//////////////////////////////////////////
const          {VV setup VV}          //
str=('3');                            //str lvl
att=('21');                          //att lvl
def=('1');                          //def lvl
hpeat=3;                          //hp to eat at
foodcolor1=1;                    //color of food
coincolor=964851;                    //color of coin
mname=('goblin');              //name of monster
monstercolor1=4494178;              //color of monster
monstercolor2=345189;              //second color of monster
monstercolor3=8882069;            //third color of monster
Timebetweenkill=10;          //time between each kill
howmanytokill=453453;          //how many you want to kill
name=('');            //player name here
nicknamehere=(''); //what people call you as your nickname
arrowcolor=1;          //color of your arrow
fightstyle=('melee');//what you fight with, either range magic or melee
kindarrow=('sucky');  //what kind of arrow= bronze,iron,ect.(must have full name of arrow)
magicnumber=1;      //number of the spell your using in spell book
lookformage=False;  //mage spell true or false(false=down,true=up) (is your mage spell at the bottom or the top
/////////////////////
procedure DeclarePlayers;
 Begin                        {dont touch this!}
    HowManyPlayers := 1;
    NumberOfPlayers(HowManyPlayers);    // Sets the Players Array Length;
    CurrentPlayer := 0;                // CeurrentPlayer = Array Index
                              {just touch this!}
    Players[0].Name := '';        //Username
    Players[0].Pass := '';          //Password
    Players[0].Nick := '';            //3 or 4 letters username
    Players[0].Loc := '';                  //Dont touch this
    Players[0].Active := True;
end;

procedure login;
begin
loginplayer;
end;

procedure chattersetter;
begin
setchat('on',1)
wait(500)
setchat('on',2)
wait(500)
setchat('on',3)
end;

procedure pickcoin;
begin
if(findcolorspiraltolerance(x,y,coincolor,MSX1,MSY1,MSX2,MSY2,25))then
Mmouse(x,y,3,3)
if(IsUpTextMulti('take','coins','ke co'))then
begin
Writeln('found coins,now going to pick them up');
mouse(x,y,0,0,true)
Findnormalrandoms;
coins:=coins+1
end;
end;

procedure hatetherandoms;
begin
FindNormalRandoms;
  if (FindTalk) then
  begin
  Writeln('talking or found a talk');
  randomfound:=randomfound+1

  if (FindMime) then
  begin
  writeln('lucky you, a mime!');
  randomfound:=randomfound+1

  if (FindMaze) then
  begin
  writeln('found maze');
  randomfound:=randomfound+1

  if (SolveFrog) then
  begin
  writeln('solved frog');
  randomfound:=randomfound+1

  if (Findmod)then
  begin
  writeln('its the mod!,AHHH!');
  mods:=mods+1

  if (solvepinball)then
  begin
  writeln('solved a pinball...');
  randomfound:=randomfound+1

  if (findforester) then
  begin
  writeln('found forester');
  randomfound:=randomfound+1

  if(findscaperune)then
  begin
  createscaperune;
  writeln('found scape rune');
  randomfound:=randomfound+1
end;
end;
end;
end;
end;
end;
end;
end;
end;

procedure MortalDraw;
begin
hatetherandoms;
findnormalrandoms;
realeatifneeded(foodcolor1,hpeat,true)
if findmonster(monstercolor1,monstercolor2,monstercolor3,25,mname)then
mmouse(x,y,3,3)
Attackmonster(monstercolor1,monstercolor2,monstercolor3,mname,25)
    Begin
    Getmousepos(x,y)
  Mouse(x,y,0,0,True);
  RandomMovement;
  boredhuman;
  killed:=killed+1
  wait2(Timebetweenkill,true)
  pickcoin;
end;
end;

procedure pickpickarrow;
begin
if(fightstyle=('arrow'))then
begin
MortalDraw;
if(findcolorspiraltolerance(x,y,arrowcolor,msx1,msy1,msx2,msy2,25))then
mmouse(x,y,3,3)
if(IsUpTextMulti('take','arrows',kindarrow))then
getmousepos(x,y)
mouse(x,y,1,1,true)
arrowspickedup:=arrowspickedup+1
end;
end;

procedure proggy;
begin
Writeln('<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>');
Writeln('killed ' + inttostr(killed) + 'monsters');
Writeln('Working for ' + (timerunning));
Writeln('found,traded,declined and chatted ' + inttostr(traded));
Writeln('found passes, solved or did stuff to ' + inttostr(randomfound));
Writeln('Collected around ' + inttostr(bonesfound));
Writeln('burried around ' + inttostr(bonesburried));
Writeln('picked up ' + inttostr(coins) + 'group of coins');
Writeln('casted ' + inttostr(spellscasted) + 'spells');
Writeln('Report anything bad or some bug or proggys');
Writeln('BANNED ACOUNTS ARE ABSOLUTLEY NOT MY PROBLEM!');
Writeln('<><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><><>');
end;

procedure wizardbam;
begin
if(fightstyle=('magic'))then
begin
hatetherandoms;
realeatifneeded(foodcolor1,hpeat,true)
fixmage(lookformage)
if findmonster(monstercolor1,monstercolor2,monstercolor3,25,mname)then
castspell(magicnumber)
Attackmonster(monstercolor1,monstercolor2,monstercolor3,mname,25)
wait2(Timebetweenkill,true)
spellscasted:=spellscasted+1
end;
end;


procedure hello;
begin
if inchat('hello')or
  inchat('hi')or
  inchat('hey')or
  inchat('yo')or
  inchat(name)then
  typesend('hey')
end;

procedure whatsup;
begin
if inchat('whats up')or
  inchat('whats new')or
  inchat('whats the 411')then
  typesend('nothing')
end;

procedure friends;
begin
if inchat('friends')or
  inchat('frends')or
  inchat('buddys')or
  inchat('add')or
  inchat('add me')then
  typesend('sorry,got lots of them')
end;

procedure talklvl;
begin
if inchat('str lvl')or
  inchat('str level')or
  inchat('stre lvl')or
  inchat('strength lvl')or
  inchat('strength level')then
  typesend(str)

if inchat('att lvl')or
  inchat('att level')or
  inchat('atack lvl')or
  inchat('atack level')or
  inchat('attack lvl')or
  inchat('attack level')then
  typesend(att)

if inchat('def lvl')or
  inchat('def level')or
  inchat('defenc lvl')or
  inchat('defence level')or
  inchat('defenc level')or
  inchat('defence level')then
  typesend(def)
end;

procedure hatenoobcallers;
begin
if inchat('noob')or
  inchat('noobie')or
  inchat('nub')or
  inchat('choob')or
  inchat('froobie')or
  inchat('choobie')or
  inchat('froob')or
  inchat('nubie')then
  typesend('so i dont care,i play it for a reason.')
end;

procedure findthetrade;
begin
Accepttrade;
wait(5000)
Decline;
typesend('nty, now scoot im busy')
traded:=traded+1
end;

procedure proggyintro;
begin
Writeln('                                                              ');
Writeln('          _|^^|__________________________|^|______            ');
Writeln('          | |-+-+-+-+-+-+-+-+-+-+-+-+|+-+-+- |___|_________    ');
Writeln('          |_|________________________|_______|___|            ');
Writeln('          || //      ||/////|\\  \    __| |_              ');
Writeln('          ||//        ||/////| \\_ /    |___*__|)-----------* ');
Writeln('          || |        ||/////|\___/    |______|              ');
Writeln('          || |        ||/////|                                ');
Writeln('          ||_|        ||_____|                                ');
Writeln('                      || * |                                  ');
Writeln('                      || * |                                  ');
Writeln('                      || * |                                  ');
Writeln('                      ||___|                                  ');
Writeln('    Post or pm any progress,errors or bug about this          ');
Writeln('        This is my 1337357 (leetest) script ever              ');
Writeln('If something goes wrong then pm the error or look at the set up');
end;

procedure deadproggy;
begin
if (wearedead) then
begin
proggy;
end;
end;

procedure boneman;
begin
if(findcolorspiraltolerance(x,y,bonecolor,msx1,msy1,msx2,msy2,60))then
mmouse(x,y,3,3)
if(IsUpTextMulti('take','bones','ke bo')) then
mouse(x,y,3,3,True)
bonesfound:=bonesfound+1
end;

procedure digdownbone;
begin
boneman;
FindItemName('Bones')
ClickItemName('Bones',True)
bonesburried:=bonesburried+1
end;

begin
activateclient;
setupsrl;
cleardebug;
proggyintro;
login;
chattersetter;
srlrandomsreport;
repeat
hatenoobcallers;
wizardbam;
talklvl;
hatetherandoms;
whatsup;
friends;
hello;
pickcoin;
Findnormalrandoms;
MortalDraw;
pickpickarrow;
until(killed = howmanytokill)
if(killed = howmanytokill) then
begin
proggy;
logout;
TerminateScript;
end;
end.

---

Thats it When i select screen arena and click start it comes up
Successfully compiled
Successfully executed

Is it because the script is a bit old?Or do i have anything wrong??
Any ideas? Please help :garfield: