[RPG-MAKER.FR] Oniromancie: tout l'univers de RPG Maker en français - Les forums

J'utilise quand même un langage "simple". Un Basic amélioré sur Amiga. (Amos)
La suite je test un peu le système de combat.
Ce matin j'ai testé deux trois truc pour ça. Enfin le hud et j'ai cherché comment "flashé" l'ennemie !

Et le code source.
Gosub BATTLE
 
Rem #########################
Rem # Initiation de l'écran #
Rem #########################
Screen Open 0,320,200,16,Lowres
Flash Off : Curs Off : Paper 0 : Cls 
Rem ############################ 
Rem # Initiation des variables # 
Rem ############################ 
PJX=16 : Rem position X du héros
PJY=16 : Rem Position Y du Héros
Dim MAP(20,13) : Rem Taille de la map 
PJPOSE=1
BATTLERANDOM=Rnd(20)
 
 
Gosub ARNE
'Save Iff "arne.iff" 
 
Rem ########################## 
Rem # Gestion de la map test # 
Rem ########################## 
' A=Numéros du Tiles, B=Passabilité
 
For Y=0 To 11
   For X=0 To 19
      Read A
      C=0
      
      If A=1 and C=0 Then B=1 : A=1 : C=1 : Rem Montagne 
      If A=0 and C=0 Then B=0 : A=2 : C=1 : Rem Sol
      If A=2 and C=0 Then B=1 : A=3 : C=1 : Rem Eau
      If A=4 and C=0 Then B=0 : A=4 : C=1 : Rem Village
      If A=5 and C=0 Then B=0 : A=5 : C=1 : Rem Forêt
      MAP(X,Y)=B
      Paste Icon X*16,Y*16,A
      
   Next 
Next 
 
Rem #################
Rem # Data Map Test #
Rem #################
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2
Data 1,0,0,1,1,1,1,1,0,0,0,0,0,0,2,2,2,2,2,2
Data 1,0,4,0,0,5,5,1,1,0,0,5,5,5,5,0,2,2,2,2
Data 1,0,0,0,0,0,0,1,1,0,0,5,5,4,5,0,0,2,2,2
Data 1,0,0,0,0,0,1,1,1,0,0,0,5,5,5,0,0,2,2,2
Data 1,0,0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,1,1,1
Data 1,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,1,1,1
Data 1,0,0,0,0,0,0,0,0,0,1,1,1,1,0,0,0,0,1,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,1
Data 1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,0,0,1
Data 1,0,0,0,0,0,0,0,0,1,0,0,0,1,0,0,0,0,0,1
Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
 
 
Rem #####################
Rem # Boucle principale #
Rem #####################
Do 
 
Locate 1,1 : Print "           " : Locate 1,1 : Print(SCHIP-Fast Free)
   Gosub COMMANDE
   Gosub MOUVEMENT
   Bob 1,PJX,PJY,PJPOSE
   Gosub TESTBATTLE
   Wait Vbl 
Loop 
 
Rem ###################
Rem # Commande du jeu #
Rem ###################
COMMANDE:
If Key State(78)=True and MVT=0 and MAP((PJX/16)+1,PJY/16)=0 Then MVT=6 : Rem Mouvement Droite 
If Key State(79)=True and MVT=0 and MAP((PJX/16)-1,PJY/16)=0 Then MVT=4 : Rem Mouvement Gauche 
If Key State(76)=True and MVT=0 and MAP(PJX/16,(PJY/16)-1)=0 Then MVT=8 : Rem Mouvement Haut 
If Key State(77)=True and MVT=0 and MAP(PJX/16,(PJY/16)+1)=0 Then MVT=2 : Rem Mouvement Bas
Return 
 
Rem #############
Rem # Mouvement #
Rem #############
MOUVEMENT:
Rem #################### 
Rem # Mouvement Droite # 
Rem ####################   
 
If MVT=6 and PAS<8
   Add PJX,2
   Inc PAS
   
End If 
 
 
Rem #################### 
Rem # Mouvement Gauche # 
Rem #################### 
If MVT=4 and PAS<8
   Add PJX,-2
   Inc PAS
End If 
 
Rem ################## 
Rem # Mouvement Haut # 
Rem ################## 
 
If MVT=8 and PAS<8
   Add PJY,-2
   Inc PAS
End If 
 
 
Rem #################
Rem # Mouvement Bas #
Rem #################
If MVT=2 and PAS<8
   Add PJY,2
   Inc PAS
End If 
 
Rem Update de Pose 
If MVT>0 Then Gosub UPJPOSE
 
Rem #####################################
Rem # Remise à 0 du pas et du mouvement #
Rem #####################################
If PAS>7 Then PAS=0 : MVT=0 : BT=1
 
Return 
 
Rem ################ 
Rem # Palette Arne # 
Rem ################ 
ARNE:
Palette $0,$999,$FFF,$B23,$E68,$432,$A62,$E83,$FE6,$244,$481,$AC2,$123,$58,$3AF,$BDE
 
 
Return 
Rem ############## 
Rem # Pose du PJ # 
Rem ############## 
UPJPOSE:
 
If MVT=2 and PAS=1
   If PJPOSE=1
      PJPOSE=2
   Else PJPOSE=1
   End If 
End If 
 
If MVT=6 and PAS=1
   If PJPOSE=3
      PJPOSE=4
   Else PJPOSE=3
   End If 
End If 
 
If MVT=4 and PAS=1
   If PJPOSE=5
      PJPOSE=6
   Else PJPOSE=5
   End If 
End If 
 
If MVT=8 and PAS=1
   If PJPOSE=7
      PJPOSE=8
   Else PJPOSE=7
   End If 
End If 
 
 
Return 
 
 
Rem ############################ 
Rem # Test Battaille Aléatoire # 
Rem ############################ 
TESTBATTLE:
If BT=1
 
 
   Dec BATTLERANDOM
   If BATTLERANDOM<1
      Gosub BATTLE
   End If 
   
   BT=0
   
End If 
 
Return 
 
Rem ################## 
Rem #Script de Combat# 
Rem ################## 
BATTLE:
 
Wait 5
Screen Open 1,320,240,16,Lowres
Curs Off : Flash Off 
Gosub ARNE
Paper 0
Cls 
 
Gosub HUD
 
 
Bob 2,(320-16)/2,130,1
 
 
Clear Key 
 
 
' Boucle de combat 
Do 
' Calcule pour s'avoir qui à la main 
' Si c'est un PNJ action PNJ 
' Si c'est un PJ Action PJ 
' Si l'ennemie est mort retour 
' Si c'est le groupe PJ, Game Over 
Wait Vbl 
Loop 
Wait 20
Screen Close 1
BATTLERANDOM=Rnd(20)
Return 
 
HUD:
 
Wind Open 1,10,160,14,9,1
Curs Off 
Paper 12 : Clw 
 
Locate 1,1 : Print "Attaquer"
Locate 1,2 : Print "Compétence"
Locate 1,3 : Print "Objet"
Locate 1,4 : Print "Défense"
Locate 1,5 : Print "Fuir"
 
Wind Open 2,120,160,25,9,1
Paper 12 : Clw : Curs Off 
 
Locate 1,2 : Print "Monos"
Locate 1,3 : Print "Astrid"
Locate 1,4 : Print "Sylvanor"
Locate 1,5 : Print "Perine"
 
Locate 13,1 : Print "PV"
Locate 18,1 : Print "MP"
Locate 12,2 : Print "9999/9999"
 
Return