Results 1 to 4 of 4

Thread: Semi Colin expected in script WTF???

  1. #1
    Join Date
    Aug 2006
    Posts
    151
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Semi Colin expected in script WTF???

    Well i was aiming to release my auto fighter tongiht and i havnt completely given up but when it was all done ( or seemed like it at least) i get the most retarted error alive in my declare players which i never have a problem with heres the script see if you get the error
    SCAR Code:
    ailed when compiling
    Line 52: [Error] (15550:1): Semicolon (';') expected in script

    Im sure it something simple but if you could point out what i did wrong so i can fix and release tonight itd be great heres the script

    SCAR Code:
    {
    ********************************************************************************
    |      | ===== |===      =====       /==\ /==\   /| |   | |  /
    |      |   |   |           |        /     |  |  / | |\  | | /
    |      |   |   |==         |        \===\ |__/ |__| | \ | |<
    \  /\  /   |   |           |            / |       | |  \| | \
     \/  \/    |   |         =====      \==/  |       | |   | |  \
    ********************************************************************************
    |    | /===\ |   |  /==\ ===== |=== |===\        /==\ /==\   /| |   | |  /
    |\  /| |   | |\  | /       |   |    |    |      /     |  |  / | |\  | | /
    | \/ | |   | | \ | \===\   |   |==  |___/       \===\ |__/ |__| | \ | |<
    |    | |   | |  \|     /   |   |    |  \            / |       | |  \| | \
    |    | \===/ |   | \==/    |   |=== |   \       \==/  |       | |   | |  \
    ********************************************************************************
    Endjoy<@:)
    Plz give feedback
    My name on moparisthebest.com/smf is wtf i sp4nk and its same on
    villu-reborn.com
    ********************************************************************************
                                  INSTRUCTIONS
    FILL OUT SETUP ON LINES ()
    FILL IN USERNAMES
    PUT NEAR MONSTERS YOUR FIGHTING
    ********************************************************************************
    }

    program Monster_Sp4nker;

    {.include SRL\SRL.scar}


    ////Dont Touch///////
    var                //
    MonsterK : integer;//
    /////////////////////


    {**********************************************Setup***************************}
    const
    Mcolor=1;//color of monster
    MWaiTime=1;//time to wait untill attacking another monsters
    NToKill=1;//How many monsters you want to sp4nk
    MName='Rat';//Name of monster your killing
    Username='';//fill out for auto responder by Arrow
    Nick='';//fill out for auto responder by Arrow
    SkillUp='Stregth'//Lamp Skill For Genie
    {*****************************************End Of Setup*************************}


    {******************************************************************************}
    {*******************DECLARE YOUR PLAYERS BELOW*********************************}
    {******************************************************************************}
    Procedure DeclarePlayers;

     Begin
        HowManyPlayers := 1;                // Set Number of Players here.
        NumberOfPlayers(HowManyPlayers);    // Sets the Players Array Length;
        CurrentPlayer := 0;                // CurrentPlayer = Array Index

        Players[0].Name := '';   //Username
        Players[0].Pass := ''; //Password
        Players[0].Nick := '';         //3 or 4 letters username
        Players[0].Loc := '';               //Leave as blank
        Players[0].Skill := 'Stregth';  //The skill for when you get a lamp
        Players[0].Active := True;

      Writeln(inttostr(HowManyPlayers) + ' Players');
    End;
    {******************************************************************************}
    {******************************************************************************}


    Procedure beginscript;
     Begin
      cleardebug
      DisguiseScar('Limewire:Enabling Walk It Out');
        Writeln(' /==\ /==\   /| |   | |  / ')
        Writeln('/     |  |  / | |\  | | /  ')
        Writeln('\===\ |__/ |__| | \ | |<   ')
        Writeln('    / |       | |  \| | \  ')
        Writeln('\==/  |       | |   | |  \ ')
       Writeln('--->Monster Sp4nker by Wtf I Sp4nk')
      Writeln('--->Version 1.0 released enjoy :)')
      Writeln('--->Contact Me At [email]crazyirishman84@hotmail.com[/email]')
    End;


    {
    ********************************************************************************
    ***************Arrows Auto Responder********************************************
    ********************************************************************************
    }

    Procedure Responder;
    begin
      if (InChat('Mining lvls') or
        InChat('Mining lvls?') or
        InChat('Mine lvls') or
        Inchat('Mine lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Mining')))
      end;

      if (InChat('Wc lvls') or
        InChat('Wc lvls?') or
        InChat('Woodcut lvls') or
        InChat('Woodcut lvls?') or
        InChat('Woodcutting lvls') or
        InChat('Woodcutting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Woodcutting')))
      end;
      if (InChat('Fish lvls') or
        InChat('Fish lvls?') or
        InChat('Fishin lvls') or
        InChat('Fishin lvls?') or
        InChat('Fishing lvls') or
        InChat('Fishing lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Fishing')))
      end;
      if (InChat('Attack lvls') or
        InChat('Attack lvls?') or
        InChat('Atack lvls') or
        InChat('Atack lvls?') or
        InChat('Attac lvls') or
        InChat('Attac lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Attack')))
      end;

      if (InChat('Strengh lvls') or
        InChat('Strengh lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Strengh')))
      end;

      if (InChat('Defenc lvls') or
        InChat('Defenc lvls?') or
        InChat('Defence lvls') or
        InChat('Defence lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Defence')))
      end;

      if (InChat('Hp lvls') or
        InChat('Hp lvls?') or
        InChat('Hitpoint lvls') or
        InChat('Hitpoint lvls?') or
        InChat('Hitpoints lvls') or
        InChat('Hitpoints lvls?') or
        InChat('Hitp lvls') or
        InChat('Hitp lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Hitpoints')))
      end;

      if (InChat('Range lvls') or
        InChat('Range lvls?') or
        InChat('Rangin lvls') or
        InChat('Rangin lvls?') or
        InChat('Ranged lvls') or
        InChat('Ranged lvls?') or
        InChat('Ranging lvls') or
        InChat('Ranging lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Ranged')))
      end;

      if (InChat('Pray lvls') or
        InChat('Pray lvls?') or
        InChat('Prayer lvls') or
        InChat('Prayer lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Prayer')))
      end;

      if (InChat('Mage lvls') or
        InChat('Mage lvls?') or
        InChat('Mag lvls') or
        InChat('Mag lvls?') or
        InChat('Magic lvls') or
        InChat('Magic lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Magic')))
      end;

      if (InChat('Cook lvls') or
        InChat('Cook lvls?') or
        InChat('Cookin lvls') or
        Inchat('Cookin lvls?') or
        InChat('Cooking lvls') or
        InChat('Cooking lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Cooking')))
      end;

      if (InChat('Fletch lvls') or
        InChat('Fletch lvls?') or
        InChat('Fletching lvls') or
        InChat('Fletching lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Fletching')))
      end;

      if (InChat('Firemaking lvls') or
        InChat('FireMaking lvls?') or
        Inchat('Fire making lvls') or
        InChat('Fire making lvls')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Firemaking')))
      end;

      if (InChat('Craft lvls') or
        InChat('Craftt lvls?') or
        InChat('Craftin lvls') or
        InChat('Crafting lvls?') or
        InChat('Crafting lvls') or
        InChat('Crafting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Crafting')))
      end;

      if (InChat('Smelt lvls') or
        InChat('Smelt lvls?') or
        InChat('Smelting lvls') or
        InChat('Smelting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Smelting')))
      end;

      if (InChat('Rc lvls') or
        InChat('Rc lvls?') or
        InChat('Runecraft lvls') or
        InChat('Runecraft lvls?') or
        InChat('Runecrafting lvls') or
        InChat('Runecrafting lvls?')) then
      begin
        TypeSend(IntToStr(GetSkillLevel('Runecraft')))
      end;

      if (InChat(UserName + '?')) then
      begin
        TypeSend('Yeah?')
      end;

      if (InChat('Wna b freinds?') or
        InChat('Wna be freinds?') or
        InChat('Wana b freinds?') or
        InChat('Wana be freinds?') or
        InChat('Want 2 b freinds?') or
        InChat('Want 2 be freinds?') or
        InChat('Want to b freinds?') or
        InChat('Want to be freinds?')) then
      begin
        TypeSend('No ty')
      end;

      if (InChat('Hi' + UserName) or
        InChat('Hey' + UserName) or
        InChat('Hello' + UserName)) Then
      begin
        TypeSend('Hi')
      end;

      if (InChat('You are a noob' + UserName) or
        InChat( UserName + 'you are a noob')) then
      begin
        TypeSend('Okay')
      end;

      if (InChat('What music do you people like?') or
        InChat('Wat music do you guys like?') or
        InChat('What music you ppl like?') or
        InChat('Wat music do yoo  peeps like')) then
      begin
        TypeSend('Rock FTW!!')
      end;
    end;


    Procedure Ban;
     var
     NoBan : Integer;
      begin
       if ( not ( LoggedIn )) then Exit;
       NoBan:=Random(120)
        case NoBan of
         1: RandomRClickEvery(2 + Random(30));
         2: hoverskill('woodcutting', false);
         3: hoverskill('random', false);
         4: DoEmote(1 + Random(20));
         5: BoredEvery(9 + Random (21));
         6: PickUpMouse;
         7: LeaveScreenEvery(10 + Random(5));
         8: RotateEvery(20 + Random(5));
        end;
       end;

    Procedure MoreRandoms;
    begin
      SRLrandomsreport;
      FindLamp(SkillUp);
      FindTalk;
      if (not(Loggedin)) then exit;
    end;


    Procedure Spank;
    begin
    repeat
     highestangle;
     Responder;
     Ban;
     MoreRandoms;
     FindNormalRandoms;
      If(findcolorspiralTolerance(x,y,Mcolor,MSX1,MSY1,MSX2,MSY2,20))Then
       mmouse(x,y,3,3)
       Until IsUpTextMulti('att','ack',MName)
       If IsUpTextMulti('att','ack',MName) Then
        Begin
        GetMousePos(x,y)
        mouse(x,y,1,1,true)
        MonsterK:= MonsterK + 1;
        FindNormalRandoms;
        MoreRandoms;
        Responder;
        Ban;
        wait(MWaiTime+random(500))
        FindNormalRandoms;
      end;
    End;


    procedure ProgressReport;
    begin
     Writeln('##############################');
     Writeln('         WTF I SP4NK           ');
     Writeln('         Monster Sp4nker       ');
     Writeln('Saved you: '+ScriptTime2(2));
     Writeln('sp4nked : '+IntToStr(MonsterK));
     Writeln('##############################')
     Writeln('##############################');
    end;



    begin
     SetUpSRL;
     beginscript;
     DeclarePlayers;
     NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
     activateclient;
     If Not(loggedin) Then
       LoginPlayer;
     If (LoggedIn) Then
     Begin
     Repeat
      Repeat
        Spank;
         Until(NToKill >= MonsterK)
     if (NToKill >= MonsterK) Then
     Begin
       Writeln('Logging on to next player...')
       ProgressReport;
       Logout;
       NextPlayer(False);
      End;
     End;
    end.

  2. #2
    Join Date
    Oct 2006
    Posts
    517
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

  3. #3
    Join Date
    Jun 2006
    Posts
    1,492
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    add a semicolon after skillup='strength';

  4. #4
    Join Date
    Oct 2006
    Posts
    517
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Colin Powell endorses Obama
    By Naum in forum Discussions & Debates
    Replies: 17
    Last Post: 10-22-2008, 04:37 AM
  2. more semi pointless than semi stupid but...
    By cocodog13 in forum Semi Stupid Pictures
    Replies: 4
    Last Post: 04-03-2008, 04:33 PM
  3. semi automatic script
    By EL_TYCHO in forum OSR Help
    Replies: 3
    Last Post: 07-26-2007, 08:22 PM
  4. semi colon expected in script -.-
    By oliver1205 in forum OSR Help
    Replies: 1
    Last Post: 01-07-2007, 02:18 PM
  5. Yohojo's "Semi-LEgit" Script
    By YoHoJo in forum RS3 Outdated / Broken Scripts
    Replies: 11
    Last Post: 01-05-2007, 09:32 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
  •