1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165
| ORG $1000
START:
MOVE.L #$EFEFFB, D1 ;Mettre le fond en blanc
JSR SET_FILL_COLOR ;
MOVE.W #0, D1 ;
MOVE.W #0, D2 ;
JSR pot_de_peinture ;
MOVE.B #0,D6 ;
MOVE.L #$000000, D1 ;Couleur lignes
JSR SET_PEN_COLOR ;
MOVE.B #3,D1 ;Epaisseur lignes
JSR WIDTH_PEN ;
MOVE.W #150,D1 ;X1
MOVE.W #100,D2 ;Y1
MOVE.W #450,D3 ;X2
MOVE.W #100,D4 ;Y2
JSR DRAW_LINE ;
BRA BOUCLELINE ;
BOUCLELINE:
ADD.W #100,D2 ;Taille case Y1
ADD.W #100,D4 ;Taille case Y2
JSR DRAW_LINE ;
ADD.B #1, D6 ;
CMP #3, D6 ;3 lignes
BEQ endline ;
BRA BOUCLELINE ;
endline
MOVE.B #0,D6 ;
MOVE.W #150,D1 ;X1
MOVE.W #100,D2 ;Y1
MOVE.W #150,D3 ;X2
MOVE.W #400,D4 ;Y2
JSR DRAW_LINE ;
BRA BOUCLECOLOMN ;
BOUCLECOLOMN:
ADD.W #100, D1 ;Taille case X1
ADD.W #100, D3 ;Taille case X2
JSR DRAW_LINE ;
ADD.B #1, D6 ;
CMP #3, D6 ;3 colonnes
BEQ endcolomn ;
BRA BOUCLECOLOMN ;
endcolomn
MOVE.W #10, D1
MOVE.W #410, D2
MOVE.W #120, D3
MOVE.W #460, D4
JSR DRAW_RECT
CLR.L D6
TOUR: ;Boucle jouer
CMP #9, D6
BEQ FIN
ADD #1, D6
MOVE.L D6, D5
MOVE.L #0, A1
MOVE.L #0, A2
MOVE.L #0, A3
MOVE.L #0, A4
CLICK: ;Capte le click
CLR.L D1
JSR GET_MOUSE
AND.B #1, D0
BNE DECLICK
BRA CLICK
DECLICK: ;Capte le relachement du click
CLR.L D1
JSR GET_MOUSE
CMP.B #0, D0
BNE DECLICK
LIEUCLICK:
MOVE.W D1, A1 ;Stock X dans A1
SWAP D1
MOVE.W D1, A2 ;Stock X dans A2
CHOIXCASEX:
CMP.L #150, A1
BLT CLICK
MOVE.L #200, A3
CMP.L #250, A1
BLE CHOIXCASEY
MOVE.L #300, A3
CMP.L #350, A1
BLE CHOIXCASEY
MOVE.L #400, A3
CMP.L #450, A1
BLE CHOIXCASEY
CMP.L #450, A1
BGE CLICK
CHOIXCASEY:
CMP.L #100, A2
BLT CLICK
MOVE.L #150, A4
CMP.L #200, A2
BLE PAIR
MOVE.L #250, A4
CMP.L #300, A2
BLE PAIR
MOVE.L #350, A4
CMP.L #400, A2
BLE PAIR
CMP.L #400, A2
BGE CLICK
PAIR: ;Test la parité
AND #1, D5
BEQ CROIX
BRA ROND
CROIX:
MOVE.W A3, D1
SUB.W #25, D1 ;X1 -25
MOVE.W A4, D2
SUB.W #25, D2 ;Y1 -25
MOVE.W A3, D3
ADD.W #25, D3 ;X2 +25
MOVE.W A4, D4
ADD.W #25, D4 ;Y2 +25
JSR DRAW_LINE
MOVE.W A3, D1
ADD.W #25, D1 ;X1 +25
MOVE.W A4, D2
SUB.W #25, D2 ;Y1 -25
MOVE.W A3, D3
SUB.W #25, D3 ;X2 -25
MOVE.W A4, D4
ADD.W #25, D4 ;Y2 +25
JSR DRAW_LINE
BRA TOUR
ROND:
MOVE.W A3, D1
SUB.W #25, D1 ;X1 -25
MOVE.W A4, D2
SUB.W #25, D2 ;Y1 -25
MOVE.W A3, D3
ADD.W #25, D3 ;X2 +25
MOVE.W A4, D4
ADD.W #25, D4 ;Y2 +25
JSR DRAW_ELLIPSE
BRA TOUR
FIN:
JSR FINPRG ;
include "BIBGRAPH.x68"
include "BIBLIO.x68"
include "BIBPERIPH.x68"
END START |
Partager