Harley
Joined: 18 Mar 2006
Posts: 91
Location: World Earth
|
 Posted: Sun May 04, 2008 2:18 pm Post subject: |
 |
|
| Code: |
use uo;
include "include/spellRestrictions";
include "include/gumputil";
include "include/gumps";
program telestone(who, stone)
if (distance (who, stone) > 3)
SendSysMessage(who, "It is too far");
return;
endif
if (who.dead)
SendSysMessage(who, "You ghost");
return;
endif
TurnTowards(who, stone);
GFInitGump(0, 0);
// GFNoClose();
GFNoDispose();
GFPage(0);
GFResizePic(100, 100, 2600, 380, 340);
GFTextLine(170, 180, 0x0061, "Teleportation system.");
// Blue Towns
var britain := GFRadioButton(150, 200, 0x00D2, 0x00D3, 0);
GFTextLine(180, 200, 0x0061, "Britain");
var Vesper := GFRadioButton(150, 225, 0x00D2, 0x00D3, 0);
GFTextLine(180, 225, 0x0061, "Vesper");
var Minoc := GFRadioButton(150, 250, 0x00D2, 0x00D3, 0);
GFTextLine(180, 250, 0x0061, "Minoc");
var Moonglow := GFRadioButton(150, 275, 0x00D2, 0x00D3, 0);
GFTextLine(180, 275, 0x0061, "Moonglow");
var Cove := GFRadioButton(150, 300, 0x00D2, 0x00D3, 0);
GFTextLine(180, 300, 0x0061, "Cove");
var dp := GFRadioButton(150, 340, 0x00D2, 0x00D3, 0);
GFTextLine(180, 340, 51, "Duel Pits");
var market := GFRadioButton(150, 365, 0x00D2, 0x00D3, 0);
GFTextLine(180, 365, 51, "Market");
//Red Towns
var occlo := GFRadioButton(290, 200, 0x00D2, 0x00D3, 0);
GFTextLine(320, 200, 37, "Occlo");
var BuccaneersDen := GFRadioButton(290, 225, 0x00D2, 0x00D3, 0);
GFTextLine(320, 225, 37, "Buccaneers Den");
var MoonglowZoo := GFRadioButton(290, 250, 0x00D2, 0x00D3, 0);
GFTextLine(320, 250, 37, "Moonglow Zoo");
var SerpentsHold := GFRadioButton(290, 275, 0x00D2, 0x00D3, 0);
GFTextLine(320, 275, 37, "Serpents Hold");
var Magincia := GFRadioButton(290, 300, 0x00D2, 0x00D3, 0);
GFTextLine(320, 300, 37, "Magincia");
var cc := GFRadioButton(290, 340, 0x00D2, 0x00D3, 0);
GFTextLine(320, 340, 51, "Fight Club");
var newbiedang := GFRadioButton(290, 365, 0x00D2, 0x00D3, 0);
GFTextLine(320, 365, 71, "Newbie Dangeon");
var newbiemine := GFRadioButton(290, 390, 0x00D2, 0x00D3, 0);
GFTextLine(320, 390, 71, "Newbie Mine");
var go := GFButtonID(260, 120, 0x15E8, 0x15EA, 1);
var res := GFSendGump(who);
var x,y,z := 0;
if (res[britain.keyid])
x := 1419; y := 1699;
elseif (res[vesper.keyid])
x := 2891; y := 685;
elseif (res[minoc.keyid])
x := 2503; y := 555;
elseif (res[moonglow.keyid])
x := 4479; y := 1126;
elseif (res[cove.keyid])
x := 2243; y := 1213;
elseif (res[occlo.keyid])
x := 3651; y := 2516;
elseif (res[BuccaneersDen.keyid])
x := 2679; y := 2180;
elseif (res[MoonglowZoo.keyid])
x := 4494; y := 1382; z := 23;
elseif (res[SerpentsHold.keyid])
x := 2957; y := 3447;
elseif (res[Magincia.keyid])
x := 3673; y := 2280;
elseif (res[dp.keyid])
x := 5408; y := 1176;
elseif (res[market.keyid])
x := 5686; y := 1234;
elseif (res[newbiedang.keyid])
if (((GetEffectiveSkill(who, 1) <= 65.0)and(GetEffectiveSkill(who, 17) <= 65.0)
and(GetEffectiveSkill(who, 27) <= 65.0)and(GetEffectiveSkill(who, 31) <= 65.0)
and(GetEffectiveSkill(who, 40) <= 65.0)and(GetEffectiveSkill(who, 41) <= 65.0)
and(GetEffectiveSkill(who, 42) <= 65.0)and(GetEffectiveSkill(who, 43) <= 65.0)
and (GetEffectiveSkill(who, 25) <= 65.0)and(GetEffectiveSkill(who, 26) <= 65.0)
and (GetEffectiveSkill(who, 16) <= 65.0)and(GetEffectiveSkill(who, 5) <= 65.0))
or(who.cmdlevel > 1))
x := 5569; y := 1307;
else
SendSysMessage(who, "Your skills are too high. You have nothing to do there.");
return;
endif
elseif (res[newbiemine.keyid])
if (((GetEffectiveSkill(who, 1) <= 65.0)and(GetEffectiveSkill(who, 17) <= 65.0)
and(GetEffectiveSkill(who, 27) <= 65.0)and(GetEffectiveSkill(who, 31) <= 65.0)
and(GetEffectiveSkill(who, 40) <= 65.0)and(GetEffectiveSkill(who, 41) <= 65.0)
and(GetEffectiveSkill(who, 42) <= 65.0)and(GetEffectiveSkill(who, 43) <= 65.0)
and (GetEffectiveSkill(who, 25) <= 65.0)and(GetEffectiveSkill(who, 26) <= 65.0)
and (GetEffectiveSkill(who, 16) <= 65.0)and(GetEffectiveSkill(who, 5) <= 65.0))
and (GetEffectiveSkill(who, 45))
or(who.cmdlevel > 1))
x := 5144; y := 1836;
else
SendSysMessage(who, "Your skills are too high. You have nothing to do there.");
return;
endif
elseif (res[cc.keyid])
x := 1523; y := 1467;
endif
if(res[go.keyid])
if (distance (who, stone) > 3)
SendSysMessage(who, "It is too far");
return;
endif
if (who.dead)
SendSysMessage(who, "You ghost");
return;
endif
sleep(3);
if (who.dead)
SendSysMessage(who, "You ghost");
return;
endif
endif
var oldx := who.x;
var oldy := who.y;
var oldz := who.z;
MoveCharacterToLocation( who, x, y, z );
if (!who.cmdlevel)
PlayStationaryEffect(oldx, oldy, oldz, 14120, 10, 0x13 );
PlaySoundEffect(who,0x01ff);
PlayObjectCenteredEffect(who, 14120, 10, 0x13 );
endif
endprogram
|
Your welcome! |
|
