Page 4 of 7 FirstFirst ... 23456 ... LastLast
Results 76 to 100 of 171

Thread: Varrock Zammy Mage Curser/Confuser/Weakener!

  1. #76
    Join Date
    Dec 2006
    Posts
    374
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    FIXED WORLD SWITCHING. NOW LOGS IN. START WITH SCSS LOADED!
    Another awsome scripting forum! Check it out: www.Uberbroproductions.net/forums
    TRY MY VARROCK ZAMMY MAGE CURSER/CONFUSER/WEAKENER! THE LINK IS BELOW
    http://www.srl-forums.com/forum/varr...56.html?t=6356
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~


  2. #77
    Join Date
    Feb 2007
    Posts
    125
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey u spelled my name wrong

    Credits: scuancy for running up stairs idea
    its squeancy

  3. #78
    Join Date
    Jul 2006
    Location
    Sweden
    Posts
    62
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Nice verry nice. brought me to 67 mage to 70 in a copuplke pf days. (autoed for 2 hours every day or something like taht .. ) thx alot syberium. is it supposed to support anti random for rick turpentine and have brox breaker? cause it didt do anything when i got those randoms. other than that great job, and i have an idéa to make it more humanlike; when it is on its way to select the spell it should slow down just before it selects it, and wait for a half second.. maybe to hard to make but i think taht would be good if u could make it like that. Thx alot

  4. #79
    Join Date
    Dec 2006
    Posts
    374
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lind- did u use latest version? newest one solves boxes. as long as u set ur nick correctly
    Another awsome scripting forum! Check it out: www.Uberbroproductions.net/forums
    TRY MY VARROCK ZAMMY MAGE CURSER/CONFUSER/WEAKENER! THE LINK IS BELOW
    http://www.srl-forums.com/forum/varr...56.html?t=6356
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~


  5. #80
    Join Date
    Jan 2007
    Location
    USA
    Posts
    1,782
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yea I've looked over the code and possibly given Syberium some ideas on random fighting.. to me it looks good.. The common mistake for scripts that do not solve talking randoms is setting the nick name BMP so that may be the problem (that you didnt set it right) because I know syberium included it

    Join the fastest growing merchanting clan on the the net!

  6. #81
    Join Date
    Feb 2006
    Location
    Amsterdam
    Posts
    6,136
    Mentioned
    28 Post(s)
    Quoted
    17 Post(s)

    Default

    Good effort. Nice SCSS world switcher and nice responder You asked me to look at possible banflaws. I can see only two.
    • click1, 2 and 3 click on a distinct pixel (0,0 randomisation)
    • As far as I can judge your Player doesnt move a lot.


    Dont stay too long at the same place, doing the same thing over and over, especially if the script mainloop is short. Scripts with a lot of walking never encounter any randoms. Players that stand put are suspicious to jagex. (from a historical point of view...)


    Idea maybe:
    Add amount.scar. It has a wonderful function RuneAmount; that returns the number of specific runes in your inventory.
    SRL is a Library of routines made by the SRL community written for the Program Simba.
    We produce Scripts for the game Runescape.

  7. #82
    Join Date
    Dec 2006
    Posts
    374
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    ya i never did stay at the same place to long, ive been playing legit for a while training range legit, and doing mage arena. only a 7 day ban though.. could have been for using like a autotalker or sometin.. who knows. what do u mean by click 1,2,3? i have the script click on 3 differnt colors for mage not the same one? and ill defiently add the amount of runes function i dident know where to add it until u told me just now =] thanks. like the ZCastOn change the mouse from 0,0 to 9,9? or sometin?
    Another awsome scripting forum! Check it out: www.Uberbroproductions.net/forums
    TRY MY VARROCK ZAMMY MAGE CURSER/CONFUSER/WEAKENER! THE LINK IS BELOW
    http://www.srl-forums.com/forum/varr...56.html?t=6356
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~


  8. #83
    Join Date
    Feb 2007
    Posts
    9
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [===============================================]
    [ Syberiums Zammy Mager
    [ Completed 500 Zammy Mage Casts!
    [ Worked For 50 Minutes and 41 Seconds
    [Thank You for using my script! Post Proggies =]
    [==============================================]

    3-44 mage thanks man got ruens for 60

  9. #84
    Join Date
    Feb 2007
    Posts
    1
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  10. #85
    Join Date
    Dec 2006
    Posts
    374
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    k thanks brizzy- post the proggy !
    Another awsome scripting forum! Check it out: www.Uberbroproductions.net/forums
    TRY MY VARROCK ZAMMY MAGE CURSER/CONFUSER/WEAKENER! THE LINK IS BELOW
    http://www.srl-forums.com/forum/varr...56.html?t=6356
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~


  11. #86
    Join Date
    Sep 2006
    Location
    In Finland
    Posts
    124
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Great im going to test this one out and post you the proggy

  12. #87
    Join Date
    Sep 2006
    Location
    Germany
    Posts
    42
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice script

    [===============================================]
    [ Syberiums Zammy Mager
    [ Completed 124 Zammy Mage Casts!
    [ Worked For 8 Minutes and 58 Seconds
    [Thank You for using my script! Post Proggies =]
    [==============================================]

    Update

    [===============================================]
    [ Syberiums Zammy Mager
    [ Completed 355 Zammy Mage Casts!
    [ Worked For 19 Minutes and 10 Seconds
    [Thank You for using my script! Post Proggies =]
    [==============================================]

  13. #88
    Join Date
    Feb 2007
    Posts
    125
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [===============================================]
    [ Syberiums Zammy Mager
    [ Completed 1092 Zammy Mage Casts!
    [ Worked For 40 Minutes and 44 Seconds
    [Thank You for using my script! Post Proggies =]
    [==============================================]
    Antiban1
    AntiBan2
    Successfully executed

  14. #89
    Join Date
    Dec 2006
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Dunno what I am doing wrong. I try and use the script, but when I activate it, it just keeps on saying Finding mage. PLease help.

  15. #90
    Join Date
    Dec 2006
    Posts
    26
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by sharrath View Post
    Dunno what I am doing wrong. I try and use the script, but when I activate it, it just keeps on saying Finding mage. PLease help.

    need to set the zammy mage color right....
    or change the point of view so that the zammy mage red color is viewable...

  16. #91
    Join Date
    Feb 2007
    Location
    Yorkshire, England
    Posts
    180
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Syberiums Zammy Mager
    [ Completed 924 Zammy Mage Casts!
    [ Worked For 53 Minutes and 58 Seconds
    [Thank You for using my script! Post Proggies =]
    [==============================================]
    Antiban1
    AntiBan2
    Successfully executed

    ===

    Wow i love this script

    i always use only one account and do roughly 1k curses a day for a week

    no ban yet....

    Amazing

  17. #92
    Join Date
    Feb 2007
    Posts
    23
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i will definitely try this on my pure mage once i get enough runes
    great idea for a script
    We do not use any illegal methods. We do not infringe any copyright, we do not use our knowledge about the java code, we do not break any laws. We merely play "against the rules". We cheat. Thats what we are good at, thats what we do.
    - WT-Fakawi
    If you break Rule 12 and buy RuneScape gold you are directly funding this problem. You are funding underground gangs who run Chinese sweatshops, and creating the black market which causes this botting problem. - Jagex .... wtf?

  18. #93
    Join Date
    Feb 2007
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    My proggy:

    [===============================================]
    [ Syberiums Zammy Mager
    [ Completed 210 Zammy Mage Casts!
    [ Worked For 14 Minutes and 3 Seconds
    [Thank You for using my script! Post Proggies =]
    [==============================================]


    I had some probbs though. It frooze after about 170 casts and i had to help it. Besides that i think the reporting needs some adjustment. Mabey every 3:rd cast instead.

    Another thing:

    Sometimes it tried to use the spell to the left instead. But that didn't make the script screw up. Mabey that was planned as some antiban?
    Thanks for a good script

    w00t first post?

    //Reews

  19. #94
    Join Date
    Feb 2007
    Posts
    142
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    this looks pretty good, i look forward to testing it later when i get some runes

  20. #95
    Join Date
    Dec 2006
    Posts
    374
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    hey guys this version is pretty old.. so if it isent working its cuz i havent used in 2-3 months.. due to my pure nearly being banned so i play legit mostly now.. but when i get the chance ill test this more and continue to develop it for u guys.. and yess clicking spell on the left is antiban.. although it only looks "right" if ur casting curse. i will fix that in next update
    Another awsome scripting forum! Check it out: www.Uberbroproductions.net/forums
    TRY MY VARROCK ZAMMY MAGE CURSER/CONFUSER/WEAKENER! THE LINK IS BELOW
    http://www.srl-forums.com/forum/varr...56.html?t=6356
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~


  21. #96
    Join Date
    Sep 2006
    Location
    Australia
    Posts
    425
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default

    How do i make it curse really fast?

  22. #97
    Join Date
    Dec 2006
    Posts
    374
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    what do u mean curse really fast? if u want to cast faster then just change the wait times..
    Another awsome scripting forum! Check it out: www.Uberbroproductions.net/forums
    TRY MY VARROCK ZAMMY MAGE CURSER/CONFUSER/WEAKENER! THE LINK IS BELOW
    http://www.srl-forums.com/forum/varr...56.html?t=6356
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~


  23. #98
    Join Date
    Nov 2006
    Posts
    157
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    [Runtime Error] : Out Of Range in line 63 in script C:\Program Files\SCAR 2.03\Scripts\SyberiumsZammyMager4.0PUB.scar


    i keep on getting that?

    thats the script.


    SCAR Code:
    Program SyberiumsZammyMager;
     {.include SRL\SRL.scar}
     {.include SRL\SRL\skill\magic.scar}
     {.include SRL\SRL\extended\xMapWalk.scar}



     { # ScriptName: Auto Monk of zamorak confuser/weakener/curser!          }
     { # ScriptDefinition: Uses confuse/curse/weaken on monk of zammy.       }
     { # Instructions: Start in varrock castle on the west side of mage cage!}
     { # Instructions Cont: Pick Color of zammy mage! IMPORTANT!             }
     { # Credits: Me for making this! Junior-Helped with my stupid mistake =/, }
     { # Credits Cont: pwnaz0r-THANKS MAN!, Scuancy-MAN thanks for being a great}
     {   tester! Ruroken for world switch idea,}
     { # Lastly have fun and auto safe and correctly!

     { IF the weaken isent working for you do the below instructions.
     go to SRL\SRL\skill\magic.scar and replace there BMP with mine.
      MAKE SURE U REMOVE THE {}
    {AROUND THE BMP!}
    {  weaken := BitmapFromString(5, 6, 'z78DA33353171347632000143' +
           '474B03335717080911C12F8E298BA912975E5333131713235C6A2' +
           '0B2986A206C008F6C2631');  }


    const
      WichSpell = 0; // 0 for confuse, 1 for weaken, 2 for curse!
      Howmanyto = 4326;// how many times to cast the above spells.
      MSpeed = 20;
      Mage1 = 3949221; //mage color(s) shoudent have to change these
      Mage2 = 4015531;
      Mage3 = 8168659;
      StartPlayer = 1; // What player you start with.
      NumberOfUsers = 1; // The Number of users you use.
      Version = ('4.0') ;
      Mem = ('no'); // yes to load member worlds, no for free worlds.




    var
     Howmany,cursegone,weakengone,confusegone,xcv,loads : integer;
     attemptss : integer;
     ZMage : array[0..2] of integer;
     ZMageI : integer;
     Chat, Name, ChatName: String;
     PreferredWorlds: array[0..13] of integer;
     PreferredWorldCounter :integer;
     Handle, World:integer;


    procedure DeclarePlayers;

    begin
         HowManyPlayers := NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;


         Players[0].Name :='Name';
         Players[0].Pass :='*****';
         Players[0].Nick :='am';
         Players[0].Active:=True;

         Players[1].Name :='';
         Players[1].Pass :='';
         Players[1].Nick :='';
         Players[1].Active:=False;

         Players[2].Name :='';
         Players[2].Pass :='';
         Players[2].Nick :='';
         Players[2].Active:=False;

         Players[3].Name :='';
         Players[3].Pass :='';
         Players[3].Nick :='';
         Players[3].Active:=False;

         Players[4].Name :='';
         Players[4].Pass :='';
         Players[4].Nick :='';
         Players[4].Active:=False;
    end;


    procedure InitWorlds;
    begin
    if (Mem = 'no') or (mem = 'No') then
    begin
    PreferredWorlds[0]:=107;
    PreferredWorlds[1]:=108;
    PreferredWorlds[2]:=109;
    PreferredWorlds[3]:=125;
    PreferredWorlds[4]:=126;
    PreferredWorlds[5]:=127;
    PreferredWorlds[6]:=128;
    PreferredWorlds[7]:=17;
    PreferredWorlds[8]:=37;
    PreferredWorlds[9]:=113;
    PreferredWorlds[10]:=93;
    PreferredWorlds[11]:=95;
    PreferredWorlds[12]:=96;
    PreferredWorlds[13]:=85;
    end else
    begin
    if(Mem = 'Yes') or (Mem = 'yes') then
    begin
    PreferredWorlds[0]:=138;
    PreferredWorlds[1]:=137;
    PreferredWorlds[2]:=132;
    PreferredWorlds[3]:=131;
    PreferredWorlds[4]:=130;
    PreferredWorlds[5]:=124;
    PreferredWorlds[6]:=123;
    PreferredWorlds[7]:=121;
    PreferredWorlds[8]:=120;
    PreferredWorlds[9]:=104;
    PreferredWorlds[10]:=89;
    PreferredWorlds[11]:=88;
    PreferredWorlds[12]:=78;
    PreferredWorlds[13]:=77;
    end;
    end;
    end;

     function WelcomeToRuneScape:Boolean;   // By WT-Fakawi
    var Welcome,tx,ty:integer;
    begin
      Welcome := CreateBitmapMaskFromText('Welcome', UpChars);
      Result:= FindBitmapMaskTolerance(Welcome, tx, ty, 250, 200, 530, 260, 10,10)
      FreeBitmap(Welcome);
    end;

    Procedure SwitchWorlds; // By WT-Fakawi
    begin

      SCSSLoadWorld(PreferredWorlds[PreferredWorldCounter], True);
      PreferredWorldCounter:=PreferredWorldCounter+1;
      if PreferredWorldCounter > 13 then PreferredWorldCounter:=0;
      Wait(20000);
      Handle:=SCSSGetHandle;
      World:=SCSSGetCurWorld;
      SCSSSetHandle;
      ActivateClient;
      repeat
        Wait(1000);
      until WelcomeToRuneScape;
      end;

    procedure talkrnd;
    begin
     if (FindTalk) then
     begin
       FindTalk;
       Findnormalrandoms;
     end;
     end;




    Function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=0 to 10 do
      begin
        case I of
         0:  If FindTalk then
         begin
           FindNormalRandoms;
         end;
         1:  If FindDead then
               Result := True;
         2:  If FindMod then
               Result := True;
         3:  If FindMime then
               Result := True;
         4:  If FindMaze then
               Result := True;
         5:  If FindQuiz then
               Result := True;
         6:  If FindDemon then
               Result := True;
         7: begin
            if NoGameTab then
            begin
              Result := True;
              Players[CurrentPlayer].loc := 'No GameTab';
              Logout;
              Exit;
            end;
            end;
         8: begin
        talkrnd;
               if InBlack then
               begin
                 Result := True;
                 Players[CurrentPlayer].loc := 'InBlack';
                 Logout;
                 Exit;
               end;
             end;
           9: RC;
           10: talkrnd;
        end;
        talkrnd;
      end;
    end;






    procedure DeclareBMPS;
    begin
      cursegone := BitmapFromString(5, 5, 'z78DA33303230303032809' +
      '016061686861036903630B44011C794C510C7228B218E62328638' +
      '840400938E1D11');
      weakengone := BitmapFromString(5, 6, 'z78DA3335317134763230' +
           '323030303234343030B480901011FCE298B2982A71E9353533713' +
           '1C1693E4416530D840D006BA02332');
      confusegone := BitmapFromString(12, 7, 'z78DA33743430307434' +
           '3032303030323404B22D2024448472714C596435B8CCC13401BF5' +
           'DC4984C8939E4F90B97087E927817926A02B22C00E1A860F4');
    end;

    procedure randoms;
    begin
     if (FindFight) then
      begin
        Status('Climbing up stairs...')
      if(FindObj3(x,y,'tair',610411,7)) then
      begin
        Mouse(x,y,3,3,true);
      end;
      begin
      Sleep(15000+random(5000));
        if(InChatMulti('evil','bored','vanish')) then
        begin
        wait(1000+random(500))
        MakeCompass('E');
      if(FindObj3(x,y,'tair',5395032,8)) then
      begin
         wait(1000+random(300));
         Mouse(x,y,3,3,true);
         wait(3000+random(400));
         Mouse(126,182,3,3,true);
      end;
          Wait(10);
          talkrnd;
      end;
      end;
      end;
      end;





    Function ZCastOn(Spell, Monster: string; MonsterColor : Integer; Tolerance:
     Integer): Boolean;
     var
       tx,ty : integer;

    begin
      tx := tx + random ( 40 );
      ty := ty + random ( 40 );
     if (not Cast(Spell)) then Exit;
      ZMageI := random(3)
     if (FindObj3(tx, ty, Monster, ZMage[ZMageI], Tolerance)) then
     begin
         Mouse(tx,ty, 0, 0, True);
         Result := True;
     end;
     end;


    Procedure ZammyMageColors;
    begin
      ZMage[0] := (Mage1);
      ZMage[1] := (Mage2);
      ZMage[2] := (Mage3);
    end;



    Function FindMage : Boolean;
     begin
      talkrnd;
       ZMageI:=Random(3);
     if(FindObj3(x, y, 'amora', ZMage[ZMageI], 7)) then
     begin
        MakeCompass('E');
        writeln('Found Mage!');
        Result := True;
        Exit;
     end
     else
     begin
        Writeln('Finding Mage..');
        MakeCompass('E');
        Wait(300+random(300));
        HighestAngle;
     end;
        result := False;
    end;


    Procedure LocateMage;
     begin
     if(FindMage) then
     begin
         MakeCompass('E');
         Writeln('Found Mage1!')
         Exit;
     end
     else
     begin
     repeat
         Writeln('Trying to Find mage..')
         FindMage;
         Attemptss:=Attemptss + 1;
     Until(FindMage) or (Attemptss>3);
     if (Attemptss > 3) then
     begin
         Writeln('Dident find mage!')
         Switchworlds;
         LoginPlayer;
         Loads := Loads + 1;
         if (Loads > 5) then
         NextPlayer(False);
     end;
     end;
    end;


    Procedure zammymage;
     var
       Spell : String;
     begin

     case wichspell of
      0: Spell:='Confuse';
      1: Spell:='Weaken';
      2: Spell:='Curse';
     end;
       FindFastRandoms;
      talkrnd;
       Wait(300+random(200));
       ZMageI := random(3)
       ZCastOn(Spell,'amora',ZMage[ZMageI],8);
       talkrnd;
     if(howmany>=howmanyto) then
       NextPlayer(False);
     end;



    function StolenMage : Boolean;
     begin
      GameTab(7);
      if(wichspell=0) and FindBitmap(confusegone,x,y) or (wichspell=1) and FindBitMap(weakengone,x,y) or (wichspell=2) and FindBitmap(cursegone,x,y) then
     begin
      xcv := xcv + 1;
      Mouse(x,y,3,3,true);
      Wait(100+random(100));
     if(FindColorTolerance(x,y,Zmage[ZMageI],2,3,760,495,6)) then
     begin
      xcv := xcv + 1;
      Mouse(x,y,3,3,True);
     if (InChatMulti('enough','unes','cast') or InChatMulti('not','ody','spell')) then
     begin
      xcv := xcv + 1;
     if(xcv = 3) then
     begin
      Result := true;
     end else
      Result := False;
     end;
     FreeBitmap(cursegone);
     FreeBitmap(weakengone);
     FreeBitmap(confusegone);
     end;
     end;
    end;



    Procedure DoChats;

    Begin
      SetChat('On', 1);
      SetChat('Off', 2)
      SetChat('On', 3);
    End;

    Procedure progress;
    begin
    // thanks hey321
      writeln('[===============================================]')
      writeln('[        Syberiums Zammy Mager                   ')
      writeln('[ Completed ' +IntToStr(howmany)+ ' Zammy Mage Casts!')
      writeln('[ Worked For ' +TimeRunning)
      writeln('[Thank You for using my script! Post Proggies =]')
      writeln('[==============================================]')
      SRLrandomsreport;
    end;

    Procedure antiban1;
     var DBANME : integer;
     begin
       writeln('Antiban1')
     if (not(loggedIn)) then Exit;
       DBANME := Random(100);
     case DBANME of
        1:Hoverskill('magic',False) ;
        2:pickupmouse;
     end;
     end;

    Procedure antiban2;
     var DBANME1 : integer;
     begin
       writeln('AntiBan2')
     if(not(LoggedIn)) then Exit;
       DBANME1 := Random(100);
     case DBANME1 of
        1:ZCastOn('Weaken','amora',ZMage[ZMageI],5);
        2:ZCastOn('Confuse','amora',ZMage[ZMageI],5);
     end;
    end;


    Procedure click1;
    begin
      Mouse(698,297,5,5,true);
      wait(300-random(80))
      Mouse(698,297,0,0,true);
    end;

    Procedure click2;
    begin
      Mouse(685,267,5,5,true);
      wait(300-random(80))
      Mouse(685,267,0,0,true);
    end;

    Procedure click3;
    begin
      Mouse(652,254,5,5,true);
      wait(300-random(80))
      Mouse(652,254,0,0,true);
    end;


    Procedure missclick;
     var
       click : integer;
     begin
       click := random(60)
     case click of
       1:click1;
       2:click2;
       3:click3;
     end;
    end;

    Function stolen : Boolean;
     begin
     if(InChatMulti('omeone', 'else' , 'ghting')) then
     begin
       Result := true;
       TypeSend('Leave please.. i need exp') ;
     end;
     begin
     if(InChatMulti('omeone', 'else' , 'ghting')) then
     begin
       TypeSend('Zomg u still here noob..');
       Result := true;
     end else
     begin
       Result := false;
     end;
     end;
    end;

    procedure jacked;
     begin
     if (stolen) then
     begin
       Writeln('Some one is fighting mage already!')
       SwitchWorlds;
       LoginPlayer;
       MakeCompass('E');
       MakeCompass('E');
       MakeCompass('E');
       highestangle;
     end;
    end;


    procedure norunes;
     begin
     if (StolenMage) then
     begin
       writeln('Ran out of runes, Logging out.');
       Players[Currentplayer].active := False;
       NextPlayer(False);
     end;
    end;

    function GetChatMessage(Text: String): Boolean;
     var
        TX, TY: Integer;
        Chat: String;
     begin
     if(IsTextInAreaEx(40, 415, 130, 415, TX, TY, ':', 0, SmallChars, False, True, 0, 0, 0))then
     begin
        Chat:= Lowercase(Trim(GetTextAtEx(TX + 8, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
     if(Pos(Text, Chat) <> 0)then
     begin
        Result:= True;
     end
     end;
     end;



    function GetChatName(Name: String): Boolean;
     var
       I: Integer;
     begin

       ChatName:= Lowercase(Trim(GetTextAtEx(21, 415, 0, SmallChars, False, False, 0, 0, 0, 50, False, TR_AllChars)));
       I:= Pos(':', ChatName);
     if(I <> 0)then
     begin
       Delete(ChatName, I, I);
     end

     if(Pos(Name, ChatName) <> 0)then
     begin
       Result:= True;
     end
    end;



    Function AutoRespond: Boolean;
     var
      Responce, Lvl: String;
      RandomReply: 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);
         RandomReply:= Random(10)+1;
        Case (RandomReply) of
          0 : Responce:= ('?');
          1 : Responce:= ('what');
          2 : Responce:= ('yes');
          3 : Responce:= ('no');
          4 : Responce:= ('what do you want');
          5 : Responce:= ('me?');
          6 : Responce:= ('Yah?');
          7 : Responce:= ('who?');
          8 : Responce:= ('wha?');
          9 : Responce:= ('?');
          10 : Responce:= ('???');
      end
          TypeSend(Responce+' '+Name);
          Result:= True;
      end

      If(GetChatMessage('lol'))or (GetChatMessage('lolz')) or (GetChatMessage('lmao')) or (GetChatMessage('rofl')) or (GetChatMessage('haha'))then
       Begin
        WriteLn(''+ChatName+': '+Chat);
        RandomReply:= Random(25)+1;
        Case (RandomReply) of
         0 : Responce:= ('hehe');
         1 : Responce:= ('lolol');
         2 : Responce:= ('lol');
         3 : Responce:= ('haha');
         4 : Responce:= ('hihi');
         5 : Responce:= ('ghehe');
         6 : Responce:= ('lmao');
         7 : Responce:= ('lmfao');
         8 : Responce:= ('rofls');
         9 : Responce:= ('fun');
         10 : Responce:= ('nice');
         11 : Responce:= ('lolz');
         12 : Responce:= ('yep');
         13 : Responce:= ('hola');
         14 : Responce:= ('wow');
         15 : Responce:= ('hehe...');
         16 : Responce:= ('rofl');
         17 : Responce:= ('ghehehghehighhe');
         18 : Responce:= ('cool');
         19 : Responce:= ('...');
         20 : Responce:= ('???');
         21 : Responce:= ('wowzers');
         22 : Responce:= ('grrr...');
         23 : Responce:= ('rowr');
         24 : Responce:= ('lolololololol');
         25 : Responce:= ('ha ha ha!!!');
        end
         TypeSend(Responce);
         Result:= True;
      end


      If(GetChatMessage('mage')) or (GetChatMessage('magic')) or (GetChatMessage('mag'))
       And
      (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('lvls')) or (GetChatMessage('levels'))then
       Begin
        WriteLn(''+ChatName+': '+Chat);
        Lvl:= IntToStr(GetSkillLevel('magic'));
        RandomReply:= Random(5)+1;
         Case (RandomReply) of
          0 : Responce:= ('i''m lvl '+Lvl+' mage');
          1 : Responce:= ('level '+Lvl+' magic');
          2 : Responce:= ('lvl '+Lvl+' magein!');
          3 : Responce:= (+Lvl);
          4 : Responce:= ('i''m level '+lvl);
          5 : Responce:= (+Lvl+' here :P');
         End
        TypeSend(Responce);
        Result:= True;
       End

      If(GetChatMessage('wat')) or (GetChatMessage('what')) and (GetChatMessage('doin')) or (GetChatMessage('doing'))then
       Begin
       WriteLn(''+ChatName+': '+Chat);
       RandomReply:= Random(12);
        Case RandomReply of
         0 : Responce:= ('not much');
         1 : Responce:= ('nothing');
         2 : Responce:= ('bored');
         3 : Responce:= ('aye?');
         4 : Responce:= ('emmm..nothin');
         5 : Responce:= ('nope');
         6 : Responce:= ('huh');
         7 : Responce:= ('playin rs.. der da der');
         8 : Responce:= ('what');
         9 : Responce:= ('....');
         10 : Responce:= ('nothin');
         11 : Responce:= ('dun worry about it');
        End;
       TypeSend(Responce);
       Result:= True;
      End;

      If(GetChatMessage('hey')) or (GetChatMessage('hi')) or (GetChatMessage('hello')) or (GetChatMessage('wats up')) or (GetChatMessage('whats up')) or (GetChatMessage('yo'))then
       Begin
       WriteLn(''+ChatName+': '+Chat);
       RandomReply:= random(9)+1;
        Case RandomReply of
          0 : Responce:= ('ello');
          1 : Responce:= ('sup');
          2 : Responce:= ('yo');
          3 : Responce:= ('whats up everyone');
          4 : Responce:= ('whats up');
          5 : Responce:= ('welcome');
          6 : Responce:= ('allo allo');
          7 : Responce:= ('wat up');
          8 : Responce:= ('y0o');
          9 : Responce:= ('=P');
          10 : Responce:= ('what is up');
        End
       TypeSend(Responce);
       Result:= True;
      End
    End;



    begin

       SetupSRL;
       ScriptID := '71';
       ClearDebug;
       DeclarePlayers;
       DeclareBMPS;
       CurrentPlayer := StartPlayer;
       InitWorlds;
       OpenSCSS;
       SCSSSetHandle;
       if(not(LoggedIn)) then LoginPlayer;
       NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
       DoChats;
       MouseSpeed := MSpeed + Random(3)
       BenMouse:=False;
       MakeCompass('E');
       Highestangle;
       ZammyMageColors;
       MakeCompass('E');
       MakeCompass('E');
       MakeCompass('E');
       FindMage;
       LocateMage;
     repeat
       AutoRespond;
       MouseSpeed := MSpeed + Random(3)
       missclick;
       randoms;
       talkrnd;
       AutoRespond;
       jacked;
       norunes;
       wait(600+random(200));
       zammymage;
       wait(200+random(100));
       howmany:=howmany + 1;
       progress;
       antiban1;
       antiban2;
       FindFastRandoms;
       AutoRespond;
     until(howmany>=howmanyto);
       NextPlayer(False);
       writeln('dbuf 1');
    end.

  24. #99
    Join Date
    Dec 2006
    Posts
    374
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    read up on player array tuts. but since i feel like being nice heres a working version for u. dont mess with anything in it cept the user and pass and nick.
    SCAR Code:
    { # ScriptName: Auto Monk of zamorak confuser/weakener/curser!          }
     { # ScriptDefinition: Uses confuse/curse/weaken on monk of zammy.       }
     { # Instructions: Start in varrock castle on the west side of mage cage!}
     { # Instructions Cont: Pick Color of zammy mage! IMPORTANT!             }
     { # Credits: Me for making this! Junior-Helped with my stupid mistake =/, }
     { # Credits Cont: pwnaz0r-THANKS MAN!, Scuancy-MAN thanks for being a great}
     {   tester! Ruroken for world switch idea,}
     { # Lastly have fun and auto safe and correctly!
     
     { IF the weaken isent working for you do the below instructions.
     go to SRL\SRL\skill\magic.scar and replace there BMP with mine.
      MAKE SURE U REMOVE THE {}
    {AROUND THE BMP!}
    {  weaken := BitmapFromString(5, 6, 'z78DA33353171347632000143' +
           '474B03335717080911C12F8E298BA912975E5333131713235C6A2' +
           '0B2986A206C008F6C2631');  }

     
    const
      WichSpell = 0; // 0 for confuse, 1 for weaken, 2 for curse!
      Howmanyto = 4326;// how many times to cast the above spells.
      MSpeed = 20;
      Mage1 = 3949221; //mage color(s) shoudent have to change these
      Mage2 = 4015531;
      Mage3 = 8168659;
      StartPlayer = 0; // What player you start with.
      NumberOfUsers = 1; // The Number of users you use.
      Version = ('4.0') ;
      Mem = ('no'); // yes to load member worlds, no for free worlds.
     
     
     
     
    var
     Howmany,cursegone,weakengone,confusegone,xcv,loads : integer;
     attemptss : integer;
     ZMage : array[0..2] of integer;
     ZMageI : integer;
     Chat, Name, ChatName: String;
     PreferredWorlds: array[0..13] of integer;
     PreferredWorldCounter :integer;
     Handle, World:integer;
     
     
    procedure DeclarePlayers;
     
    begin
         HowManyPlayers := NumberOfUsers;
         NumberOfPlayers( HowManyPlayers );
         CurrentPlayer := StartPlayer;
     
     
         Players[0].Name :='Name';
         Players[0].Pass :='*****';
         Players[0].Nick :='am';
         Players[0].Active:=True;
     
         
    end;
     
     
    procedure InitWorlds;
    begin
    if (Mem = 'no') or (mem = 'No') then
    begin
    PreferredWorlds[0]:=107;
    PreferredWorlds[1]:=108;
    PreferredWorlds[2]:=109;
    PreferredWorlds[3]:=125;
    PreferredWorlds[4]:=126;
    PreferredWorlds[5]:=127;
    PreferredWorlds[6]:=128;
    PreferredWorlds[7]:=17;
    PreferredWorlds[8]:=37;
    PreferredWorlds[9]:=113;
    PreferredWorlds[10]:=93;
    PreferredWorlds[11]:=95;
    PreferredWorlds[12]:=96;
    PreferredWorlds[13]:=85;
    end else
    begin
    if(Mem = 'Yes') or (Mem = 'yes') then
    begin
    PreferredWorlds[0]:=138;
    PreferredWorlds[1]:=137;
    PreferredWorlds[2]:=132;
    PreferredWorlds[3]:=131;
    PreferredWorlds[4]:=130;
    PreferredWorlds[5]:=124;
    PreferredWorlds[6]:=123;
    PreferredWorlds[7]:=121;
    PreferredWorlds[8]:=120;
    PreferredWorlds[9]:=104;
    PreferredWorlds[10]:=89;
    PreferredWorlds[11]:=88;
    PreferredWorlds[12]:=78;
    PreferredWorlds[13]:=77;
    end;
    end;
    end;
     
     function WelcomeToRuneScape:Boolean;   // By WT-Fakawi
    var Welcome,tx,ty:integer;
    begin
      Welcome := CreateBitmapMaskFromText('Welcome', UpChars);
      Result:= FindBitmapMaskTolerance(Welcome, tx, ty, 250, 200, 530, 260, 10,10)
      FreeBitmap(Welcome);
    end;
     
    Procedure SwitchWorlds; // By WT-Fakawi
    begin
     
      SCSSLoadWorld(PreferredWorlds[PreferredWorldCounter], True);
      PreferredWorldCounter:=PreferredWorldCounter+1;
      if PreferredWorldCounter > 13 then PreferredWorldCounter:=0;
      Wait(20000);
      Handle:=SCSSGetHandle;
      World:=SCSSGetCurWorld;
      SCSSSetHandle;
      ActivateClient;
      repeat
        Wait(1000);
      until WelcomeToRuneScape;
      end;
     
    procedure talkrnd;
    begin
     if (FindTalk) then
     begin
       FindTalk;
       Findnormalrandoms;
     end;
     end;
     
     
     
     
    Function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i:=0 to 10 do
      begin
        case I of
         0:  If FindTalk then
         begin
           FindNormalRandoms;
         end;
         1:  If FindDead then
               Result := True;
         2:  If FindMod then
               Result := True;
         3:  If FindMime then
               Result := True;
         4:  If FindMaze then
               Result := True;
         5:  If FindQuiz then
               Result := True;
         6:  If FindDemon then
               Result := True;
         7: begin
            if NoGameTab then
            begin
              Result := True;
              Players[CurrentPlayer].loc := 'No GameTab';
              Logout;
              Exit;
            end;
            end;
         8: begin
        talkrnd;
               if InBlack then
               begin
                 Result := True;
                 Players[CurrentPlayer].loc := 'InBlack';
                 Logout;
                 Exit;
               end;
             end;
           9: RC;
           10: talkrnd;
        end;
        talkrnd;
      end;
    end;
     
     
     
     
     
     
    procedure DeclareBMPS;
    begin
      cursegone := BitmapFromString(5, 5, 'z78DA33303230303032809' +
      '016061686861036903630B44011C794C510C7228B218E62328638' +
      '840400938E1D11');
      weakengone := BitmapFromString(5, 6, 'z78DA3335317134763230' +
           '323030303234343030B480901011FCE298B2982A71E9353533713' +
           '1C1693E4416530D840D006BA02332');
      confusegone := BitmapFromString(12, 7, 'z78DA33743430307434' +
           '3032303030323404B22D2024448472714C596435B8CCC13401BF5' +
           'DC4984C8939E4F90B97087E927817926A02B22C00E1A860F4');
    end;
     
    procedure randoms;
    begin
     if (FindFight) then
      begin
        Status('Climbing up stairs...')
      if(FindObj3(x,y,'tair',610411,7)) then
      begin
        Mouse(x,y,3,3,true);
      end;
      begin
      Sleep(15000+random(5000));
        if(InChatMulti('evil','bored','vanish')) then
        begin
        wait(1000+random(500))
        MakeCompass('E');
      if(FindObj3(x,y,'tair',5395032,8)) then
      begin
         wait(1000+random(300));
         Mouse(x,y,3,3,true);
         wait(3000+random(400));
         Mouse(126,182,3,3,true);
      end;
          Wait(10);
          talkrnd;
      end;
      end;
      end;
      end;
     
     
     
     
     
    Function ZCastOn(Spell, Monster: string; MonsterColor : Integer; Tolerance:
     Integer): Boolean;
     var
       tx,ty : integer;
     
    begin
      tx := tx + random ( 40 );
      ty := ty + random ( 40 );
     if (not Cast(Spell)) then Exit;
      ZMageI := random(3)
     if (FindObj3(tx, ty, Monster, ZMage[ZMageI], Tolerance)) then
     begin
         Mouse(tx,ty, 0, 0, True);
         Result := True;
     end;
     end;
     
     
    Procedure ZammyMageColors;
    begin
      ZMage[0] := (Mage1);
      ZMage[1] := (Mage2);
      ZMage[2] := (Mage3);
    end;
     
     
     
    Function FindMage : Boolean;
     begin
      talkrnd;
       ZMageI:=Random(3);
     if(FindObj3(x, y, 'amora', ZMage[ZMageI], 7)) then
     begin
        MakeCompass('E');
        writeln('Found Mage!');
        Result := True;
        Exit;
     end
     else
     begin
        Writeln('Finding Mage..');
        MakeCompass('E');
        Wait(300+random(300));
        HighestAngle;
     end;
        result := False;
    end;
     
     
    Procedure LocateMage;
     begin
     if(FindMage) then
     begin
         MakeCompass('E');
         Writeln('Found Mage1!')
         Exit;
     end
     else
     begin
     repeat
         Writeln('Trying to Find mage..')
         FindMage;
         Attemptss:=Attemptss + 1;
     Until(FindMage) or (Attemptss>3);
     if (Attemptss > 3) then
     begin
         Writeln('Dident find mage!')
         Switchworlds;
         LoginPlayer;
         Loads := Loads + 1;
         if (Loads > 5) then
         NextPlayer(False);
     end;
     end;
    end;
     
     
    Procedure zammymage;
     var
       Spell : String;
     begin
     
     case wichspell of
      0: Spell:='Confuse';
      1: Spell:='Weaken';
      2: Spell:='Curse';
     end;
       FindFastRandoms;
      talkrnd;
       Wait(300+random(200));
       ZMageI := random(3)
       ZCastOn(Spell,'amora',ZMage[ZMageI],8);
       talkrnd;
     if(howmany>=howmanyto) then
       NextPlayer(False);
     end;
     
     
     
    function StolenMage : Boolean;
     begin
      GameTab(7);
      if(wichspell=0) and FindBitmap(confusegone,x,y) or (wichspell=1) and FindBitMap(weakengone,x,y) or (wichspell=2) and FindBitmap(cursegone,x,y) then
     begin
      xcv := xcv + 1;
      Mouse(x,y,3,3,true);
      Wait(100+random(100));
     if(FindColorTolerance(x,y,Zmage[ZMageI],2,3,760,495,6)) then
     begin
      xcv := xcv + 1;
      Mouse(x,y,3,3,True);
     if (InChatMulti('enough','unes','cast') or InChatMulti('not','ody','spell')) then
     begin
      xcv := xcv + 1;
     if(xcv = 3) then
     begin
      Result := true;
     end else
      Result := False;
     end;
     FreeBitmap(cursegone);
     FreeBitmap(weakengone);
     FreeBitmap(confusegone);
     end;
     end;
    end;
     
     
     
    Procedure DoChats;
     
    Begin
      SetChat('On', 1);
      SetChat('Off', 2)
      SetChat('On', 3);
    End;
     
    Procedure progress;
    begin
    // thanks hey321
      writeln('[===============================================]')
      writeln('[        Syberiums Zammy Mager                   ')
      writeln('[ Completed ' +IntToStr(howmany)+ ' Zammy Mage Casts!')
      writeln('[ Worked For ' +TimeRunning)
      writeln('[Thank You for using my script! Post Proggies =]')
      writeln('[==============================================]')
      SRLrandomsreport;
    end;
     
    Procedure antiban1;
     var DBANME : integer;
     begin
       writeln('Antiban1')
     if (not(loggedIn)) then Exit;
       DBANME := Random(100);
     case DBANME of
        1:Hoverskill('magic',False) ;
        2:pickupmouse;
     end;
     end;
     
    Procedure antiban2;
     var DBANME1 : integer;
     begin
       writeln('AntiBan2')
     if(not(LoggedIn)) then Exit;
       DBANME1 := Random(100);
     case DBANME1 of
        1:ZCastOn('Weaken','amora',ZMage[ZMageI],5);
        2:ZCastOn('Confuse','amora',ZMage[ZMageI],5);
     end;
    end;
     
     
    Procedure click1;
    begin
      Mouse(698,297,5,5,true);
      wait(300-random(80))
      Mouse(698,297,0,0,true);
    end;
     
    Procedure click2;
    begin
      Mouse(685,267,5,5,true);
      wait(300-random(80))
      Mouse(685,267,0,0,true);
    end;
     
    Procedure click3;
    begin
      Mouse(652,254,5,5,true);
      wait(300-random(80))
      Mouse(652,254,0,0,true);
    end;
     
     
    Procedure missclick;
     var
       click : integer;
     begin
       click := random(60)
     case click of
       1:click1;
       2:click2;
       3:click3;
     end;
    end;
     
    Function stolen : Boolean;
     begin
     if(InChatMulti('omeone', 'else' , 'ghting')) then
     begin
       Result := true;
       TypeSend('Leave please.. i need exp') ;
     end;
     begin
     if(InChatMulti('omeone', 'else' , 'ghting')) then
     begin
       TypeSend('Zomg u still here noob..');
       Result := true;
     end else
     begin
       Result := false;
     end;
     end;
    end;
     
    procedure jacked;
     begin
     if (stolen) then
     begin
       Writeln('Some one is fighting mage already!')
       SwitchWorlds;
       LoginPlayer;
       MakeCompass('E');
       MakeCompass('E');
       MakeCompass('E');
       highestangle;
     end;
    end;
     
     
    procedure norunes;
     begin
     if (StolenMage) then
     begin
       writeln('Ran out of runes, Logging out.');
       Players[Currentplayer].active := False;
       NextPlayer(False);
     end;
    end;
     
    function GetChatMessage(Text: String): Boolean;
     var
        TX, TY: Integer;
        Chat: String;
     begin
     if(IsTextInAreaEx(40, 415, 130, 415, TX, TY, ':', 0, SmallChars, False, True, 0, 0, 0))then
     begin
        Chat:= Lowercase(Trim(GetTextAtEx(TX + 8, 415, 0, SmallChars, False, False, 0, 1, 16711680, 40, False, TR_AllChars)));
     if(Pos(Text, Chat) <> 0)then
     begin
        Result:= True;
     end
     end;
     end;
     
     
     
    function GetChatName(Name: String): Boolean;
     var
       I: Integer;
     begin
     
       ChatName:= Lowercase(Trim(GetTextAtEx(21, 415, 0, SmallChars, False, False, 0, 0, 0, 50, False, TR_AllChars)));
       I:= Pos(':', ChatName);
     if(I <> 0)then
     begin
       Delete(ChatName, I, I);
     end
     
     if(Pos(Name, ChatName) <> 0)then
     begin
       Result:= True;
     end
    end;
     
     
     
    Function AutoRespond: Boolean;
     var
      Responce, Lvl: String;
      RandomReply: 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);
         RandomReply:= Random(10)+1;
        Case (RandomReply) of
          0 : Responce:= ('?');
          1 : Responce:= ('what');
          2 : Responce:= ('yes');
          3 : Responce:= ('no');
          4 : Responce:= ('what do you want');
          5 : Responce:= ('me?');
          6 : Responce:= ('Yah?');
          7 : Responce:= ('who?');
          8 : Responce:= ('wha?');
          9 : Responce:= ('?');
          10 : Responce:= ('???');
      end
          TypeSend(Responce+' '+Name);
          Result:= True;
      end
     
      If(GetChatMessage('lol'))or (GetChatMessage('lolz')) or (GetChatMessage('lmao')) or (GetChatMessage('rofl')) or (GetChatMessage('haha'))then
       Begin
        WriteLn(''+ChatName+': '+Chat);
        RandomReply:= Random(25)+1;
        Case (RandomReply) of
         0 : Responce:= ('hehe');
         1 : Responce:= ('lolol');
         2 : Responce:= ('lol');
         3 : Responce:= ('haha');
         4 : Responce:= ('hihi');
         5 : Responce:= ('ghehe');
         6 : Responce:= ('lmao');
         7 : Responce:= ('lmfao');
         8 : Responce:= ('rofls');
         9 : Responce:= ('fun');
         10 : Responce:= ('nice');
         11 : Responce:= ('lolz');
         12 : Responce:= ('yep');
         13 : Responce:= ('hola');
         14 : Responce:= ('wow');
         15 : Responce:= ('hehe...');
         16 : Responce:= ('rofl');
         17 : Responce:= ('ghehehghehighhe');
         18 : Responce:= ('cool');
         19 : Responce:= ('...');
         20 : Responce:= ('???');
         21 : Responce:= ('wowzers');
         22 : Responce:= ('grrr...');
         23 : Responce:= ('rowr');
         24 : Responce:= ('lolololololol');
         25 : Responce:= ('ha ha ha!!!');
        end
         TypeSend(Responce);
         Result:= True;
      end
     
     
      If(GetChatMessage('mage')) or (GetChatMessage('magic')) or (GetChatMessage('mag'))
       And
      (GetChatMessage('lvl')) or (GetChatMessage('level')) or (GetChatMessage('lvls')) or (GetChatMessage('levels'))then
       Begin
        WriteLn(''+ChatName+': '+Chat);
        Lvl:= IntToStr(GetSkillLevel('magic'));
        RandomReply:= Random(5)+1;
         Case (RandomReply) of
          0 : Responce:= ('i''m lvl '+Lvl+' mage');
          1 : Responce:= ('level '+Lvl+' magic');
          2 : Responce:= ('lvl '+Lvl+' magein!');
          3 : Responce:= (+Lvl);
          4 : Responce:= ('i''m level '+lvl);
          5 : Responce:= (+Lvl+' here :P');
         End
        TypeSend(Responce);
        Result:= True;
       End
     
      If(GetChatMessage('wat')) or (GetChatMessage('what')) and (GetChatMessage('doin')) or (GetChatMessage('doing'))then
       Begin
       WriteLn(''+ChatName+': '+Chat);
       RandomReply:= Random(12);
        Case RandomReply of
         0 : Responce:= ('not much');
         1 : Responce:= ('nothing');
         2 : Responce:= ('bored');
         3 : Responce:= ('aye?');
         4 : Responce:= ('emmm..nothin');
         5 : Responce:= ('nope');
         6 : Responce:= ('huh');
         7 : Responce:= ('playin rs.. der da der');
         8 : Responce:= ('what');
         9 : Responce:= ('....');
         10 : Responce:= ('nothin');
         11 : Responce:= ('dun worry about it');
        End;
       TypeSend(Responce);
       Result:= True;
      End;
     
      If(GetChatMessage('hey')) or (GetChatMessage('hi')) or (GetChatMessage('hello')) or (GetChatMessage('wats up')) or (GetChatMessage('whats up')) or (GetChatMessage('yo'))then
       Begin
       WriteLn(''+ChatName+': '+Chat);
       RandomReply:= random(9)+1;
        Case RandomReply of
          0 : Responce:= ('ello');
          1 : Responce:= ('sup');
          2 : Responce:= ('yo');
          3 : Responce:= ('whats up everyone');
          4 : Responce:= ('whats up');
          5 : Responce:= ('welcome');
          6 : Responce:= ('allo allo');
          7 : Responce:= ('wat up');
          8 : Responce:= ('y0o');
          9 : Responce:= ('=P');
          10 : Responce:= ('what is up');
        End
       TypeSend(Responce);
       Result:= True;
      End
    End;
     
     
     
    begin
     
       SetupSRL;
       ScriptID := '71';
       ClearDebug;
       DeclarePlayers;
       DeclareBMPS;
       CurrentPlayer := StartPlayer;
       InitWorlds;
       OpenSCSS;
       SCSSSetHandle;
       if(not(LoggedIn)) then LoginPlayer;
       NickNameBMP:= CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
       DoChats;
       MouseSpeed := MSpeed + Random(3)
       BenMouse:=False;
       MakeCompass('E');
       Highestangle;
       ZammyMageColors;
       MakeCompass('E');
       MakeCompass('E');
       MakeCompass('E');
       FindMage;
       LocateMage;
     repeat
       AutoRespond;
       MouseSpeed := MSpeed + Random(3)
       missclick;
       randoms;
       talkrnd;
       AutoRespond;
       jacked;
       norunes;
       wait(600+random(200));
       zammymage;
       wait(200+random(100));
       howmany:=howmany + 1;
       progress;
       antiban1;
       antiban2;
       FindFastRandoms;
       AutoRespond;
     until(howmany>=howmanyto);
       NextPlayer(False);
       writeln('dbuf 1');
    end.
    -Syberium
    Another awsome scripting forum! Check it out: www.Uberbroproductions.net/forums
    TRY MY VARROCK ZAMMY MAGE CURSER/CONFUSER/WEAKENER! THE LINK IS BELOW
    http://www.srl-forums.com/forum/varr...56.html?t=6356
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~


  25. #100
    Join Date
    Sep 2006
    Location
    Australia
    Posts
    425
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default

    drag the crosshair onto RS client, You won't get the error

Page 4 of 7 FirstFirst ... 23456 ... LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Jesus45's Zammy curser
    By TheSantaMan in forum RS3 Outdated / Broken Scripts
    Replies: 29
    Last Post: 05-24-2009, 05:17 PM
  2. varrock zammy mage curser
    By Magiic in forum RS3 Outdated / Broken Scripts
    Replies: 0
    Last Post: 09-13-2008, 12:32 PM
  3. Zammy monk curser
    By sherlockmeister in forum First Scripts
    Replies: 0
    Last Post: 08-31-2008, 08:15 PM
  4. PoW Zammy Curser
    By Faelstorm in forum RS3 Outdated / Broken Scripts
    Replies: 10
    Last Post: 08-18-2008, 08:06 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •