[Basic Casio] Moteur de déplacements en mode graphique 1

Les bases d'un moteur de déplacements avec gestion des collisions en mode graphique en Basic Casio
- version sans Background (BG-None)
par Totoyo pour Planète Casio
https://www.youtube.com/watch?v=UVni4c_7Egs

BG-None
ViewWindow 1,127,0,1,63,0
1->Z
62->A
2->B
Do
Cls
Int (2RanList#(4->List 1	(voir variante sans RanList# à la fin)
1->List 1[Z
If List 1[1
Then F-Line 49,47,49,63
F-Line 79,47,79,63
Else F-Line 49,47,79,47
IfEnd
If List 1[2
Then F-Line 79,47,127,47
F-Line 79,16,127,16
Else F-Line 79,47,79,16
IfEnd
If List 1[3
Then F-Line 49,1,49,16
F-Line 79,1,79,16
Else F-Line 49,16,79,16
IfEnd
If List 1[4
Then F-Line 49,16,1,16
F-Line 49,47,1,47
Else F-Line 49,16,49,47
IfEnd
Do
Text B,A,"H"
Do
Getkey->K
LpWhile Not K
Text B,A," "
If K=27 And Not PxlTest(B,A+4) And Not PxlTest(B+5,A+4)
Then Isz A
IfEnd
If K=28 And Not PxlTest(B-1,A) And Not PxlTest(B-1,A+3)
Then Dsz B
IfEnd
If K=37 And Not PxlTest(B+6,A) And Not PxlTest(B+6,A+3)
Then Isz B
IfEnd
If K=38 And Not PxlTest(B,A-1) And Not PxlTest(B+5,A-1)
Then Dsz A
IfEnd
LpWhile A≥2 And A≤122 And B≥2 And B≤56
If A<2
Then 2->Z:122->A
IfEnd
If A>122
Then 4->Z:2->A
IfEnd
If B<2
Then 3->Z:56->B
IfEnd
If B>56
Then 1->Z:2->B
IfEnd
LpWhile 1


- Variante de "Int (2RanList#(4->List 1"
For 1->W To 4
Int (2Ran# ->List 1[W
Next