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.