Punkte für RPG-bürger (Beantwortet)

Übersicht

BlitzBasic

Allgemein

	dimaster Betreff: Punkte für RPG-bürger (Beantwortet)	So, Apr 11, 2004 23:58 Antworten mit Zitat
wie kann ich die Punkte für Rpg gegner festlegen und machen ,dass die Bürger denen nachgehen!Hier mein Code: [AUSKLAPPEN] [EINKLAPPEN] AppTitle("Dimaster software") Graphics 640,480 SetBuffer BackBuffer() tile = LoadAnimImage("gfx/tileset.bmp",32,32,0,34) char = LoadImage("gfx/p.bmp") wasser = LoadImage("gfx/w.bmp") px = 10 py = 7 move = 1 Dim map(50,150) Data 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,5,3,3,3,3,3,3,3,3,3,3,3,3,3,4,11,11,26 Data 26,11,11,1,8,8,28,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,27,8,8,8,8,8,8,8,28,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,29,8,8,28,8,8,8,27,8,8,0,11,11,26 Data 26,11,11,1,8,8,28,8,8,8,27,8,29,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,27,8,29,8,0,1,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,28,8,8,0,1,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,27,8,8,0,1,28,8,8,28,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,29,0,1,27,8,8,27,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,0,1,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,0,1,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,0,1,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,22,22,22,22,22,22,22,22,22,22,8,8,0,11,11,26 Data 26,11,11,1,8,22,22,22,22,22,22,22,22,22,22,8,8,0,11,11,26 Data 26,11,11,1,8,22,22,22,22,22,22,22,22,22,22,8,8,0,11,11,26 Data 26,11,11,1,8,22,22,22,22,22,22,22,22,22,22,8,8,0,11,11,26 Data 26,11,11,1,8,22,22,22,22,22,22,22,22,22,22,8,8,0,11,11,26 Data 26,11,11,1,8,22,30,30,30,22,30,30,30,30,22,8,8,0,11,11,26 Data 26,11,11,1,8,22,30,22,22,22,22,22,22,30,22,8,8,0,11,11,26 Data 26,11,11,1,8,22,30,22,22,22,22,22,22,30,22,8,8,0,11,11,26 Data 26,11,11,1,8,22,30,22,22,22,22,22,22,30,22,8,8,0,11,11,26 Data 26,11,11,1,8,22,30,22,31,32,22,22,22,30,22,8,8,0,11,11,26 Data 26,11,11,1,8,22,30,30,30,30,30,30,30,30,22,8,8,0,11,11,26 Data 26,11,11,1,8,22,22,22,22,22,22,22,22,22,22,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,15,13,13,13,9,13,13,13,13,13,13,14,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,9,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,25,9,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,23,24,9,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,25,9,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,23,21,24,9,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,9,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,9,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,9,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,9,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,9,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,7,2,2,2,2,2,2,2,2,2,2,2,2,2,6,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26 For y = 0 To 150 For x = 0 To 20 Read map(x,y) Next Next Repeat Cls TileImage wasser,x32-scrollx,y32-scrolly If KeyHit(1) Then Exit For y = 0 To 150 For x = 0 To 20 DrawImage tile,x32-scrollx,y32-scrolly,map(x,y) Next Next If KeyDown(208) Then If map(px,py+1) < 23 Then py = py + 1 scrolly = scrolly + 32 move = 1 End If End If If KeyDown(200) Then If map(px,py-1) < 23 Then py = py - 1 scrolly = scrolly - 32 move = 1 End If End If If KeyDown(203) Then If map(px-1,py) < 23 Then px = px - 1 scrollx = scrollx - 32 move = 1 End If End If If KeyDown(205) Then If map(px+1,py) < 23 Then px = px + 1 scrollx = scrollx + 32 move = 1 End If End If If move = 1 Then x = px * 32: y = py * 32:DrawImage char,x-scrollx,y-scrolly: Delay 50 Flip Forever Beim Map soll der Bürger den 9en nach gehen und wenn diese aufhören soll er umkehren.Bitte mit codebeispiel.

dimaster

Betreff: Punkte für RPG-bürger (Beantwortet)

So, Apr 11, 2004 23:58
Antworten mit Zitat

wie kann ich die Punkte für Rpg gegner festlegen und machen ,dass
die Bürger denen nachgehen!Hier mein
Code: [AUSKLAPPEN]

AppTitle("Dimaster software")
Graphics 640,480
SetBuffer BackBuffer()
tile = LoadAnimImage("gfx/tileset.bmp",32,32,0,34)
char = LoadImage("gfx/p.bmp")
wasser = LoadImage("gfx/w.bmp")

px = 10
py = 7
move = 1

Dim map(50,150)

Data 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,5,3,3,3,3,3,3,3,3,3,3,3,3,3,4,11,11,26
Data 26,11,11,1,8,8,28,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,27,8,8,8,8,8,8,8,28,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,29,8,8,28,8,8,8,27,8,8,0,11,11,26
Data 26,11,11,1,8,8,28,8,8,8,27,8,29,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,27,8,29,8,0,1,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,28,8,8,0,1,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,27,8,8,0,1,28,8,8,28,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,29,0,1,27,8,8,27,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,0,1,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,0,1,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,0,1,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,22,22,22,22,22,22,22,22,22,22,8,8,0,11,11,26
Data 26,11,11,1,8,22,22,22,22,22,22,22,22,22,22,8,8,0,11,11,26
Data 26,11,11,1,8,22,22,22,22,22,22,22,22,22,22,8,8,0,11,11,26
Data 26,11,11,1,8,22,22,22,22,22,22,22,22,22,22,8,8,0,11,11,26
Data 26,11,11,1,8,22,22,22,22,22,22,22,22,22,22,8,8,0,11,11,26
Data 26,11,11,1,8,22,30,30,30,22,30,30,30,30,22,8,8,0,11,11,26
Data 26,11,11,1,8,22,30,22,22,22,22,22,22,30,22,8,8,0,11,11,26
Data 26,11,11,1,8,22,30,22,22,22,22,22,22,30,22,8,8,0,11,11,26
Data 26,11,11,1,8,22,30,22,22,22,22,22,22,30,22,8,8,0,11,11,26
Data 26,11,11,1,8,22,30,22,31,32,22,22,22,30,22,8,8,0,11,11,26
Data 26,11,11,1,8,22,30,30,30,30,30,30,30,30,22,8,8,0,11,11,26
Data 26,11,11,1,8,22,22,22,22,22,22,22,22,22,22,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,15,13,13,13,9,13,13,13,13,13,13,14,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,9,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,25,9,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,23,24,9,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,25,9,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,23,21,24,9,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,9,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,9,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,9,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,9,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,9,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,21,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,7,2,2,2,2,2,2,2,2,2,2,2,2,2,6,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26

For y = 0 To 150
For x = 0 To 20
Read map(x,y)
Next
Next

Repeat
Cls

TileImage wasser,x*32-scrollx,y*32-scrolly

If KeyHit(1) Then Exit

For y = 0 To 150
For x = 0 To 20
DrawImage tile,x*32-scrollx,y*32-scrolly,map(x,y)
Next
Next

If KeyDown(208) Then
If map(px,py+1) < 23 Then
py = py + 1
scrolly = scrolly + 32
move = 1
End If
End If

If KeyDown(200) Then
If map(px,py-1) < 23 Then
py = py - 1
scrolly = scrolly - 32
move = 1
End If
End If

If KeyDown(203) Then
If map(px-1,py) < 23 Then
px = px - 1
scrollx = scrollx - 32
move = 1
End If
End If

If KeyDown(205) Then
If map(px+1,py) < 23 Then
px = px + 1
scrollx = scrollx + 32
move = 1
End If
End If

If move = 1 Then x = px * 32: y = py * 32:DrawImage char,x-scrollx,y-scrolly: Delay 50

Flip
Forever

Beim Map soll der Bürger den 9en nach gehen und wenn diese aufhören soll er umkehren.Bitte mit codebeispiel. Rolling Eyes

Zuletzt bearbeitet von dimaster am Mo, Apr 12, 2004 19:48, insgesamt 2-mal bearbeitet

	[SHM]StArMaStEr	Mo, Apr 12, 2004 10:19 Antworten mit Zitat
kann ich mir deine bilder irgendwo runterladen? ich wills ma ausprobieren cya
BB-coden was das Zeug hällt!!!!

[SHM]StArMaStEr

Mo, Apr 12, 2004 10:19
Antworten mit Zitat

kann ich mir deine bilder irgendwo runterladen? ich wills ma ausprobieren
Confused

cya

BB-coden was das Zeug hällt!!!!

	dimaster	Mo, Apr 12, 2004 10:59 Antworten mit Zitat
heute aben so um 6 muss im jetzt lernen

dimaster

Mo, Apr 12, 2004 10:59
Antworten mit Zitat

heute aben so um 6 muss im jetzt lernen

	dimaster	Mo, Apr 12, 2004 18:07 Antworten mit Zitat
Also hier ists : http://homepage.hispeed.ch/Dimo/T.M.P.rar Bitte Hilfe

dimaster

Mo, Apr 12, 2004 18:07
Antworten mit Zitat

Also hier ists :
http://homepage.hispeed.ch/Dimo/T.M.P.rar
Bitte Hilfe

	[SHM]StArMaStEr	Mo, Apr 12, 2004 18:28 Antworten mit Zitat
hmm irgendwie hab ich ein problem mit der frage. solleine figur den chara folgen den du steuerst oder wie? (formulier die frage odentlich sonst weiss ich nich genau wie ich dir helfen soll) cya
BB-coden was das Zeug hällt!!!!

[SHM]StArMaStEr

Mo, Apr 12, 2004 18:28
Antworten mit Zitat

hmm irgendwie hab ich ein problem mit der frage. solleine figur den chara folgen den du steuerst oder wie?
(formulier die frage odentlich sonst weiss ich nich genau wie ich dir helfen soll) Wink

cya

BB-coden was das Zeug hällt!!!!

	Freeman	Mo, Apr 12, 2004 18:43 Antworten mit Zitat
@dimaster , darf der Coder verändert werden? oder soll er auf der basis dieses Mapscrollings bestehen?Weil ich mach das etws anders(is für MICH einfacher) @[SHM]StArMaStEr , ich glaube er will das es uf der map npc's gibt, die ne bestimmte route ablaufen. Ist doch so oder ?
MacBook \| MacOSX 10.5 \| 80GB HDD \| 1GB \| BlitzMax 1.28

Freeman

Mo, Apr 12, 2004 18:43
Antworten mit Zitat

@dimaster , darf der Coder verändert werden? oder soll er auf der basis dieses Mapscrollings bestehen?Weil ich mach das etws anders(is für MICH einfacher)

@[SHM]StArMaStEr , ich glaube er will das es uf der map npc's gibt, die ne bestimmte route ablaufen. Ist doch so oder ?

MacBook | MacOSX 10.5 | 80GB HDD | 1GB | BlitzMax 1.28

	[SHM]StArMaStEr	Mo, Apr 12, 2004 18:51 Antworten mit Zitat
@freeman: ja das scrolling is ein bissel sch... ich wäre auch dafür pixel-by-tile-scrolling zu verwenden. das die npc eine bestimmte route ablaufen is noch relativ leicht aber wenn er sie auch noch ansprechen will(plant er sicherlich) dann wirds schwer, da ich nur die variante mit einem script kenn. @dimaster: mein tipp: wenn du die npc's noch ansprechen willst dann lass es sein und beschäftige dich lieber mit scrolling und setzt deine idee ohne npc's um. aber wenn die npc's nur zur deko dienen dann mach ich dir gern ne laufroutine musst mir nur sagen ob zufall oder einen bestimmten weg. cya
BB-coden was das Zeug hällt!!!!

[SHM]StArMaStEr

Mo, Apr 12, 2004 18:51
Antworten mit Zitat

@freeman: ja das scrolling is ein bissel sch... ich wäre auch dafür pixel-by-tile-scrolling zu verwenden. das die npc eine bestimmte route ablaufen is noch relativ leicht aber wenn er sie auch noch ansprechen will(plant er sicherlich) dann wirds schwer, da ich nur die variante mit einem script kenn.

@dimaster: mein tipp: wenn du die npc's noch ansprechen willst dann lass es sein und beschäftige dich lieber mit scrolling und setzt deine idee ohne npc's um. aber wenn die npc's nur zur deko dienen dann mach ich dir gern ne laufroutine musst mir nur sagen ob zufall oder einen bestimmten weg.

cya

BB-coden was das Zeug hällt!!!!

	dimaster	Mo, Apr 12, 2004 18:52 Antworten mit Zitat
Ja du kannst!Vieleicht ist dein code besser @[SHM]StArMaStEr Das spiel soll ein RPG shoter werden es sollen gegner in der Gegend herumgehen und wenn sie den spieler sehen müssen sie auf ihn schiessen aber ist auch ok wenn mir einfach jemand sagt wie das mit dem belibig herumgehen geht.ach könnt ihr in den code einbauen Danke scho vorher

dimaster

Mo, Apr 12, 2004 18:52
Antworten mit Zitat

Ja du kannst!Vieleicht ist dein code besser Very Happy

@[SHM]StArMaStEr
Das spiel soll ein RPG shoter werden es sollen gegner in der Gegend herumgehen und wenn sie den spieler sehen müssen sie auf ihn schiessen aber ist auch ok wenn mir einfach jemand sagt wie das mit dem belibig herumgehen geht.ach könnt ihr in den code einbauen
Danke scho vorher

	[SHM]StArMaStEr	Mo, Apr 12, 2004 19:18 Antworten mit Zitat
so hab jetzt ma ne bewegungsroutine eingefügt auf zufallbasis. was ich jetzt vergessen hab sind die kollisionen aber die sind genauso wie bei char (if map(blablabla)......).da das scolling nich so fein is bewegt er sich stockend (wie auch der chara den man steuert bloss nich so schnell) und wenn du die geschwindigkeit ändern willst dann setzt die markierte zahl im code runter hier der Code: [AUSKLAPPEN] [EINKLAPPEN] AppTitle("Dimaster software") Graphics 640,480,32,1 SetBuffer BackBuffer() tile = LoadAnimImage("gfx/tileset.bmp",32,32,0,44) char = LoadAnimImage("gfx/p.bmp",32,32,0,4) char1 = LoadImage("gfx/d1u.bmp") wasser = LoadImage("gfx/w.bmp") px = 10 py = 7 geg_x=8 geg_y=7 move = 1 Dim map(50,151) Data 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,5,3,3,3,3,3,3,3,3,3,3,3,3,3,4,11,11,26 Data 26,11,11,1,8,8,28,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,27,8,8,8,8,8,8,8,28,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,29,8,8,28,8,8,8,27,8,8,0,11,11,26 Data 26,11,11,1,8,8,28,8,8,8,27,8,29,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,27,8,29,8,8,22,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,28,8,8,8,22,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,27,8,8,8,22,28,8,8,28,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,29,8,22,27,8,8,27,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,22,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,22,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,29,8,22,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,29,8,30,32,31,8,22,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,28,8,8,30,32,31,8,22,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,27,8,8,30,32,31,8,22,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,28,8,30,32,31,8,22,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,27,8,33,33,33,8,22,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,22,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,29,28,8,8,22,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,28,8,27,8,8,22,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,27,8,8,8,8,22,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26 Data 26,11,11,1,8,15,13,13,13,9,13,13,13,13,13,13,14,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,9,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,25,9,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,23,24,9,30,32,31,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,25,9,30,32,31,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,23,21,24,9,30,32,31,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,9,30,32,31,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,25,9,34,34,34,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,24,9,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,25,21,9,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,24,21,9,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,21,21,21,25,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,23,21,25,21,21,24,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,21,21,24,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,25,21,21,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,21,24,21,21,21,21,21,21,21,21,18,0,11,11,26 Data 26,11,11,1,8,20,36,40,40,40,13,40,40,40,40,35,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,25,23,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,24,21,25,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,24,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,23,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,25,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,24,21,25,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,23,24,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,25,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,24,21,25,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,24,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,25,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,24,21,25,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,24,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,25,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,24,21,25,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,24,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,25,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,24,21,25,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,24,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,25,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,24,21,25,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,24,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26 Data 26,11,11,1,8,20,38,39,39,39,39,39,39,39,39,37,18,0,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26 Data 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26 For y = 0 To 151 For x = 0 To 20 Read map(x,y) Next Next frm# = 0 Repeat Cls wg# = wg#+0.2 TileImage wasser,x32-scrollx+wg,y32-scrolly+wg If KeyHit(1) Then Exit For y = 0 To 151 For x = 0 To 20 DrawImage tile,x32-scrollx,y32-scrolly,map(x,y) Next Next If KeyDown(208) Then frm = 2 If map(px,py+1) < 23 Then py = py + 1 scrolly = scrolly + 32 move = 1 End If End If If KeyDown(200) Then frm = 0 If map(px,py-1) < 23 Then py = py - 1 scrolly = scrolly - 32 move = 1 End If End If If KeyDown(203) Then frm = 3 If map(px-1,py) < 23 Then px = px - 1 scrollx = scrollx - 32 move = 1 End If End If If KeyDown(205) Then frm = 1 If map(px+1,py) < 23 Then px = px + 1 scrollx = scrollx + 32 move = 1 End If End If If MilliSecs()-timer>2000 Then ;die zahl 2000 runterstellen damit er schnellerr geht der npc geg_dir=Rand(1,4) zap=1 timer=MilliSecs() EndIf ;########### NPC-Bewegungsroutine(Zufall) ############# If geg_dir=1 Then If zap=1 Then geg_y=geg_y+1 zap=0 EndIf EndIf If geg_dir=2 Then If zap=1 Then geg_y=geg_y-1 zap=0 EndIf EndIf If geg_dir=3 Then If zap=1 Then geg_x=geg_x+1 zap=0 EndIf EndIf If geg_dir=4 Then If zap=1 Then geg_x=geg_x-1 zap=0 EndIf EndIf DrawImage char1,geg_x32-scrollx,geg_y32-scrolly ;<----NPC If move = 1 Then x = px * 32: y = py * 32:DrawImage char,x-scrollx,y-scrolly,frm: Delay 60 Flip wenn du hilfe brauchst meld dich
BB-coden was das Zeug hällt!!!!

[SHM]StArMaStEr

Mo, Apr 12, 2004 19:18
Antworten mit Zitat

so hab jetzt ma ne bewegungsroutine eingefügt auf zufallbasis.
was ich jetzt vergessen hab sind die kollisionen aber die sind genauso wie bei char (if map(blablabla)......).da das scolling nich so fein is bewegt er sich stockend (wie auch der chara den man steuert bloss nich so schnell)
und wenn du die geschwindigkeit ändern willst dann setzt die markierte zahl im code runter

hier der
Code: [AUSKLAPPEN]

AppTitle("Dimaster software")
Graphics 640,480,32,1
SetBuffer BackBuffer()
tile = LoadAnimImage("gfx/tileset.bmp",32,32,0,44)
char = LoadAnimImage("gfx/p.bmp",32,32,0,4)
char1 = LoadImage("gfx/d1u.bmp")
wasser = LoadImage("gfx/w.bmp")

px = 10
py = 7
geg_x=8
geg_y=7
move = 1

Dim map(50,151)

Data 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,5,3,3,3,3,3,3,3,3,3,3,3,3,3,4,11,11,26
Data 26,11,11,1,8,8,28,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,27,8,8,8,8,8,8,8,28,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,29,8,8,28,8,8,8,27,8,8,0,11,11,26
Data 26,11,11,1,8,8,28,8,8,8,27,8,29,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,27,8,29,8,8,22,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,28,8,8,8,22,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,27,8,8,8,22,28,8,8,28,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,29,8,22,27,8,8,27,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,22,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,22,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,29,8,22,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,29,8,30,32,31,8,22,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,28,8,8,30,32,31,8,22,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,27,8,8,30,32,31,8,22,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,28,8,30,32,31,8,22,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,27,8,33,33,33,8,22,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,22,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,29,28,8,8,22,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,28,8,27,8,8,22,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,27,8,8,8,8,22,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,8,8,8,8,8,8,8,8,8,8,8,8,0,11,11,26
Data 26,11,11,1,8,15,13,13,13,9,13,13,13,13,13,13,14,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,9,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,25,9,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,23,24,9,30,32,31,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,25,9,30,32,31,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,23,21,24,9,30,32,31,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,9,30,32,31,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,25,9,34,34,34,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,24,9,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,25,21,9,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,24,21,9,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,21,21,21,25,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,23,21,25,21,21,24,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,21,21,24,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,25,21,21,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,21,24,21,21,21,21,21,21,21,21,18,0,11,11,26
Data 26,11,11,1,8,20,36,40,40,40,13,40,40,40,40,35,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,25,23,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,24,21,25,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,24,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,23,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,25,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,24,21,25,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,23,24,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,25,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,24,21,25,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,24,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,25,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,24,21,25,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,24,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,25,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,24,21,25,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,24,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,25,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,24,21,25,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,24,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,25,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,24,21,25,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,24,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,42,21,21,21,21,21,21,21,21,41,18,0,11,11,26
Data 26,11,11,1,8,20,38,39,39,39,39,39,39,39,39,37,18,0,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,11,26
Data 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26

For y = 0 To 151
For x = 0 To 20
Read map(x,y)
Next
Next

frm# = 0

Repeat
Cls

wg# = wg#+0.2

TileImage wasser,x*32-scrollx+wg,y*32-scrolly+wg

If KeyHit(1) Then Exit

For y = 0 To 151
For x = 0 To 20
DrawImage tile,x*32-scrollx,y*32-scrolly,map(x,y)
Next
Next

If KeyDown(208) Then
frm = 2
If map(px,py+1) < 23 Then
py = py + 1
scrolly = scrolly + 32
move = 1
End If
End If

If KeyDown(200) Then
frm = 0
If map(px,py-1) < 23 Then
py = py - 1
scrolly = scrolly - 32
move = 1
End If
End If

If KeyDown(203) Then
frm = 3
If map(px-1,py) < 23 Then
px = px - 1
scrollx = scrollx - 32
move = 1
End If
End If

If KeyDown(205) Then
frm = 1
If map(px+1,py) < 23 Then
px = px + 1
scrollx = scrollx + 32
move = 1
End If
End If

If MilliSecs()-timer>2000 Then ;die zahl 2000 runterstellen damit er schnellerr geht der npc
geg_dir=Rand(1,4)
zap=1
timer=MilliSecs()
EndIf
;########### NPC-Bewegungsroutine(Zufall) #############
If geg_dir=1 Then
If zap=1 Then
geg_y=geg_y+1
zap=0
EndIf
EndIf
If geg_dir=2 Then
If zap=1 Then
geg_y=geg_y-1
zap=0
EndIf
EndIf
If geg_dir=3 Then
If zap=1 Then
geg_x=geg_x+1
zap=0
EndIf
EndIf
If geg_dir=4 Then
If zap=1 Then
geg_x=geg_x-1
zap=0
EndIf
EndIf

DrawImage char1,geg_x*32-scrollx,geg_y*32-scrolly ;<----NPC

If move = 1 Then x = px * 32: y = py * 32:DrawImage char,x-scrollx,y-scrolly,frm: Delay 60

Flip

wenn du hilfe brauchst meld dich Wink

BB-coden was das Zeug hällt!!!!

	dimaster	Mo, Apr 12, 2004 19:20 Antworten mit Zitat
ja werde ich danke

dimaster

Mo, Apr 12, 2004 19:20
Antworten mit Zitat

ja werde ich Very Happy

danke

Übersicht

BlitzBasic

Allgemein

Nach Oben

BlitzBasic Portal

Punkte für RPG-bürger (Beantwortet)

Betreff: Punkte für RPG-bürger (Beantwortet)