Results 1 to 5 of 5

Thread: Edited Teleporting Procedure

  1. #1
    Join Date
    Feb 2006
    Location
    Aussie
    Posts
    937
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Edited Teleporting Procedure

    Code:
    {*******************************************************************************
    Procedure CastSelfTele(Spell: String);
    By: Jagex_Fagex (originally by:???)
    Description: Originally Cast; Edited To Be Teleports for self, not tele Other
                 Cast's the selected self teleport.
    *******************************************************************************}
    Procedure CastSelfTele(Spell:String);
    
    var SP:Integer;
    
    begin
    
    SP:=StrToInt(Spell);
    if SP<=46 then FixMage(True);
    if SP>46 then FixMage(False);
    
    GameTab(7);
    
    if (Lowercase(Spell) = 'varrock teleport') or (Spell = '13') then
    
            if FindColor(X,Y,16711423,706,250,706,250) then
            begin
                 Mouse(X,Y,2,2,True);
            end;
    
    
    if (Lowercase(Spell) = 'lumbridge teleport') or (Spell = '15') then
    
            if FindColor(X,Y,16711423,612,275,612,275) then
    
            begin
                 Mouse (X,Y,2,2,True);
            end;
    
    
    if (Lowercase(Spell) = 'falador teleport') or (Spell = '17') then
    
            if FindColor(X,Y,16711423,682,275,682,275) then
    
            begin
                 Mouse (X,Y,2,2,True);
            end;
    
    
    if (Lowercase(Spell) = 'camelot teleport') or (Spell = '21') then
    
            if FindColor(X,Y,16711423,611,300,611,300) then
    
            begin
                 Mouse (X,Y,2,2,True);
            end;
    
    if (Lowercase(Spell) = 'ardougne teleport') or (Spell = '27') then
    
            if FindColor(X,Y,16711423,589,321,589,321) then
    
            begin
                 Mouse (X,Y,2,2,True);
            end;
    
    
    if (Lowercase(Spell) = 'watchtower teleport') or (Spell = '32') then
    
            if FindColor(X,Y,16711423,709,324,709,324) then
    
            begin
                 Mouse (X,Y,2,2,True);
            end;
    
    
    if (Lowercase(Spell) = 'trollheim teleport') or (Spell = '39') then
    
            if FindColor(X,Y,16711423,707,345,707,345) then
    
            begin
                 Mouse (X,Y,2,2,True);
            end;
    end;
    Just Cut out all the bits except the self teleporting parts, and edited the parameters needed. Needed? it just helps with Moving around and stuff so you dont need to type in all the parameters.

    So for the original Cast procedure, to varrock telly, you would need to write something like:

    Code:
    Cast('13','',0,2)
    For Mine, all, you need to write is:

    Code:
    CastSelfTele('13');
    So it is much easyier for people newer to scripting trying to work out what to put in the parameters.

    Suggestions, comments?

  2. #2
    Neonknight77 Guest

    Default

    Try to use Case of

  3. #3
    Join Date
    Mar 2006
    Location
    NW US
    Posts
    210
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Looks nice, good job!

  4. #4
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    Evryhintg goes all time smiplier Nice Job

  5. #5
    Join Date
    Feb 2006
    Posts
    582
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Home
    Evryhintg goes all time smiplier Nice Job
    No one can understand Home unless he makes tutorials ;D
    Free File Hosting
    No download timers!

    Rifkwtf.com

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. falador teleporting script
    By ben600006 in forum First Scripts
    Replies: 4
    Last Post: 07-09-2008, 11:04 PM
  2. dtmFrogCrown - Edited by me
    By VivaLaRofl in forum Research & Development Lounge
    Replies: 9
    Last Post: 02-26-2008, 05:33 PM
  3. Edited stats?
    By vcvv in forum RuneScape News and General
    Replies: 31
    Last Post: 01-28-2008, 04:41 AM
  4. Help with teleporting
    By tigerskall in forum OSR Help
    Replies: 8
    Last Post: 11-10-2007, 05:04 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
  •