capitalex bu gisti düzenledi . Düzenlemeye git
1 file changed, 2 deletions
bitsy.nv
| @@ -270,7 +270,6 @@ | |||
| 270 | 270 | ||
| 271 | 271 | || :screen resolution: 64 64 | |
| 272 | 272 | :frame for sprites: 1 | |
| 273 | - | :key pressed: left | |
| 274 | 273 | ||
| 275 | 274 | |:: start? :starting room: $room| | |
| 276 | 275 | :: change rooms :go to: $room | |
| @@ -338,7 +337,6 @@ | |||
| 338 | 337 | :: draw player | |
| 339 | 338 | :: get dialogue :: draw dialogue | |
| 340 | 339 | :: tick frame | |
| 341 | - | :: break | |
| 342 | 340 | ||
| 343 | 341 | ||
| 344 | 342 | |:: get dialogue :player touching: $something?| | |
capitalex bu gisti düzenledi . Düzenlemeye git
1 file changed, 135 insertions, 18 deletions
bitsy.nv
| @@ -30,7 +30,6 @@ | |||
| 30 | 30 | . . # . . # . . | |
| 31 | 31 | ) | |
| 32 | 32 | ||
| 33 | - | || :set player actor: p | |
| 34 | 33 | |:: is p actor| :actor: p yes | |
| 35 | 34 | |:: get sprite 2 for p| | |
| 36 | 35 | :sprite data: ( | |
| @@ -51,10 +50,37 @@ | |||
| 51 | 50 | |:: touched c :touched once:| :already pet: | |
| 52 | 51 | |:: touched c| :touched once: | |
| 53 | 52 | ||
| 54 | - | |:: get dialogue for c :angy:?| :@text to draw: "no talk, me angy." | |
| 55 | - | |:: get dialogue for c :already pet:?| :@text to draw: "okay, enough." | |
| 53 | + | |:: get dialogue for c :angy:? :current room: test2?| | |
| 54 | + | :@text to draw: "still agny!!" | |
| 55 | + | |:: get dialogue for c :angy:?| | |
| 56 | + | :@text to draw: "no talk, me angy." | |
| 57 | + | |:: get dialogue for c :already pet:?| | |
| 58 | + | :@text to draw: "okay, enough." | |
| 56 | 59 | |:: get dialogue for c| :@text to draw: "meow! meow!" | |
| 57 | 60 | ||
| 61 | + | |:: get sprite 1 for c :angy:? :current room: test2?| | |
| 62 | + | :sprite data: ( | |
| 63 | + | . . . . . . . . | |
| 64 | + | . . . . . . . . | |
| 65 | + | . . . . . # . # | |
| 66 | + | . . . . . # # # | |
| 67 | + | . . . . . # # # | |
| 68 | + | . . . . # # # . | |
| 69 | + | # . . # # # # . | |
| 70 | + | . # # # # . # . | |
| 71 | + | ) | |
| 72 | + | |:: get sprite 2 for c :angy:? :current room: test2?| | |
| 73 | + | :sprite data: ( | |
| 74 | + | . . . . . . . . | |
| 75 | + | . . . . . . . . | |
| 76 | + | . . . . . # . # | |
| 77 | + | . . . . . # # # | |
| 78 | + | . . . . . # # # | |
| 79 | + | . . . . # # # . | |
| 80 | + | . # . # # # # . | |
| 81 | + | . # # # # . # . | |
| 82 | + | ) | |
| 83 | + | ||
| 58 | 84 | |:: get sprite 1 for c :angy:?| | |
| 59 | 85 | :sprite data: ( | |
| 60 | 86 | . . . . . . . . | |
| @@ -178,32 +204,92 @@ | |||
| 178 | 204 | . . # . . # . . | |
| 179 | 205 | ) | |
| 180 | 206 | ||
| 181 | - | || :current room: test | |
| 207 | + | |:: is e exit| :exit: e yes | |
| 208 | + | |:: is x exit| :exit: x yes | |
| 209 | + | |:: is i exit| :exit: i yes | |
| 210 | + | |:: is t exit| :exit: t yes | |
| 211 | + | |:: e goes to :current room: test2?| :go to: test | |
| 212 | + | |:: e goes to| :go to: test2 | |
| 213 | + | |:: x goes to| :: e goes to | |
| 214 | + | |:: i goes to| :: e goes to | |
| 215 | + | |:: t goes to| :: e goes to | |
| 216 | + | |:: get sprite 1 for e :current room: test2?| | |
| 217 | + | :sprite data: ( | |
| 218 | + | . . . . . . . . | |
| 219 | + | . . . # . . . . | |
| 220 | + | . . # # . . . . | |
| 221 | + | . # # # # # # . | |
| 222 | + | . # # # # # # . | |
| 223 | + | . . # # . . . . | |
| 224 | + | . . . # . . . . | |
| 225 | + | . . . . . . . . | |
| 226 | + | ) | |
| 227 | + | |:: get sprite 1 for e | | |
| 228 | + | :sprite data: ( | |
| 229 | + | . . . . . . . . | |
| 230 | + | . . . . # . . . | |
| 231 | + | . . . . # # . . | |
| 232 | + | . # # # # # # . | |
| 233 | + | . # # # # # # . | |
| 234 | + | . . . . # # . . | |
| 235 | + | . . . . # . . . | |
| 236 | + | . . . . . . . . | |
| 237 | + | ) | |
| 238 | + | |:: get sprite 1 for x| :: get sprite 1 for e | |
| 239 | + | |:: get sprite 1 for i| :: get sprite 1 for e | |
| 240 | + | |:: get sprite 1 for t| :: get sprite 1 for e | |
| 241 | + | ||
| 242 | + | || :starting room: test | |
| 243 | + | |:: player for test room| :player: p | |
| 182 | 244 | |:: get tiles for test| | |
| 183 | 245 | :room data: ( | |
| 184 | 246 | w w . . . . w w | |
| 185 | 247 | w . . . . g . w | |
| 186 | - | . . [ = = ] . . | |
| 187 | - | . c . g . . p . | |
| 188 | - | . . . . . . . . | |
| 189 | - | . g [ = = ] . . | |
| 248 | + | . . [ = = ] . e | |
| 249 | + | . c . g . . p x | |
| 250 | + | . . . . . . . i | |
| 251 | + | . g [ = = ] . t | |
| 190 | 252 | w . . . . g . w | |
| 191 | 253 | w w . . . . w w | |
| 192 | 254 | ) | |
| 193 | 255 | ||
| 256 | + | |:: player for test2 room| :player: p | |
| 257 | + | |:: get tiles for test2| | |
| 258 | + | :room data: ( | |
| 259 | + | w w w w w w w w | |
| 260 | + | w . . . g . . w | |
| 261 | + | e . w . . w . w | |
| 262 | + | x p . . . c . w | |
| 263 | + | i . . g . . g w | |
| 264 | + | t . w . . w . w | |
| 265 | + | w . . . g . . w | |
| 266 | + | w w w w w w w w | |
| 267 | + | ) | |
| 268 | + | ||
| 269 | + | ||
| 270 | + | ||
| 194 | 271 | || :screen resolution: 64 64 | |
| 195 | 272 | :frame for sprites: 1 | |
| 273 | + | :key pressed: left | |
| 196 | 274 | ||
| 197 | - | ||
| 198 | - | |:: start? :set player actor: $actor| | |
| 275 | + | |:: start? :starting room: $room| | |
| 276 | + | :: change rooms :go to: $room | |
| 277 | + | ||
| 278 | + | |:: change rooms? :actors: $1 $2 $3| | |
| 279 | + | |:: change rooms? :solids: $1 $2 $3| | |
| 280 | + | |:: change rooms? :exits: $1 $2 $3| | |
| 281 | + | |:: change rooms? :player actor: $1 $2 $3| | |
| 282 | + | |:: change rooms? :current room: $_| | |
| 283 | + | |:: change rooms :go to: $room| | |
| 284 | + | :current room: $room | |
| 285 | + | :: player for $room room | |
| 199 | 286 | :: get actor locations | |
| 200 | - | :: set player actor $actor | |
| 201 | - | ||
| 202 | - | ||
| 287 | + | :: set player actor | |
| 203 | 288 | ||
| 204 | 289 | |:: get actor locations :current room: $room?| | |
| 205 | 290 | :: get tiles for $room :: find each actor :tile location: 0 0 | |
| 206 | 291 | :: get tiles for $room :: find each solid :tile location: 0 0 | |
| 292 | + | :: get tiles for $room :: find each exit :tile location: 0 0 | |
| 207 | 293 | ||
| 208 | 294 | |:: find each $type :room data: ($1 $2 $3 $4 $5 $6 $7 $8)| | |
| 209 | 295 | :: is $1 $type :: add to $type list :: next tile column | |
| @@ -225,11 +311,15 @@ | |||
| 225 | 311 | :solids: $what $x $y | |
| 226 | 312 | |:: add to solid list :solid: $what no| | |
| 227 | 313 | ||
| 314 | + | |:: add to exit list :exit: $what yes :tile location: $x $y?| | |
| 315 | + | :exits: $what $x $y | |
| 316 | + | |:: add to exit list :exit: $what no| | |
| 228 | 317 | ||
| 229 | - | |:: set player actor $actor :actors: $actor $x $y| | |
| 318 | + | ||
| 319 | + | |:: set player actor :player: $actor :actors: $actor $x $y| | |
| 230 | 320 | :: rollback actors :player actor: $actor $x $y | |
| 231 | - | |:: set player actor $actor :no more actors:| | |
| 232 | - | |:: set player actor $actor?| | |
| 321 | + | |:: set player actor :player: $actor :no more actors:| | |
| 322 | + | |:: set player actor?| | |
| 233 | 323 | :: next actor | |
| 234 | 324 | ||
| 235 | 325 | |::start :screen resolution: $x $y?| | |
| @@ -237,15 +327,19 @@ | |||
| 237 | 327 | ::main loop | |
| 238 | 328 | ||
| 239 | 329 | ||
| 330 | + | |:: draw? :go to: $room?| | |
| 331 | + | :: change rooms | |
| 240 | 332 | ||
| 241 | - | |::draw| | |
| 242 | - | :: clear the screen | |
| 333 | + | |:: draw| | |
| 243 | 334 | :: move player actor | |
| 335 | + | :: clear the screen | |
| 244 | 336 | :: draw current room | |
| 245 | 337 | :: draw npcs | |
| 246 | 338 | :: draw player | |
| 247 | 339 | :: get dialogue :: draw dialogue | |
| 248 | 340 | :: tick frame | |
| 341 | + | :: break | |
| 342 | + | ||
| 249 | 343 | ||
| 250 | 344 | |:: get dialogue :player touching: $something?| | |
| 251 | 345 | :: get dialogue for $something | |
| @@ -259,6 +353,7 @@ | |||
| 259 | 353 | ||
| 260 | 354 | |:: is $x actor| :actor: $x no | |
| 261 | 355 | |:: is $x solid| :solid: $x no | |
| 356 | + | |:: is $x exit| :exit: $x no | |
| 262 | 357 | |:: get dialogue for $what| :no dialogue: | |
| 263 | 358 | |:: get sprite $frame for $id| | |
| 264 | 359 | :: get sprite 1 for $id | |
| @@ -287,6 +382,18 @@ | |||
| 287 | 382 | |:: rollback solids| | |
| 288 | 383 | ||
| 289 | 384 | ||
| 385 | + | |:: next exit :exits: $exit $x $y :exits: $more $_x $_y?| | |
| 386 | + | :discarded exits: $exit $x $y | |
| 387 | + | |:: next exit :exits: $exit $x $y| | |
| 388 | + | :discarded exits: $exit $x $y | |
| 389 | + | :no more exits: | |
| 390 | + | |:: next exit| | |
| 391 | + | :no more exits: | |
| 392 | + | |:: rollback exits? :discarded exits: $exit $x $y| | |
| 393 | + | :exits: $exit $x $y | |
| 394 | + | |:: rollback exits| | |
| 395 | + | ||
| 396 | + | ||
| 290 | 397 | |:: draw current room :current room: $room?| | |
| 291 | 398 | :tile location: 0 0 | |
| 292 | 399 | :: get tiles for $room | |
| @@ -402,12 +509,14 @@ | |||
| 402 | 509 | :make move: $x $y | |
| 403 | 510 | :: clear touching | |
| 404 | 511 | :: check for solid $x $y | |
| 512 | + | :: check for exit $x $y | |
| 405 | 513 | :: check for actor $x $y | |
| 406 | 514 | ||
| 407 | 515 | |:: move y? :@math: $y :player actor: $actor $x $_?| | |
| 408 | 516 | :make move: $x $y | |
| 409 | 517 | :: clear touching | |
| 410 | 518 | :: check for solid $x $y | |
| 519 | + | :: check for exit $x $y | |
| 411 | 520 | :: check for actor $x $y | |
| 412 | 521 | ||
| 413 | 522 | |:: move $axis :make move: $x $y :player actor: $actor $_x $_y| | |
| @@ -417,6 +526,7 @@ | |||
| 417 | 526 | |:: clear touching :player touching: $not-this| | |
| 418 | 527 | |:: clear touching| | |
| 419 | 528 | ||
| 529 | + | ||
| 420 | 530 | |:: check for solid $x $y :solids: $what $x $y? :make move: $x $y| | |
| 421 | 531 | :: rollback solids | |
| 422 | 532 | |:: check for solid $x $y :no more solids:| | |
| @@ -424,6 +534,13 @@ | |||
| 424 | 534 | |:: check for solid $x $y?| | |
| 425 | 535 | :: next solid | |
| 426 | 536 | ||
| 537 | + | |:: check for exit $x $y :exits: $what $x $y? :make move: $_x $_y| | |
| 538 | + | :: rollback exits :: $what goes to | |
| 539 | + | |:: check for exit $x $y :no more exits:| | |
| 540 | + | :: rollback exits | |
| 541 | + | |:: check for exit $x $y?| | |
| 542 | + | :: next exit | |
| 543 | + | ||
| 427 | 544 | |:: check for actor $x $y :actors: $what $x $y?| | |
| 428 | 545 | :: rollback actors | |
| 429 | 546 | :: touched $what | |
capitalex bu gisti düzenledi . Düzenlemeye git
2 files changed, 1124 insertions, 16 deletions
bitsy.nv
| @@ -1,3 +1,6 @@ | |||
| 1 | + | || :\: OH, btw, the text stuff assumes you have this font installed | |
| 2 | + | :\: managore.itch.io/m3x6 | |
| 3 | + | ||
| 1 | 4 | |:: get color for .| | |
| 2 | 5 | :color: 51 68 85 | |
| 3 | 6 | |:: get color for #| | |
| @@ -42,6 +45,39 @@ | |||
| 42 | 45 | ) | |
| 43 | 46 | ||
| 44 | 47 | |:: is c actor| :actor: c yes | |
| 48 | + | ||
| 49 | + | |:: touched c :angy:?| | |
| 50 | + | |:: touched c :already pet:| :angy: | |
| 51 | + | |:: touched c :touched once:| :already pet: | |
| 52 | + | |:: touched c| :touched once: | |
| 53 | + | ||
| 54 | + | |:: get dialogue for c :angy:?| :@text to draw: "no talk, me angy." | |
| 55 | + | |:: get dialogue for c :already pet:?| :@text to draw: "okay, enough." | |
| 56 | + | |:: get dialogue for c| :@text to draw: "meow! meow!" | |
| 57 | + | ||
| 58 | + | |:: get sprite 1 for c :angy:?| | |
| 59 | + | :sprite data: ( | |
| 60 | + | . . . . . . . . | |
| 61 | + | . . . . . . . . | |
| 62 | + | # . # . . . . . | |
| 63 | + | # # # . . . . . | |
| 64 | + | # # # . . . . . | |
| 65 | + | . # # # . . . . | |
| 66 | + | . # # # # . . # | |
| 67 | + | . # . # # # # . | |
| 68 | + | ) | |
| 69 | + | |:: get sprite 2 for c :angy:?| | |
| 70 | + | :sprite data: ( | |
| 71 | + | . . . . . . . . | |
| 72 | + | . . . . . . . . | |
| 73 | + | # . # . . . . . | |
| 74 | + | # # # . . . . . | |
| 75 | + | # # # . . . . . | |
| 76 | + | . # # # . . . . | |
| 77 | + | . # # # # . # . | |
| 78 | + | . # . # # # # . | |
| 79 | + | ) | |
| 80 | + | ||
| 45 | 81 | |:: get sprite 1 for c| | |
| 46 | 82 | :sprite data: ( | |
| 47 | 83 | . . . . . . . . | |
| @@ -78,6 +114,46 @@ | |||
| 78 | 114 | # # # # # # # # | |
| 79 | 115 | ) | |
| 80 | 116 | ||
| 117 | + | |:: is [ solid| :solid: [ yes | |
| 118 | + | |:: get sprite 1 for [| | |
| 119 | + | :sprite data: ( | |
| 120 | + | # # # # # # # # | |
| 121 | + | # # . . . . . . | |
| 122 | + | # . # # # # # # | |
| 123 | + | # . # . . . . . | |
| 124 | + | # . # . . . . . | |
| 125 | + | # . # # # # # # | |
| 126 | + | # # . . . . . . | |
| 127 | + | # # # # # # # # | |
| 128 | + | ) | |
| 129 | + | ||
| 130 | + | |:: is = solid| :solid: = yes | |
| 131 | + | |:: get sprite 1 for =| | |
| 132 | + | :sprite data: ( | |
| 133 | + | # # # # # # # # | |
| 134 | + | . . . . . . . . | |
| 135 | + | # # # # # # # # | |
| 136 | + | . . . . . . . . | |
| 137 | + | . . . . . . . . | |
| 138 | + | # # # # # # # # | |
| 139 | + | . . . . . . . . | |
| 140 | + | # # # # # # # # | |
| 141 | + | ) | |
| 142 | + | ||
| 143 | + | |:: is ] solid| :solid: ] yes | |
| 144 | + | |:: get sprite 1 for ]| | |
| 145 | + | :sprite data: ( | |
| 146 | + | # # # # # # # # | |
| 147 | + | . . . . . . # # | |
| 148 | + | # # # # # # . # | |
| 149 | + | . . . . . # . # | |
| 150 | + | . . . . . # . # | |
| 151 | + | # # # # # # . # | |
| 152 | + | . . . . . . # # | |
| 153 | + | # # # # # # # # | |
| 154 | + | ) | |
| 155 | + | ||
| 156 | + | ||
| 81 | 157 | |:: get sprite 1 for g| | |
| 82 | 158 | :sprite data: ( | |
| 83 | 159 | . . . . . . . . | |
| @@ -105,14 +181,14 @@ | |||
| 105 | 181 | || :current room: test | |
| 106 | 182 | |:: get tiles for test| | |
| 107 | 183 | :room data: ( | |
| 108 | - | w w w w w w w w | |
| 184 | + | w w . . . . w w | |
| 109 | 185 | w . . . . g . w | |
| 110 | - | w . . w w . . w | |
| 111 | - | w c . . . . p w | |
| 112 | - | w . . g . . . w | |
| 113 | - | w g . w w . . w | |
| 186 | + | . . [ = = ] . . | |
| 187 | + | . c . g . . p . | |
| 188 | + | . . . . . . . . | |
| 189 | + | . g [ = = ] . . | |
| 114 | 190 | w . . . . g . w | |
| 115 | - | w w w w w w w w | |
| 191 | + | w w . . . . w w | |
| 116 | 192 | ) | |
| 117 | 193 | ||
| 118 | 194 | || :screen resolution: 64 64 | |
| @@ -168,11 +244,22 @@ | |||
| 168 | 244 | :: draw current room | |
| 169 | 245 | :: draw npcs | |
| 170 | 246 | :: draw player | |
| 247 | + | :: get dialogue :: draw dialogue | |
| 171 | 248 | :: tick frame | |
| 172 | - | :: draw FPS | |
| 249 | + | ||
| 250 | + | |:: get dialogue :player touching: $something?| | |
| 251 | + | :: get dialogue for $something | |
| 252 | + | |:: get dialogue| | |
| 253 | + | ||
| 254 | + | |:: draw dialogue :@text to draw: $something?| | |
| 255 | + | :@graphics: draw-text 0 48 | |
| 256 | + | |:: draw dialogue :no dialogue:| | |
| 257 | + | |:: draw dialogue| | |
| 258 | + | ||
| 173 | 259 | ||
| 174 | 260 | |:: is $x actor| :actor: $x no | |
| 175 | 261 | |:: is $x solid| :solid: $x no | |
| 262 | + | |:: get dialogue for $what| :no dialogue: | |
| 176 | 263 | |:: get sprite $frame for $id| | |
| 177 | 264 | :: get sprite 1 for $id | |
| 178 | 265 | ||
| @@ -312,20 +399,36 @@ | |||
| 312 | 399 | ||
| 313 | 400 | ||
| 314 | 401 | |:: move x? :@math: $x :player actor: $actor $_ $y?| | |
| 402 | + | :make move: $x $y | |
| 403 | + | :: clear touching | |
| 315 | 404 | :: check for solid $x $y | |
| 316 | - | |:: move x :a solid at: $x $y| | |
| 317 | - | |:: move x :a nonsolid at: $x $y :player actor: $actor $_x $_y| | |
| 318 | - | :player actor: $actor $x $y | |
| 405 | + | :: check for actor $x $y | |
| 319 | 406 | ||
| 320 | 407 | |:: move y? :@math: $y :player actor: $actor $x $_?| | |
| 408 | + | :make move: $x $y | |
| 409 | + | :: clear touching | |
| 321 | 410 | :: check for solid $x $y | |
| 322 | - | |:: move y :a solid at: $x $y| | |
| 323 | - | |:: move y :a nonsolid at: $x $y :player actor: $actor $_x $_y| | |
| 411 | + | :: check for actor $x $y | |
| 412 | + | ||
| 413 | + | |:: move $axis :make move: $x $y :player actor: $actor $_x $_y| | |
| 324 | 414 | :player actor: $actor $x $y | |
| 415 | + | |:: move $axis| | |
| 416 | + | ||
| 417 | + | |:: clear touching :player touching: $not-this| | |
| 418 | + | |:: clear touching| | |
| 325 | 419 | ||
| 326 | - | |:: check for solid $x $y :solids: $what $x $y?| | |
| 327 | - | :: rollback solids :a solid at: $x $y | |
| 420 | + | |:: check for solid $x $y :solids: $what $x $y? :make move: $x $y| | |
| 421 | + | :: rollback solids | |
| 328 | 422 | |:: check for solid $x $y :no more solids:| | |
| 329 | - | :: rollback solids :a nonsolid at: $x $y | |
| 423 | + | :: rollback solids | |
| 330 | 424 | |:: check for solid $x $y?| | |
| 331 | - | :: next solid | |
| 425 | + | :: next solid | |
| 426 | + | ||
| 427 | + | |:: check for actor $x $y :actors: $what $x $y?| | |
| 428 | + | :: rollback actors | |
| 429 | + | :: touched $what | |
| 430 | + | :player touching: $what | |
| 431 | + | |:: check for actor $x $y :no more actors:| | |
| 432 | + | :: rollback actors | |
| 433 | + | |:: check for actor $x $y?| | |
| 434 | + | :: next actor | |
nova.py(dosya oluşturuldu)
| @@ -0,0 +1,1005 @@ | |||
| 1 | + | #!/usr/bin/env python3 | |
| 2 | + | ||
| 3 | + | import sys, time, random, copy | |
| 4 | + | ||
| 5 | + | try: | |
| 6 | + | import warnings | |
| 7 | + | warnings.filterwarnings("ignore") | |
| 8 | + | from os import environ | |
| 9 | + | environ['PYGAME_HIDE_SUPPORT_PROMPT'] = '1' | |
| 10 | + | import pygame | |
| 11 | + | import pygame.midi | |
| 12 | + | pygame_supported = True | |
| 13 | + | except: | |
| 14 | + | pygame_supported = False | |
| 15 | + | pass | |
| 16 | + | ||
| 17 | + | try: | |
| 18 | + | import nfc, ndef, zlib, base64 | |
| 19 | + | from nfc.clf import RemoteTarget | |
| 20 | + | nfc_supported = True | |
| 21 | + | except: | |
| 22 | + | nfc_supported = False | |
| 23 | + | pass | |
| 24 | + | ||
| 25 | + | def parse_container(string): | |
| 26 | + | left = [] | |
| 27 | + | right = [] | |
| 28 | + | target = left | |
| 29 | + | characters = (character for character in list(string) + [None]) | |
| 30 | + | delimiter = None | |
| 31 | + | for character in characters: | |
| 32 | + | if character in {' ', '\n', '\r', '\t'}: | |
| 33 | + | continue | |
| 34 | + | delimiter = character | |
| 35 | + | break | |
| 36 | + | if delimiter is None: | |
| 37 | + | return None | |
| 38 | + | for character in characters: | |
| 39 | + | if character in {delimiter, None}: | |
| 40 | + | if target is left: | |
| 41 | + | target = right | |
| 42 | + | else: | |
| 43 | + | target = left | |
| 44 | + | yield (left.copy(), right.copy()) | |
| 45 | + | left.clear() | |
| 46 | + | right.clear() | |
| 47 | + | else: | |
| 48 | + | target.append(character) | |
| 49 | + | ||
| 50 | + | def parse_labels(rules): | |
| 51 | + | left = [] | |
| 52 | + | right = [] | |
| 53 | + | pair = ([], []) | |
| 54 | + | target = left | |
| 55 | + | delimiter = None | |
| 56 | + | for condition, result in rules: | |
| 57 | + | for side in (condition, result): | |
| 58 | + | characters = (character for character in side + [None]) | |
| 59 | + | state = "find delimiter" | |
| 60 | + | for character in characters: | |
| 61 | + | if character == None: | |
| 62 | + | label = "".join(pair[0]).strip() | |
| 63 | + | pattern = "".join(pair[1]).strip() | |
| 64 | + | if not(len(label) == 0 and len(pattern) == 0): | |
| 65 | + | target.append((label, pattern)) | |
| 66 | + | pair[0].clear() | |
| 67 | + | pair[1].clear() | |
| 68 | + | break | |
| 69 | + | elif state == "find delimiter": | |
| 70 | + | if character in {' ', '\n', '\r', '\t'}: | |
| 71 | + | continue | |
| 72 | + | delimiter = character | |
| 73 | + | state = "parse label" | |
| 74 | + | elif state == "parse label": | |
| 75 | + | if character == delimiter: | |
| 76 | + | state = "parse pattern" | |
| 77 | + | continue | |
| 78 | + | pair[0].append(character) | |
| 79 | + | elif state == "parse pattern": | |
| 80 | + | if character in {delimiter, None}: | |
| 81 | + | state = "parse label" | |
| 82 | + | label = "".join(pair[0]).strip() | |
| 83 | + | pattern = "".join(pair[1]).strip() | |
| 84 | + | if not(len(label) == 0 and len(pattern) == 0): | |
| 85 | + | target.append((label, pattern)) | |
| 86 | + | pair[0].clear() | |
| 87 | + | pair[1].clear() | |
| 88 | + | continue | |
| 89 | + | pair[1].append(character) | |
| 90 | + | if target is left: | |
| 91 | + | target = right | |
| 92 | + | else: | |
| 93 | + | target = left | |
| 94 | + | yield (left.copy(), right.copy()) | |
| 95 | + | left.clear() | |
| 96 | + | right.clear() | |
| 97 | + | ||
| 98 | + | def parse_patterns(rules): | |
| 99 | + | for condition, result in rules: | |
| 100 | + | left = [] | |
| 101 | + | right = [] | |
| 102 | + | preserves = [] | |
| 103 | + | for label, pattern in condition: | |
| 104 | + | preserve = False | |
| 105 | + | if pattern.endswith('?'): | |
| 106 | + | pattern = pattern[:-1] | |
| 107 | + | preserve = True | |
| 108 | + | if (pattern.startswith('"') or pattern.startswith("'")) and (pattern.endswith('"') or pattern.endswith("'")): | |
| 109 | + | for character in pattern[1:-1]: | |
| 110 | + | left.append((label, [str(ord(character))])) | |
| 111 | + | if preserve: | |
| 112 | + | right.append((label, [str(ord(character))])) | |
| 113 | + | elif pattern.startswith('(') and pattern.endswith(')'): | |
| 114 | + | for token in pattern[1:-1].split(): | |
| 115 | + | left.append((label, [token])) | |
| 116 | + | if preserve: | |
| 117 | + | right.append((label, [token])) | |
| 118 | + | elif pattern.startswith('.'): | |
| 119 | + | for tuple in pattern.split('.'): | |
| 120 | + | tuple = tuple.strip() | |
| 121 | + | if len(tuple) != 0: | |
| 122 | + | left.append((label, tuple.split())) | |
| 123 | + | if preserve: | |
| 124 | + | right.append((label, tuple.split())) | |
| 125 | + | else: | |
| 126 | + | left.append((label, pattern.split())) | |
| 127 | + | if preserve: | |
| 128 | + | preserves.append((label, pattern.split())) | |
| 129 | + | for label, pattern in result: | |
| 130 | + | if (pattern.startswith('"') or pattern.startswith("'")) and (pattern.endswith('"') or pattern.endswith("'")): | |
| 131 | + | for character in pattern[1:-1]: | |
| 132 | + | right.append((label, [str(ord(character))])) | |
| 133 | + | elif pattern.startswith('(') and pattern.endswith(')'): | |
| 134 | + | for token in pattern[1:-1].split(): | |
| 135 | + | right.append((label, [token])) | |
| 136 | + | elif pattern.startswith('.'): | |
| 137 | + | for tuple in pattern.split('.'): | |
| 138 | + | tuple = tuple.strip() | |
| 139 | + | if len(tuple) != 0: | |
| 140 | + | right.append((label, tuple.split())) | |
| 141 | + | else: | |
| 142 | + | right.append((label, pattern.split())) | |
| 143 | + | yield (left.copy(), right.copy() + preserves.copy()) | |
| 144 | + | left.clear() | |
| 145 | + | right.clear() | |
| 146 | + | preserves.clear() | |
| 147 | + | ||
| 148 | + | def parse(string): | |
| 149 | + | return parse_patterns(parse_labels(parse_container(string))) | |
| 150 | + | ||
| 151 | + | def facts(ruleset): | |
| 152 | + | for left, right in ruleset: | |
| 153 | + | if not left: | |
| 154 | + | for element in right: | |
| 155 | + | yield element | |
| 156 | + | ||
| 157 | + | def rules(ruleset): | |
| 158 | + | for left, right in ruleset: | |
| 159 | + | if left: | |
| 160 | + | yield (left, right) | |
| 161 | + | ||
| 162 | + | def match(pattern, knowledge, variables=None): | |
| 163 | + | if variables is None: | |
| 164 | + | variables = {} | |
| 165 | + | label, elements = pattern | |
| 166 | + | if label not in knowledge or not knowledge[label][0]: | |
| 167 | + | return None | |
| 168 | + | if knowledge[label][1] >= len(knowledge[label][0]): | |
| 169 | + | knowledge[label][1] = 0 | |
| 170 | + | return None | |
| 171 | + | top = knowledge[label][0][(-1 - knowledge[label][1])] | |
| 172 | + | len_top = len(top) | |
| 173 | + | if len_top != len(elements): | |
| 174 | + | knowledge[label][1] = 0 | |
| 175 | + | return None | |
| 176 | + | for index in range(len_top): | |
| 177 | + | left = elements[index] | |
| 178 | + | right = top[index] | |
| 179 | + | if left[0] == '$': | |
| 180 | + | variable = left[1:] | |
| 181 | + | if variable not in variables: | |
| 182 | + | variables[variable] = right | |
| 183 | + | elif variables[variable] != right: | |
| 184 | + | knowledge[label][1] = 0 | |
| 185 | + | return None | |
| 186 | + | elif left != right: | |
| 187 | + | knowledge[label][1] = 0 | |
| 188 | + | return None | |
| 189 | + | knowledge[label][1] += 1 | |
| 190 | + | return variables | |
| 191 | + | ||
| 192 | + | def consume(pattern, knowledge): | |
| 193 | + | if type(pattern) == str: | |
| 194 | + | knowledge[pattern][0].pop() | |
| 195 | + | knowledge[pattern][1] = 0 | |
| 196 | + | else: | |
| 197 | + | label, _ = pattern | |
| 198 | + | knowledge[label][0].pop() | |
| 199 | + | knowledge[label][1] = 0 | |
| 200 | + | ||
| 201 | + | def produce(pattern, knowledge, variables=None): | |
| 202 | + | if variables is None: | |
| 203 | + | variables = {} | |
| 204 | + | label, elements = pattern | |
| 205 | + | len_elements = len(elements) | |
| 206 | + | fact = [None] * len_elements | |
| 207 | + | for index in range(len_elements): | |
| 208 | + | element = elements[index] | |
| 209 | + | if element[0] == '$': | |
| 210 | + | variable = element[1:] | |
| 211 | + | if variable in variables: | |
| 212 | + | element = variables[variable] | |
| 213 | + | fact[index] = element | |
| 214 | + | if label not in knowledge: | |
| 215 | + | knowledge[label] = [[], 0] | |
| 216 | + | knowledge[label][0].append(fact) | |
| 217 | + | knowledge[label][1] = 0 | |
| 218 | + | ||
| 219 | + | def reset(pattern, knowledge): | |
| 220 | + | label, _ = pattern | |
| 221 | + | if label in knowledge: | |
| 222 | + | knowledge[label][1] = 0 | |
| 223 | + | ||
| 224 | + | def prepare(ruleset, knowledge=None): | |
| 225 | + | if knowledge == None: | |
| 226 | + | knowledge = {} | |
| 227 | + | for fact in reversed(list(facts(ruleset))): | |
| 228 | + | label, elements = fact | |
| 229 | + | if label not in knowledge: | |
| 230 | + | knowledge[label] = [[], 0] | |
| 231 | + | knowledge[label][0].append(elements) | |
| 232 | + | return knowledge | |
| 233 | + | ||
| 234 | + | def print_knowledge(knowledge, debug=0, maximum=10): | |
| 235 | + | for label, facts in knowledge.items(): | |
| 236 | + | facts = facts[0] | |
| 237 | + | if not facts: | |
| 238 | + | continue | |
| 239 | + | if not label: | |
| 240 | + | label = ":" | |
| 241 | + | print(label + ': ', end="") | |
| 242 | + | if len(facts) >= maximum and debug % 2: | |
| 243 | + | print("...", len(facts), "...") | |
| 244 | + | continue | |
| 245 | + | if facts: | |
| 246 | + | if len(facts[-1]) == 0: | |
| 247 | + | print("<blank>") | |
| 248 | + | else: | |
| 249 | + | print(" ".join(facts[-1])) | |
| 250 | + | for fact in reversed(facts[:-1]): | |
| 251 | + | if len(fact) == 0: | |
| 252 | + | fact = ["<blank>"] | |
| 253 | + | print(' ' * (len(label) + 1), " ".join(fact)) | |
| 254 | + | ||
| 255 | + | def step(ruleset, primitives=[], knowledge=None, snapshots=[], debug=0, trace=False): | |
| 256 | + | variables = {} | |
| 257 | + | steps = 0 | |
| 258 | + | if debug >= 3: | |
| 259 | + | print_knowledge(knowledge, debug) | |
| 260 | + | print("") | |
| 261 | + | matched = False | |
| 262 | + | for primitive in primitives: | |
| 263 | + | steps += 1 | |
| 264 | + | if primitive(ruleset, knowledge, snapshots): | |
| 265 | + | matched = True | |
| 266 | + | break | |
| 267 | + | if matched: | |
| 268 | + | return (True, steps, knowledge) | |
| 269 | + | for left, right in ruleset: | |
| 270 | + | steps += 1 | |
| 271 | + | matched = True | |
| 272 | + | variables.clear() | |
| 273 | + | for pattern in left: | |
| 274 | + | if match(pattern, knowledge, variables) is None: | |
| 275 | + | matched = False | |
| 276 | + | for pattern in left: | |
| 277 | + | reset(pattern, knowledge) | |
| 278 | + | break | |
| 279 | + | if matched: | |
| 280 | + | for pattern in left: | |
| 281 | + | consume(pattern, knowledge) | |
| 282 | + | for pattern in reversed(right): | |
| 283 | + | produce(pattern, knowledge, variables) | |
| 284 | + | break | |
| 285 | + | return (matched, steps, knowledge) | |
| 286 | + | ||
| 287 | + | def run(ruleset, primitives=[], knowledge=None, debug=0, trace=False): | |
| 288 | + | knowledge = prepare(ruleset, knowledge) | |
| 289 | + | ruleset = list(rules(ruleset)) | |
| 290 | + | matched = True | |
| 291 | + | steps = 0 | |
| 292 | + | snapshots = [] | |
| 293 | + | while matched: | |
| 294 | + | matched, completed, knowledge = step(ruleset, primitives, knowledge, snapshots, debug, trace) | |
| 295 | + | steps += completed | |
| 296 | + | if trace: | |
| 297 | + | snapshots.append(copy.deepcopy(knowledge)) | |
| 298 | + | if debug: | |
| 299 | + | print("Took", steps, "steps.") | |
| 300 | + | return (knowledge, snapshots) | |
| 301 | + | ||
| 302 | + | def usage(name): | |
| 303 | + | print(name, ":: a nova interpreter") | |
| 304 | + | print("usage:") | |
| 305 | + | print('\t' + name, "<file> [-d] [-r]") | |
| 306 | + | ||
| 307 | + | def math(ruleset, knowledge, snapshots=[], trace=False): | |
| 308 | + | if (variables := match(("@math", ["$operation", "$x", "$y"]), knowledge)) is not None: | |
| 309 | + | try: | |
| 310 | + | operation = variables["operation"] | |
| 311 | + | x = int(variables["x"]) | |
| 312 | + | y = int(variables["y"]) | |
| 313 | + | if operation == "add": | |
| 314 | + | variables["z"] = str(x + y) | |
| 315 | + | elif operation == "subtract": | |
| 316 | + | variables["z"] = str(x - y) | |
| 317 | + | elif operation == "multiply": | |
| 318 | + | variables["z"] = str(x * y) | |
| 319 | + | elif operation == "divide": | |
| 320 | + | variables["z"] = str(x // y) | |
| 321 | + | elif operation == "modulo": | |
| 322 | + | variables["z"] = str(x % y) | |
| 323 | + | elif operation == "compare": | |
| 324 | + | if x < y: | |
| 325 | + | variables["z"] = "less" | |
| 326 | + | elif x == y: | |
| 327 | + | variables["z"] = "equal" | |
| 328 | + | else: | |
| 329 | + | variables["z"] = "greater" | |
| 330 | + | elif operation == "random": | |
| 331 | + | if y < x: | |
| 332 | + | x, y = y, x | |
| 333 | + | variables["z"] = str(random.randrange(x, y)) | |
| 334 | + | consume("@math", knowledge) | |
| 335 | + | produce(("@math", ["$z"]), knowledge, variables) | |
| 336 | + | return True | |
| 337 | + | except Exception as e: | |
| 338 | + | print(e) | |
| 339 | + | pass | |
| 340 | + | return False | |
| 341 | + | ||
| 342 | + | def arrays(): | |
| 343 | + | arrays = {} | |
| 344 | + | def create(ruleset, knowledge, snapshots=[], trace=False): | |
| 345 | + | nonlocal arrays | |
| 346 | + | if (variables := match(("@array", ["create", "$array", "$size"]), knowledge)) is not None: | |
| 347 | + | try: | |
| 348 | + | array = variables["array"] | |
| 349 | + | size = int(variables["size"]) | |
| 350 | + | consume("@array", knowledge) | |
| 351 | + | if array in arrays: | |
| 352 | + | produce(("@array", ["$array", "exists"]), knowledge, variables) | |
| 353 | + | else: | |
| 354 | + | arrays[array] = [None] * size | |
| 355 | + | return True | |
| 356 | + | except: | |
| 357 | + | pass | |
| 358 | + | return False | |
| 359 | + | def set(ruleset, knowledge, snapshots=[], trace=False): | |
| 360 | + | nonlocal arrays | |
| 361 | + | if (variables := match(("@array", ["set", "$array", "$index", "$value"]), knowledge)) is not None: | |
| 362 | + | try: | |
| 363 | + | array = variables["array"] | |
| 364 | + | index = int(variables["index"]) | |
| 365 | + | value = variables["value"] | |
| 366 | + | consume("@array", knowledge) | |
| 367 | + | if array not in arrays: | |
| 368 | + | produce(("@array", ["$array", "not", "found"]), knowledge, variables) | |
| 369 | + | elif index >= len(arrays[array]): | |
| 370 | + | produce(("@array", ["$index", "out", "of", "bounds", "for", "$array"]), knowledge, variables) | |
| 371 | + | else: | |
| 372 | + | arrays[array][index] = value | |
| 373 | + | return True | |
| 374 | + | except: | |
| 375 | + | pass | |
| 376 | + | return False | |
| 377 | + | def get(ruleset, knowledge, snapshots=[], trace=False): | |
| 378 | + | nonlocal arrays | |
| 379 | + | if (variables := match(("@array", ["get", "$array", "$index"]), knowledge)) is not None: | |
| 380 | + | try: | |
| 381 | + | array = variables["array"] | |
| 382 | + | index = int(variables["index"]) | |
| 383 | + | consume("@array", knowledge) | |
| 384 | + | if array not in arrays: | |
| 385 | + | produce(("@array", ["$array", "not", "found"]), knowledge, variables) | |
| 386 | + | elif index >= len(arrays[array]): | |
| 387 | + | produce(("@array", ["$index", "out", "of", "bounds", "for", "$array"]), knowledge, variables) | |
| 388 | + | else: | |
| 389 | + | if arrays[array][index] == None: | |
| 390 | + | produce(("@array", ["$array", "$index"]), knowledge, variables) | |
| 391 | + | else: | |
| 392 | + | variables["value"] = str(arrays[array][index]) | |
| 393 | + | produce(("@array", ["$array", "$index", "$value"]), knowledge, variables) | |
| 394 | + | return True | |
| 395 | + | except: | |
| 396 | + | pass | |
| 397 | + | return False | |
| 398 | + | return [ | |
| 399 | + | create, | |
| 400 | + | set, | |
| 401 | + | get | |
| 402 | + | ] | |
| 403 | + | ||
| 404 | + | def graphics(): | |
| 405 | + | keys = {} | |
| 406 | + | mouse_buttons = {} | |
| 407 | + | screen = None | |
| 408 | + | pixels = None | |
| 409 | + | clock = None | |
| 410 | + | font = None | |
| 411 | + | resolution = (0, 0) | |
| 412 | + | def poll_input(ruleset, knowledge, snapshots=[]): | |
| 413 | + | nonlocal keys | |
| 414 | + | nonlocal mouse_buttons | |
| 415 | + | if match(("@input", ["poll-input"]), knowledge) is not None: | |
| 416 | + | consume("@input", knowledge) | |
| 417 | + | for event in pygame.event.get(): | |
| 418 | + | if event.type == pygame.QUIT: | |
| 419 | + | produce(("@signal", ["quit"]), knowledge) | |
| 420 | + | keys = pygame.key.get_pressed() | |
| 421 | + | mouse_buttons = pygame.mouse.get_pressed() | |
| 422 | + | return True | |
| 423 | + | return False | |
| 424 | + | def check_key(ruleset, knowledge, snapshots=[]): | |
| 425 | + | nonlocal keys | |
| 426 | + | if (variables := match(("@input", ["check-key", "$key"]), knowledge)) is not None: | |
| 427 | + | consume("@input", knowledge) | |
| 428 | + | keycode = pygame.key.key_code(variables["key"]) | |
| 429 | + | if keys[keycode]: | |
| 430 | + | produce(("@input", ["key-pressed", "$key"]), knowledge, variables) | |
| 431 | + | else: | |
| 432 | + | produce(("@input", ["key-released", "$key"]), knowledge, variables) | |
| 433 | + | return True | |
| 434 | + | return False | |
| 435 | + | def check_mouse_button(ruleset, knowledge, snapshots=[]): | |
| 436 | + | nonlocal mouse_buttons | |
| 437 | + | if (variables := match(("@input", ["check-mouse-button", "$button"]), knowledge)) is not None: | |
| 438 | + | consume("@input", knowledge) | |
| 439 | + | button = int(variables["button"]) | |
| 440 | + | if mouse_buttons[button]: | |
| 441 | + | produce(("@input", ["mouse-button-pressed", "$button"]), knowledge, variables) | |
| 442 | + | else: | |
| 443 | + | produce(("@input", ["mouse-button-released", "$button"]), knowledge, variables) | |
| 444 | + | return True | |
| 445 | + | return False | |
| 446 | + | def get_mouse_position(ruleset, knowledge, snapshots=[]): | |
| 447 | + | if (variables := match(("@input", ["get-mouse-position"]), knowledge)) is not None: | |
| 448 | + | consume("@input", knowledge) | |
| 449 | + | position = pygame.mouse.get_pos() | |
| 450 | + | variables["x"], variables["y"] = (str(position[0]), str(position[1])) | |
| 451 | + | produce(("@input", ["mouse-position", "$x", "$y"]), knowledge, variables) | |
| 452 | + | return True | |
| 453 | + | return False | |
| 454 | + | def set_pixel(ruleset, knowledge, snapshots=[]): | |
| 455 | + | nonlocal pixels | |
| 456 | + | if (variables := match(("@graphics", ["set-pixel", "$x", "$y", "$r", "$g", "$b"]), knowledge)) is not None: | |
| 457 | + | try: | |
| 458 | + | x = int(variables["x"]) | |
| 459 | + | y = int(variables["y"]) | |
| 460 | + | r = int(variables["r"]) | |
| 461 | + | g = int(variables["g"]) | |
| 462 | + | b = int(variables["b"]) | |
| 463 | + | pixels[x % resolution[0], y % resolution[1]] = (r % 256, g % 256, b % 256) | |
| 464 | + | consume("@graphics", knowledge) | |
| 465 | + | return True | |
| 466 | + | except: | |
| 467 | + | pass | |
| 468 | + | return False | |
| 469 | + | def draw_line(ruleset, knowledge, snapshots=[]): | |
| 470 | + | nonlocal screen | |
| 471 | + | if (variables := match(("@graphics", ["draw-line", "$x1", "$y1", "$x2", "$y2", "$r", "$g", "$b", "$w"]), knowledge)) is not None: | |
| 472 | + | try: | |
| 473 | + | x1 = int(variables["x1"]) | |
| 474 | + | y1 = int(variables["y1"]) | |
| 475 | + | x2 = int(variables["x2"]) | |
| 476 | + | y2 = int(variables["y2"]) | |
| 477 | + | r = int(variables["r"]) | |
| 478 | + | g = int(variables["g"]) | |
| 479 | + | b = int(variables["b"]) | |
| 480 | + | w = int(variables["w"]) | |
| 481 | + | pygame.draw.line(screen, (r % 256, g % 256, b % 256), (x1, y1), (x2, y2), w) | |
| 482 | + | consume("@graphics", knowledge) | |
| 483 | + | return True | |
| 484 | + | except: | |
| 485 | + | pass | |
| 486 | + | return False | |
| 487 | + | def draw_rect(ruleset, knowledge, snapshots=[]): | |
| 488 | + | nonlocal screen | |
| 489 | + | if (variables := match(("@graphics", ["draw-rect", "$x1", "$y1", "$x2", "$y2", "$r", "$g", "$b", "$w"]), knowledge)) is not None: | |
| 490 | + | try: | |
| 491 | + | x1 = int(variables["x1"]) | |
| 492 | + | y1 = int(variables["y1"]) | |
| 493 | + | x2 = int(variables["x2"]) | |
| 494 | + | y2 = int(variables["y2"]) | |
| 495 | + | r = int(variables["r"]) | |
| 496 | + | g = int(variables["g"]) | |
| 497 | + | b = int(variables["b"]) | |
| 498 | + | w = int(variables["w"]) | |
| 499 | + | pygame.draw.rect(screen, (r % 256, g % 256, b % 256), (x1, y1, x2, y2), w) | |
| 500 | + | consume("@graphics", knowledge) | |
| 501 | + | return True | |
| 502 | + | except: | |
| 503 | + | pass | |
| 504 | + | return False | |
| 505 | + | def draw_circle(ruleset, knowledge, snapshots=[]): | |
| 506 | + | nonlocal screen | |
| 507 | + | if (variables := match(("@graphics", ["draw-circle", "$x", "$y", "$d", "$r", "$g", "$b", "$w"]), knowledge)) is not None: | |
| 508 | + | try: | |
| 509 | + | x = int(variables["x"]) | |
| 510 | + | y = int(variables["y"]) | |
| 511 | + | d = int(variables["d"]) | |
| 512 | + | r = int(variables["r"]) | |
| 513 | + | g = int(variables["g"]) | |
| 514 | + | b = int(variables["b"]) | |
| 515 | + | w = int(variables["w"]) | |
| 516 | + | pygame.draw.circle(screen, (r % 256, g % 256, b % 256), (x, y), d, w) | |
| 517 | + | consume("@graphics", knowledge) | |
| 518 | + | return True | |
| 519 | + | except: | |
| 520 | + | pass | |
| 521 | + | return False | |
| 522 | + | def clear_screen(ruleset, knowledge, snapshots=[]): | |
| 523 | + | nonlocal screen | |
| 524 | + | if (variables := match(("@graphics", ["clear-screen", "$r", "$g", "$b"]), knowledge)) is not None: | |
| 525 | + | try: | |
| 526 | + | r = int(variables["r"]) | |
| 527 | + | g = int(variables["g"]) | |
| 528 | + | b = int(variables["b"]) | |
| 529 | + | screen.fill((r % 256, g % 256, b % 256)) | |
| 530 | + | consume("@graphics", knowledge) | |
| 531 | + | return True | |
| 532 | + | except: | |
| 533 | + | pass | |
| 534 | + | return False | |
| 535 | + | def draw_fps(ruleset, knowledge, snapshots=[]): | |
| 536 | + | nonlocal pixels | |
| 537 | + | nonlocal screen | |
| 538 | + | nonlocal clock | |
| 539 | + | nonlocal font | |
| 540 | + | if match(("@graphics", ["draw-fps"]), knowledge) is not None: | |
| 541 | + | if clock is None: | |
| 542 | + | clock = pygame.time.Clock() | |
| 543 | + | clock.tick() | |
| 544 | + | if font is None: | |
| 545 | + | font = pygame.font.SysFont("m3x6", 16) | |
| 546 | + | framerate = clock.get_fps() | |
| 547 | + | if framerate <= 1_000_000: | |
| 548 | + | fps = font.render(str(int(clock.get_fps())) , 1, pygame.Color("RED")) | |
| 549 | + | pixels.close() | |
| 550 | + | screen.blit(fps, (0, 0)) | |
| 551 | + | pixels = pygame.PixelArray(screen) | |
| 552 | + | consume("@graphics", knowledge) | |
| 553 | + | return True | |
| 554 | + | return False | |
| 555 | + | def display(ruleset, knowledge, snapshots=[]): | |
| 556 | + | nonlocal pixels | |
| 557 | + | if match(("@graphics", ["display"]), knowledge) is not None: | |
| 558 | + | pixels.close() | |
| 559 | + | pygame.display.flip() | |
| 560 | + | pixels = pygame.PixelArray(screen) | |
| 561 | + | consume("@graphics", knowledge) | |
| 562 | + | return True | |
| 563 | + | return False | |
| 564 | + | def draw_text(ruleset, knowledge, snapshots=[]): | |
| 565 | + | nonlocal font | |
| 566 | + | nonlocal screen | |
| 567 | + | nonlocal pixels | |
| 568 | + | if (variables := match(("@graphics", ["draw-text", "$x", "$y"]), knowledge)) is not None: | |
| 569 | + | x = int(variables["x"]) | |
| 570 | + | y = int(variables["y"]) | |
| 571 | + | if font is None: | |
| 572 | + | font = pygame.font.SysFont("m3x6", 16) | |
| 573 | + | text = ''.join(chr(int(n[0])) for n in reversed(knowledge["@text to draw"][0])) | |
| 574 | + | knowledge["@text to draw"] = [[], 0] | |
| 575 | + | drawn_text = font.render(text, False, pygame.Color("WHITE")) | |
| 576 | + | pixels.close() | |
| 577 | + | pygame.draw.rect(screen, (0, 0, 0), (0, 48, 64, 64)) | |
| 578 | + | screen.blit(drawn_text, (x, y)) | |
| 579 | + | pixels = pygame.PixelArray(screen) | |
| 580 | + | consume("@graphics", knowledge) | |
| 581 | + | return True | |
| 582 | + | return False | |
| 583 | + | ||
| 584 | + | ||
| 585 | + | def set_resolution(ruleset, knowledge, snapshots=[]): | |
| 586 | + | nonlocal screen | |
| 587 | + | nonlocal pixels | |
| 588 | + | nonlocal resolution | |
| 589 | + | if (variables := match(("@graphics", ["set-resolution", "$x", "$y"]), knowledge)) is not None: | |
| 590 | + | try: | |
| 591 | + | if screen is None: | |
| 592 | + | pygame.init() | |
| 593 | + | x = int(variables["x"]) | |
| 594 | + | y = int(variables["y"]) | |
| 595 | + | screen = pygame.display.set_mode((x, y)) | |
| 596 | + | pygame.display.set_caption("Nova") | |
| 597 | + | icon = pygame.Surface((32, 32)) | |
| 598 | + | icon.fill("black") | |
| 599 | + | icon.set_colorkey((0, 0, 0)) | |
| 600 | + | pygame.display.set_icon(icon) | |
| 601 | + | pixels = pygame.PixelArray(screen) | |
| 602 | + | resolution = (x, y) | |
| 603 | + | consume("@graphics", knowledge) | |
| 604 | + | return True | |
| 605 | + | except: | |
| 606 | + | pass | |
| 607 | + | elif (variables := match(("@graphics", ["set-resolution", "fullscreen", "$x", "$y"]), knowledge)) is not None: | |
| 608 | + | try: | |
| 609 | + | if screen is None: | |
| 610 | + | pygame.init() | |
| 611 | + | x = int(variables["x"]) | |
| 612 | + | y = int(variables["y"]) | |
| 613 | + | screen = pygame.display.set_mode((x, y), flags=pygame.FULLSCREEN | pygame.SCALED) | |
| 614 | + | pygame.display.set_caption("Nova") | |
| 615 | + | icon = pygame.Surface((32, 32)) | |
| 616 | + | icon.fill("black") | |
| 617 | + | icon.set_colorkey((0, 0, 0)) | |
| 618 | + | pygame.display.set_icon(icon) | |
| 619 | + | pixels = pygame.PixelArray(screen) | |
| 620 | + | resolution = (x, y) | |
| 621 | + | consume("@graphics", knowledge) | |
| 622 | + | return True | |
| 623 | + | except: | |
| 624 | + | pass | |
| 625 | + | elif (variables := match(("@graphics", ["set-resolution", "fullscreen"]), knowledge)) is not None: | |
| 626 | + | try: | |
| 627 | + | if screen is None: | |
| 628 | + | pygame.init() | |
| 629 | + | screen = pygame.display.set_mode((0, 0), flags=pygame.FULLSCREEN) | |
| 630 | + | pygame.display.set_caption("Nova") | |
| 631 | + | icon = pygame.Surface((32, 32)) | |
| 632 | + | icon.fill("black") | |
| 633 | + | icon.set_colorkey((0, 0, 0)) | |
| 634 | + | pygame.display.set_icon(icon) | |
| 635 | + | pixels = pygame.PixelArray(screen) | |
| 636 | + | resolution = pygame.display.get_surface().get_size() | |
| 637 | + | consume("@graphics", knowledge) | |
| 638 | + | return True | |
| 639 | + | except: | |
| 640 | + | pass | |
| 641 | + | return False | |
| 642 | + | return [ | |
| 643 | + | set_pixel, | |
| 644 | + | draw_line, | |
| 645 | + | draw_rect, | |
| 646 | + | draw_circle, | |
| 647 | + | draw_text, | |
| 648 | + | display, | |
| 649 | + | poll_input, | |
| 650 | + | draw_fps, | |
| 651 | + | clear_screen, | |
| 652 | + | check_key, | |
| 653 | + | check_mouse_button, | |
| 654 | + | get_mouse_position, | |
| 655 | + | set_resolution | |
| 656 | + | ] | |
| 657 | + | ||
| 658 | + | def midi(): | |
| 659 | + | output = None | |
| 660 | + | def set_output(ruleset, knowledge, snapshots=[]): | |
| 661 | + | nonlocal output | |
| 662 | + | if (variables := match(("@midi", ["set-output", "$x"]), knowledge)) is not None: | |
| 663 | + | try: | |
| 664 | + | if output is None: | |
| 665 | + | pygame.midi.init() | |
| 666 | + | else: | |
| 667 | + | del output | |
| 668 | + | output = pygame.midi.Output(int(variables["x"])) | |
| 669 | + | consume("@midi", knowledge) | |
| 670 | + | return True | |
| 671 | + | except: | |
| 672 | + | pass | |
| 673 | + | return False | |
| 674 | + | def abort(ruleset, knowledge, snapshots=[]): | |
| 675 | + | nonlocal output | |
| 676 | + | if (variables := match(("@midi", ["abort"]), knowledge)) is not None: | |
| 677 | + | try: | |
| 678 | + | output.abort() | |
| 679 | + | consume("@midi", knowledge) | |
| 680 | + | return True | |
| 681 | + | except: | |
| 682 | + | pass | |
| 683 | + | return False | |
| 684 | + | def set_instrument(ruleset, knowledge, snapshots=[]): | |
| 685 | + | nonlocal output | |
| 686 | + | if (variables := match(("@midi", ["set-instrument", "$x"]), knowledge)) is not None: | |
| 687 | + | try: | |
| 688 | + | output.set_instrument(int(variables["x"])) | |
| 689 | + | consume("@midi", knowledge) | |
| 690 | + | return True | |
| 691 | + | except: | |
| 692 | + | pass | |
| 693 | + | return False | |
| 694 | + | def note(ruleset, knowledge, snapshots=[]): | |
| 695 | + | nonlocal output | |
| 696 | + | if (variables := match(("@midi", ["note", "$x", "$y", "$z", "$w"]), knowledge)) is not None: | |
| 697 | + | try: | |
| 698 | + | state = variables["x"] | |
| 699 | + | note = int(variables["y"]) | |
| 700 | + | velocity = int(variables["z"]) | |
| 701 | + | channel = int(variables["w"]) | |
| 702 | + | if state == "on": | |
| 703 | + | output.note_on(note, velocity, channel) | |
| 704 | + | elif state == "off": | |
| 705 | + | output.note_off(note, velocity, channel) | |
| 706 | + | else: | |
| 707 | + | return False | |
| 708 | + | consume("@midi", knowledge) | |
| 709 | + | return True | |
| 710 | + | except: | |
| 711 | + | pass | |
| 712 | + | elif (variables := match(("@midi", ["note", "$x", "$y", "$z"]), knowledge)) is not None: | |
| 713 | + | try: | |
| 714 | + | state = variables["x"] | |
| 715 | + | note = int(variables["y"]) | |
| 716 | + | velocity = int(variables["z"]) | |
| 717 | + | if state == "on": | |
| 718 | + | output.note_on(note, velocity) | |
| 719 | + | elif state == "off": | |
| 720 | + | output.note_off(note, velocity) | |
| 721 | + | else: | |
| 722 | + | return False | |
| 723 | + | consume("@midi", knowledge) | |
| 724 | + | return True | |
| 725 | + | except: | |
| 726 | + | pass | |
| 727 | + | return False | |
| 728 | + | return [ | |
| 729 | + | set_output, | |
| 730 | + | abort, | |
| 731 | + | set_instrument, | |
| 732 | + | note | |
| 733 | + | ] | |
| 734 | + | ||
| 735 | + | def _time(): | |
| 736 | + | def sleep(ruleset, knowledge, snapshots=[]): | |
| 737 | + | if (variables := match(("@time", ["sleep", "$x", "$y"]), knowledge)) is not None: | |
| 738 | + | try: | |
| 739 | + | duration = int(variables["x"]) | |
| 740 | + | unit = variables["y"] | |
| 741 | + | if unit == "seconds": | |
| 742 | + | time.sleep(duration) | |
| 743 | + | elif unit == "milliseconds": | |
| 744 | + | time.sleep(0.001 * duration) | |
| 745 | + | else: | |
| 746 | + | return False | |
| 747 | + | consume("@time", knowledge) | |
| 748 | + | return True | |
| 749 | + | except: | |
| 750 | + | pass | |
| 751 | + | return False | |
| 752 | + | return [ | |
| 753 | + | sleep | |
| 754 | + | ] | |
| 755 | + | ||
| 756 | + | def stdio(): | |
| 757 | + | def read(ruleset, knowledge, snapshots=[]): | |
| 758 | + | if (variables := match(("@stdio", ["read", "$x"]), knowledge)) is not None: | |
| 759 | + | try: | |
| 760 | + | amount = int(variables["x"]) | |
| 761 | + | bytes = sys.stdin.read(amount) | |
| 762 | + | consume("@stdio", knowledge) | |
| 763 | + | for byte in reversed(bytes.encode()): | |
| 764 | + | variables["x"] = str(byte) | |
| 765 | + | produce(("@stdio", ["$x"]), knowledge, variables) | |
| 766 | + | return True | |
| 767 | + | except KeyboardInterrupt: | |
| 768 | + | consume("@stdio", knowledge) | |
| 769 | + | return True | |
| 770 | + | except: | |
| 771 | + | pass | |
| 772 | + | elif (variables := match(("@stdio", ["read"]), knowledge)) is not None: | |
| 773 | + | try: | |
| 774 | + | variables["x"] = str(ord(sys.stdin.read(1))) | |
| 775 | + | consume("@stdio", knowledge) | |
| 776 | + | produce(("@stdio", ["$x"]), knowledge, variables) | |
| 777 | + | return True | |
| 778 | + | except KeyboardInterrupt: | |
| 779 | + | consume("@stdio", knowledge) | |
| 780 | + | return True | |
| 781 | + | except: | |
| 782 | + | pass | |
| 783 | + | return False | |
| 784 | + | def write(ruleset, knowledge, snapshots=[]): | |
| 785 | + | if (variables := match(("@stdio", ["write", "$x", "$y"]), knowledge)) is not None: | |
| 786 | + | try: | |
| 787 | + | byte = int(variables["x"]) | |
| 788 | + | length = int(variables["y"]) | |
| 789 | + | if byte < 0: | |
| 790 | + | sys.stdout.buffer.write(byte.to_bytes(length, signed=True)) | |
| 791 | + | else: | |
| 792 | + | sys.stdout.buffer.write(byte.to_bytes(length)) | |
| 793 | + | sys.stdout.buffer.flush() | |
| 794 | + | consume("@stdio", knowledge) | |
| 795 | + | variables["x"] = str(length) | |
| 796 | + | produce(("@stdio", ["wrote", "$x"]), knowledge, variables) | |
| 797 | + | return True | |
| 798 | + | except OverflowError: | |
| 799 | + | length = (byte.bit_length() + 7) // 8 | |
| 800 | + | if length == 0: | |
| 801 | + | length = 1 | |
| 802 | + | if byte < 0: | |
| 803 | + | sys.stdout.buffer.write(byte.to_bytes(length, signed=True)) | |
| 804 | + | else: | |
| 805 | + | sys.stdout.buffer.write(byte.to_bytes(length)) | |
| 806 | + | sys.stdout.buffer.flush() | |
| 807 | + | consume("@stdio", knowledge) | |
| 808 | + | variables["x"] = str(length) | |
| 809 | + | produce(("@stdio", ["wrote", "$x"]), knowledge, variables) | |
| 810 | + | return True | |
| 811 | + | except: | |
| 812 | + | pass | |
| 813 | + | elif (variables := match(("@stdio", ["write", "$x"]), knowledge)) is not None: | |
| 814 | + | try: | |
| 815 | + | byte = int(variables["x"]) | |
| 816 | + | length = (byte.bit_length() + 7) // 8 | |
| 817 | + | if length == 0: | |
| 818 | + | length = 1 | |
| 819 | + | if byte < 0: | |
| 820 | + | sys.stdout.buffer.write(byte.to_bytes(length, signed=True)) | |
| 821 | + | else: | |
| 822 | + | sys.stdout.buffer.write(byte.to_bytes(length)) | |
| 823 | + | sys.stdout.buffer.flush() | |
| 824 | + | consume("@stdio", knowledge) | |
| 825 | + | variables["x"] = str(length) | |
| 826 | + | produce(("@stdio", ["wrote", "$x"]), knowledge, variables) | |
| 827 | + | return True | |
| 828 | + | except: | |
| 829 | + | pass | |
| 830 | + | return False | |
| 831 | + | return [ | |
| 832 | + | read, write | |
| 833 | + | ] | |
| 834 | + | ||
| 835 | + | def _nfc(): | |
| 836 | + | clf = None | |
| 837 | + | last_card = None | |
| 838 | + | def nfc_read_card(): | |
| 839 | + | nonlocal clf | |
| 840 | + | payload = [] | |
| 841 | + | identifier = None | |
| 842 | + | card_types = [RemoteTarget('106A'), RemoteTarget('106B'), RemoteTarget('212F')] | |
| 843 | + | target = clf.sense(*card_types) | |
| 844 | + | if target is not None: | |
| 845 | + | tag = nfc.tag.activate(clf, target) | |
| 846 | + | if tag is not None and tag.ndef is not None: | |
| 847 | + | for record in tag.ndef.records: | |
| 848 | + | text = zlib.decompress(base64.b64decode(record.text)).decode() | |
| 849 | + | payload += list(parse(text)) | |
| 850 | + | identifier = tag.identifier | |
| 851 | + | return (payload, identifier) | |
| 852 | + | def open(ruleset, knowledge, snapshots=[]): | |
| 853 | + | nonlocal clf | |
| 854 | + | if (variables := match(("@nfc", ["open"]), knowledge)) is not None: | |
| 855 | + | try: | |
| 856 | + | consume("@nfc", knowledge) | |
| 857 | + | clf = nfc.ContactlessFrontend('usb') | |
| 858 | + | return True | |
| 859 | + | except: | |
| 860 | + | produce(("@nfc", ["no-device"]), knowledge) | |
| 861 | + | return True | |
| 862 | + | return False | |
| 863 | + | def close(ruleset, knowledge, snapshots=[]): | |
| 864 | + | nonlocal clf | |
| 865 | + | if (variables := match(("@nfc", ["close"]), knowledge)) is not None: | |
| 866 | + | try: | |
| 867 | + | consume("@nfc", knowledge) | |
| 868 | + | clf.close() | |
| 869 | + | return True | |
| 870 | + | except: | |
| 871 | + | produce(("@nfc", ["no-device"]), knowledge) | |
| 872 | + | return True | |
| 873 | + | return False | |
| 874 | + | def read_card(ruleset, knowledge, snapshots=[]): | |
| 875 | + | nonlocal last_card | |
| 876 | + | if (variables := match(("@nfc", ["read-card"]), knowledge)) is not None: | |
| 877 | + | try: | |
| 878 | + | consume("@nfc", knowledge) | |
| 879 | + | (payload, identifier) = nfc_read_card() | |
| 880 | + | variables["x"] = "".join([hex(byte)[2:] for byte in identifier]) | |
| 881 | + | last_card = payload | |
| 882 | + | produce(("@nfc", ["card", "$x"]), knowledge, variables) | |
| 883 | + | return True | |
| 884 | + | except: | |
| 885 | + | produce(("@nfc", ["read-failed"]), knowledge) | |
| 886 | + | return True | |
| 887 | + | return False | |
| 888 | + | def load_card_rules(ruleset, knowledge, snapshots=[]): | |
| 889 | + | nonlocal last_card | |
| 890 | + | if (variables := match(("@nfc", ["load-rules"]), knowledge)) is not None: | |
| 891 | + | try: | |
| 892 | + | for rule in rules(reversed(last_card)): | |
| 893 | + | ruleset.insert(0, rule) | |
| 894 | + | consume("@nfc", knowledge) | |
| 895 | + | return True | |
| 896 | + | except: | |
| 897 | + | pass | |
| 898 | + | return False | |
| 899 | + | def load_card_facts(ruleset, knowledge, snapshots=[]): | |
| 900 | + | if (variables := match(("@nfc", ["load-facts"]), knowledge)) is not None: | |
| 901 | + | try: | |
| 902 | + | prepare(last_card, knowledge) | |
| 903 | + | consume("@nfc", knowledge) | |
| 904 | + | return True | |
| 905 | + | except: | |
| 906 | + | pass | |
| 907 | + | return False | |
| 908 | + | return [ | |
| 909 | + | open, | |
| 910 | + | close, | |
| 911 | + | read_card, | |
| 912 | + | load_card_rules, | |
| 913 | + | load_card_facts | |
| 914 | + | ] | |
| 915 | + | ||
| 916 | + | def repl(rulesets, primitives, debug): | |
| 917 | + | try: | |
| 918 | + | knowledge, _ = run(rulesets) | |
| 919 | + | print_knowledge(knowledge, debug) | |
| 920 | + | current_stack = "" | |
| 921 | + | command = input("::> ") | |
| 922 | + | while command != "@quit": | |
| 923 | + | if command in {"@run", '!'}: | |
| 924 | + | knowledge, _ = run(rulesets, primitives, knowledge) | |
| 925 | + | if debug: | |
| 926 | + | print_knowledge(knowledge, debug) | |
| 927 | + | if match(("@signal", ["quit"]), knowledge) != None: | |
| 928 | + | break | |
| 929 | + | elif command.startswith('@'): | |
| 930 | + | current_stack = command[1:] | |
| 931 | + | elif command.startswith('.'): | |
| 932 | + | command = command[1:] | |
| 933 | + | knowledge, _ = run(list(parse(command)) + list(rules(rulesets)), primitives, knowledge, debug) | |
| 934 | + | if debug: | |
| 935 | + | print_knowledge(knowledge, debug) | |
| 936 | + | if match(("@signal", ["quit"]), knowledge) != None: | |
| 937 | + | break | |
| 938 | + | elif command.startswith(':'): | |
| 939 | + | command = command[1:] | |
| 940 | + | rulesets = list(parse(command)) + rulesets | |
| 941 | + | knowledge, _ = run(rulesets, primitives, knowledge, debug) | |
| 942 | + | if debug: | |
| 943 | + | print_knowledge(knowledge, debug) | |
| 944 | + | if match(("@signal", ["quit"]), knowledge) != None: | |
| 945 | + | break | |
| 946 | + | elif len(command) != 0: | |
| 947 | + | command = "||:" + current_stack + ':' + command | |
| 948 | + | knowledge, _ = run(list(parse(command)) + list(rules(rulesets)), primitives, knowledge, debug) | |
| 949 | + | if debug: | |
| 950 | + | print_knowledge(knowledge, debug) | |
| 951 | + | if match(("@signal", ["quit"]), knowledge) != None: | |
| 952 | + | break | |
| 953 | + | else: | |
| 954 | + | if debug: | |
| 955 | + | print_knowledge(knowledge, debug) | |
| 956 | + | command = input(":" + current_stack + ":> ") | |
| 957 | + | except EOFError: | |
| 958 | + | pass | |
| 959 | + | except KeyboardInterrupt: | |
| 960 | + | pass | |
| 961 | + | ||
| 962 | + | def main(name, arguments): | |
| 963 | + | primitives = _time() + [math] + arrays() + stdio() | |
| 964 | + | if pygame_supported: | |
| 965 | + | primitives += graphics() + midi() | |
| 966 | + | if nfc_supported: | |
| 967 | + | primitives += _nfc() | |
| 968 | + | rulesets = [] | |
| 969 | + | debug = 0 | |
| 970 | + | prompt = False | |
| 971 | + | trace = False | |
| 972 | + | if not arguments: | |
| 973 | + | usage(name) | |
| 974 | + | return | |
| 975 | + | for argument in arguments: | |
| 976 | + | if argument == '-d': | |
| 977 | + | debug += 1 | |
| 978 | + | elif argument == '-r': | |
| 979 | + | prompt = True | |
| 980 | + | elif argument == '-t': | |
| 981 | + | trace = True | |
| 982 | + | else: | |
| 983 | + | with open(argument) as file: | |
| 984 | + | rulesets += list(parse(file.read())) | |
| 985 | + | if prompt: | |
| 986 | + | repl(rulesets, primitives, debug) | |
| 987 | + | else: | |
| 988 | + | if len(rulesets) == 0: | |
| 989 | + | usage(name) | |
| 990 | + | return | |
| 991 | + | if debug: | |
| 992 | + | knowledge, snapshots = run(rulesets, primitives, None, debug, trace) | |
| 993 | + | if trace: | |
| 994 | + | for index in range(len(snapshots)): | |
| 995 | + | print("Snapshot", str(index) + ':') | |
| 996 | + | print("----------------") | |
| 997 | + | print_knowledge(snapshots[index], debug) | |
| 998 | + | print("") | |
| 999 | + | else: | |
| 1000 | + | print_knowledge(knowledge, debug) | |
| 1001 | + | else: | |
| 1002 | + | run(rulesets, primitives, None, debug, trace) | |
| 1003 | + | ||
| 1004 | + | if __name__ == "__main__": | |
| 1005 | + | main(sys.argv[0], sys.argv[1:]) | |
capitalex bu gisti düzenledi . Düzenlemeye git
1 file changed, 279 insertions, 83 deletions
bitsy.nv
| @@ -1,28 +1,248 @@ | |||
| 1 | - | |:break: :break:| :: break | |
| 1 | + | |:: get color for .| | |
| 2 | + | :color: 51 68 85 | |
| 3 | + | |:: get color for #| | |
| 4 | + | :color: 255 187 51 | |
| 5 | + | ||
| 6 | + | |:: get sprite 1 for .| | |
| 7 | + | :sprite data: ( | |
| 8 | + | . . . . . . . . | |
| 9 | + | . . . . . . . . | |
| 10 | + | . . . . . . . . | |
| 11 | + | . . . . . . . . | |
| 12 | + | . . . . . . . . | |
| 13 | + | . . . . . . . . | |
| 14 | + | . . . . . . . . | |
| 15 | + | . . . . . . . . | |
| 16 | + | ) | |
| 17 | + | ||
| 18 | + | |:: get sprite 1 for p| | |
| 19 | + | :sprite data: ( | |
| 20 | + | . # . # # # # . | |
| 21 | + | . # # # # # . . | |
| 22 | + | . . . . . . . . | |
| 23 | + | . . # # # # . . | |
| 24 | + | . # . # # . # . | |
| 25 | + | . . # . . # . . | |
| 26 | + | . . # . . # . . | |
| 27 | + | . . # . . # . . | |
| 28 | + | ) | |
| 29 | + | ||
| 30 | + | || :set player actor: p | |
| 31 | + | |:: is p actor| :actor: p yes | |
| 32 | + | |:: get sprite 2 for p| | |
| 33 | + | :sprite data: ( | |
| 34 | + | # . # # # # . . | |
| 35 | + | # # # # # . . . | |
| 36 | + | . . . . . . . . | |
| 37 | + | . . # # # # . . | |
| 38 | + | . # . # # . # . | |
| 39 | + | . . # . . # . . | |
| 40 | + | . . # . . # . . | |
| 41 | + | . . # . . # . . | |
| 42 | + | ) | |
| 43 | + | ||
| 44 | + | |:: is c actor| :actor: c yes | |
| 45 | + | |:: get sprite 1 for c| | |
| 46 | + | :sprite data: ( | |
| 47 | + | . . . . . . . . | |
| 48 | + | . . . . . . . . | |
| 49 | + | . . . . . # . # | |
| 50 | + | . . . . . # # # | |
| 51 | + | . # . . . # # # | |
| 52 | + | . # . # # # # . | |
| 53 | + | . . # # # # # . | |
| 54 | + | . . . # # . # . | |
| 55 | + | ) | |
| 56 | + | |:: get sprite 2 for c| | |
| 57 | + | :sprite data: ( | |
| 58 | + | . . . . . . . . | |
| 59 | + | . . . . . . . . | |
| 60 | + | . . . . . # . # | |
| 61 | + | . . . . . # # # | |
| 62 | + | . . . . . # # # | |
| 63 | + | # . . # # # # . | |
| 64 | + | . # # # # # # . | |
| 65 | + | . . . # # . # . | |
| 66 | + | ) | |
| 67 | + | ||
| 68 | + | |:: is w solid| :solid: w yes | |
| 69 | + | |:: get sprite 1 for w| | |
| 70 | + | :sprite data: ( | |
| 71 | + | # # # # # # # # | |
| 72 | + | # # . . . . # # | |
| 73 | + | # . # # # # . # | |
| 74 | + | # . # . . # . # | |
| 75 | + | # . # . . # . # | |
| 76 | + | # . # # # # . # | |
| 77 | + | # # . . . . # # | |
| 78 | + | # # # # # # # # | |
| 79 | + | ) | |
| 80 | + | ||
| 81 | + | |:: get sprite 1 for g| | |
| 82 | + | :sprite data: ( | |
| 83 | + | . . . . . . . . | |
| 84 | + | . . . . . . . . | |
| 85 | + | . . . . . . . . | |
| 86 | + | . . . . . . . . | |
| 87 | + | . . . . . . . . | |
| 88 | + | . . # . . . . . | |
| 89 | + | . . # . . # . . | |
| 90 | + | . . # . . # . . | |
| 91 | + | ) | |
| 92 | + | ||
| 93 | + | |:: get sprite 2 for g| | |
| 94 | + | :sprite data: ( | |
| 95 | + | . . . . . . . . | |
| 96 | + | . . . . . . . . | |
| 97 | + | . . . . . . . . | |
| 98 | + | . . . . . . . . | |
| 99 | + | . . . . . . . . | |
| 100 | + | . # . . . . . . | |
| 101 | + | . # . . # . . . | |
| 102 | + | . . # . . # . . | |
| 103 | + | ) | |
| 104 | + | ||
| 105 | + | || :current room: test | |
| 106 | + | |:: get tiles for test| | |
| 107 | + | :room data: ( | |
| 108 | + | w w w w w w w w | |
| 109 | + | w . . . . g . w | |
| 110 | + | w . . w w . . w | |
| 111 | + | w c . . . . p w | |
| 112 | + | w . . g . . . w | |
| 113 | + | w g . w w . . w | |
| 114 | + | w . . . . g . w | |
| 115 | + | w w w w w w w w | |
| 116 | + | ) | |
| 117 | + | ||
| 118 | + | || :screen resolution: 64 64 | |
| 119 | + | :frame for sprites: 1 | |
| 120 | + | ||
| 121 | + | ||
| 122 | + | |:: start? :set player actor: $actor| | |
| 123 | + | :: get actor locations | |
| 124 | + | :: set player actor $actor | |
| 125 | + | ||
| 126 | + | ||
| 127 | + | ||
| 128 | + | |:: get actor locations :current room: $room?| | |
| 129 | + | :: get tiles for $room :: find each actor :tile location: 0 0 | |
| 130 | + | :: get tiles for $room :: find each solid :tile location: 0 0 | |
| 131 | + | ||
| 132 | + | |:: find each $type :room data: ($1 $2 $3 $4 $5 $6 $7 $8)| | |
| 133 | + | :: is $1 $type :: add to $type list :: next tile column | |
| 134 | + | :: is $2 $type :: add to $type list :: next tile column | |
| 135 | + | :: is $3 $type :: add to $type list :: next tile column | |
| 136 | + | :: is $4 $type :: add to $type list :: next tile column | |
| 137 | + | :: is $5 $type :: add to $type list :: next tile column | |
| 138 | + | :: is $6 $type :: add to $type list :: next tile column | |
| 139 | + | :: is $7 $type :: add to $type list :: next tile column | |
| 140 | + | :: is $8 $type :: add to $type list :: next tile row | |
| 141 | + | :: find each $type | |
| 142 | + | |:: find each $type :tile location: $x $y| | |
| 143 | + | ||
| 144 | + | |:: add to actor list :actor: $who yes :tile location: $x $y?| | |
| 145 | + | :actors: $who $x $y | |
| 146 | + | |:: add to actor list :actor: $who no| | |
| 147 | + | ||
| 148 | + | |:: add to solid list :solid: $what yes :tile location: $x $y?| | |
| 149 | + | :solids: $what $x $y | |
| 150 | + | |:: add to solid list :solid: $what no| | |
| 151 | + | ||
| 152 | + | ||
| 153 | + | |:: set player actor $actor :actors: $actor $x $y| | |
| 154 | + | :: rollback actors :player actor: $actor $x $y | |
| 155 | + | |:: set player actor $actor :no more actors:| | |
| 156 | + | |:: set player actor $actor?| | |
| 157 | + | :: next actor | |
| 158 | + | ||
| 159 | + | |::start :screen resolution: $x $y?| | |
| 160 | + | :@graphics: set-resolution fullscreen $x $y | |
| 161 | + | ::main loop | |
| 162 | + | ||
| 163 | + | ||
| 164 | + | ||
| 165 | + | |::draw| | |
| 166 | + | :: clear the screen | |
| 167 | + | :: move player actor | |
| 168 | + | :: draw current room | |
| 169 | + | :: draw npcs | |
| 170 | + | :: draw player | |
| 171 | + | :: tick frame | |
| 172 | + | :: draw FPS | |
| 173 | + | ||
| 174 | + | |:: is $x actor| :actor: $x no | |
| 175 | + | |:: is $x solid| :solid: $x no | |
| 176 | + | |:: get sprite $frame for $id| | |
| 177 | + | :: get sprite 1 for $id | |
| 178 | + | ||
| 179 | + | ||
| 180 | + | |:: next actor :actors: $actor $x $y :actors: $more $_x $_y?| | |
| 181 | + | :discarded actors: $actor $x $y | |
| 182 | + | |:: next actor :actors: $actor $x $y| | |
| 183 | + | :discarded actors: $actor $x $y | |
| 184 | + | :no more actors: | |
| 185 | + | |:: next actor| | |
| 186 | + | :no more actors: | |
| 187 | + | |:: rollback actors :discarded actors: $actor $x $y| | |
| 188 | + | :actors: $actor $x $y | |
| 189 | + | |:: rollback actors| | |
| 190 | + | ||
| 191 | + | |:: next solid :solids: $actor $x $y :solids: $more $_x $_y?| | |
| 192 | + | :discarded solids: $actor $x $y | |
| 193 | + | |:: next solid :solids: $actor $x $y| | |
| 194 | + | :discarded solids: $actor $x $y | |
| 195 | + | :no more solids: | |
| 196 | + | |:: next solid| | |
| 197 | + | :no more solids: | |
| 198 | + | |:: rollback solids? :discarded solids: $solid $x $y| | |
| 199 | + | :solids: $solid $x $y | |
| 200 | + | |:: rollback solids| | |
| 2 | 201 | ||
| 3 | - | || :current room: test | |
| 4 | - | :screen resolution: 64 64 | |
| 5 | 202 | ||
| 6 | 203 | |:: draw current room :current room: $room?| | |
| 7 | 204 | :tile location: 0 0 | |
| 8 | 205 | :: get tiles for $room | |
| 9 | 206 | :: draw room | |
| 10 | - | ||
| 11 | 207 | |:: draw room :room data: ($1 $2 $3 $4 $5 $6 $7 $8)| | |
| 12 | - | :: draw sprite $1 :: next tile column | |
| 13 | - | :: draw sprite $2 :: next tile column | |
| 14 | - | :: draw sprite $3 :: next tile column | |
| 15 | - | :: draw sprite $4 :: next tile column | |
| 16 | - | :: draw sprite $5 :: next tile column | |
| 17 | - | :: draw sprite $6 :: next tile column | |
| 18 | - | :: draw sprite $7 :: next tile column | |
| 19 | - | :: draw sprite $8 :: next tile row | |
| 208 | + | :: render tile $1 to screen | |
| 209 | + | :: render tile $2 to screen | |
| 210 | + | :: render tile $3 to screen | |
| 211 | + | :: render tile $4 to screen | |
| 212 | + | :: render tile $5 to screen | |
| 213 | + | :: render tile $6 to screen | |
| 214 | + | :: render tile $7 to screen | |
| 215 | + | :: render tile $8 to screen :: last column | |
| 20 | 216 | :: draw room | |
| 21 | 217 | |:: draw room :tile location: $x $y| | |
| 22 | 218 | ||
| 23 | - | |:: draw sprite $1 :tile location: $x $y?| | |
| 219 | + | |:: render tile $id to screen :: last column| | |
| 220 | + | :: is $id actor :: draw sprite $id :: next tile row | |
| 221 | + | |:: render tile $id to screen| | |
| 222 | + | :: is $id actor :: draw sprite $id :: next tile column | |
| 223 | + | ||
| 224 | + | ||
| 225 | + | ||
| 226 | + | |:: draw npcs? :tile location: $x $y| | |
| 227 | + | |:: draw npcs :no more actors:| | |
| 228 | + | :: rollback actors | |
| 229 | + | |:: draw npcs? :actors: $actor $x $y?| | |
| 230 | + | :: draw sprite $actor :tile location: $x $y | |
| 231 | + | :: next actor | |
| 232 | + | ||
| 233 | + | ||
| 234 | + | ||
| 235 | + | |:: draw player :player actor: $actor $x $y?| | |
| 236 | + | :: draw sprite $actor :tile location: $x $y | |
| 237 | + | ||
| 238 | + | ||
| 239 | + | ||
| 240 | + | |:: draw sprite $actor :actor: $actor yes| | |
| 241 | + | :: draw sprite . | |
| 242 | + | |:: draw sprite $actor? :actor: $actor no| | |
| 243 | + | |:: draw sprite $sprite :frame for sprites: $frame? :tile location: $x $y?| | |
| 24 | 244 | :pixel location: $x $y | |
| 25 | - | :: get sprite 1 for $1 | |
| 245 | + | :: get sprite $frame for $sprite | |
| 26 | 246 | :: draw sprite | |
| 27 | 247 | ||
| 28 | 248 | |:: draw sprite :sprite data: ($1 $2 $3 $4 $5 $6 $7 $8)| | |
| @@ -37,99 +257,75 @@ | |||
| 37 | 257 | :: draw sprite | |
| 38 | 258 | |:: draw sprite :pixel location: $x $y| | |
| 39 | 259 | ||
| 40 | - | |:: plot . :pixel location: $x $y?| | |
| 41 | - | :@graphics: set-pixel $x $y 0 0 0 | |
| 42 | - | ||
| 43 | - | |:: plot # :pixel location: $x $y?| | |
| 44 | - | :@graphics: set-pixel $x $y 255 255 255 | |
| 45 | 260 | ||
| 261 | + | |:: plot . :pixel location: $x $y? :color: $r $g $b| | |
| 262 | + | :@graphics: set-pixel $x $y $r $g $b | |
| 263 | + | |:: plot # :pixel location: $x $y? :color: $r $g $b| | |
| 264 | + | :@graphics: set-pixel $x $y $r $g $b | |
| 265 | + | |:: plot $char?| | |
| 266 | + | :: get color for $char | |
| 46 | 267 | ||
| 47 | 268 | |:: next pixel column :@math: $x :pixel location: $_ $y| | |
| 48 | 269 | :pixel location: $x $y | |
| 49 | - | ||
| 50 | 270 | |:: next pixel column? :pixel location: $x $y?| | |
| 51 | 271 | :@math: add $x 1 | |
| 52 | - | ||
| 53 | 272 | |:: next pixel row :@math: $y :pixel location: $_x $_y :tile location: $x $_?| | |
| 54 | 273 | :pixel location: $x $y | |
| 55 | - | ||
| 56 | 274 | |:: next pixel row? :pixel location: $x $y?| | |
| 57 | 275 | :@math: add $y 1 | |
| 58 | 276 | ||
| 59 | - | ||
| 60 | 277 | |:: next tile column :@math: $x :tile location: $_ $y| | |
| 61 | 278 | :tile location: $x $y | |
| 62 | - | ||
| 63 | 279 | |:: next tile column? :tile location: $x $y?| | |
| 64 | 280 | :@math: add $x 8 | |
| 65 | - | ||
| 66 | 281 | |:: next tile row :@math: $y :tile location: $x $_| | |
| 67 | 282 | :tile location: 0 $y | |
| 68 | - | ||
| 69 | 283 | |:: next tile row? :tile location: $x $y?| | |
| 70 | 284 | :@math: add $y 8 | |
| 71 | 285 | ||
| 286 | + | |:: tick frame :frame for sprites: 1| | |
| 287 | + | :frame for sprites: 2 | |
| 288 | + | |:: tick frame :frame for sprites: 2| | |
| 289 | + | :frame for sprites: 1 | |
| 72 | 290 | ||
| 73 | - | |::draw| | |
| 74 | - | :: clear the screen | |
| 75 | - | :: draw current room | |
| 76 | 291 | ||
| 77 | - | |:: get sprite 1 for .| | |
| 78 | - | :sprite data: ( | |
| 79 | - | . . . . . . . . | |
| 80 | - | . . . . . . . . | |
| 81 | - | . . . . . . . . | |
| 82 | - | . . . . . . . . | |
| 83 | - | . . . . . . . . | |
| 84 | - | . . . . . . . . | |
| 85 | - | . . . . . . . . | |
| 86 | - | . . . . . . . . | |
| 87 | - | ) | |
| 88 | 292 | ||
| 89 | - | |:: get sprite 1 for p| | |
| 90 | - | :sprite data: ( | |
| 91 | - | . # . # # # # . | |
| 92 | - | . # # # # # . . | |
| 93 | - | . . . . . . . . | |
| 94 | - | . . # # # # . . | |
| 95 | - | . # . # # . # . | |
| 96 | - | . . # . . # . . | |
| 97 | - | . . # . . # . . | |
| 98 | - | ) | |
| 293 | + | |:: move player actor| | |
| 294 | + | :: check if up is pressed :: move player | |
| 295 | + | :: check if right is pressed :: move player | |
| 296 | + | :: check if down is pressed :: move player | |
| 297 | + | :: check if left is pressed :: move player | |
| 298 | + | ||
| 299 | + | |:: move player :key pressed: up :player actor: $actor $x 0?| | |
| 300 | + | |:: move player? :key pressed: up :player actor: $actor $x $y?| | |
| 301 | + | :: move y :@math: subtract $y 8 | |
| 302 | + | |:: move player :key pressed: right :player actor: $actor 56 $y?| | |
| 303 | + | |:: move player? :key pressed: right :player actor: $actor $x $y?| | |
| 304 | + | :: move x :@math: add $x 8 | |
| 305 | + | |:: move player :key pressed: down :player actor: $actor $x 56?| | |
| 306 | + | |:: move player? :key pressed: down :player actor: $actor $x $y?| | |
| 307 | + | :: move y :@math: add $y 8 | |
| 308 | + | |:: move player :key pressed: left :player actor: $actor 0 $y?| | |
| 309 | + | |:: move player? :key pressed: left :player actor: $actor $x $y?| | |
| 310 | + | :: move x :@math: subtract $x 8 | |
| 311 | + | |:: move player| | |
| 99 | 312 | ||
| 100 | - | |:: get sprite 1 for c| | |
| 101 | - | :sprite data: ( | |
| 102 | - | . . . . . . . . | |
| 103 | - | . . . . . . . . | |
| 104 | - | . . . . # . # . | |
| 105 | - | . . . . # # # . | |
| 106 | - | # . . . # # # . | |
| 107 | - | # . # # # # . . | |
| 108 | - | . # # # # # . . | |
| 109 | - | . . # # . # . . | |
| 110 | - | ) | |
| 111 | 313 | ||
| 112 | - | |:: get sprite 1 for w| | |
| 113 | - | :sprite data: ( | |
| 114 | - | # # # # # # # # | |
| 115 | - | # # . . . . # # | |
| 116 | - | # . # # # # . # | |
| 117 | - | # . # . . # . # | |
| 118 | - | # . # . . # . # | |
| 119 | - | # . # # # # . # | |
| 120 | - | # # . . . . # # | |
| 121 | - | # # # # # # # # | |
| 122 | - | ) | |
| 314 | + | |:: move x? :@math: $x :player actor: $actor $_ $y?| | |
| 315 | + | :: check for solid $x $y | |
| 316 | + | |:: move x :a solid at: $x $y| | |
| 317 | + | |:: move x :a nonsolid at: $x $y :player actor: $actor $_x $_y| | |
| 318 | + | :player actor: $actor $x $y | |
| 123 | 319 | ||
| 320 | + | |:: move y? :@math: $y :player actor: $actor $x $_?| | |
| 321 | + | :: check for solid $x $y | |
| 322 | + | |:: move y :a solid at: $x $y| | |
| 323 | + | |:: move y :a nonsolid at: $x $y :player actor: $actor $_x $_y| | |
| 324 | + | :player actor: $actor $x $y | |
| 124 | 325 | ||
| 125 | - | |:: get tiles for test| | |
| 126 | - | :room data: ( | |
| 127 | - | w w w w w w w w | |
| 128 | - | w . . . . . . w | |
| 129 | - | w . . . . . . w | |
| 130 | - | w . c . . p . w | |
| 131 | - | w . . . . . . w | |
| 132 | - | w . . . . . . w | |
| 133 | - | w . . . . . . w | |
| 134 | - | w w w w w w w w | |
| 135 | - | ) | |
| 326 | + | |:: check for solid $x $y :solids: $what $x $y?| | |
| 327 | + | :: rollback solids :a solid at: $x $y | |
| 328 | + | |:: check for solid $x $y :no more solids:| | |
| 329 | + | :: rollback solids :a nonsolid at: $x $y | |
| 330 | + | |:: check for solid $x $y?| | |
| 331 | + | :: next solid | |
capitalex bu gisti düzenledi . Düzenlemeye git
1 file changed, 135 insertions
bitsy.nv(dosya oluşturuldu)
| @@ -0,0 +1,135 @@ | |||
| 1 | + | |:break: :break:| :: break | |
| 2 | + | ||
| 3 | + | || :current room: test | |
| 4 | + | :screen resolution: 64 64 | |
| 5 | + | ||
| 6 | + | |:: draw current room :current room: $room?| | |
| 7 | + | :tile location: 0 0 | |
| 8 | + | :: get tiles for $room | |
| 9 | + | :: draw room | |
| 10 | + | ||
| 11 | + | |:: draw room :room data: ($1 $2 $3 $4 $5 $6 $7 $8)| | |
| 12 | + | :: draw sprite $1 :: next tile column | |
| 13 | + | :: draw sprite $2 :: next tile column | |
| 14 | + | :: draw sprite $3 :: next tile column | |
| 15 | + | :: draw sprite $4 :: next tile column | |
| 16 | + | :: draw sprite $5 :: next tile column | |
| 17 | + | :: draw sprite $6 :: next tile column | |
| 18 | + | :: draw sprite $7 :: next tile column | |
| 19 | + | :: draw sprite $8 :: next tile row | |
| 20 | + | :: draw room | |
| 21 | + | |:: draw room :tile location: $x $y| | |
| 22 | + | ||
| 23 | + | |:: draw sprite $1 :tile location: $x $y?| | |
| 24 | + | :pixel location: $x $y | |
| 25 | + | :: get sprite 1 for $1 | |
| 26 | + | :: draw sprite | |
| 27 | + | ||
| 28 | + | |:: draw sprite :sprite data: ($1 $2 $3 $4 $5 $6 $7 $8)| | |
| 29 | + | :: plot $1 :: next pixel column | |
| 30 | + | :: plot $2 :: next pixel column | |
| 31 | + | :: plot $3 :: next pixel column | |
| 32 | + | :: plot $4 :: next pixel column | |
| 33 | + | :: plot $5 :: next pixel column | |
| 34 | + | :: plot $6 :: next pixel column | |
| 35 | + | :: plot $7 :: next pixel column | |
| 36 | + | :: plot $8 :: next pixel row | |
| 37 | + | :: draw sprite | |
| 38 | + | |:: draw sprite :pixel location: $x $y| | |
| 39 | + | ||
| 40 | + | |:: plot . :pixel location: $x $y?| | |
| 41 | + | :@graphics: set-pixel $x $y 0 0 0 | |
| 42 | + | ||
| 43 | + | |:: plot # :pixel location: $x $y?| | |
| 44 | + | :@graphics: set-pixel $x $y 255 255 255 | |
| 45 | + | ||
| 46 | + | ||
| 47 | + | |:: next pixel column :@math: $x :pixel location: $_ $y| | |
| 48 | + | :pixel location: $x $y | |
| 49 | + | ||
| 50 | + | |:: next pixel column? :pixel location: $x $y?| | |
| 51 | + | :@math: add $x 1 | |
| 52 | + | ||
| 53 | + | |:: next pixel row :@math: $y :pixel location: $_x $_y :tile location: $x $_?| | |
| 54 | + | :pixel location: $x $y | |
| 55 | + | ||
| 56 | + | |:: next pixel row? :pixel location: $x $y?| | |
| 57 | + | :@math: add $y 1 | |
| 58 | + | ||
| 59 | + | ||
| 60 | + | |:: next tile column :@math: $x :tile location: $_ $y| | |
| 61 | + | :tile location: $x $y | |
| 62 | + | ||
| 63 | + | |:: next tile column? :tile location: $x $y?| | |
| 64 | + | :@math: add $x 8 | |
| 65 | + | ||
| 66 | + | |:: next tile row :@math: $y :tile location: $x $_| | |
| 67 | + | :tile location: 0 $y | |
| 68 | + | ||
| 69 | + | |:: next tile row? :tile location: $x $y?| | |
| 70 | + | :@math: add $y 8 | |
| 71 | + | ||
| 72 | + | ||
| 73 | + | |::draw| | |
| 74 | + | :: clear the screen | |
| 75 | + | :: draw current room | |
| 76 | + | ||
| 77 | + | |:: get sprite 1 for .| | |
| 78 | + | :sprite data: ( | |
| 79 | + | . . . . . . . . | |
| 80 | + | . . . . . . . . | |
| 81 | + | . . . . . . . . | |
| 82 | + | . . . . . . . . | |
| 83 | + | . . . . . . . . | |
| 84 | + | . . . . . . . . | |
| 85 | + | . . . . . . . . | |
| 86 | + | . . . . . . . . | |
| 87 | + | ) | |
| 88 | + | ||
| 89 | + | |:: get sprite 1 for p| | |
| 90 | + | :sprite data: ( | |
| 91 | + | . # . # # # # . | |
| 92 | + | . # # # # # . . | |
| 93 | + | . . . . . . . . | |
| 94 | + | . . # # # # . . | |
| 95 | + | . # . # # . # . | |
| 96 | + | . . # . . # . . | |
| 97 | + | . . # . . # . . | |
| 98 | + | ) | |
| 99 | + | ||
| 100 | + | |:: get sprite 1 for c| | |
| 101 | + | :sprite data: ( | |
| 102 | + | . . . . . . . . | |
| 103 | + | . . . . . . . . | |
| 104 | + | . . . . # . # . | |
| 105 | + | . . . . # # # . | |
| 106 | + | # . . . # # # . | |
| 107 | + | # . # # # # . . | |
| 108 | + | . # # # # # . . | |
| 109 | + | . . # # . # . . | |
| 110 | + | ) | |
| 111 | + | ||
| 112 | + | |:: get sprite 1 for w| | |
| 113 | + | :sprite data: ( | |
| 114 | + | # # # # # # # # | |
| 115 | + | # # . . . . # # | |
| 116 | + | # . # # # # . # | |
| 117 | + | # . # . . # . # | |
| 118 | + | # . # . . # . # | |
| 119 | + | # . # # # # . # | |
| 120 | + | # # . . . . # # | |
| 121 | + | # # # # # # # # | |
| 122 | + | ) | |
| 123 | + | ||
| 124 | + | ||
| 125 | + | |:: get tiles for test| | |
| 126 | + | :room data: ( | |
| 127 | + | w w w w w w w w | |
| 128 | + | w . . . . . . w | |
| 129 | + | w . . . . . . w | |
| 130 | + | w . c . . p . w | |
| 131 | + | w . . . . . . w | |
| 132 | + | w . . . . . . w | |
| 133 | + | w . . . . . . w | |
| 134 | + | w w w w w w w w | |
| 135 | + | ) | |
Daha yeni
Daha eski