acer33
10-07-2007, 08:07 PM
Yo...
When i try to start this script
~~~~~~_______~~~~_____~~~~~~~~~~~_____~~~~__~~~~~~ ~~~~~~~~~~~~~~~___~~~~~~___~~~
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 \\__\
************************************************** ******************************
************************************************** ******************************
************************************************** ******************************
************************jjjjjjjjjjjjjjjjjjjjjjjjjj jjjjjjjjjjj*******************
**************************************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,MSY 1,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,monstercol or3,25,mname)then
mmouse(x,y,3,3)
Attackmonster(monstercolor1,monstercolor2,monsterc olor3,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,ms y1,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,monstercol or3,25,mname)then
castspell(magicnumber)
Attackmonster(monstercolor1,monstercolor2,monsterc olor3,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,msy 1,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:
When i try to start this script
~~~~~~_______~~~~_____~~~~~~~~~~~_____~~~~__~~~~~~ ~~~~~~~~~~~~~~~___~~~~~~___~~~
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 \\__\
************************************************** ******************************
************************************************** ******************************
************************************************** ******************************
************************jjjjjjjjjjjjjjjjjjjjjjjjjj jjjjjjjjjjj*******************
**************************************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,MSY 1,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,monstercol or3,25,mname)then
mmouse(x,y,3,3)
Attackmonster(monstercolor1,monstercolor2,monsterc olor3,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,ms y1,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,monstercol or3,25,mname)then
castspell(magicnumber)
Attackmonster(monstercolor1,monstercolor2,monsterc olor3,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,msy 1,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: