Global telec  =1000
Global telemax  =200

Type teleporter
   Field id
   Field map$
   Field x#,y#
End Type

Function teleporter_new(id,map$,tx,ty)
   teleporter.teleporter    = New teleporter
      teleporter\id          = id
      teleporter\x           = tx
      teleporter\y           = ty
      teleporter\map          = map
End Function


;Hier wird jetzt (noch im Code, später im Editor selbst) ein neuer Teleporter erstellt. Dieser kann später von mehreren Tiles benutzt werden.
teleporter_new(1,"wald",100,100)

Hier wird der Teleporter auf ein Tile gesetzt
   map(tx,ty,0) = telec+1


Hier wird jeweils das Tile,auf dem der Spieler steh überprüft:

Function player_check(player.player)
   id = map(player\tx,player\ty,map_lo)

   If  id > telec And id < e_telec+telemax Then
      teleporter_use(id-telec,player)
      Return 0
   End If
End Function

Graphics 200,100,0,2
SetBuffer FrontBuffer()

Dim script$(1,3)

script$(0,0)="Hallo"
script$(0,1)="das"
script$(0,2)="is'n"
script$(0,3)="Test"

script$(1,0)="Zweiter"
script$(1,1)="Script"
script$(1,2)="zum"
script$(1,3)="lesen."

For y=0 To 3
 For x=0 To 1
  Text 50+x*100,10+y*20,script(x,y),1
 Next
Next

WaitKey
End

dim script$(9,9)

script(1,0) = Hurt(20)
script(1,1) = SetTile(x,y,layer,frame)
script(1,2) = Teleport(x,y,map$)