SRL Archive - First Scripts

Hi before you use this read this!!

-Don't Autofish whit a lvl 3
-Don't Autofish whit defult cloes
-Don't say ur cheating
-Don't be a noob
-Don't be a idiot
- Use Unsigned Applet Using Defult JAVA
- Enyoj it ! :)

{.Script Info:
# ScriptName  = Hasslarn AutoFisher V0.1 BETA
# Author      = Hasslarn
# Description = An Autofisher by Hasslarn!
# Version     = v0.1 BETA
# Date        = 22/9 09:08
# Comments    = This is a autofisher
/Script Info}
program AutoFisher;
{.include SRL/SRL.scar}

const
FishPlace = 15780000;

procedure AutoFisher;
begin
if(FindColorSpiral(x,y,FishPlace,0,0,1,1))then
Wait(500 + random(250));
MMouse(x,y,0,0);
end;


Begin
SetupSRL;
repeat
Fish;
until(false)
end.

Function AutoTalker: Boolean;
Var
Messege, Level: String;
AutoResponce: Integer;
Begin

  OldLine:= TheLine;
  TheLine:= Lowercase(Trim(GetTextAtEx(20, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
  NewLine:= TheLine;

 If(GetChatName(Players[CurrentPlayer].Name))then
  Begin
   Exit;
  End

 If(OldLine=NewLine)then
  Begin
   Exit;
  End

  If(GetChatMessage(Players[CurrentPlayer].Name)) or (GetChatMessage(Players[CurrentPlayer].Nick))then
   Begin
     WriteLn(''+ChatName+': '+Chat);
     AutoResponce:= Random(10)+1;
    Case (AutoResponce) of
      0 : Messege:= ('?');
      1 : Messege:= ('what');
      2 : Messege:= ('yes');
      3 : Messege:= ('yep');
      4 : Messege:= ('what do you want');
      5 : Messege:= ('me?');
      6 : Messege:= ('Yah?');
      7 : Messege:= ('who? me?');
      8 : Messege:= ('whasup?');
      9 : Messege:= ('huh');
      10 : Messege:= ('???');
      11 : Messege:= ('sup?');
      12 : Messege:= ('yer');
      13 : Messege:= ('Yessum?');
      14 : Messege:= ('yezzer?');
      15 : Messege:= ('thats muh name =]');
    End
   TypeSend(Messege+' '+Name);
   Result:= True;
  End

  If(GetChatMessage('lol')) or (GetChatMessage('lmao')) or (GetChatMessge('rofl')) or (GetChatMessage('haha')) or GetChatMessage('hehe'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    AutoResponce:= Random(24)+1;
    Case (AutoResponce) of
     0 : Messege:= ('lolz');
     1 : Messege:= ('hah');
     2 : Messege:= ('bwaha');
     3 : Messege:= ('....');
     4 : Messege:= ('funny..');
     5 : Messege:= ('heh');
     6 : Messege:= ('lololol');
     7 : Messege:= ('ha ha!');
     8 : Messege:= ('haaaa!');
     9 : Messege:= ('lmao');
     10 : Messege:= ('Whats so funny?');
     11 : Messege:= ('Ur funny lol');
     12 : Messege:= ('Hillarious');
     13 : Messege:= ('*Giggles*');
     14 : Messege:= ('rofllll');
     15 : Messege:= ('Gahhaa');
     16 : Messege:= ('*laughing* haha');
     17 : Messege:= ('tehehe');
     18 : Messege:= ('psht');
     19 : Messege:= ('uh..ya');
     20 : Messege:= ('ya i bet');
     21 : Messege:= ('funny lil critter...');
     22 : Messege:= ('think thats funny?');
     23 : Messege:= ('funny funny');
     24 : Messege:= ('*snorts as i laugh*');
     25 : Messege:= ('funy');
     26 : Messege:= ('if i was in a good mood i would laugh..');
     27 : Messege:= ('pretty pretty funny);
     28 : Messege:= ('=p');
     29 : Messege:= ('X[)');
     30 : Messege:= ('roflmao!');
    End
   TypeSend(Messege);
   Result:= True;
  End


  If(GetChatMessage('do')) or (GetChatMessage('do you')) or (GetChatMessage('can')) or (GetChatMessage('can i'))
   And
  (GetChatMessage('buy')) or (GetChatMessage('have')) or (GetChatMessage('see')) or (GetChatMessage('like'))Then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    AutoResponce:= Random(24)+1;
    Case (AutoResponce) of
     0 : Messege:= ('no');
     1 : Messege:= ('nah');
     2 : Messege:= ('naw');
     3 : Messege:= ('huh uh');
     4 : Messege:= ('ya, nah im jk lol');
     5 : Messege:= ('nope');
     6 : Messege:= ('nooo');
     7 : Messege:= ('naaahhh');
     8 : Messege:= ('me? nope');
     9 : Messege:= ('naaaaw');
     10 : Messege:= ('no dude');
    End
   TypeSend(Messege);
   Result:= True;
  End


  If(GetChatMessage('agility')) or (GetChatMessage('agil'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('agility'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' agility here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' agility');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' agility');
      5 : Messege:= ('my agility is '+Level);
      6 : Messege:= ('agility = '+Level);
      7 : Messege:= (+Level+' agility');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('construction')) or (GetChatMessage('con'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('construction'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' construction here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' construction');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' con');
      5 : Messege:= ('my con lvl is '+Level);
      6 : Messege:= ('construction = '+Level);
      7 : Messege:= (+Level+' construction');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('cooking')) or (GetChatMessage('cookin')) or (GetChatMessage('cook'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('cooking'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' cookin here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' cooking');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' cooking');
      5 : Messege:= ('my cookn is '+Level);
      6 : Messege:= ('cooking = '+Level);
      7 : Messege:= (+Level+' cookin');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('crafting')) or (GetChatMessage('craft')) or (GetChatMessage('craftin'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('crafting'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' craftin here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' crafting');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' crafting');
      5 : Messege:= ('my craftin is '+Level);
      6 : Messege:= ('crafting = '+Level);
      7 : Messege:= (+Level+' craftin');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('farming')) or (GetChatMessage('farm')) or (GetChatMessage('farmin'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('farming'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' farmin here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' farming');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' farmn');
      5 : Messege:= ('my farmin is '+Level);
      6 : Messege:= ('farming = '+Level);
      7 : Messege:= (+Level+' farming');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('fire')) or (GetChatMessage('firemakin')) or (GetChatMessage('firemaking'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('firemaking'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' fm here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' firemakin');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' firemaking');
      5 : Messege:= ('my fire lvl is '+Level);
      6 : Messege:= ('firemaking = '+Level);
      7 : Messege:= (+Level+' fire');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('fishin')) or (GetChatMessage('fishing'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('fishing'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' fishn here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' fishing');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' fishin');
      5 : Messege:= ('my fishin is '+Level);
      6 : Messege:= ('fishing = '+Level);
      7 : Messege:= (+Level+' fishing');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('fletch')) or (GetChatMessage('fletching')) or (GetChatMessage('fletchin'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('fletching'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' fletch here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' fletching');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' fletchn');
      5 : Messege:= ('my fletching is '+Level);
      6 : Messege:= ('fletching = '+Level);
      7 : Messege:= (+Level+' fletchin');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('herb')) or (GetChatMessage('herblore')) or (GetChatMessage('herby')) or (GetChatMessage('herblaw'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('agility'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' herby here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' herblore');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' herblaw');
      5 : Messege:= ('my herby is '+Level);
      6 : Messege:= ('herblore = '+Level);
      7 : Messege:= (+Level+' herby');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('magic')) or (GetChatMessage('mage'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('agility'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' magic here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' magic');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' magee');
      5 : Messege:= ('my magic is '+Level);
      6 : Messege:= ('mage = '+Level);
      7 : Messege:= (+Level+' magic');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('mining')) or (GetChatMessage('minin'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('mining'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' minin here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' mining');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' mining');
      5 : Messege:= ('my mining is '+Level);
      6 : Messege:= ('mining = '+Level);
      7 : Messege:= (+Level+' minin');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('pray')) or (GetChatMessage('prayer'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('prayer'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' pray here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' prayuh');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' prayer');
      5 : Messege:= ('my prayer is '+Level);
      6 : Messege:= ('prayer = '+Level);
      7 : Messege:= (+Level+' prayer');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('range')) or (GetChatMessage('rangin')) or (GetChatMessage('ranging'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('agility'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' range here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' range');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' rangin');
      5 : Messege:= ('my range is '+Level);
      6 : Messege:= ('ranging = '+Level);
      7 : Messege:= (+Level+' rangin');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('runecrafting')) or (GetChatMessage('rc')) or (GetChatMessage('rune crafting')) or (GetChatMessage('rune craftin'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('runecrafting'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' rc here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' runecraft');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' runecrafting');
      5 : Messege:= ('my rc is '+Level);
      6 : Messege:= ('runecraftin = '+Level);
      7 : Messege:= (+Level+' rc');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('slayer')) or (GetChatMessage('slay'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('slayer'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' slayer here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' slaying');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' slayer');
      5 : Messege:= ('my slayer is '+Level);
      6 : Messege:= ('slayer = '+Level);
      7 : Messege:= (+Level+' slayer');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('smithing')) or (GetChatMessage('smithin')) or (GetChatMessage('smith'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('smithing'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' smithing here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' smithin');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' smith');
      5 : Messege:= ('my smithin is '+Level);
      6 : Messege:= ('smithing = '+Level);
      7 : Messege:= (+Level+' smithn');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('thieving')) or (GetChatMessage('thievin'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('thieving'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' thieving here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' theiving');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' thieving');
      5 : Messege:= ('my thievin is '+Level);
      6 : Messege:= ('thieving = '+Level);
      7 : Messege:= (+Level+' thieving');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('woodcutting')) or (GetChatMessage('woodcuttin')) or (GetChatMessage('wc')) or (GetChatMessage('wood cutting')) or (GetChatMessage('wood cuttin'))
   And
  (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('levels')) or (GetChatMessage('lvls'))then
   Begin
    WriteLn(''+ChatName+': '+Chat);
    Level:= IntToStr(GetSkillLevel('woodcutting'));
    AutoResponce:= Random(5)+1;
     Case(AutoResponce) of
      0 : Messege:= ('level '+Level+' wc here');
      1 : Messege:= (+Level);
      2 : Messege:= ('lvl '+Level+' wc');
      3 : Messege:= (+Level+' here =/');
      4 : Messege:= ('me im '+Level+' woodcutting');
      5 : Messege:= ('my wood cuttin is '+Level);
      6 : Messege:= ('wc = '+Level);
      7 : Messege:= (+Level+' wc');
     End
    TypeSend(Messege);
    Result:= True;
   End


   If(GetChatMessage('wat')) or (GetChatMessage('what')) or (GetChatMessage('wot')) or (GetChatMessage('wut')) or (GetChatMessage('watcha'))
   And
  (GetChatMessage('doing')) or (GetChatMessage('doin'))then
    Begin
    WriteLv(''+ChatName+': '+Chat);
    AutoResponce:= Random(9)+1;
     Case (AutoResponce) of
      0 : Messege:= ('nuttin');
      1 : Messege:= ('nothing');
      2 : Messege:= ('nothin');
      3 : Messege:= ('eh, nothin');
      4 : Messege:= ('being bored');
      5 : Messege:= ('bored');
      6 : Messege:= ('bored, you?');
      7 : Messege:= ('chillin');
      8 : Messege:= ('chilling, you?');
      9 : Messege:= ('chilling');
      10 : Messege:= ('playing runescape haha');
      11 : Messege:= ('nothin, im sick =[');
      12 : Messege:= ('talkin to you =]');
     End
    TypeSend(Messege);
    Result:= True;
  End


  If(GetChatMessage('hey')) or (GetChatMessage('hello')) or (GetChatMessage('hi')) or (GetChatMessage('wats up')) or (GetChatMessage('whats up')) or (GetChatMessage('yo'))then
   Begin
   WriteLn(''+ChatName+': '+Chat);
   RandomReply:= random(9)+1;
    Case RandomReply of
      0 : Messege:= ('hello');
      1 : Messege:= ('hi');
      2 : Messege:= ('hey');
      3 : Messege:= ('sup dude');
      4 : Messege:= ('watsup');
      5 : Messege:= ('yo bro');
      6 : Messege:= ('hi');
      7 : Messege:= ('hey man');
      8 : Messege:= ('*waves*');
      9 : Messege:= ('how ya doin');
      10 : Messege:= ('good day');
      11 : Messege:= ('wat it dooooo');
      12 : Messege:= ('helloooooo');
      13 : Messege:= ('heya');
      14 : Messege:= ('hiiyaaa');
      15 : Messege:= ('heeeyyyyy');
    End
   TypeSend(Messege);
   Result:= True;
  End

End;
Procedure AntiBann;
  DBanMe:= Random(14); (*1 over so it will do nothing sometimes*)
    case DBanMe of
     0: RandomRClickEvery(2 + Random(13));
     1: hoverskill('random', false);
     2: RandomChatEvery(10 + Random(5));
     3: RotateEvery(20 + Random(10));
     4: LeaveScreenEvery(5 + Random(5));
     5: HoverEvery(15 + Random(5),'random');
     6: MessageFriendEvery;
     7: PickUpMouse;
     8: BoredEvery(9 + Random(24));
     9: DragItem(1, 1+Random(18));
     10: GameTab(1 + Random(12));
     11: DoEmote(1 + Random(20));
     12: PolyGlotTalk;
   end;
end;

procedure Report;
begin
cleardebug;
writeln('Hasslarn Progress Report 2000');
writeln('');
writeln('You been running this Autofighter for' + TimeRunning);
writeln('The time right now is: ' +TheTime);

end.

or just download it….

thanks for the script ima try it out right now

Nice script, I'm goign to try it out later:)

-l33t mikey

Thnx alot for you're comments :)

From: michaels
Nice script, I'm goign to try it out later:)

-l33t mikey

if l33t mikey is ur character, ur pretty dumb, if a jagex mod is searchin this site and sees that character theylll ban u. just givin heads up

i want to join ur team i have pure range ranged lvl 42 combat 27

works well being that its one of ur first scripts

dude if this is your first script your amazing!!!! and thanks for the script.

umm i keep getting this error…….

Line 17 : [Error] (14698:20) : Unknown Identifier 'x'


Please help im in need of a good autofisher

Alright so im not any scar scripting expert yet but when i run this it says
Line 27: [Error] (14708:1): Unknown identifier 'fish' in script F:\SCAR 3.12\Scripts\Hasslarn Autofisher v0.1 BETA.scar
not quite sure if i dont have scar downloaded and extracted with srl correctly of if this script is just missing the fish; procedure.

holy shit nice auto responder dude, how long did that take you?

mind if i use it and give creds to you?

When I Try to Run The Script I Get
Line 17: [error] (14698:20) : unknown identifier 'x' in script
Any Ideas?

procedure AutoFisher;
begin
if(FindColorSpiral(x,y,FishPlace,0,0,1,1))then
Wait(500 + random(250));
MMouse(x,y,0,0);
end;

writeln('Hasslarn Progress Report 2000');
writeln('');
writeln('You been running this Autofighter for' + TimeRunning);
writeln('The time right now is: ' +TheTime);

MMouse only Moves the Mouse if I still remember, use the Mouse function.

Your Proggy says Autofighter instead of Auto Fisher.

And you don't have a drop procedure so it will keep trying to fish even with full invo.

Just a heads up.

where does this fish at? lol i cant find where to go….barb ville?

hey need help whit this.. what am i supposed to write if im 1 player


Writeln('Using '+IntToStr(HowManyPlayers)+' Player.');