rvtr/Among-Us-Drip-C64
1
Fork 0
mirror of https://github.com/rvtr/Among-Us-Drip-C64.git synced 2025-10-31 07:31:10 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

More fixes.

Browse Source
This commit is contained in:
Ian Skinner 2022-04-28 19:38:19 -04:00 committed by GitHub
parent 46c6dd745b
commit 42b711c937
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 19 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
prg.bas
View File

@ -1,18 +1,19 @@
0 ifx=3then140 10 ifx=3then150
10 ifx=2then120 20 ifx=2then130
20 poke53280,0:poke53281,0:?"{clear}copyright (c) 2022 very terrible code":?"loading..." 30 poke53280,0:poke53281,0:?"{clear}copyright (c) 2022 very terrible code":?"loading..."
30 me=49152 40 me=49152
40 readop 50 readop
50 ifop>998thengoto99 60 ifop>998thengoto100
60 pokeme,op:me=me+1 70 pokeme,op
70 goto40 80 me=me+1
99 goto110 90 goto50
100 data120,169,0,32,0,16,32,3,16,173,18,208,201,112,208,249,173,1,220,201,255,240,239,169,0,141,24,212,88,96,999 100 goto120
110 x=2:load"sustune.dat",8,1 110 data120,169,0,32,0,16,32,3,16,173,18,208,201,112,208,249,173,1,220,201,255,240,239,169,0,141,24,212,88,96,999
120 poke56,92:print"hold on you sussy baka! i'm still loading!" 120 x=2:load"sustune.dat",8,1
130 x=3:load"susground.kla",8,1 130 poke56,92:print"hold on you sussy baka! i'm still loading!"
140 poke88,0:poke89,95:poke90,64:poke91,130:poke781,4:poke782,0:sys41964 140 x=3:load"susground.kla",8,1
150 poke88,0:poke89,219:poke90,40:poke91,134:poke781,4:poke782,0:sys41964 150 poke88,0:poke89,95:poke90,64:poke91,130:poke781,4:poke782,0:sys41964
160 poke56576,150 160 poke88,0:poke89,219:poke90,40:poke91,134:poke781,4:poke782,0:sys41964
170 v=53248:pokev+17,59:pokev+22,216:pokev+24,121 170 poke56576,150
180 sys49152:goto350 180 v=53248:pokev+17,59:pokev+22,216:pokev+24,121:pokev+32,0:pokev+33,0
190 sys49152:goto190