FANDOM


Created by Stragothemad.

Function Main()

 Player = Actor()
 Pet = ActorID("Spirit Wolf", "Pet")
 GiveItem(Player, "Bag", - 1)
 DialogOutPut(Player, ChatBox1, "Enter the name of your pet.", 230, 145, 23)
 PetNamEnter$ = Input(Player, "Enter name of Pet", "", 4)
 MyZone$ = ActorZone(Player)
 AX# = ActorX(Player)
 AY# = ActorY(Player)
 AZ# = ActorZ(Player)
 PlayerPet = Spawn(ActorID("Spirit Wolf", "Pet"), MyZone$, AX#, AY#, AZ# + 10.0)
 SetLeader(PlayerPet, Player)
 SetName(PlayerPet, PetNamEnter$)
 Return
 
End Function