If Playerposx=2 And Playerposy=9 And KeyHit(reden) Then Reden()

Function Reden()
Text 500,200,"hallo"
End Function

Speak=0
If playerposx=2 And playerposy=9 And KeyHit(reden) Then Reden()

Function Reden()
Speak=1
If speak=1 Then Text 500,200,"hallo"
Delay 500
If KeyHit(reden) Then speak=0
If speak=0 Then
EndIf
End Function

Function reden()
  Text 500,200,"hallo"
  Flip 0
  Repeat
    Delay 20
  Until KeyHit(reden)
End Function

If px=2 And py=9 And KeyHit(reden) Then Reden()
If px=3 And py=8 And KeyHit(reden) Then Reden()
If px=2 And py=7 And KeyHit(reden) Then Reden()

if (not warten) then
   if taste_x
   if taste_y
   etc...
endif

redetaste_gedrueckt=KeyHit(reden)
If px=2 And py=9 And redetaste_gedrueckt Then Reden()
If px=3 And py=8 And redetaste_gedrueckt Then Reden()
If px=2 And py=7 And redetaste_gedrueckt Then Reden()

If KeyHit(reden) Then
  If px=2 And py=9 Then Reden()
  If px=3 And py=8 Then Reden()
  If px=2 And py=7 Then Reden()
Endif

Function Reden()
Text 200,200,"hallo"
   Flip 0
   Repeat
     Delay 20
   Until KeyHit(reden)
Text 200,230, "ich bin ein NPC"
   Flip 0
   Repeat
     Delay 20
   Until KeyHit(reden)
End Function

if zeit < millisecs then text ....

type message
   field nachricht$
   field generiert
   field gueltigkeit
endtype

;px Variable des Spielers
px = 10
;py Variable des Spielers
py = 9

;Types für die Items
Global anzahl=0
Global info.item

Type item
Field Pos_x
Field Pos_y
End Type

;Bewegung des Spielers
moving=False

    If KeyDown(200) Then
If map(px,py-1) = 8 Then
py = py - 1
scrolly = scrolly - 32
move = 1
moving=True
        richtung = HOCH
    EndIf
EndIf

;(analog für die anderen richtungen)

;ANIMATIONSLOGIK
    If timer <MilliSecs() ;alle 100 ms wird weiteranimiert
        timer = MilliSecs() +100 ;timer resetten
        frame = frame +1 ;frame weiterzählen
        frame = frame Mod 3 ;der modulo sorgt dafür das frame zwischen 0 und 3 bleibt
    EndIf

    If moving = False
        frame = 0 ;und wenn nix gedrückt wird wird auch nichts animiert.
    EndIf
   
   ;BEWEGUNG
   If movetimer < MilliSecs() Then
      movetimer = MilliSecs() +25 ;Bewegung findet nur maximal alle 25 ms statt, sprich: maximal 40 Pixel/Sekunde
      If moving = True Then ;und nur wenn auch noch bewegt werden soll
         Select richtung
            Case HOCH
               If y >0 Then y = y-1
            Case RUNTER
               If y < GraphicsHeight()-32 Then y = y +1
            Case LINKS
               If x >0 Then x = x-1
            Case RECHTS
               If x < GraphicsWidth()-32 Then x = x +1
         End Select
      EndIf
   EndIf

;OUTPUT
 ;wenn move = 1 dann übertrage x auf px*32
If move = 1 Then x = px * 32: y = py * 32:DrawImage Magier,x-scrollx,y-scrolly,richtung+frame: Delay 100

; Die Items malen
Function DrawItem()
   For info.item = Each item               
      DrawImage Item, info\Pos_x, info\Pos_y   
   Next
End Function

Function SetupLevel()
;Itemdaten lesen
Restore item_level1
Read anzahl   ;der erste Wert in der Dataschleife gibt die Anzahl der Items an
For i = 1 To anzahl      ;Zählt durch die einzelnen Einträge 
   info.item = New item   ;Neues Item erstellen
   Read x, y            ;Koordinaten lesen
   info\Pos_x = x         ;x und y Werte an dem Typ übergeben
   info\Pos_y = y
Next    
End Function

; Hier sind die Daten abgelegt, die zur Positionierung der Items notwendig sind - und die nicht funktionieren
.item_level1
Data 19
Data 32,94 ;oben links
Data 64,94
Data 96,94
Data 128,94
Data 160,94
Data 384,94 ;oben rechts
Data 416,94
Data 448,94
Data 480,94
Data 512,94
Data 32,320 ;unten links
Data 64,320
Data 96,320
Data 128,320
Data 160,320
Data 384,320 ;unten rechts
Data 416,320
Data 448,320
Data 480,320

DrawImage Item,item_scrollx-spieler_scrollx+GraphicsWidth/2(), item_scrolly-spieler_scrolly+Graphicsheight/2()

timer=CreateTimer(60)   ;Timer, damit es nicht 100% CPU raubt und auf allen PCs gleich schnell läuft.
Type item   ;Der Item-Type
   Field xpos   ;x-Position (Also Scrollvariable)
   Field ypos   ;y-Position (Also Scrollvariable)
End Type

Graphics 800,600,32,1
SetBuffer BackBuffer()

Global p_x   ;SpielerScroll
Global p_y   ;SpielerScroll

i.item=New item   ;Neues Item erstellen
i\xpos=200
i\ypos=100

While Not KeyDown(1)
   ;Bewegen
   If KeyDown(203) Then p_x=p_x-2
   If KeyDown(205) Then p_x=p_x+2
   If KeyDown(200) Then p_y=p_y-2
   If KeyDown(208) Then p_y=p_y+2
   ;Spieler zeichnen
   Oval 400-16,300-16,32,32
   ;Jedes Item durchgehen. (Each=engl. Jedes)
   For i.item=Each item
      ;Gut. Ich Prüfe jetzt ob das Item im Bild ist. Dazu guck ich ob es grösser -32, also noch was zu sehen, ist, oder so halt ja...^^ Dazu Prüfe ich auch ob es nicht über
      ;GraphicsWidth() hinausgeht oder GraphicsHeight(). Diese Funktionen geben die Breite und Höhe der aktuellen Auflösung im Programm an.
      If i\xpos-p_x+GraphicsWidth()/2>-32 And i\ypos-p_y+GraphicsHeight()/2>-32 And i\xpos-p_x+GraphicsWidth()/2<GraphicsWidth() And i\ypos-p_y+GraphicsHeight()/2<GraphicsWidth()
         Rect i\xpos-p_x+GraphicsWidth()/2,i\ypos-p_y+GraphicsHeight()/2,32,32,1      ;Klotz zeichnen
      EndIf
   Next
   Flip
   Cls
   WaitTimer(timer)   ;Auf den Timer warten.
Wend
FreeTimer(timer)   ;Und Timer wieder wegwerfen.
End