Anbei der Source von "Testcore2"
Laufzeit: 11 Min. 1,1 Sek.
Bitte melde dich an, um diesen Anhang zu sehen.
Code
10000 rem *****************************
10010 rem * initalisierungs-routine *
10020 rem *****************************
10030 print "*testcore2 / ratte 2020*";
10040 return
11000 rem *****************************
11010 rem * punkt-routine jumpmonster *
11020 rem *---------------------------*
11030 rem * px = x-koordinate 0-79 *
11040 rem * py = y-koordinate 0-49 *
11050 rem * pm = 0=clr 1=set 2=inv *
11060 rem * pm = 3=get (read only) *
11070 rem *****************************
11080 if px<0 or px>79 then return
11090 if py<0 or py>49 then return
11100 let pa=int((px)/2)
11110 let pb=int((py)/2)
11120 let pc=((pb*40)+pa)+1024
11130 let pd=peek(pc)
11140 let pe=1:if px/2=pa then let pe=0
11150 let pf=1:if py/2=pb then let pf=0
11160 let pg=pe+(pf*2)
11170 if pd > 127 then goto 11230
11175 if pd > 108 then goto 11205
11180 if pd > 97 then goto 11195
11185 if pd > 32 then goto 11335
11190 goto 11285
11195 if pd > 98 then goto 11365
11200 goto 11405
11205 if pd > 124 then goto 11220
11210 if pd > 123 then goto 11305
11215 goto 11325
11220 if pd > 126 then goto 11375
11225 goto 11295
11230 if pd > 236 then goto 11260
11235 if pd > 225 then goto 11250
11240 if pd > 160 then goto 11385
11245 goto 11435
11250 if pd > 226 then goto 11355
11255 goto 11315
11260 if pd > 252 then goto 11275
11265 if pd > 251 then goto 11415
11270 goto 11395
11275 if pd > 254 then goto 11345
11280 goto 11425
11285 on pg goto 11452,11454,11456
11290 goto 11450
11295 on pg goto 11460,11462,11464
11300 goto 11458
11305 on pg goto 11468,11470,11472
11310 goto 11466
11315 on pg goto 11476,11478,11480
11320 goto 11474
11325 on pg goto 11484,11486,11488
11330 goto 11482
11335 on pg goto 11492,11494,11496
11340 goto 11490
11345 on pg goto 11500,11502,11504
11350 goto 11498
11355 on pg goto 11508,11510,11512
11360 goto 11506
11365 on pg goto 11516,11518,11520
11370 goto 11514
11375 on pg goto 11524,11526,11528
11380 goto 11522
11385 on pg goto 11532,11534,11536
11390 goto 11530
11395 on pg goto 11540,11542,11544
11400 goto 11538
11405 on pg goto 11548,11550,11552
11410 goto 11546
11415 on pg goto 11556,11558,11560
11420 goto 11554
11425 on pg goto 11564,11566,11568
11430 goto 11562
11435 on pg goto 11572,11574,11576
11440 goto 11570
11450 on pm goto 11610,11610,11580
11451 goto 11600
11452 on pm goto 11620,11620,11580
11453 goto 11600
11454 on pm goto 11640,11640,11580
11455 goto 11600
11456 on pm goto 11680,11680,11580
11457 goto 11600
11458 on pm goto 11610,11600,11590
11459 goto 11600
11460 on pm goto 11630,11630,11580
11461 goto 11610
11462 on pm goto 11650,11650,11580
11463 goto 11610
11464 on pm goto 11690,11690,11580
11465 goto 11610
11466 on pm goto 11630,11630,11580
11467 goto 11620
11468 on pm goto 11620,11600,11590
11469 goto 11600
11470 on pm goto 11660,11660,11580
11471 goto 11620
11472 on pm goto 11700,11700,11580
11473 goto 11620
11474 on pm goto 11630,11620,11590
11475 goto 11620
11476 on pm goto 11630,11610,11590
11477 goto 11610
11478 on pm goto 11670,11670,11580
11479 goto 11630
11480 on pm goto 11710,11710,11580
11481 goto 11630
11482 on pm goto 11650,11650,11580
11483 goto 11640
11484 on pm goto 11660,11660,11580
11485 goto 11640
11486 on pm goto 11640,11600,11590
11487 goto 11600
11488 on pm goto 11720,11720,11580
11489 goto 11640
11490 on pm goto 11650,11640,11590
11491 goto 11640
11492 on pm goto 11670,11670,11580
11493 goto 11650
11494 on pm goto 11650,11610,11590
11495 goto 11610
11496 on pm goto 11730,11730,11580
11497 goto 11650
11498 on pm goto 11670,11670,11580
11499 goto 11660
11500 on pm goto 11660,11640,11590
11501 goto 11640
11502 on pm goto 11660,11620,11590
11503 goto 11620
11504 on pm goto 11740,11740,11580
11505 goto 11660
11506 on pm goto 11670,11660,11590
11507 goto 11660
11508 on pm goto 11670,11650,11590
11509 goto 11650
11510 on pm goto 11670,11630,11590
11511 goto 11630
11512 on pm goto 11750,11750,11580
11513 goto 11670
11514 on pm goto 11690,11690,11580
11515 goto 11680
11516 on pm goto 11700,11700,11580
11517 goto 11680
11518 on pm goto 11720,11720,11580
11519 goto 11680
11520 on pm goto 11680,11600,11590
11521 goto 11600
11522 on pm goto 11690,11680,11590
11523 goto 11680
11524 on pm goto 11710,11710,11580
11525 goto 11690
11526 on pm goto 11730,11730,11580
11527 goto 11690
11528 on pm goto 11690,11610,11590
11529 goto 11610
11530 on pm goto 11710,11710,11580
11531 goto 11700
11532 on pm goto 11700,11680,11590
11533 goto 11680
11534 on pm goto 11740,11740,11580
11535 goto 11700
11536 on pm goto 11700,11620,11590
11537 goto 11620
11538 on pm goto 11710,11700,11590
11539 goto 11700
11540 on pm goto 11710,11690,11590
11541 goto 11690
11542 on pm goto 11750,11750,11580
11543 goto 11710
11544 on pm goto 11710,11630,11590
11545 goto 11630
11546 on pm goto 11730,11730,11580
11547 goto 11720
11548 on pm goto 11740,11740,11580
11549 goto 11720
11550 on pm goto 11720,11680,11590
11551 goto 11680
11552 on pm goto 11720,11640,11590
11553 goto 11640
11554 on pm goto 11730,11720,11590
11555 goto 11720
11556 on pm goto 11750,11750,11580
11557 goto 11730
11558 on pm goto 11730,11690,11590
11559 goto 11690
11560 on pm goto 11730,11650,11590
11561 goto 11650
11562 on pm goto 11750,11750,11580
11563 goto 11740
11564 on pm goto 11740,11720,11590
11565 goto 11720
11566 on pm goto 11740,11700,11590
11567 goto 11700
11568 on pm goto 11740,11660,11590
11569 goto 11660
11570 on pm goto 11750,11740,11590
11571 goto 11740
11572 on pm goto 11750,11730,11590
11573 goto 11730
11574 on pm goto 11750,11710,11590
11575 goto 11710
11576 on pm goto 11750,11670,11590
11577 goto 11670
11580 let pm=0:return
11590 let pm=1:return
11600 poke (pc), 32:return
11610 poke (pc),126:return
11620 poke (pc),124:return
11630 poke (pc),226:return
11640 poke (pc),123:return
11650 poke (pc), 97:return
11660 poke (pc),255:return
11670 poke (pc),236:return
11680 poke (pc),108:return
11690 poke (pc),127:return
11700 poke (pc),225:return
11710 poke (pc),251:return
11720 poke (pc), 98:return
11730 poke (pc),252:return
11740 poke (pc),254:return
11750 poke (pc),160:return
Alles anzeigen