Un de mes premiers jeux utilisant de l'assembleur: le tir au but.
Notez qu'il est interdit de me plagier pour le concours
Ce jeu est assez répétitif, mais amusant quand même. Il est surtout intéressant si vous souhaitez apprendre à faire une IA simple: Analyser chaque cas, poser des conditions, et choisir une action.
Téléchargement
( lien pour 83+/84+ )
Vu qu'il utilise de l'assembleur, je ne peux malheureusement pas vous le donner à recopier.
Mais voilà quand même le code source si ça vous intéresse:
Notez qu'il est interdit de me plagier pour le concours
Ce jeu est assez répétitif, mais amusant quand même. Il est surtout intéressant si vous souhaitez apprendre à faire une IA simple: Analyser chaque cas, poser des conditions, et choisir une action.
Téléchargement
( lien pour 83+/84+ )
Vu qu'il utilise de l'assembleur, je ne peux malheureusement pas vous le donner à recopier.
Mais voilà quand même le code source si ça vous intéresse:
- Spoiler:
:AxesOn
:ZStandard
:0.5→Yscl
:.1→Xscl
:‾20→Ymin
:Horiz
:ClrDraw
:ClrHome
:Text(10,0,"PERSALTEAS GAMES PRESENTE "
:Line(0,‾6,0.2,‾6,0
:Horizontal ‾7
:Output(2,1,"--PolarGC V.1--"
:Output(2,3,"F
:Output(2,6,"t b a 1"
:Pause
:Send(9prgmZFOOT
:StorePic 5
:Lbl 0
:ClrHome
:0→Xmin
:85→Xmax
:0→Ymin
:28→Ymax
:5→V:0→S:8→G
:0→T:4→W
:ClrDraw
:AxesOff
:RecallPic 5
:Lbl 1
:getKey→K
:If K≥24 and K≤26 or K=34::Output(W,V," "
:V+(K=26 and V≠16)-(K=24 and V≠1)→V
:W+(K=34 and W≠4)-(K=25 and W≠1)→W
:Output(W,V,"/n/
:Text(18,6G-6,"X"
:Text(0,0,S
:RecallPic 5
:
:not(A→A
:G→F
:If T or A:G+(V>G)-(G>V)→G
:If G≠F:Text(18,6F-6," "
:
:If T=2 and Z=2 and G=Θ:0→T
:
:If T=2 and Z=1 and (Θ=5 or Θ=12):Then
: Output(1,5,"POTEAU!!"
: For(K,1,150:End
: Output(1,5," "
: 0→T
:End
:
:If K=105 and T=0:Then
: 1→T:W-1→Z:V→Θ
:End
:If T=1 and W=1:Then
: 2→T
: 4→Z
:End
:
:
:If T=1:Then
: Output(Z+1,Θ,"
: Output(Z,Θ,"°
: Z-1→Z
: If Z=0:2→T
: If Z=0:4→Z
:End
:
:If T=3:Then
: Text(4,6Θ-6," "
: 0→T
: If Θ>5 and Θ<12:Then
: Text(0,76,"BUT!"
: S+1→S
: For(K,1,100:End
: Text(0,76," "
: End
:End
:
:
:If T=2:Then
: If Z=4:Output(1,Θ,"
: If Z≠4:Text(7(Z+1)-3,6Θ-6,"
: Text(7Z-3,6Θ-6,"°
: Z-1→Z
: If Z=0:3→T
:End
:
:If K≠45:Goto 1
:ClrHome
:ClrDraw
:RecallPic 5
:Output(2,1,"SCORE:"
:Output(2,8,S
:Output(2,11,"BUTS!
:Pause
:DelVar ADelVar FDelVar GDelVar XDelVar ZDelVar ΘDelVar VDelVar WDelVar SDelVar TDelVar KDelVar Pic5
:Full
:DelVar Y
:Output(1,1,"