Results 1 to 3 of 3

Thread: all tele script

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

    Default all tele script

    hey im trying to make1 and i need some help.. i get an error when compiling..it sais" Failed when compiling
    Line 74: [Error] (17884:31): Identifier expected in script " well here it is.. its very noobie can u guys take a look at it and tell me what i should add to make it better? and how to fix it. thx guys
    SCAR Code:
    { Auto Tele! (my first script give ideas and suggestions!
      Version 1.0!
      Made by: Syberium
      hopefully new versions will be out soon
       Credits:arrows responder =] edited a tad bit by me }

    program teleporter;
    {.include SRL\SRL.scar}
    var
    varrocktele:integer;
    var
    lumbytele:integer;
    var
    faladortele:integer;
    var
    camalotele:integer;
    var
    spellbookcopy:integer;
    const
    respond=True; // to use auto responder
    UserName= ''; // your username
    UserNick= ''; //3 letters of ur username
    varrocktele1='';//true to tele to varrock false for differnt spot.
    lumbytele1='';// ^^^^^^^^^
    faladortele1='';
    camalotele1='';


    Procedure DeclarePlayers;
    begin

    HowManyPlayers := 1;
    NumberOfPlayers(howmanyplayers);
    CurrentPlayer := 0;

    Players[0].Name :='';//name
    Players[0].Pass :='';//pass
    Players[0].Nick := '';// about 3 letters of ur name
    Players[0].Active := True;

    writeln('using'+inttostr(howmanyplayers)+'player[s]');
    end;





    procedure LoadBitmaps;
    begin
    spellbookcopy := BitmapFromString(11, 12, 'z78DA7D93410EC4' +
           '200845AFA422A24B75EAFD8F3476BE8B3F21EDE6A5111EA0A14D4' +
           'ACD4B35C7B464A6184D974699A0DD4C7CE2B97D492B97D4E2E5F3' +
           '4BD791EB7B4DEFC2EAA316194CBB8AE48128D37764AB7553C94CA' +
           'E539305ADDEF51688282CFE46F4D48CC52478EBD10DF7447C234C' +
           'E85F00F96C81989FA3EF3C772477CAD0B6FC6C7CD2A55EE5D0BB1' +
           'F9BA1FD4DF54EEF0EEBB166BF5D4FC4C6B2CBD540E4E03D77DFDD' +
           'F5CCFFDB7C44D9C5BFF0054EBEAF26');
    varrocktele := BitmapFromString(7, 6, 'z78DA33363536317335000' +
           '1434CD2182C6BEE68EEE866E9E60A842EB854426421EA895149AA' +
           '08312A21B61B23F908228BA906E22300412A35F3');
     lumbytele := BitmapFromString(6, 7, 'z78DA3377347774B334363' +
           '5363173C524CD9164DD40D0C500040C9149882C848D4B0D32495D' +
           '359824A6AB70B91900760E3547');
     faladortele := BitmapFromString(6, 7, 'z78DA3377347774B3343' +
           '635363173C524CD9164DD40D0059384C81A8080214404C2C64562' +
           '9A804B0D31E6E0924576332E5900D7A836C4');
     camalotele := BitmapFromString(5, 6, 'z78DA3330000243375720' +
           '7481900660116353631333576411032495986C4C9254595C2298A' +
           'E0200EBFB2727');
    end;
    procedure vrock;
    begin
    if(varrocktele1='true') then
    begin
    FindBitMap(x, y, varrocktele) then
         MoveMouseSmooth(x, y, 1, 1, true);//Moves Mouse and clicks it
      end;
      end;
    procedure lumby;
    begin
    if (lumbytele1='true') then
    begin
    FindBitmap(x, y, lumbytele))then
      begin
         MoveouseSmooth(x, y, 1, 1, true);
      end;
      end;
    procedure fally;
    begin
    if (faladortele1='true') then
    begin
    FindBitmap(x, y, faladortele))then
      begin
         MoveouseSmooth(x, y, 1, 1, true);
      end;
      end;
    procedure camo;
    begin
    if (camalotele1='true') then
    begin
    FindBitmap(x, y, camalotele))then
      begin
         MoveouseSmooth(x, y, 1, 1, true);
      end;
      end;
    procedure allteles;
    camo;
    fally;
    lumby;
    vrock;
    end;

    procedure randoms;
    findnormanrandoms;
    findtalk;
    findtalk;
    end;

    Procedure Ban;
     var
     NoBan : Integer;
      begin
       if ( not ( LoggedIn )) then Exit;
       NoBan:=Random(120)
        case NoBan of
         1: RandomRClickEvery(200 + 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 responder;
    Begin
    if (respond= True) Then
    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' + UserNick) or
        InChat('Hey' + UserNick) or
        InChat('Hello' + UserNick)) Then
      begin
        TypeSend('Hi')
      end;

      if (InChat('You are a noob' + UserNick) or
        InChat( UserNick + '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;
    end;
       
       
       Begin
    SetupSRL;
    Declareplayers;
    responder;
    randoms;
    Ban;
    End.

  2. #2
    Join Date
    Sep 2006
    Posts
    154
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I would NOT like to run a script with a procedure named "ban" lol. I'll edit when I figure out the problem.

    EDIT: You forgot the "if" before "FindBitMap(varrocktele, x, y)" on line 74.
    And you used MoveMouseSmooth incorrectly on line 75. Instead of:
    SCAR Code:
    MoveMouseSmooth(x, y, 1, 1, true);
    it should be:
    SCAR Code:
    Mouse(x, y, 1, 1, true);

    You misspelled MouseMouseSmooth countless times.
    The autoresponder is fairly useless, but nice try.
    You never called the function allteles.
    The ban procedure looks ripped, possibly from Fakawi's goblin script.
    You spelled normal as norman in "FindNormanRandoms". I don't think that was a procedure in SRL.
    You put "FindBitmap(x, y, camalotele)" instead of "FindBitmap(camalotele, x, y)".

    Otherwise, good job. It was an audacious effort and possibly a bit more than you could have handled. But congrats.

    SCAR Code:
    { Auto Tele! (my first script give ideas and suggestions!
      Version 1.0!
      Made by: Syberium
      hopefully new versions will be out soon
       Credits:arrows responder =] edited a tad bit by me }

    program teleporter;
    {.include SRL\SRL.scar}
    var
      varrocktele, lumbytele, faladortele, camalotele, spellbookcopy:integer;
    const
    varrocktele1= True;//true to tele to varrock false for differnt spot.
    lumbytele1= True;
    faladortele1= True;
    camalotele1= True;


    procedure DeclarePlayers;
    begin

    HowManyPlayers := 1;
    NumberOfPlayers(howmanyplayers);
    CurrentPlayer := 0;

    Players[0].Name :='xxlegitxx';//name
    Players[0].Pass :='i eat noobs for breakfast';//pass
    Players[0].Nick := 'xxl';// about 3 letters of ur name
    Players[0].Active := True;

    writeln('Using ' + inttostr(howmanyplayers) + ' player(s)');
    end;

    procedure LoadBitmaps;
    begin
    spellbookcopy := BitmapFromString(11, 12, 'z78DA7D93410EC4' +
           '200845AFA422A24B75EAFD8F3476BE8B3F21EDE6A5111EA0A14D4' +
           'ACD4B35C7B464A6184D974699A0DD4C7CE2B97D492B97D4E2E5F3' +
           '4BD791EB7B4DEFC2EAA316194CBB8AE48128D37764AB7553C94CA' +
           'E539305ADDEF51688282CFE46F4D48CC52478EBD10DF7447C234C' +
           'E85F00F96C81989FA3EF3C772477CAD0B6FC6C7CD2A55EE5D0BB1' +
           'F9BA1FD4DF54EEF0EEBB166BF5D4FC4C6B2CBD540E4E03D77DFDD' +
           'F5CCFFDB7C44D9C5BFF0054EBEAF26');
           
    varrocktele := BitmapFromString(7, 6, 'z78DA33363536317335000' +
           '1434CD2182C6BEE68EEE866E9E60A842EB854426421EA895149AA' +
           '08312A21B61B23F908228BA906E22300412A35F3');
           
    lumbytele := BitmapFromString(6, 7, 'z78DA3377347774B334363' +
           '5363173C524CD9164DD40D0C500040C9149882C848D4B0D32495D' +
           '359824A6AB70B91900760E3547');
           
    faladortele := BitmapFromString(6, 7, 'z78DA3377347774B3343' +
           '635363173C524CD9164DD40D0059384C81A8080214404C2C64562' +
           '9A804B0D31E6E0924576332E5900D7A836C4');
           
    camalotele := BitmapFromString(5, 6, 'z78DA3330000243375720' +
           '7481900660116353631333576411032495986C4C9254595C2298A' +
           'E0200EBFB2727');
    end;

    procedure vrock;
    begin
      if(varrocktele1 = True) then
      begin
        if(FindBitMap(varrocktele, x, y)) then Mouse(x, y, 1, 1, true);//Moves Mouse and clicks it
      end;
    end;

    procedure lumby;
    begin
      if(lumbytele1 = true) then
      begin
        if(FindBitmap(lumbytele, x, y)) then Mouse(x, y, 1, 1, true);
      end;
    end;

    procedure fally;
    begin
      if(faladortele1 = True) then
      begin
        if(FindBitmap(faladortele, x, y)) then Mouse(x, y, 1, 1, true);
      end;
    end;
    procedure camo;
    begin
      if(camalotele1 = true) then
      begin
        if(FindBitmap(camalotele, x, y)) then Mouse(x, y, 1, 1, true);
      end;
    end;

    procedure allteles;
    begin
      camo;
      fally;
      lumby;
      vrock;
    end;

    begin
      LoadBitmaps;
      SetupSRL;
      Declareplayers;
      while(not(FindTalk)) do allteles;
    end.

    ^It compiles, I'm not sure if it actually works though.

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

    Default

    ya sorry i made this late night.. misspelling =/ i was relieng on script debug to find mispells but since i coudent get past line 74... it coudent. well ya ill pay more effort next time. thanks for the feedback! and ya i got antiban off a powerminer but i dont recall witch one =/

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Cosmic tele-tab
    By Theolithical in forum RS3 Outdated / Broken Scripts
    Replies: 2
    Last Post: 02-05-2009, 04:13 AM
  2. In2its Cammy Tele First Script Enjoy!!
    By in2it in forum First Scripts
    Replies: 18
    Last Post: 10-25-2008, 11:24 PM
  3. Tele at certain hp
    By xxxexilexxx in forum RS3 Outdated / Broken Scripts
    Replies: 4
    Last Post: 06-06-2007, 08:56 AM
  4. Can someone tele me to camelot?
    By Ares in forum RuneScape News and General
    Replies: 0
    Last Post: 07-07-2006, 09:14 AM

Posting Permissions

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