FANDOM


Created by Taz.

Using "RC_Core.rcm"
; Define entry function 'Main'

Function Main()
Player = Actor()

isplayergm = PlayerIsGM(Player)

If (isplayergm = 1)
	D = OpenDialog(Player, ContextActor(), "Gm Warp")
	DialogOutput(Player, D, "Where can I teleport you?", 255, 255, 255)
	Result = DialogInput(Player, D, " Aragon,Ramoria City,Astro Inn,Stat Trainer,Spell Trainer,GM Island,Town center,Nothing")
	If (Result = 1)
		Warp(Player,"Damoria","ramoria")
		MoveActor(Player, 964.401, 284.376, 2638.5)
	ElseIf (Result = 2)
		Warp(Player,"Ramoria Feilds","damoria")
		MoveActor(Player, 964.401, 284.376, 2638.5)
	ElseIf (Result = 3)
		Warp(Player,"Astro Inn","astroext")
	ElseIf (Result = 4)
		Output(Player, "please update script with locaton of the stat trainer.")
		;Warp(Player,"Damoria","Ramoria")
		;MoveActor(Player, 964.401, 284.376, 2638.5)
	ElseIf (Result = 5)
		Output(Player, "please update script with locaton of the spell trainer.")
		;Warp(Player,"Damoria","Ramoria")
		;MoveActor(Player, 964.401, 284.376, 2638.5)
	ElseIf (Result = 6)
		Output(Player, "please update script with locaton of the GM Island.")
		;Warp(Player,"Damoria","Ramoria")
		;MoveActor(Player, 964.401, 284.376, 2638.5)
	ElseIF (Result = 7)	

	;	Warp(Player,"Ramoria Feilds","Start")
		MoveActor(Player, 1125.69, 281.039, 4109.69)
	ElseIf (Result = 8)
		DialogOutput(Player, D, "Right you are, bye then!", 255, 255, 255)
		DialogInput(Player, D, "Bye")
		CloseDialog(Player, D)
		Return
	EndIf
	DialogOutput(Player, D, "Thank you! Come back when you want something else...", 255, 255, 255)
	DialogInput(Player, D, "Bye")
	CloseDialog(Player, D)

Else
	OutPut(Player, "You must be gm to use this.")
EndIf
Return
End Function