@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