Graphics 640,480,16,1
SetBuffer BackBuffer()
Global blocktiles$
blocktiles="3"
Dim map(20,20)
Const oben   =200
Const unten  =208
Const links  =203
Const rechts =205
tiles=LoadAnimImage("tileset.bmp",32,32,0,5)
mapfile=ReadFile("new1.nw")
char=LoadImage("char.bmp")
Global player_xpos
Global player_ypos
For y=0 To 20
For x=0 To 20
map(x,y)=ReadLine(mapfile)
Next
Next
CloseFile mapfile

Repeat
Cls
If KeyDown(oben)
moveup()
End If
If KeyDown(unten)
movedown()
End If
If KeyDown(links)
moveleft()
End If
If KeyDown(rechts)
moveright()
End If
For y=0 To 20
For x=0 To 20
DrawImage(tiles,x*32,y*32,map(x,y))
Next
Next
DrawImage(char,player_xpos,player_ypos)
Flip
Until KeyDown(1)
FreeImage tiles
FreeImage char
End


Function moveup()
If player_ypos>0 Then
If Instr(blocktiles$,map(player_xpos/32,player_ypos/32),1)<1 Then
player_ypos=player_ypos-2
End If
End If
End Function

Function movedown()
If player_ypos<(32*20) Then
player_ypos=player_ypos+2
End If
End Function

Function moveleft()
If player_xpos>0 Then
player_xpos=player_xpos-2
End If
End Function

Function moveright()
If player_xpos<(32*20) Then
player_xpos=player_xpos+2
End If
End Function

  Yahoo! 

--------------------------------------------------------------------------------
 

Diese Seite ist nicht verfügbar. 

Leider kann diese Seite momentan nicht angezeigt werden. Versuchen Sie es bitte später noch einmal oder suchen Sie nach weiteren GeoCities-Seiten, die Sie interessieren. 
 
Einige hilfreiche Links.....
Yahoo! GeoCities - unser Homepage-Veröffentlichungscenter
Yahoo! - der Ausgangspunkt für ganz Yahoo! Yahoo! GeoCities durchsuchen
   
 




--------------------------------------------------------------------------------
Copyright © 2000 Yahoo! Inc. Alle Rechte vorbehalten.