As title says first SRL Script and i need some pointers . So if any1 as any then go ahead and post em. Help me make this an ownage script. Yay i got it working. Guess what the problem was. It's kinda sad but i forgot to put Until(false) at the end of the script :P only reason it didnt work.
Code:pprogram Hey321sNoobFighter; {.include SRL/SRL.scar} {.include SRL/SRL/Skill/Fighting.scar} {.include SRL/SRL/extended/xAntiRandoms.scar} var MColor1, MColor2, MColor3: Integer; var MonsterName: string; var MonstersFought: Integer; Const Tolerance=5; fightmode=0; NumLoops=5; waittime=1000; procedure Colours; begin MonsterName:='Cow';//name of monster to fight. MColor1:=000000;//first colour on the monster. MColor2:=000000;//second colour. MColor3:=000000;//self explanotory. end; Procedure DeclarePlayers; begin HowManyPlayers:=4; NumberOfPlayers(HowManyPlayers); CurrentPlayer := 0; Players[0].Name :=''; Players[0].Pass :=''; Players[0].Nick :=''; Players[0].Active :=True; Players[1].Name :=''; Players[1].Pass :=''; Players[1].Nick :=''; Players[1].Active :=True; Players[2].Name :=''; Players[2].Pass :=''; Players[2].Nick :=''; Players[2].Active :=True; Players[3].Name :=''; Players[3].Pass :=''; Players[3].Nick :=''; Players[3].Active :=True; end; procedure Login; begin if(not loggedin)then loginplayer end; procedure NoBan; begin AntiBan; BoredHuman; RandomMovement; FindMod; RotateEvery(10); FindNormalRandoms; if (not (loggedin)) then; begin NextPlayer(true); end; end; procedure Setup; begin SetupSRL; SetUpDemon; SetupSandWich; declareplayers; Login; SetFightMode(FightMode); end; procedure ProgressReport; begin Writeln('[]---////////////////////\\\\\\\\\\\\\\\---[]'); Writeln(' Thanks for using Hey321s'); Writeln(' Auto-Fighter '); Writeln(' Worked for:' +ScriptTime2(2)); Writeln(' Monsters Fought: '+IntToStr(MonstersFought)+''); Writeln('[]---////////////////////\\\\\\\\\\\\\\\---[]'); end; Procedure Fighting; begin if not (InFight) then begin; FindMonster(MColor1, MColor2, MColor3,tolerance, MonsterName); KAttackMonster(MColor1,MColor2,MColor3,tolerance, MonsterName); while InFight do wait(waittime); end; end; begin Setup; Colours; repeat NoBan; Fighting; NoBan; ProgressReport; if (MonstersFought=NumLoops) then NextPlayer(true); until(false) end.




. Help me make this an ownage script. Yay i got it working. Guess what the problem was. It's kinda sad but i forgot to put Until(false) at the end of the script :P only reason it didnt work.
Reply With Quote











