@QUAD, post #150
@chicago, post #151
@Vato, post #161
@JacK_Swidnik, post #162
@QUAD, post #172
@selur, post #179
Load "AMOSPro_Tutorial:Objects/rpg.abk" : Make Mask
Screen Open 2,320,256,16,Lowres
Cls 0
Wait Vbl
Screen Open 0,320,256,32,Lowres
Curs Off : Flash Off : Cls 0
Wait Vbl
Y=Y Hard(200)
Locate 2,4
Paper 3
Input "Podaj imie:";IMIE$ : Cls 0
Box 0,0 To 319,198
Wait Vbl
Screen Open 1,320,56,16,Lowres
Curs Off : Flash Off : Cls 0
Screen Display 1,,Y,,
Box 0,0 To 319,55
Box 0,0 To 160,55
Double Buffer
S=Rnd(20)
M=Rnd(20)
Z=Rnd(20)
L=Rnd(20)
Locate 1,1
Paper 12 : Print IMIE$
Locate 1,3
Paper 3 : Print "Str:";S
Locate 1,4
Paper 3 : Print "Pow:";M
Locate 8,3
Paper 3 : Print " Health:";Z
Locate 8,4
Paper 3 : Print " Luck:";L
Ink 5,10 : Text 165,9,"Inventory:"
Rem rozmieszczenie przeciwnikow
Screen 0
Hide
Rem Text 10,10,"Teren gry!"
Double Buffer
For I=1 To 5
Rem wilk
WX=Rnd(300)
WY=Rnd(180)
Bob I,WX,WY,3
Next I
For J=6 To 10
Rem ghul
GX=Rnd(300)
GY=Rnd(180)
Bob J,GX,GY,4
Next J
Wait Vbl
Rem bohater
X=Rnd(310)
Y=Rnd(190)
Do
Bob 0,X,Y,1
Wait 2
Rem Sterowanie bohaterem
If Key State(76) Then Dec Y
If Key State(77) Then Inc Y
If Key State(78) Then Inc X
If Key State(79) Then Dec X
C=Bob Col(0)
If C=-1 Then Gosub FUNKCJA
Loop
FUNKCJA:
Screen 2
Double Buffer
Cls 0
Text 30,20,"walka"
Print "podaj bron"
Return