`K/a X kd J@fAzTMPO IXNuHy} `O8,O1hpB|BBB9h9h9ha .k$a Na ta H8a a aaLTB1nrsB08p|и$"[bЁмd`vO8,Oa &.aaaaaTaaalaaaBaa>`4$xBK~kazg!NuO8,Oa .k$xag!?k>TONuONu |C"""""Nu/<HX#k @AN`,xPg-H O8,Oa X.ka aa`Azafaed&/HX(kv# D BP-gnaSBg/ =\JkRH.r atf8*Ng <=fB-/ B/O Jj|= NaPA}aF`?>TLNuAzaNuaAzaFfdA{Da/9/9Hy{D?<KOJk(H/9/9Hy{D?<KOL@Jj NaA},a`NuHy{DAz`Hy{Az` Hy{AzaLfa$NuA{5afA=C=$r0<02QNuHA{:ahf*pNOdN` yd,|NLNuAza,f AaNu|O O Huma!|n.sy!|s"x$ ajBJOZNuAzafa O Oa6  [romg6"x$BakJg O*OaJ-ffaOOZBNuXa\Jk <]fa g`DOZNuH@ ACzrarLcJf$O*O"J 8aOg$IBNupJNuB<$gF<0< dApV"0NurNuO@@B<0e0<:e<Ae$<Ge<ae<gd< _R<0鉂`Nu -мd^"eR!$$/ )f& MakaTjA}a4`&A}a(`a:$_"k"A`$INuO Oa OZA}{/ _BNuNu||)g|@+@8uR@" "A`m</8/ /?KOJNuAzaf^aBg/ =\JkP4 x$/</??O /?>T k.H4"p9NOLR!$ мd2NuAz`A{aHfaJgf  *NuA{`XA{'afaDabJ@kNuA{'`2A{.afaaa< <kg@<of(< <ng$<ff < <fg A{aB9@tNu@tNu< <if< <lf< <lf@tNuBB69h 89hAzaVf*a^db&-< fVaJgN dF(1vg<1xg6 x$!@ ؼ\!zSCkBQ!$ мdNuBB69h 89haAz`&9hAzafaXd4&p Jg( x$!D!HB!L!$ мdNNuaAz`BBB9h9h9hAzaJfLa谼!dN&-< fBaаdpd,,-< f aJged*"&Saq(NuBBB9h9h9haAz`Azaf:a^e0d(&-g< fa<ed1pNuAzaNuAzalfaj< <a<d 8ueNuAza~8uNuA{a8fafaJ@khNuA{`PHy|A{a LfaNu< gNuAzafa󈰼e ^d$NuAzaA}HaNuBgHyz=\NuJ9{g "x$" Bp8NO2<a" tp8NO2<at" tp8NO2<ad" tp8NO2<4aT" tp8NO2<4aD" tp8NO2<_a4!$ мdBgHy{=\Jk4$x$/<&/ ??O Jk`&E"UkVrHA2|g |dY"Jp|dp k0pNO`Uk&r HA2|dY"Jp0|dpHkpNO`?>TNuBgHy{=\Jk*4/<Hy:B??O ?>TJ9zgNNuBgHy{D=\Jk x$4/<D/??O "@?>TzJf0z??<Jf ?<?<#X#X>42<pNO42<pNOpNOBApNO*H4/AaD W24"HpNOXp2||{Fv(kuma)|+--------------+KEY.SYS@path=\;\sys;\bin;\basic2;\etc;\shell͂΂ĂˏɔzȂIUSKCG.SYSVersion up -- For X68000 --1986-04 Start :M1987-03 1.00 :M1987-10 1.01 :M1989-03 2.00 :M1989-04 2.01 :T1990-04 2.02 :T1992-01 2.03 :T-- For X680x0 --1992-11 2.15 :M1993-02 3.00 :Mvv S҈ꗗ vvYoshio MotosakoYuuji Tanaka ͊‹ϐƂēo^ł܂łB ͋Nł܂łB ̃p[^[ُłBftHggp܂ o^ł܂ł PZN^̃oCg傫܂ lastdrive̎wȏ̃hCo[o^͂ł܂ exconfigw̃vO͏풓ł܂BZbgĂ VXeNł܂łBZbgĂ*O||"<PajaNupNOdJ<<g"< ~"a-S"< `"< "a-S"< ~"`a"< ~"av"< "`lH08$I"@"QdT !n68kfJ !Humaf@ !&aB(x$"LNg*"L <vaJ-f-SH aTL`"JL Nu"A8uR@a_t)fJ- g Ma6kfakR"NuHxB2S@Wf0@` TQ` (fJ(f/pNOHALf-<dXHAHA%@ ( 䈰d:5@B*T@: څ|e Ѕм戰d @ ER`tHHpONOL||f`pONO2<pGNOpONO2<pGNOpONO OLNuH`B9pNOrtp.NO|e4<p.NO"<|p7NOpNO3$,L`yrpT#@v8B8RE<e<e<eg&RE|d"g<aggTE`gRE`0NuB@Nug<azgFgFgTE`RE`aLg aH@S@:dBARaQNua"aNadg:SE`adBAg RaX`SNuagaH@<fgNuaaagB:Nuaa*XC`aJkfXB<@abCX*O,I`a fNuaBa/aCK,I0<QMBD"ag6:SE`BaCX*O,I`aBraB-frBONu8<epNuBD&8*8 epм y= JDj VB|Λ"C")$) g\Ҽ¼&e@Jg<g*I`Ҵd,,I`$A&CҀ%I%H%A%K #J 'J мNud.`$Ҽ¼&e:Jg<g*I`,d(,,I`"$AҀ%I%H%AB #J мNuJgr<gH" gh"M")$) f$ļЂ$B&i " g'J%I%H%@%K #J мNu"g "N")$) f$Ҽ¼Ё$A`d. kмNuммNu <Nu"8 g4 Ag "( fpNu"h g ( #@ Jg$@%IBNu 9= a2BNuH"h g ( #@ g$@%I#= aLNu"8 A"( gfJg,"h#A $A%Ia`ְf"h#A H aLNu" epм$8 Bg $( fpNu$( f$8eЈ!@BNu VBB˕ֈּ*y= +Hh!C0!C4ֆ!C8f *y= &m!K!J M$BBB*x\!:M>J8 gT!N@Nn!N<1m8DB`Bha #= BNu 8 cprNOBA"^|gB$^|g$&VJAgв|gȲ|gx|gpNua$kO*O/<@/ ??\f UHUf~| -p`8H@@BARAfSSAg!< gSg !.f < LNuLBNuH`-tfSBg/?\Jk0`"H`$<"/HXJj Āe/HX @A(HILJNuapkNNU,O/</?? 8&.֮,. (n:.N]Jk @f D`fBJEfp/aV Nu// ?? Jk涀fa: ІNu?</ =\$#@vNu?<B?BO/BgB?BO Nu?>T#@vNuH@B8gh -!b%HHNu%ALNu%APNu%ATNu%AXNu%A\Nu0a Nuɰ|e "|ЀЀNu2O$OtaxJkg BONupONu$^20a,Jk(g|!|fYaNuBB/ RJg.H!ta(LJg,k*R<g< g"< gSfB $_NuSS`Jf~`SS`02O$OtaONu$^2B JRJfBSgaNu"y= A$a )hg " "@gNuHt p_r0 g HaLS@|UULNu g&aHb"aBbA~00BNupNuA~B@80aNuApQBNu0f8R@S@8sNu|8sbHA~0LNuH`A~BA8sBgRBQt LNua2"Va>k @/ a "_atBNu0(LA0<=WgBNu0f8R@S@a~NuHaLNu8sb.| x8N(Eg<`gH hFa,`L NupNug< g<e<e<efNu|\`H zIg~Bgn< grY`g`<dD<d2<d8< e@gb<:gT zIlgPgLXg(HA2g QHA|Q`SAk< dLpNuLBBNuaJLNup:`p `g< g zIgg<.f`aak @ (FH瀀 @a+VLJNuH@"8< Ag "(j | LNu08sb2aakB8sR@NuBNuB8Nu0a$k$HaJk BRaVNu2xnb.0Y@0|b A=@01A=$1BNupNu0aLJk6H瀀0a>Jj*I`/ 0?a$a0*_:0aL@RNu0a Jk NuNuxnbH"|=$|e]@"x,@C0Paf%IE>af%INurAG$VNurAG$QNu2B8|gNuJ8ga a 8< @Jh fa+ (jBNuH $ItaLNu) <f,) <f"H>)_a B0gaLNupNu1NuB08Nu"^$VaLk"V)a@TaBNu"^$VaRk "VB/a<A@:ax Nup?`p H`O(Oak"OaOZL[NuH` O(Oa\kl"OB9alJk\GKGCt  gRQINt g < gQBGVJ9g.tᙲ< gQBOZL[NuBg ):f< <a<dT`8aaFk(@AG  g$H L"Kr a)gABGLB" g < f$ `"AAJgCj< f  SBgaC,FO$OaJkJfUGexB*a.kv"H @aklB*aTk. LNuB0(e ( TNuBNua5&j0*| fB2(4(ASBBNuH BB( 2)Jg$|gajKIgg`< gKB2(4(ASBakfB( a4BL0NuH`O"OBJgP v< g Qp`8B"OO$OH`aLJkECa$k) <gp`pOXOLJNuakga`k `BB( pNuH0 /a6( KSCg0<g<fpa=g C Qr`X2)YabB`pLL NuRQSa kBB( BNua|fpNu0a$J@g|g2aJNu><NN`H'HB@A/*|Jh f| |6ACC$rQANC0r QAKC,rQABBBBBBA:an0a0BXBLNua2akv @ (@Efj"hF$V40a`%Y%YJQg\G0<Q5YB QfS@5hJCH@r a\)gABLaBNup$V|A5ANu"hFGa"Jk<a@B*Bj`Hr<f<Qr0X2Q"YHAY"LNuN\NFN>NLH a1ah(zKN L0NuH af(zKNBL0NuH ###(zKNL0NuH (znKnNL0NuH (zXKXNL0NuH (zBKBNL0NuH Jh g$a0a(zKNHJ9 gBB*L0NuH (zKN6L0NuH (zKNTL0NuH (zKNNL0NuH (zKN$`0H (zK +g"@N0gN$'I` H (zKNfJ9 gBpLNuJ9 g!A$1B(FJ9f8La/B`0(@dRA@NuRQSa gBB( JNuaj0aJ@g|g 2aJNuak?a2aaJNuNu"VO$OaJkjJkfbak^B*aVkR"H @OG(OpAQak.H@a6LJk 3AJ&O0)LIEfBgB,OB`pOXNuJh ga/a Nua6rNu~?GSGJfJGk,RGSHpCC$KBa8 BLSGJfJGkBNupNu"^O$Oa(Jk>Jf8"OO$OpWQ$OaOXk$OB*adk"H @aka `pOXNuJh gO&Opr/ aaTa"_kvH``ECaLjbf\H@aLkN2+>ahaf/ aa`a|.$I$at7|..$"a7A>I$a\"_aaB`pO`NuaNuHa/ a0a "_adLNuB@( S@e/RHatLQ"Nu(I0( S@BQNuI$r p QRr BQNu*^"^4X$OZ<ga`aJkNa`*akB"H @ak8hJh g:aJk$+A;@H@;@ahk"Ma6BHGpaakJh g/ a >JkFa@g:JkdJGg^akZJ9 g (*!@ (0!@$0(.1@"0(41@(a("_aTJk*'A@B@+/fa k7@>af NupX`p"/ axa NuJGfp"/ a` Nu0avJk NuaJk'A@a aNup `p? k"+a0/ B+BI$<fg0)Xlfa"_aBNuH><@,x\M8NNL"_BNu"^42|<dp<PdjO$OafJkRJfTa/kD&Ha0kL @'HB0(<?<@ACC$rQg p"/ aN OXNup`pNuB*aNk"H @akr 0aakaj"/ a af`Jh ga JNuaJNuH@a2Jk8'AH@I$a.+/|f+<g+/|gp`B`pLNuHr<f<Qr0X8Q"YHAY(LNu0alJk.B(f$Jf"a(f H haLkaNu(gNua\NuHB&Hg,1@:*1@$^$0a@Jkt(<g(fakV(f^H haXLpJgJg4aLJk/ ( @e!@@  8f/a xg”Nua (!@@B`aN`pNu Nu0aJk(<g(g`faHNufJg| fJg/BA0aSf NuBNuH&H k&+B +@ge$akB8( JCg.aZ*CBd:pÔޅSEQJ@f~ajgpBe>SȂ(Jgb/a/aB"*JkV $B(ހJf$Jg.Jg*aނBh gpSBQJfafBB ѫ'k LNu"+ B0( d"+ggSƀBNupNuB2+f2+>gn7AB+at'AB B0( ( "+ dH"+gBg"(/B0( Sƀ2+a, ( @Ҁ'ABNupNu"(/B0( Sƀ ( 2+>a k7A`XNu+( f.0+ak |gJ@g27@aB+'ANuBNuR@"+R'ANuHP&S/aLgRfJfB `BL NuH&H k&+2+>B(( 0a:k&J@g"|g&JCg2SC`?pa0aKDrp*Q`H&H k&+BakB8( JCg0a*CBd:pÔޅSEQJ@f~agBd@ SȂ(Jg^/a/aB"*Jkj $B(ހJf$Jg*Jg&aނBh gpSBQJf a.g.B gѫ'k Jf '|BLNuB`BBf'|B`"+ B0( d"+ggSƀBNupNuB2+f2+>gn7AB+a'AB B0( ( "+ dH"+gBg"(/B0( Sƀ2+af ( @Ҁ'ABNupNu"(/B0( Sƀ ( 2+>ahk7A`XNu+( f02+0ak |g0J@g27AaB+'ANuBNuR@"+R'ANuaHk?a2`HX&SH@aLgRfJfB `BLNu0a2Jk@"6B(f*(f,$(@JCg (SCgSCf Ёk e!@NupNupNuaNu0aJkL$Jg(<fpNuB(f.(f(Jg1B:HB1B<&HaLNu0("@ iF<g4<g"<g<e< g< g<<d pNu`aadNuH@aDkaJk6) <g.abk&a\J9 gBB*a G"KaaBBNupNuaVNufSH " CC$ABa f  B"JBLNuH`pO"O&J0<A:aB!$OHRa:X"x8BB8saCNWgB`pOPLNuHpO&OpNWB"OHQaXp VfZpfRJgN< g<.Wg$g<.g< fSg<.g< fSgpfJg < W`OPLNu"VO$Op{W|\*.*B"OO$O/?</ / ,Oa$_\Jk&0*|.g|..f / ,Oa$_`,_OpNu,_OBNu08pkdpNu0+5@ S@rRHeA+S@ rRe+g@A 0+5@+ @4+5BB@BA**j5@ eRBB5@B2+f"+ * Vd^5A+ @5|J9 gBB*BNuaJg(Hd0$H&@*<aL &gH>< NNL`NuJh g"aga*Jj a aapNuapNuaJjapNuHLO*O||(@(@ "ha nB-J-gpOL2NuHLO*O||(@(@ "hBa $BJ-fJ -gD*@ `>HLO*O||(@| "ha B- J-gB<OL2NuH@@a1|`H@@"x8B8sFf )`EfbH@2)LB<SN&x8H@PS fQBL f$3|J7|JH@G2aNLJjB13|JL`(H@&I23|Ja&Jj 3|LB)r3AJL CNQ`LNu3|JO$O4f g| B$OH?^aLzO\Nu> ^B :fDJf@< <a<d28sb00aЮ2 x8pNB(E"^JGgl|gV|gpNupNu<`g<Pft@0aJkn<g Jf`ak\J*g(?HO$O?</ / ,Oa6O@LG<Jk.B*a\k""H @ak<Pf-HF=|J`2p`pOXNu*B"x8Ng )`Ef<A`FE*<A"N:BTRAf|gB)=ALB`/ <Pg(<`g"f"_/|S@a$|Aa Nu2(L|gSAQB`Hx"$& IpX`bHx" BBpF`PHxBBBBpW`>HxBBBBpV`,Hx" &B hpM`Hx" &B hpL`Hx$B& hpN`Hx" B& BpJ`Hx" $& pI`HxBB&B hpK`Hx" BBBpB`Hx" BBBpC`Hx" BBBpA`~Hx I" BBBpR`lHx" $ BpG`\HxB$ BBpH`LHxB&B hpO`:Hx" BBBpP`*Hx" BBBpE`HxBBpU`Hx" $ BBpDJxg<O*O|h@D +A+B+C"ha -OL3Nu0$^J@g|gd4(k0&^*k*S@gFS@gS@g akfff BBBBNupNuakJfJfJf BNuakakd* gSfNu"H&($("(҂,܅ (g= gde`e ĖeBNupNua$kakRJgTdB ")ҀҼ$(xH*L&8Le"!H#Aѩ g$Sf SfNupNu#DpЄ")#@g 8HH"HgSfBNuJfFp!Ѕ xH"H"8Le!HY r Wg`BQ BBB gSfNupNua@k (Nua6k2 (g = gpNuC"XE$8HHBgSfNu.8Dg&,8Hg G.ވI*Jp a fABNupNupNu 8@ga@gH @pafLNuHB 8@gag @+aBjJLNu+|gp` x@08vS@kRJg zQ`DH`"HB@+2BYp"QL0(xxdR'H Rh A\p B B`p` ( g0aJkp,*(fb ( g\*@akVJGgT2-gC\f fg C SAfpNuE\B2- ҁҀҊg E SfSmBNupNu6-g"SCC\$Ԇ k dЩe2C QC\B2-08x@dRm ҁҀ"""BNupNuH"hB0) Jfa:L!NuNu 8 c@HpprNO&$ļprNO L/a H`/prNO$prNOLNu(iN(i NNu xPTgx&(t*(x8<e|pNu xP"xTg"(t$ )tf!!x B"h$h B(!h ( g @`!J XL`Fp08XgFB2Ae>t|*xPJg. ^"$Լpd҈+Ht+AxԈ|BB B NuRS9f(HaL/gL`NsJxfHMJ8 gTB8*xTB9#|!||Pf +xt+xxKX*\;8+J8 gU+&;&+&+&HNh+ y= +CE$$$EF4`$bC$$$$$8 W %JxZfmK`*@>8X$<<0-g*Fd<"M*UQJgr| xPZQ*I`*xP!T|!t!xMX!\1.fJ8 g?</&?&/&/&m P ]#= EC$$$CF1`!bE$$$$$ ]N` 8TP| xNaBLL`!|J9g B9/8|Nu Ns,xP48X"9 9#猒Mp gbp.-@TgB=@,M|QNu/ fNn|gXeH@ ^"^2aL`@|,O*xp!|g|g|g2p!FNu.N`SB`"f" f2S2B`"f" f"S"B` <`b,VL /,o/|lNu|eJAf: |?N08n]@ x0NA`Q(V/ N f$,(BN Nu(VNNuBNuCDr"""""""NuN2N6NpNNdNlNtN|NNNNNN4NjN2N2N2N2N2pNuH` m$-&- +H$p"@$HA$$$BCSBf#@LNuH -$"@J)k4J) j(E") ¼ A")¼tNB) N| jLNu0<@Hp ($-$"B$kf&)kf$B%C`Dg>J)k  gaR&|dHp¼EtNL#A#C $i$$m$%I"v#C+I$CLNuH@Ca6LNu0< `X0< `P0<`H0<`@ (NuH`$I")¼ A")¼tNLNufN NuH@$ -$"@J)k ) j ሴfab jNLNuH@@" -$"@J)k ) ሲf |B) jLNuH`@(ԁ -$"@J) j )dea jLNH`@(ԁ -$"@ )de B) | jLNNN N$N(NNNxN\N:NNN^NNNNNNNNNpNuNBNuBNuH<g`MzSEg >&feV2>gH0akBJ@gȰCfak4?a02SGf.(( HzMY@Gd QBL@NuVd<<`HH8SD0a6k,J@ghCfak?a0@RAf2QBD2B0DLNuHpp hd86aP&JR@fBRahB@gH2<AAf0NuaJk gڰ|fBNuH@2BaLNuHpp hd406H`aN &JR0( S@@f BRaN "KLg BZZ|@|H` BZ<2<@Z||f0[]|Ha|atvx3CLa_<d<d<f Caf Caf Cap|a|߰<Ag$<Rg<Ifg<`g<`gB3aJgLNs0<NO`CL|gV|0gPCi0X<g@|ed| e"|eX|dRBSkF<dDC`(BU@CtvxaC=xt2`H5tvx3`"M`tvxC$a4C#atvxC#anC.xt#va`4C#art7vxC#aHt;vxCCa:$.C#aDt@vxC#a tHvxCI`46C#"@x 9)g|r p/NONuHBaHBZa ZaZaZ2|| e^A|0BNuRy yffaC92A"p2Q(A"29.0940000r1@PQC aC"pa4NuSyfapC0A"p0QCap24&HC$|xaLCR$|x 9)g?pNO0NOpNONu9fNupNOpNOJgBNO`BNOJgNu24 9)g |`24p#NONu$NUL #fNuH *yfIjB-@@(TN@H@L0Nu0CON FjvzRRr#NuH *yI`fHP@&-g"mBaSfL `t`pp NONu<[fH<6fB nf:A$ #$[H`rp#NO$RAa>;"HARAa2LRBNu<>f 1f<hg <lfB`r`¼dJAg<0BAHA JAg<0HA<0Nu2$|dAAD p"HANpNuZp NONu"Bp!NONup"NONup#NONup$NONup%NONup&NONup'NONup(NONup)NONup*NONup+NONup,NONup-NONuB9:@<dR/a< <eLgDg>aHrtp.NOB4<p.NOLNuH@:@CXrBvxp/NOL?Nua `aa` 0B|!d 9:@g| gA¼SBH`p.rtNOHB0LHB4HBp.NONuB9:A|dR/a:AAA20?|pNO0j0<NOp.rtNO 9:@gSp.NO 9:@da Nu pNONupNONuaH 9:@g"M:BB@9:@g<f @<*aTL@NuH<e>Hp 9:@frp#NO&|fp$NOSC"p#NOrtp.NOB4<p.NOLLNuHBg"OrBvxp/NOT><za><z2 9)gz!aL?Nu"Nr B4vx 9)gxp/NORB:M QNu0| d@A" pNpNuR`d 8<VpaanpNur`r x~P 9)g~0BB4Be G6<"VpRJf@e8SDk"Vp/NOB0GNup`pP 9)gp0Nur`r ~8<P 9)gx0`B:xO 9)gx/e04<vEHa LE2BQQNupahapP 9)gp0Nur`r ~8<P 9)g(x0`"pa2Nu2<_4<v C$@EHNOLC*@ENONurO 9)gr/4<vC0@EHNOLC5@ENONu4<v EHa LE2<BQQNurv0 9)gr vP4<EHa LE?BQ2QNu/</<"PNuH@&-g"maJgSfL`|a@ `p`laJgbar`B"Va0g&Jg0Q|gaarBNuQBNupNupNuA:B6<SAk$v |e|AgH@C$6fSL`BNualJf&J9$>gH@C$6ga `BL`Ȱ<eư<g<dBNua"Jf@J9$>gH@C$6Jga$<g <fa`a`BL`d< eb<gZ/B9$,fҼa2XB"NupNOJfa `< ex<gr<0ep<:e<Aed<Gd^_@|0?29$*A3$*R9$? 9$?fD|e(|d|d|d|d `aa0X2BB9$?By$*Nu2NuB9$>grpNO|pd Jf ?B@a40JNu|@e(|Rd"H ?aE$69$>0LBNuH@`C$.E$6pNOJgk$>LBNupNOJNuH<pd <Ze<adNqH@"Hak fPQ@kWS ILNuHPA#rWgL pNupA2| e| a L NupNOf g| `޲|eHg*|fH/B9:@R<<fBaL` B?<>>\`z|?T`l02|d@A pNpNO"HNupNONu0H`$rp NOLNupNONupNONupNONu(X(|e"|e|d<eS<_adfT(NuKBNu(X(|e,|e|d <eS<_<ga>`#NuH *yI`H@&-g"mp2NOSfL`p3NO@ ``p3NOJgp2NO`HP@&-g"mBp5NOSfL `p4NOJf|pNu؀PRN BB#NuH *yI`&.LPT dd#NuH *yI`vHP@&-g"mBAp?NOSfL `HP@&-g"mBAp>NOSf`p=NOJf\pNuCLOCK  4 4#NuH *yI`H@ -g pVNO"pWNO` pTNO"pUNO(mL`H@(m -gpRNO"kpSNOB`pPNO"kpQNOBLJgn0< Nu@@  DISK2HDN N F    j j p v . # NuH *y I `H(mM p8QL@`H,mI p` # bNu f f f f `H`a|B-<AtpNNOg@BL@`.Ha:-a( - g,+NLA`0-gj|g4|g|fH,m,DISK,dev1`Ha -`Ha-af,H m p Q-a`Ha,V mB@. 0`ppF`pE`H&-"m"-aff(:. <B^BS @JgB&&d6H~@pENOa(L~f$H~@pANOaL~f4<ԼB`LNu-|@@MLNu-|MLNuHp@2I|pC tpJNOfB)A f<gA x<g VLNuH&-"m"-HaLfNOafLNuah,V4CnbJB0. HARBAHA0.|0|g|HAI-|.A<pBNu0llll@"@"@"@"@"@"@"@"3Lcdefghijkl89^7<;=>?T6:$ C1 S CU T CA U S1 V SU WVOID ENWL JINS PN&CU FEOF ZDIR A:*.* DIR B:*.* COPY DEL REN DIR A:*.*/W DIR B:*.*/W TYPE DATE TIME E+ E- PVJSUCLS HIS EU rCON CON CON AUX nPRN ^4\z͠@FLRlllZ&~(@Z8$v|2 $NJLZR8l D.4¬Êɢr.Lp, ~l*ll4llllllllllllllllllllllllllPr~l*ll4llllllllllllllllllllllllllPrllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllfffllllllll|(&: t (F*0 H<2^  < @V *`l    @H4@ . ~ Nl H & $   0LH " ,$42 D$     . 28* NL"2|r 8&(<*. j((:J & , ,LdRxN<hn (*d~DDF nzh:^( X^t  "J6&   P L  p ,  J^B8<(00& &  $"<J\ > :V^V  x  Z    R (````HU8dR \ 4OPM 7H *zp-@0;N@H@L0Nu PCM  .H *zp-@0;N@H@L0Nu$MIDI `ZZZ``,,``ZH *zp-@0;N@H@L0Nu#Nu#rNu#Nu0AUDIO FNC `cCBASIC CNF VDBASIC X `EDOSFNC FNC wmEDS BAS pX>EDS PAL X0EDS SP X1`EDSCLFC ZMD }XaEDSCRFC ZMD pXcEDSED2FCZMD fXgEDSEDFC ZMD %XiEDSIRFC ZMD +XnEDSMOFC ZMD XoEDSOVFC ZMD mXpEDSRCFC ZMD kXqEDSRSFC ZMD *kXrEDSSEFC ZMD mXsEDSSTFC ZMD XtEDSTIFC ZMD bXyEDSTTFC ZMD TX{ EDSTTL PIC pV;GRAPH FNC `މIMAGE FNC `cF#IOCSFNC FNC TOIROIRO PIC 0XP MOUSE FNC `cSMUSICZ FNC ^TfBPEEKPOKEFNC eRASTER FNC f HUF@@@@@@@@BXtNuapic_loadapic_save`h|NNVaaJJkBB"nJnk#Jnk#$a.Jk?<Pfp<Iff<Cf\<fJfT# .y/9/9/9/9/9/9a<.y Jk.aAB/9IXN^NuNVaBB##"oJok#Jok#$Jo(k#.Jo2k#8a$/<Hy?9@O JkL"|(pNO|f #3# .y/9/9/9/9/9/9/9B09//9ab.y JkaAB/9IXN^NuB/<H$.HX#k&ւ#pm"<m "҂###NurpNONu?< / <\#NuBg/ =\#Nu?9>TNuC`>C&`6C:`.CR`&Cl`C`C`C`C 9g/IXpN^Nu.ag¾g¾g¾gggrC`"OHNV/MB .a" X,_N^ LxNu-O*=i(0) |b =@0)4)2)6)a i ) ad*n,. ~z-i$$9(a2pa 0.;4a 0.a 0.a a a 2a6(a a pNu"OHNV/MB .a" X,_N^ LxNu-O*=i( i )a|~B..-i$a BJ@f a 8S@|d ;@k =@a S@2a S@60) 4)@Baa$a a |aa dpNu0.r;:9(g ` ;.r߂9&??<#X9&Nu0.(Nu|m P-@ -HNuHH@e :fR ng|d|UdaHE:$B`|d|UdaHE:$2.26=A=`T_Gd|UdaHE: |Hng,2646= =2.46=== ==@46$H&I0RQ~Uda|:g0.@2.Q~Uda\:ffQ~UdaH:gEG4P`Q~Uda&:gdQ~Uda:fEG4P`EG4P`Q~Uda:fEG4P`dEG4P`TaNJf `0a0QNuJg4QNu0QNu0.c&?.=|a0|=@n a=|Nuah n "n$v2.SA4.SBRTJVg a0(?a2avQQR aNuHp4 S(0.@4@6nS@@v6` JgHPfDfQ~:UfazQ~:UfazQ~:Ufaz`UDnmTJ)gNhfHUSfQ~:UfazQ~:Ufa~zQ~:Ufalz`^XDnnVJ)gPhfJTRfQ~:Ufa6zQ~:Ufa"zQ~:Ufaz`]DnmxJ)grhflYUfQ~:UfazQ~:UfazQ~:UfazQ~:UfazQ~:Ufaz`PDnn|J)gvhfpXTfQ~:UfaXzQ~:UfaDzQ~:Ufa2zQ~:Ufa zQ~:Ufa zBQJj$Q~:UfazQ~:UfazQ~:UfazLNu2.f HYG︊JGj|:UfaBEHENuSAf HQG︊JGj|:Ufa~BEHENuErERWfd AH`Ing,0646= =0.46=== ==ALH<QG﹊JGj|:UfaBEHENu2.26=A= ng$HH|︊JGj|:UfaBEHENuQ~:Ufaz|︊JGj|:UfaBEHENuH(rvtRAԂւbRSȂS|b>AﺊJGj|:UfaPBEHEA＊JGj|:Ufa4BEHELNuvC B@H@A︊JGj|:UfaBEHEp0C︊JGj|:UfaBEHE B@H@A︊JGj|:UfaBEHEp0C︊JGj|:UfaBEHELNupR@Q~UdaZ:fvS|d@d|Uda8HE:"ƒցNu|@d|UdaHE:"|d|UdaHE: HA2ƒցNuHt nfSB n "n$0F@6.SC8.SD2BAVg00QQLNuH n$0.r@t&(*,."B$B`Q`H?`H?`H?`H?`QLNur0.gS@f2<A a(0QNur0.gS@f2<A 0aQNuUda0Nu:UfaNu/J..f*n/. HU?.(?\g JkP.܀ Nu/*n/. HU?.(@\Jktfd܀ Nu:ś/ /.?.(@\JkRfBNuH Nr4<pBX0PA|fBA0PB|fBBTQBnLNup`p`p`p` p``p`p.n*NuPICʃ[hႢ܂ȏǂ߂܂fBXNςłfBXNɏ߂܂OtBbNʂĂ܂ʒuwɌ肪܂sɕKvȃ܂ohb`̃t@Cł͂܂w肳ꂽt@C‚܂0@  & . JHU(4VVVPVPVVhV1.01-8710 pgBNONuBNuaBNuA!@Nu"o a$C "/<dI / <dJo$k*e$/*g|p`NO`"o aR$C "/<dXI<Jok eN$/ gHpaNOpfNOJf`bpfNO`^B`r`rpgNO`H0)2)RAgNuH@B@Nup`p`p/S"{ pa" Nu77R\dfffva_playa_reca_stata_enda_stopa_contȃTvOgw肵܂ȏo̓[hw肵܂ȃf[^TCYw肵܂FREE = 1500 WIDTH = 96 BEEP = ON CAPS = OFF FUNC = AUDIO FUNC = GRAPH FUNC = MOUSE FUNC = MUSICZ FUNC = SPRITE FUNC = STICK FUNC = IMAGE FUNC = APIC FUNC = DOSFNC FUNC = TGRAPH FUNC = IOCSFNC FUNC = RASTER FUNC = SPDEF  FUNC = SPDEFHU + *`V2.02-8906 OBya.y##aHz?<%\pa(aaXpaa,A6acpaaA;ac 9AatAacACacJyfAacA8ac3`<##,_.yBgB##BBBByByNBy`&Jyfaa acP`#ByaJyfB63P.y#abAabp Jygp.ah abaAade,garJe2a&a-e09gye3`JygBy`ByByByCa.>ea_DByA#Jyg.y#`xa`p09g:09"ya9f*a=labACa2 AaaA`aNu2a=@`aJygAXf$a y#09R@g`aaAaaaa`|Xaafp`p33aa####aa\AaaHaaaLpa&&Jyg JygBy`<NuJyg yܱggB0Ј#3X#<Nua lgr<g0`JyfRaqfAwCap`/AWCapC _a BHyHy?<KOJk?HyBg!\Hy?<!\pa%2a_a]BHyHyBga_3KByO/kAa`a`&a`La_rHy?<!\a]pa$Jk?T`ahJyg ya###a`(ea <<g<g<!gHzaX<g <g$~<gh<g(a1dJ` (gB( (gBP`4`&R<0d <(d<d v< d JygC`$<(C`JyfR<d dC$HIa j"qNaa pgv<g$<g<g( f Ra Lf` Wf bTRa` Wf 8R oga <fRaX`,_ Wg WfT`NaJyg yܱf~adBypa#"a^R`"y"##NuH@@"9g hҹ"A"!##e RLNuJga]A`]9>x;AA;;=;.99<;"8NTJk0CuIxKMTa""La""Ma""Na" yCdBa\#g*d #//9JPJj `Aia y 9BXf#uNuJf #NuABGa0e&<g < g |dNRG`aeD< f>BNuFy`/<Hy?9?O Jkf<Nu9NuA`0a8A0`(a0A` a(A8aXA`AaFA8a>a6 y`.By`Aah0g@<-g</f"Rag<cg&<fg0<wg][] /c RtBO[Vt@C̎w /f<1`65535> t[GA̎wijaj /w<64,96> \̎w svO̎w iȗꍇAUTORUN.BASj basic.cnfautorun.basfreefuncwidthbeepcapsonoff t[GÅmۂɎs܂Bw肳ꂽt[GA͊mۂł܂łB ‚܂łB ̓ǂݍ݃G[܂B ̃t@CُłB ̋LqԈĂ܂B ̃[hɎs܂BBaeNu/ "@"_Nuag <b<NuRR< g<g<gJNuaeNuaް<f.RHNuaaeTNua°<,fRNu<f (g<Nu<,fdRNu<;f`RNu<(fdRNu<)f`RNu<{fRNu<fRNu<]fRNuae"NuaF<f (fTNuHz Z` Hz 5`Hz kaXxaS _aS|aF`Z/ C`C` C`C#aXFaS\ IaSJ _aSDaaSDaSFaF`Jyg8B093A...acHBAaRAaRNuaR yCa"29ga.*aRAaRaR"9ʒJyg\JgaRSf0<^aW`RHz`Hz`Hz`Hz`Hz`Hz`Hz$`Hz9`HzH`Hz`Hz`Hz`Hz`Hz5`Hz<`Hz`Hz`Hz`Hz*`Hz>`HzT`~Hz`vHz`nHz&`fHzE`^Hzf`VHz`NHz`FHz`>Hz`6Hz`.Hz`&Hz `HzK`Hz`Hz`Hz `Hz`Hz4`HzY`Hz_`Hze`Hzn`Hzw`Hz~`Hz`Hz`Hz`Hz`Hz`Hz`Hz`Hz(`~Hz?`vHzR`tHzm`lHz~`dHz`\Hz`THz`LHz`DHz`e<ga`Rag<N^NuC(`aag<g<fJNuaf a,ea<NuRfNu(<g<g<g< g<g><g<g<gL<g`XTRRRNu<g@b$<!g<"g&<'g$<{g`a,d8`ΰ<eư<e`r"`r'RgfRNu< dSeBHH/;Nu&"~~~~|.H~3aL~NuH~3aa 9L~NuH~ByaL~NuH?~Byala 9"9L~NuH~ByaHa 9L~Nua఼dJNuH>Bya yf^"yL|NuaNua<f2(<g<g<fT`a`Ta`a< d<cJyf԰<gb<g`g6< egR<e<ea*`RB`BH`B`Ra "aA`NuRB@<dH/;`Y:HG)<)XY.H0<"g<'g2<(g ae029f?a,3NuRa`B"HRgа<'gd`A 3B#Nu&J"y$Ig`"y$IRg <"g`RB g3B##NuBa"y$IB&yg Rg`&ygRg`"y$IBg~Rg~`CBC(<gp<g<f( (f p (gp (f (fTE08$RNu % &R &&&(x(P(n''''( (&(((d?< aJ` ?<` agBga yga묰<f&aWc IHz/9/9?9/ ?`TNu09g6|gV09gS@fNu 9aN##3Nu09g*S@f 9aN##Nu yfNu09gS@g` 9"9aNbe4a~09gS@fZNu 9"9aN:e B#Nu09gS@f( 9aN `B 9"9Nu09gS@g` 9"9aMe` 9NuaΰnmNu3##,_3##NgLi8`ab`a4ad`a*ac`a09g&S@g>/ y"yaK _Nu 9"9$9&9`J 9g mDNuDNu `a;XA a;D`$֐̒ԃR[hُł 9`L yJgH瀀 pNL P`Nua &j.&s$j*$raM2kH0aL 2j|g|3aBa#N#gJyf yJk:`a y<Nu09|g##|f(h y`$gaȰ<,gP<)gXg\0I|gHa a)xe( gL|g SAjflriAgb`vRal<)g#Nu|?a a(egri_f<,,a.e a<)gbNuCIDbSgJf``C`尖`̃t@NVR[G[łȃt@NVR[hs܂w肵t@C͌‚܂w肵fBNg͌‚܂I[vĂt@C܂fBNg{[x̓ANZXł܂w肵nh̓I[vĂ܂Ǘ̈悪킳܂ŝɕKvȃ܂ȃǗ|C^w肵܂sȊ‹w肵܂st@C̃tH[}bgُłI[vŃANZX[hُłt@C̎wɌ肪܂ȃp[^ŃR[܂hCuwɌ肪܂JgfBNg͍폜ł܂ioctrlłȂfoCXłȏt@C͌‚܂̃t@C͏݂ł܂̃fBNg͂łɓo^Ă܂t@Ĉō폜ł܂t@ĈŃl[ł܂fBXNςŃt@C܂fBNgςŃt@C܂ẅʒuɂ̓V[Nł܂X[p[oCUԂŁAĂуX[poCU[h̎ws܂a09Nu,Oa3g< fR,OCaehgRG3aVB09aXe:B09X@"ygU3`a$0093029IC0SAfNu 9##"y09a * IfB0Cg $H4ٳfD`$vaCe>aDe6Jg0d&2Nu,OBGga`RGBNuj\<e<eRGRG|dNuHBaHB0Ha`BA< g< g4gp SAgpSAgp`^ARAR`ְ< gΰ< ge<g<!g*<"g <&gv<'g<.g<:g<?gd<}g</f (*gaBdE/adae2aa<(g*<.f,E-adE.maeVR<(`R`adE/adXE/yad:E.adE.CadE-adtE/ adVEga`Xaa<eNuPa(?<$g<?g aBdaep a0NuRp`vpap`pala``pa\a< gj< gN<gH<gB< g<<gZ<gT<gN< gH<gBNuRt,paal<g<gNuagaAtdJa`aaA`dFNua<,g2<-g"<.g&aA@da.dNua`a2a`<a$`a`a4pa4`aAe| #fRBBCJCg2d |dJfp `\p `RpaP`DpaF`4$&pa8a&$` Ra@<bgh<hgJ<of Ra@eaA>et d|dB`XBa`PBa`Ra@teaAet`Ra@` &Ba>`&Oa>`a>INuRa aIa>HI#NuINuRE*Y`ra$j&`jRH$yJg|je$j$R`R<eE*Q`6E*HNuRE*0` RE)c<(e<(E)%`RE(JgJgJfS`Jyga=nJfNuaeNu<_g`T`ǦBA<@fRFA3ZNua$IaPg aҺaFg`lByZBy"y6fV yC:a6 y6C:aϞC:`.JyZg`a~a0a2eag~a3X$Ia^Bg/ =\Jk3\3aByVABAa<g< g|gRA`Baİ< fJyZf&Aa6@a5^e|aeLyVct3V`Aa6g`a56dNAae09XydpAa%`JAf0?9\>TJ6f`JHz`Hz`Hz` Hz`Hza%Ra*4 _a%T`H@A29j/</?9\?O JgkBA0RA|er3LNuH JC$Ia4Hy/ 7PJkJ9Vf "JAvaLNuBy2HNV OB0ra4 OaN^LNur 3ag$a*e 3aga4eae~2NuaJ"yg60)yPd0C` I0)yRb0Cf f<Nuaτgbadnaόaneaxae 3PaN`al3PaϐeLaDg*aX3RyPd3PR3PNu3P3RNu3Pa3RNuaf3PRNua<.g ad `zR09Nup`B@32E^aδg"aBAJgg RA<:f|fJf*.*BHy^Hy^)P?<0Hy^Hy^NO Jkva9s<fT 9.|f9}gB<.gar/Ea /pXNO"kpPNO"kpQNOB _kNua,NeF)a,De<)f6)a,4e,)a,*e")f)a,e)a,eJ)fNuN/C(IpTNOH@HBp\NO _`D/C(IpTNO"pUNO"¼ pZNO _`/C(IpVNO"pWNO"p[NO  f0 _`H/<P<de<daX/0/H|aH//|a:BLNuHHHa(:0/H|?a:0/|HaBLNur arBRd</Nu09gS@g "yJNu 9"9`*JNu0g|g|g |gNuTT`Baƈ,_O>N3## oO8Nu//8Nu<f(BA<!g FA< fT3NuCa|0| g|g|g|g|f*.I`CaL Qgx Qg Q g` a "yafr a6?yf3/y/y/H I`ha"yafȜ ICaa.I`BaJ fRagaŊgİ<gXr`R`>a:<f$RXabgǜr?<{fR?<a`Nuraa/a4<frRa md/@"/J?y/y/y/H a2?y/y/y/H3## o `2a`$X Wf"O$i Ri$$.I"o`raa209g,O=y.-y0-y4//9/9?9a=y-y-y-H3## _av<g<fv>`tar09o.ft3.#0#4atf>`< of`H of?|NuX Wg Wg`ra,O=y-y-y-H a//9/9?9a=y-y-y-H3## _agl`X Wfz"O3## i aӖ.I`r a"?y/y/y/H aи?y/y/y/H3## o `X W fa"abg`3## i/ a.W`3## ia.Iagx`X Wf3BBaN.y#*#&3## o `,X<(f6R"9gİ,A )ga aa`0..gNU@elg҆`Ґ"Oa Q fxa.I`aa`B<)ga8"a`a||f(Nua$a eĺgNua<[g\<(f:Raef gaT|gӞSGkf, `| "`Նae^g¶|fR`naB`NRae6gŽ|f†aіblE`(apaVeL|g`\a`<[gL<(gNa4e fg6|fNBFRF`F/ae _~a&ab0<aB`$ad~`Rae f gaRaaИ|g SGk gaՈNua&$$NuaF$Nu yf@"ygSFfBNuX8?0R@HGBapB2b "a|<)gaSDez a"ց`RցJDfn <B2a"E|fSFNu<f"B(<e0<b(<T`B` ~`~`~,_0g|f´aJWad† (g:aaJWaa6a԰<f/axa:a.aga`NRBBK a,d4:RRJg a" JfH`"az<)g a`Ra.B;pf6RC a!Jfd$RzY҅PaFЁJWaH0<a$ S44GXHPI rB4Sg 0%Ra!v'`L&J BSfgaҰ<f,a8`GB2R4*g6B0Ra!*SCfJB<*E a!$a:aaa2aH#`|fSFaLa<g gfa`RNuaJg<fae^`z [f|fRaͮmn*a`a|g C<1pNuEV@Nu V@Nuga(_T#"O?<Na"y$yg5f`0/ 0<aμgRXNuX<Nua@f f,CNu||g ;CNuX@CNu CNu0BA XENuѹѹѹNuaeNaar<aB0<a&J6 6&&&3 L##BaBAaL,Oa=Z.3## Z )gaaˈaaaа<;g~`*Ra<fB(<e<b<TB yf/ ya*R _ara>"Oaaza`<)gaaLaPa`ja2-y*-y&##Jnf3?<`Raa a/ n -_ ?9/9/93##-_-_=_NuOC$OSf.89(H*y,y ygjaa<fT (fLTarz<fBE(<e2<b,<T3 a8fC$O f SfO@Nu y`O@3 L##<Nup ` y.y#`İ<"faIa < fR`B<"fRg$Jf< g<,g`g RJAgSA`RBagaJy0f\abgV<,fR`HIa>Ie$%A`Ia*Ieae$`IaIeaed`R< gJNua:<"fafIa Ia$<;fxRp?a` |<(fRaJfax?<$TJga UB/Wg(Oa(TNuBg`B@`B09R`XB09T`Lg<[gaǦ|ep`,RaJg4BAa<,ga*4aa2g aRA|e` Rag`RNua:dJNuaF<]Nua>|@g|`f43/a` _Nu<,gayd2aaZaS@ydAyd4aa4aְ<d6Byd y@dJCf3<3>3@/a _NuR29<49>`<,gJazyd|?ahaabybZ?a2g aa>a20`Ra,aa&JgSf03PNuByPNur`BA32< fRa$aPaJg/ a&"_aJga(`ag<;f8RNuSg$Sg,SgFafNP Oa OabO, _NuaB@``aŴB@g aRSfNua>SfNuaŖIa& INua>g&<g`<g|<,gа<;ga/ yg(A4aBA4 -gaaa _` ya`RaTa"aTJgzaS`Ra2aļ"a2Jy2f(yReLydyRg:a`a\`.p a JAg"p a SA`p aDRaNfNu yg 9"9` 9`aB@fNup `p ap Jy2g ` ^f[^̌^Ⴂ܂f[^̌߂܂f[^̌܂agB<!g@<#g<&g6<*g<+g<.g0<@g2<\g԰<_g(`BGNu~Nur<&g < fR`~Nu~Nu<!gB<#g<<&g6<*g0<+g*<,g$<-g<.g<@g<\g <_gp_`HR`Bx<#g^<*g<\g@<.g`ZB *fPt<#g0<\f:RR #g`(B \ft`Btv<#g$<,g<.g<+gl<-gv<^gH`|RR`R` #fBB #fB<#g<^g<+g&<-g0`=<modshrshlandorxornotJyPg?<#TNu?<#TNup rtNONuJyfp rtNONuHy?<!\/9F?<-%\NupNONu29B@rJ@k|23B??<#XNu?DB090 S@fBXQ3<TByR29R49Ty3@a\p y>g pJy@gB@??<#X09>yRBa$Jy@gBAtaf090 S@fBP`BAaLBhNu?943TNuBg3TNupaaN?98?<#X296` BA|`gr??<#XNu33aBy<3>3@ 3J/9FNu|a2fNup `&JyRgp ap `Bg TByJNuaJj<e<eH?a_Nua~Bg$TJg?a0|Nu/a(|f aaְ|g NuJyJga<NuJ@Nu?<$T|Nu29R49T&9AA yNua0HJgkSNuDNuH,OaN|g| g||g$|g| e49RTByd?a`Ŀg0j4H|g,|d&papap ap apapa`pap apa`t"Ng0!j @HT``BaaN.NL<Nuana:az.NL<NuJ@j ?Ha0|`jH/B@a,aaT|g| ga`J@j?Ha60|`,|gP|gx|g`|g|g |g @| g,| g&|g X|g|gj|g `al09R|fNuaXaZLa<NuBA49TaT0g |fRB`3Ta`\B@a@"_BA49TayJPg: PfTRB`0k|g"|e 0TANuRANu@HTTANu ! gRBaDaL<Nu09LF@`aJyRf09Tyba`<Nu3R3TNu29R49Ta:0a"e3RRAyfBARBy>ba`ְ|0e|:e|Ae|[e|ae|{Nu <Nu49Ty>gRBBAa1|Nu?<|?XNuJyDf`Nu3LJ@gp??<$XNu<eBR/ ?<A!\NuH|29`g By`IAa aLNu| eL|eg@|e|e|d3`Nu2I|g|d?aa cSyRaa09S@yRfa0aa0aa0H|0aaf0a`@0||0`z?< a`?aaegSyRa(aH00a`L0aafp 0a`?a`aregSyRaa00a`0a`a,0< 0axRyR09Ryea0ByR`Ұ|gZ|g| g| g| gr| g0| gl|g|g|g2|g`|gNuacT0g|g p aBg?< #Xp 0JPg Pf09Ty>gTp ap a`0<`0< a09R|fNu09Ty>ea`a0cT0g|fBXRBp aLBg?< #Xp 0JPg PfBPy>gRBT`RyR09RyedaJPgTByR09Ty>gD09Ty>g\RyT`*SyRj 09S@3R49TygB0`$09g,0JQg&JPf"EJRg Z gJPf0HaLpNu0 B@NuAf0fCNuBA49daBA49da00g|ga`|g8J@k|e|aR0` ?HaF0|`gBD:9dRE` 89R:9TBA4aR?<?< #X24a>BA4a$Hy>g4BA49>ar&H"9D"H092S@fg2f094 S@fBR29SA49>a( Pfap 0a`24`NuBA49a8?<#Ta BA49y|e2 hf?0?ax40Tg0|a0)0X`T0`T0Hav0|an PfT`y>fBi`T`y>fBQJhg 0< 0a:`0< 0a0`09B@aXp>a09B@`Fp`?Ha0|?Bg#XNu<,ga<dzH4a|aav<dbH@adaa^<dJ@aNaaH<d4BA/?0H;`k";Y|33:pNOavJ_g <NO _NuRaaRa<d49:k@B@2<`      @@@@ @@ @ @````````0Nu2Nu3Nu1Nu4NuNuNuNuNuNuNuNuNuNuH@ $LNu(Nu)Nu*NuKNu+NuLNu,Nu-NuMNu.Nuad<Ae<[ <Nu<ae<{ <Nu<0e<: <Nu<0e<2 <Nu<0e<8 <Nuad<Ae<Ge <ae<g <Nuae< Nuae< Nua<ae<Nu?Nu$&` o a`p`p/S"{,Ba Nup`p`p/S"{BBa Nuwwwvvvvwvww wvuuuuvvBvVuvjvatofatoiecvtfcvtgcvtitoastr$valusing$atobl̕\Ɍ肪܂I[o[t[łA_[t[łz6z4z4z4zHzHzHzHf~Ap1|PQNu<Ae <[d< Nu4/B$HBկdRW$HBկdRWH@HAП"NuBv㒴eQNu,OOHW?.6Jk`,O . aF?(>1|Jk`,OrBAPJhk?(>1|JkRPQ `,O . a0(gH`afp1@`v?<B?(BJkL"?<B?(BJk8$Bg/?(BJk&ONu,O . a hga kf`NV/<Hn?(?B.N^JNu,O"n nala0|g?/ =`?< / DJRXJ`@>7dskffclosefcloseallfeoffgetcfopenfputcfreadfreadsfseekfwritefwritesfdeletefrenameI[v[h̎wɌ肪܂t@CǗe[u܂ȃt@Cԍw肵܂ǂݍݐp̃t@Cłݐp̃t@Cłȗvfw肵܂V[N[h̎wɌ肪܂6B NuaBNuAT!@!ANuaBNuA@B!@NuJok /"/ aep`a` /"/ a` /"/ a ` /"/ a` /"/ a` /"/ ae `p /"/ ae `\ /"/ ale`H /"/ aTe`4 /"/ BBaca,e` /"/ ae` /"/ agL /k"/ $/&/ae` /"/a>apf /"/ $/&/aeT`$/&/ /"/ ae:` /kB"/ ae&`x / JkF`~ / `@`\`jg i`p`p` p`p`p/S"{$BBa2 Nup/S"{ Ba0 Nu04BP^ldx||||||||||z|~piabsfixintsgnsincostanatanlogexppowsqrrandomizerndrandsrandI[o[t[łA_[t[ł[ɂ鏜Zs܂͈̔͂słȈw肵܂FA&B#Nu< g< e<`t<gr< `ha^eha6``<gdZ<adX<GdN<ANuadH<:d><0Nu<[d2<ANuad,ad(<{d<aNuae< g<Nuad< <Nuae< Nuae< Nu<NuB`paBNuAT!@NuB9CSA@!IBNuAB!@Nu o "/BgRJf` o "oB$IgJgf`R` o BJgR` o R"HgaZ` o R"H /"/ g|kxJgrSf`h o "/Btf$JgR` `. o R"H$HJfSc2"` o /R"HJg` o "oB$IgJgg`R`"o $o yJgA&Hfa&#Cga*e`a#B`R&Jg ggfNu&JJgf<Nu o R"HgxaD` / adH`@ / ad8`0 / ad(` / ad` / ad` / ad` / ad` / ad` / a@d` / ad` / aPd` / a0d` / a` / ab`~ / a``r o B`f"/ gXkT oJgJ"o Jg@BRSgJf`0$H&IJg,Jg gRR` / Aaj`" / CoB)` / A]aL` / AMa@` o /gkC1gSfB` o /gk"/ gkSgJf`CgSfB` o "HJgR`Eӱg`B`p o /g^kZ"HJgR`gTSSf`J / g8k4t ABRgfB`" / gk og o`$/`ACM<a<a SfB`ܰ< e<'<0Nu o rBBa<Ad<g<<SfA!B!CBNu &&*0&*&8>B ,Lb$4DTdt>Np`*Npstrchrstrcspnstrlenstrlwrstrnsetstrrchrstrrevstrsetstrspnstrtokstruprisalnumisalphaisasciiiscntrlisdigitisgraphislowerisprintispunctisspaceisupperisxdigittoasciitolowertoupperascinstrlenbin$chr$hex$left$mid$mirror$oct$right$space$string$float$hexfloatfiles load auto list run /*width endfunc system  ` X <      4      "&   4 @ $8D     &     2( D 0*   b  R"> * p&"           R : dX  p2:Ljv,<Lv& D    & N.8 , (  $  (6  8" *" 6  <  *  J0  ,   86` F    &R  "((   8j  ,\ B$D "F   $  > B > R&    6    X" Jb&     6( :>(b8**H     ("  > L , (*    |&46:\r   HUP6@@@@@@@@B~Nudrvctrlchgdircurdirfilesnumfilesgetenvsetenv_systemBZF^2/k\pJok& og `e b :f Ag.b ?T`TO/?2\p/O``:`4S@e`?TJl `P// ;XJg CNupJok& o g `e b :fO/?\Jk( OCfR@@@:fOC`O`E?//// NO JkrrRA/ OXJg ``8224E?//// NO Jk6&o (o**o4,o>2+lf>mf6nf.4+p A"K0S@WBG ( *H@*/ OXJVfp`"oJol/ B//RO `bCB/ B//SO `X o OC2$Of| fC OBH?<KJkBWKO` command.xpA!@pNuA !IpNuCpNuCpNuC'pNuhCu̎w肪ԈĂ܂Jgw̃hCuɕύX邱Ƃł܂łJgw̃fBNgɕύX邱Ƃł܂łw̔z̗vfقȂ܂V償 ESCAPE die SUCCESS SHINING STAR GAIDEN Ver.1.0 Copyright 2023 iroirotei ̃vOɂ‚ @A[P[hQ[(?)̃GXP[vANV傢Q[łB @vC[͋ŎƂ󂯂‚A^C}[OɂȂOɁAk̏ @NAĂB ‹ @EX68000S@ @Ev2MBȏ @EvWCXeBbN @@vCۂ́AK{̂ JOY STICK 1 |[gɃWCXeBbN @@i܂̓WCpbhjڑĂB pK @{vO̓t[\tgEFAłB @{vO̒쌠́A낢ێĂ܂A @@pɊւēɐ͂܂B @{vOɓɊւĂ͖ۏ؂łB @@鎖ڕWɐ삳Ă܂A @@{vO𓮍삳ƂɂA{́AӋ@퓙A @@̃vOɕs^ƂĂAؕۏ؂܂B @@e̐ӔC̉ApĂB @{vO̔zz͎RɍsƂł܂B @@Lzzꍇɂ́AfBA{Ƃ܂B @{vOۂ́A|Ɖӏ{hLg @@LĂB NWbg @t@t@[ @@uE}[`v Short ver. @@@ FElmer Bernstein @@@ҋ FJohnnie Vinson @@@MML CodedFARX_UHO @GfBOe[} @@VśulŁv @@@쎌 Fxcǎq @@@쎌F{A @@@ FcOq @@@ȁFH琡u @@@MML CodedFARX_UHO N@ @tbs[fBXNN @@E{̂Ƀtbs[fBXN}RESETsƂŁAIɃQ[ @@@N܂B @•ʂɃvONꍇ @@Eȉ̃foCXhCo풓A @@@FLOAT2.X @@@HIOCS.X @@@ZMSC.X (Ver.2.08 ZMUSIC.X ł) @@Eȉ̃R}hŋN܂B @@@CD BASIC2 @@@XB EDS.BAS STORY @xŋ}ŊwZ֌̂ւ̃cCe[B @ꂩ炩AsKɂh̍ZɒǓ˂Ă܂B @yȂĂȂĎ΂ȂcCe[ɑ΂A @wZ̎AZɌnꂽk̏Ƃ́EEEB oLN^[ @E[i(LENA) @@̂ւ̃cCe[ @ET(SALA) @@Mۂcf @ENi(CRENA) @@ӂ|jeq @EVA(LESIA) @@AjCȋC @Euq(MOB) @@uȍ @E搶(GreatTeacherOCCHI) 1 @@ꌒSam() @EZ(KO-CHO) @@h̍Z @Eg[Xg(Kari2GORUAToast) 2 @@JJ @@1 Ƃ邨ꌒS()ȕɎĂC܂A{l֎gp‚ @@@@Ă܂B @@@@[͂͂SSB @@2 Ƃ٧!ȕɎĂC܂AOɂ{l֎gp‚ @@@@Ă܂B @@@@ɂ{͖EEEƎvĂفBi]Iϑj @@@(;) ɼ (Q;) !! HOW TO PLAY @Q[X^[g @@^CgʂŃgK[iǂłjƃQ[X^[gƂȂ܂B @@ZɂčZ̎kiHjJn܂B @@k̏𕷂ƁAvC[͋ɌAƂ󂯂܂B @@GXP[vJnłB @@iGXP[vJnĂȂ񂾂EEEj @@GXP[vJńAԂ̌o߂Ń^C}[Ă܂B @@OɂȂƃQ[I[o[łB @@̑OɃNAڎw܂傤B @@ʉẼWCpbh\uAUTOvɂȂĂʂ͑ł܂B @ƒ @@ȉ̑ŁAړ܂B @@@@@@ Ȍ @@@@@@@ @@@ړ@@Eړ @@@@@@@@@@@@@@ @@@@@@@ @@@@@@ Ȍ @@@@X^[g @@̐l̐Ȃ̑OɈړAŐȌオł܂B @@FBhAO̐Ȃɍ点AhAoƃNAƂȂ܂B @@FB3l܂̂ŁA3JԂƂŃI[NAƂȂ܂B @@ŃhAo邱Ƃł܂AFB~ołȂ̂ŁA @@NAƂ͂Ȃ܂B @ANVfg @@搶EĂƂɃvC[ȂĂƁAӂ󂯂܂B @@b̃^CXƂȂ܂̂ŁA搶̍sɂ͒ӂ܂傤B @@FBȊO̎qiuqjƐȌsƁA܂ɐ搶Ƀ`N܂B @@[U[U󂯁Ab̃^CXƂȂ܂̂ŁAxȌ @@JԂĂꍇ͊o債܂傤B o[W @Ver.0.1 2023/07/15 GAME ANTIQUE 2023 oWo[W @@TvWpo[WB @@EȌゾł @@E搶͓Ă邯ǁAȂ @@ENA @@@^C}[sċQ[I[o[B @@ł́A߂C^v^؂-BASICɂĂ܂B @@10MHz@ł̓lƁAX-BASICł͐hȂĎQ܂B @Ver.0.2 2023/11/23 RETRO GAME SUMMIT oWo[W @@Ƃ肠Q[Ƃē悤ɂȂo[WB @@Ev[O @@@sKɂh̍ZɒǓ˂Ă܂fB @@@{Iɂ͑OREAL DUNGEONƕς炸Awi͍ZɂȂ܂B @@EkʁiHj @@@Xg[[ƃQ[̖ړI悤ɁAkʁiHjB @@@ς炸ړI͗ǂȂEEEB @@E搶ɒӂ鏈lj @@@搶EĂƂɃvC[ȂĂƁAӂB @@EEhNAEI[NA @@@Q[ƂẴNAB @@@Ver.0.1̓NÂ̂łȂB @@@ @@@Q[[͈ȉ̒ʂƂB @@@cfA|jeqAAjCFBƂāA1ɂ‚1l @@@~oăEhNAB @@@v3l~oI[NAB @@@^C}[OɂȂQ[I[o[BREAL DUNGEONƓlB @@EGfBO @@@I[NÂŁAGfBOB @@@ԂāAZōZԂƂ΂ʂɁB @@@\肵ĂGfBO͂܂ɁB @@ELOEl[Gg[ @@@fʒɁALO\悤ɁB @@@REAL DUNGEONƂ͈ႢA{̓^Cł͂ȂXRAŃLO܂B @@@Ȃ̂ŁAI[NAȂĂl[Gg[ł܂B @@Eafl͂Ȃ @@@܂ԂȂEEEB @Ver.0.3 2024/3/23 RETRO GAME SUMMIT Lv.2 oWo[W @@኱oʂljo[WB @@EZɓ`̎lj @@@Ȃ̓`Ȃ񂾂낤EEEB @@EuɃ`N鏈lj @@@uƐȌsƂɁA܂Ƀ`N悤ɁB @@@P̂߁AXgXMAXEEEB @@EGfBO{̂̂ɍւ @@@wi͗[Ă̊CɁAZ͂œɁB @@@𒭂߂鐶k4lB @@Eafl͂Ȃ @@@ԂꂸEEEB @Ver.0.4 2024/4/21 GAME ANTIQUE 2024 oWo[W @@قڂقڎ͎̂o[WB @@Ev[OɃg[Xglj @@@u[[v̒ԁB @@@NɎĂ悤ȁEEEB @@EkʁiHjɃg[Xglj @@@v[Oŗ΂ȂɂȂĂ܂g[XgB @@@ȂĂB @@EEhJñbZ[W @@@GET READY @@@PLAYER ONE @@@@ROUND @@@@@X @@EQ[̃WCpbh\lj @@@REAL DUNGEONƓlɁA”\ȃL[ƁAݑ쒆̃L[\A @@@삪₷Ȃ܂BiԂj @@@łȂV[ł́uAUTOvƕ\܂B @@@ߋ̃vCAuoWŁAs\ȉʂőĂ @@@߁uAUTOv̕\͕₷ȂƂ͎v܂BiԂj @@EQ[JnɃ`[gAlj @@@ȒPȐɂĎB @@@RETRO GAME SUMMIT Lv.2ł̓[킩ȂƂ̂ŁA @@@ŃX[Yɍs΂ȂƁB @@EvC[̕\lj @@@REAL DUNGEONƓlłAp[J[琧ɂȂĂ܂B @@Eʏ㕔̃bZ[W{bNX @@@vC[ȊÕZtAʉ̃bZ[WGAA @@@bZ[W{bNXɈړB @@@ʉ͌ɂ̂ŁA₷ȂƁB @@@kʁiHj̍Z̃ZtbZ[W{bNXցB @@@vC[̃Ztƕ\邱ƂŁA\҂Ԃ @@@炷ƂłB @@Eũ[U[Ulj @@@uɃ`NꂽɁA[U[𔭎˂ăvC[΂ @@@oljB @@@HĂŒ̓vC[uN\ɁB @@EuɃ`NC @@@pxቺB @@@2AŃ`N邱Ƃ͂ȂȂ܂B @@EGfBOɃg[Xglj @@@͂蕂ĂB @@Eafl @@@Ԃ̊֌WAro[W{ꕔREAL DUNGEON̋Ȃ𗬗pB @@Eafl̎ɂ郌[U[Ȕ̔ @@Eũ[U[Uɐ݃oO @@@vC[H\ɂȂAƂŗ܂B @@@ (;) ɼ (Q;) ҼެȪ... @Ver.1.0 2024/5/12 Q[WFh37 oWo[W @@Jo[WBiԂj @@E[U[Uł̏ @@@w{R[hȂ̂ŁA̗]n͐FX܂B @@@ɂAvC[̗H\͉܂B @@E[U[U̐݃oO @@@ɂȂREEEBi]vȕϐ̑j @@Eaflłɍւ @@@ǁA3|Ă܂B @@@VȂ͎dȂɂĂA|肷EEEB @@@ydŃt@t@[ȂljB͂ɏoB @@@ɋ~ošʉljB @@@ǁAGAME ANTIQUE 202310|Ă܂EEEB @@@ (;) ɼ (Q;) ݶ ޲ ޿ L @ĉ 1982N @ @Eߏ̓Ōn̓d퉮 @@q̂̓WJZȂ񂩂DŁAߏ̓d퉮ɂ悭ʂĂ܂B @@āA鎞p\RݒuARɂ悤ɂȂ܂B @@iʂ̓dXłAɃp\RɓXł͂܂j @@Ōn̂XɁAPASOPIA7ǍPASOPIA IQݒu @@܂B @@̃p\RpL^}̂ƂJZbge[vŁAQ[Ȃǂ͂ @@ǂݍŋNĂ܂B @@āAPASOPIA7ł́u^GXP[vQ[vāAɓdB @@i傰j @@wZGXP[v͓̂RȂƂłAQ[ɂƂ́B @@Ȃ񂾂ɂ鏭N̂悤ɔMȂAXɒʂ܂B @@A^GXP[vQ[͂ȂՓxAޏA @@GXP[ułA‚iXǂoĂ܂B @@ivC[͂ĂȂ̂ŁAlł̓NAɂȂȂj @@BASICōĂ̂ŁA͗eՂłB @@ABASIC@͗ǂȂ̂́A{̏̕ @@ȒPȂ̂ŁAbZ[WFXƂĊył܂B @@p\RĂI@Q[̉łȂĊyI @@Aɂ̓t@~R疳āARs[^[̗ނɂӂ@ @@̓dXłB @ĉ 1985N @EMSX𔃂Fl @@Fl̊ԂMSXsAlȂĂ܂B @@āAŝ̃Q[̃vC͂̂ƁAGɌfڂꂽQ[ @@ł񂾂A肷̂ڂ̓ɂĂ܂B @@܂I @@ł́AƐeɓăt@~R𔃂Ă炢B @@͂܂̉ԂAp\RłMSX𔃂Ă炤ȂǁA @@ȒłB @@܂Ƀt@~RMSX݂ƂAMSX-BASIC@ @@܂B @@yAyI @ @@A؂ĂԂȂƂAƂĂǂB @@̃p\R~I @ĉ 1987N @EBeepŏՌ󂯂 @@ς炸t@~RĂȂ́ABeepƂG𔃂A @@ǂĂ܂B @@ʂɌfڂĂA[P[hQ[p\RQ[̉ʎʐ^A @@H悤ɌĂ̂łB @@PC-88̃Q[AUihDA\[TAAC[X̋LāA @@uAp\R͂Bt@~RtĂłȂQ[v @@ȂƂABeepX68000̏ЉLfڂ܂B @@OfBEX̊SڐAŁÃc^J[B @@uȂ񂾂Iv @@ @@ɓdBiāj @@x̂𔲂AƂ\ł͂܂ȂuȂ񂾂IvB @Ⴋ̂ 1991N @@eɓāAXVI̓oŔrIȂSUPERO؂Ƃ`ōwB @@̌̃oCgĕԂ܂B @@̎قǕeɊӂƂ͂ȂB肪ƂEEEB @@ŝ̃Q[ŗVт‚‚A‚ɗc炠ĂBASIC @@gn߂邱ƂɁB @@Z̋AɁuȏ낤vƍlāAƂɋAăJ^J^B @@ƂĂKȂЂƎB @@AȂƂȂQ[fۂ͍̂̂́AۂɓQ[ @@̂͂ƂĂB @@̒ms͂̂ƁAWԂX-BASIC̎dĺAȂƂ @@Q[ɂ͌ĂȂ̂łB @@O̖^GXP[vQ[쐬iHj悤Ƃ̂́A @@܂ꂸA܁EEEB @2022N10{ @@OREAL DUNGEONAɍ邿傢Q[͖^GXP[vQ[ @@SɌ߂ĂB @@AMlSUPERɓĂ31NԉĂ̂EEEB @@1997Nɂ؂-BASICoꂵAQ[ɕ֗ȊO֐^ꂽ @@ƂɂAX-BASICł̃Q[삪̂̂ƂȂĂƂ @@ǂ܂B @@Aꂩł25NoĂ̂ǁEEEB @@2023N7ɑŊJÂGAME ANTIQUE 2023֏oW̐\݂Ă @@̂ŁAɍ킹Đ삷邱ƂɌB @@Ȃ莞Ԃ邱ƂAvłB @2023N6{ @@ꂩ炳8AMl͉Ă̂EEEB @@AɗVł킯ł͂ȂAlu͂߂悤IX68000v @@삵Ă܂B @@߂ĂAdobe InDesignł̐ƂƂAFXƎs @@Ă̂ŁB @@̓eIAA2TԁB @@낤AEEEB @2023N626 @@XvCgBG̃p^[쐬B @@搶́AƂ邨ꌒS()ȕfɂĂ܂B @@搶͂̕ȂI@ƎvĂ{lɑŐfƂA @@܂BiԂj @@qZÄɊĂ搶̕łˁBiӂӂj @2023N79 @@XvCgBG̃p^[쐬IAvOQƂ邱ƂɁB @@ƁABG̎QƂ̎dEEEB @@REAL DUNGEONłBGgĂȂ̂ŁA+MI69X̃\[X`ĎQlɁB @2023N711 @@Ɛk\Ƃ܂łB @@Ȃ񂩉ʂ\ƈSB @Ver.0.1 2023/07/15 GAME ANTIQUE 2023 oWo[W @@^CgʂŃX^[gƁAȂ苳̃V[ɂȂāA @@ȌゾłԂ̂̂ƂȂ܂B @@搶͓Ă邯ǁAɌ‚邱ƂȂA @@hAɌĂANAłA @@^C}[sċQ[I[o[ɁEEEB @@A܂Q[ɂ͂ȂĂ炸Ay݂ɂĂkaz @@邽߂̃o[WƂȂ܂B @@܂AIɂ͐Ȍニ[`g߂̂ŁAȂƂ͎v @@܂B @@iۂ͂łȂj @2023N1112 @@Q[ɂȂĂȂVer.0.1AȂƂQ[ɂ悤B @@v4o߂Ă̂͂ȂEEB @2023N1114 @@vC[ړŁAXvCg̑O֌ŴŁA @@ړXvCgʏɁB @@AoOŒȂĂvC[AɃcCe[ @@ʔĂ܂B @@ڂɂ͖ʔǁAvCĂƊmɍ̂ŏCB @2023N1115 @@Ver.0.1ŁA܂ɃvC[YWȂAǂɂ߂荞ł @@̂ǁǍďCB @@Ȃɖ߂鏈ƐȌ̏ŁAȂɖ߂Ƃɑ݂Ȃl @@ȌƂɂAWȂĂB @2023N1117 @@搶Ɍ‚̏B @@ϐɂĎԂBiƎj @2023N1118 @@NÃhÅJƂ܂悤ɁB @@ȂȂ܂ȂāBij @2023N1119 @@ŒAQ[ƂĕKvȏقڎB @@Q[ƂĈʂ蓮悤ɂȂ̂͂ꂵB @2023N1121 @@EhNA̕\̕ςȃoOꂽBiϐ̏~Xj @@قڗǂȁB @2023N1122 @ @@3ɓ͂X68000Z EARLY ACCESS KIT܂JB @@RETRO GAME SUMMITɂ͂Ă܂B @Ver.0.2 2023/11/23 RETRO GAME SUMMIT oWo[W @@EhNAAI[NAł悤ɂȂAv[OA @@kʁiHjAGfBOAl[Gg[B @@GfBO͎bŁAafl͊Ԃɍ킸B @@Ƃ肠Q[Ƃē悤ɂ͂Ȃ̂ŁACxgŃvC @@܂B @@悵AƈꑧBiԂj @2024N320 @ @@A3ɃCxgH@ˁH @@4͂Ȃ̂ɁA4͈̂ǂցEEEB @@Ƃ肠AłȂi߂悤B @2024N321 @ @@Z̓`̎Aũ[U[Ap̂̃XvCgp^[ @@ljB @Ver.0.3 2024/3/23 RETRO GAME SUMMIT Lv.2 oWo[W @@X^[g̎kʁiHjɓ`̎ljB @@\邾ŁA܂B @@`Ƃ́EEEB @@\ziKł́ANAɂŖ^GXP[vQ[̋iXV[ @@āAvC[ƗFBĉbV[\łA @@^C}[̃Q[ł̓e|Ȃ̂ŋpB @@uƐȌsƂɁA`N鏈ljB @@vCɂĂ̓}CiXvfłA\肾̂ @@ĂEEEB @@APŔ肵Ă邽߁A2A`NȂ񂩂A @@vCɃXgXMAXɁI @@‚vCĂĂhiroyanɑϕs]łB @@...lĎ悤B @@GfBO{̗[Ă̊Cɍւ @@̏ʂ́At@~RŃO[[ỸGfBOCXpCA @@Ă܂B @@ȂȂ̂́A܂yقłˁBiŷj @@^GXP[vQ[Ɖ̊֘AȂłAĈłB @@Ƃ肠A؂͏o邩ȂƁBiԂj @@GfBOȂ[Ă̊CɍȂtAԂɍ킸ɎzB @@Cxg3OɂĂ͊撣HiE\j @2024N46 @@RETRO GAME SUMMIT Lv.2ł̉ԏEEEB @@ڂڂ₵ĂƂ܂ԂȂȂ̂ŁAƂƂƒ肵܂B @@\̏‚tƐSɐEEEB @2024N47 @@uɐ΂鏈B @2024N48 @@ũ[U[UB @2024N413 @@ũ[U[U`ɁB @@悵AȊB @2024N413 @@X^[g̕\ljB @@GET READY @@PLAYER ONE @@ @@@ ROUND @@@@ X @@^60KĂ̓CXpCAĂ܂B @2024N415 @@X^[g̃`[gAljB @@Ń[₷ȂƂȁB @2024N417 @@v[OɃg[XgljB @@u[[v @2024N419 @@kʁiHjƃGfBOCB @@vC[ȊÕbZ[WbZ[W{bNXɈڍsA @@g[XgoƂɁBg[XgĂB @2024N420 @@̂͂قڂقڎłƎvB @@Ȃ܂tĂȂ̂łꂩB @@łɃCxgǑߌBƔB @Ver.0.4 2024/4/21 GAME ANTIQUE 2024 oWo[W @@̂͂قڎ̂́A݃oOB @@ꕔÂ܂B @@g[Xgo悤ɂȂ܂B @@u[[v̒ԂƂƂŁB @@^狖‚͂Ă܂Biꉞj @@kʁiHjGfBOŕĂ̂́AȂ񂩂炵 @@̂ŁAɐ[Ӗ͂܂BȂ񂩈炵ȂłB @@iA^Ԃ΂p^[łHj @@uɃ`NꂽɁAbZ[Wł͂Ȃ[U[U悤ɁB @@^GXP[vQ[œl̃`N肪ۂ́Ar^܂B @@̎̌ʉ[U[𔭎˂Ă悤ɕ̂ŁA{͂̂悤 @@܂B @@X-MEÑTCNbvX̃[U[̂悤ɂ悤Ƃ̂łAfJ @@ςȂ̂16x16hbgɗBFsNȂ̂͂̂߂łB @@AȂt炱̃V[Ă܂B @@10MHz@͐hȁEEEB @@܂Ŗ̂ŁAaflB @@A̒n_ŃCxgO܂ŗĂ܂Ԃɍ킸A @@ro[W{ꕔREAL DUNGEON̋Ȃ𗬗p邱ƂɁB @@RETRO GAME SUMMIT Lv.21ĴɂȂEEEB @@݃oOAȂ炱̂܂܎ĂƂɁEEEB @@vC[̗H\͂ƖʔǁAꕔsB @@@ (;) ɼ (Q;) ҼެȪ... @2024N428 @@GAME ANTIQUE 2024ł̉ԏEEEBi܂j @@ڂڂ₵ĂƂ܂ԂȂȂ̂ŁAƂƂƍĊJ悤B @@ũ`NɗsCB @@ɂȂREEEBi]vȕϐj @@[U[ȔB @@H\ꏏɉB @@sC͊yBƂ͋ȂB @2024N51 @@ȂB @@Ax̊3|Ă܂B @2024N55 @@ȂQ[ɑgݍ݁AŏIB @@ƂɌăuɃ`NEEEB @2024N56 @@Ԃ}X^[Abv܂B @@قNjCɂȂӏȂÂ͂߂悤i肪Ȃ̂Łj @@ũ`Npx̒ɂAՓx͎኱Ă܂B @2024N511 @@ydŏCƃNȂƂȂ̂ɁAǂĂCɂȂӏCB @@kʁiHj̍ŏɃvC[ZɌʏł邽߁A @@g[Xgӂӂ킵ĂȂ̂CB @@[vɓ˂݂܂B @@́ACɂȂ肾Ǝ~܂ȂBJJӂӂB @@EhNÃt@t@[ȂljB @@^GXP[vQ[Ȃł͂̋ȂB @@̋Ȃ͂ƂԂɏoĂ܂B @@AxɂꂾĴɁBl^̂傫EEEB @@ɋ~ošʉljB @@ЂAȂłFXƋCɂȂ̂B @@񂱂̓fOȂƂF‚EEEB @Ver.1.0 2024/5/12 Q[WFh37 oWo[W @@ũ[U[Uł̏AoȌCB @@aflł֍ւBt@t@[ljB{~ošʉljB @@Ƃ͕sȂ΁Ał؂Ǝv܂B @@Ȃ񂩒ȁEEECxg߈ȊO͂قڃT{ĂƂEEEB A @EX @ARX_UHO (邫) Sun May 12 00:00 JST 2024 (ARX_UHO) tflg = 0 /* GameStartFlg(0:f 1:X^[gꂽ) /* /* bZ[WpO[oϐ錾 str Gmsgstrcur[255] /* MessageViewString(Current) dim char Gmsgcrpos(12) /* "Gmsgstrcur" CRLFPointer int Gmsgpos = 1 /* "Gmsgcrpos" Pointer(I1B0ɂ0B) char Gmsgcols = 26 /* MessageColumns(p) char Gmsgrows = 2 /* MessageRows int Gmsgviewmd = 0 /* MessageViewMode(0:\ 1:\) int Gmsgwaitcnt = 0 /* MessageWaitCounter(Sec) int Gmsgwaitcntdef1 = 3 /* MessageWaitSecDefine(1) int Gmsgwaitcntdef2 = 3 /* MessageWaitSecDefine(2) int Gmsgwaitcntcur = 0 /* MessageWaitSec(Current) int Gmsgrefresh = 0 /* MessageRefleshFlg /* /* 퓬pO[oϐ錾 int Gsystemmd = 0 /* GameSystemMode(0:Q[is,1:ړs,2:ړ”\,3:퓬,4:Xe[WNA,5:I[NA) /* /* WCXeBbN֌Wϐ錾 int Gstick1 = 0 /* Joystick(1) Stick int Gstick2 = 0 /* Joystick(2) Stick int Gstrig1 = 0 /* Joystick(1) Trigger int Gstrig2 = 0 /* Joystick(2) Trigger int Gstick1o = 9 /* Joystick(1) Stick(Old) int Gstick2o = 9 /* Joystick(2) Stick(Old) int Gstrig1o = 0 /* Joystick(1) Trigger(Old) int Gstrig2o = 0 /* Joystick(2) Trigger(Old) int Gjoy_up = 0, Gjoy_down = 0, Gjoy_left = 0, Gjoy_right = 0, Gjoy_press = 0 /* WCXeBbNԂ̃XvCgp^[f[^ int Gstick1press = 0 /* Joystick(1) PressCounter int Gstick1pressmax = 1 /* Joystick(1) PressCounterMAX(InterpriterMode) int Gstick1pressmax2 = 10 /* Joystick(1) PressCounterMAX(CompilerMode) int Gstick1clickview = 0 /* Joystick(1) StickClickView int Gstrig1clickview = 0 /* Joystick(1) TriggerClickView int Gstick1clickrefresh = 0/* Joystick(1) StickClickRefreshFlg int Gstrig1clickrefresh = 0/* Joystick(1) TriggerClickRefreshFlg int Gpadview = 0 /* JoypadIconView(0:\, 1:AUTO, 2:ړ”\, 3:AUTO, 4:j[) int Gpadrefresh = 0 /* JoypadIconRefresh /* Gjoy_up = (1 shl 8) + 24 /* JoystickKeyPressSPD(up) Gjoy_down = (1 shl 8) + 25 /* JoystickKeyPressSPD(down) Gjoy_left = (1 shl 8) + 26 /* JoystickKeyPressSPD(left) Gjoy_right = (1 shl 8) + 27/* JoystickKeyPressSPD(right) Gjoy_press = (1 shl 8) + 29/* JoystickTriggerPressSPD /* /* j[֌Wϐ錾 int Gmenuviewmd = 0 /* MenuViewMode int Gmenupos = 0 /* MenuPosition int Gmenuposo = 0 /* MenuPosition(old) int Gmenunum = 0 /* MenuItems int Gmenucol = 4 /* MenuColumn(locate) int Gmenurow = 2 /* MenuRow(locate) int Gmenubrink = 0 /* MenuBrink int Gmenubrinko = 0 /* MenuBrink(old) str Gmenustr0[255] = "" /* MenuItemString str Gmenustr1[255] = "" str Gmenustr2[255] = "" str Gmenustr3[255] = "" str Gmenustr4[255] = "" str Gmenustr5[255] = "" str Gmenustr6[255] = "" str Gmenuhed[255] = "" str Gmenufot[255] = "" str Gmenuline0[255] = "" /* j[ڕ\p str Gmenuline1[255] = "" str Gmenuline2[255] = "" str Gmenuline3[255] = "" str Gmenuline4[255] = "" str Gmenuline5[255] = "" str Gmenuline6[255] = "" str Gmenuspace[255] = "" int Gmenurefresh = 0 /* j[\XVtO(1:j[I[v, 2:j[N[Y) /* /* ViI֌Wϐ錾 int Gscenariopos = 0 /* ViIQƃ|C^ int Gscenarionum = 0 /* ViIo^ dim str Gscenariocmd(255)[8] /* ViIo^(R}h) dim str Gscenarioparam1(255)[255] /* ViIo^(p[^1) dim str Gscenarioparam2(255)[255] /* ViIo^(p[^2) int Gscenarioeventid /* ViICxgԍ dim str Gmapeventcmd(255)[8] /* }bvCxg(R}h) dim str Gmapeventparam1(255)[255] /* }bvCxg(p[^1) dim str Gmapeventparam2(255)[255] /* }bvCxg(p[^2) /* /* OLN^[\֌Wϐ錾 int Gfrontmd = 0 /* OLN^[\[h int Gfrontrefresh = 0 /* OLN^[XVtO int Gfrontbrink = 0 /* OLN^[_ŃtO int Gfrontbrinkcnt = 0 /* OLN^[_ŃJE^ /* /* vC[\\֌Wϐ錾 int Gfacemd = 0 /* vC[\\[h int pfacrefresh = 0 /* vC[\XVtO int pfacbrk = 0 /* vC[\_ŃtO int pfacbrkcnt = 0 /* vC[\_ŃJE^ /* /* LO֌Wϐ錾 dim int Granksc(5) /* LOXRA dim str Grankname(5)[5] /* LOl[ int Gsc1 = 0 /* XRA /* /* LO֌Wϐl Granksc = {0,500000,400000,300000,100000,50000} Grankname = {"", "LENA", "SALA", "CRENA", "LESIA", "OCCHI"} /* /* O[o /* /* XvCgt@C` execcmd(CMD_SPFILE, "EDS.SP", "") /* XvCgt@C execcmd(CMD_PALFILE, "EDS.PAL", "") /* pbgt@C /* /* O[o I /* /* Q[{ Jn while 1 screen_clear() init_screen() /* screen_clear() demo_screen() screen_clear() title_screen() screen_clear() /* Q[X^[gtO1̏ꍇAQ[C if Gstartflg = 1 then { startdemo_screen() screen_clear() Gsc1 = game_main() if Gsystemmd = 5 then { screen_clear() ending_screen() screen_clear() cast_screen() screen_clear() gameover_screen() } screen_clear() ranking_screen(Gsc1, "") Gstartflg = 0 Gsystemmd = 0 } else { screen_clear() ranking_screen(0, "") } /* endwhile /* end /* /* Q[C func game_main() /* /*** ϐ錾EꕔŒl ***/ int lc1 = 0 int lc2 = 0 int bg_x = 0 /* BGXpos int bg_y = 0 /* BGYpos int bgpd = 0 /* nouse int bgpb = 0 /* nouse int bgpc = 0 /* nouse dim int bgptdat(895) bgptdat = { + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,124,126, 6, 6, + 6, 6, 7, 7,20,22, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6,20,22, 7, 7, 6, 6, + 6, 6, 5, 5,21,23, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,21,23, 5, 5, 6, 6, + 6, 6, 7, 7,84,86, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6,84,86, 7, 7, 6, 6, + 6, 6, 7, 7,85,87, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,85,87, 7, 7, 6, 6, + 6, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4 + (8 shl 8), 4 + (8 shl 8), 4, 6, + 6, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4 + (8 shl 8), 4 + (8 shl 8), 4, 6, + 6, 4, 4, 4, 4, 4, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4 + (8 shl 8), 4 + (8 shl 8),12 + (8 shl 8),14 + (8 shl 8), 4, 6, + 6, 4, 4, 4, 4, 4, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8 + (8 shl 8),10 + (8 shl 8),13 + (8 shl 8),15 + (8 shl 8), 4, 6, + 6, 4, 4, 4, 4, 4, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9 + (8 shl 8),11 + (8 shl 8),76 + (8 shl 8),78 + (8 shl 8), 4, 6, + 6, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6, +16, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6, +17, 4, 4, 4, 4, 4, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4,18, +17, 4, 4, 4, 4, 4, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 4,19, +17, 4, 4, 4,77, 4, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 4,19, +17, 4, 4, 4,79, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,19, +17, 4, 4, 4,81, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,19, +17, 4, 4, 4, 4, 4, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4,19, +17, 4, 4, 4, 4, 4, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 4,82, +80, 4, 4, 4, 4, 4, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 4, 6, + 6, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6, + 6, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6, + 6, 4, 4, 4, 4, 4, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 6, + 6, 4, 4, 4, 4, 4, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 4, 6, + 6, 4, 4, 4, 4, 4, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 4, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6} /* /* JoyStick int padviewreq = 0 /* 1:Pad1 2:Pad2 99:Close int padviewmd = 0 /* 1:Pad1 2:Pad2 0:Close int padstickreq = 0/* 0 2 4 6 8 99:Close int padstickmd = 0 /* 0 2 4 6 8 int padtrigreq = 0 /* 0 1 99:Close int padtrigmd = 0 /* 0 1 /* Stage int stgno = 0 /* StageNo int stgmsgreq = 0 /* StageMsg 1:view 2:clear int stgviewreq = 0 /* StageView 1:view int stgpappreq = 0 /* StagePlayerAppier 1:appier int stgmappreq = 0 /* StageMobAppier 1:appier /* Event int evtwaitsec = 0 /* EventWaitSecond int evtstat1 = 0 /* Cxg 1:搶Ɍ‚ 2:uɃ`N int blnreq1 = 0 /* BaloonRequest 1:o\v(vC[Ɛ搶) 2:o폜v 3:o\v(3l) int blnmd1 = 0 /* BaloonViewMode 0:No View 1:2 2:Remove 3:3 int blnreflesh = 0 /* BalooneRefleshFlg 0:No Reflesh 1:Reflesh int gmdreq1 = 0 /* Q[[hv 2:Xe[WNAv 3:I[NAv int eventreq1 = 0 /* Cxgv 1:搶Ɍ‚ 2:uɃ`N /* int sysmsgreq1 = 0 /* 1:bZ[W\v str sysmsgstr1[255] = "" /* bZ[W int sysmsgmd1 = 0 /* 0:bZ[W\ 1:bZ[W\ int sysmsgwait1 = 0 /* bZ[W҂b int sysmsgrefresh1 = 0 /* 0:XVȂ 1:bZ[WXV 2:bZ[W int systutendflg = 0 /* Tutorial End Flg 0:No 1:Done /* int deskno = 0 int wdeskno int mspno = 0 int x1 int x2 int y1 int y2 /* int psc1 = 0 /* Score1 str pscstr1[255] /* Score1String int pscreflesh1 = 0 /* ScoreRefreshFlag int pscbrk1 = 0 /* vC[XRAuN1 0:\ 1:\ int pscbnkcnt1 = 0 /* vC[XRAuNJE^1 /* int pbscrnproc = 0 /* {[iXʑJ int pbnssc1 /* {[iXXRA1 str pbnsscstr1[255] /* {[iXXRA1\ int pbnsscreflesh1 = 0 /* {[iXXRA1XVtO int pbnssc2 /* {[iXXRA2 str pbnsscstr2[255] /* {[iXXRA2\ int pbnsscreflesh2 = 0 /* {[iXXRA2XVtO str stclrmsg1[255] /* {[iX\ʕ1 str stclrmsg2[255] /* {[iX\ʕ2 str stclrmsg3[255] /* {[iX\ʕ3 str stclrmsg4[255] /* {[iX\ʕ4 str stclrmsg5[255] /* {[iX\ʕ5 /* vC[ int pdeskno /* DeskNo int pspno /* SPNo int pspoldno /* SPNo(Old) int psitspd /* SPD(Sit) int pmvspd /* SPD(Move) int pmvspd2 /* SPD(MoveBrink) int pmvspx1 /* SPXpos(Move) int pmvspy1 /* SPYpos(Move) int psitreq = 0 /* 0:vȂ 1:Ȃ 2:v 3:ȗv() int psitmd = 0 /* 0:Ȓ 1:Ȓ int psitfreeze = 0 int pcol int prow int pchrcd = 1 /* vC[LN^[R[h int pdir1 int panimcnt1 int panimwait1 int pmvstep1 int pmvdir1 int pctrlmd = 0 int panimmd1 = 0 /* vC[Aj[h int pvismod1 = 1 /* vC[\[h 0:\ 1:\ int pactlstptr1 = 0 int pbspno = 0 /* BaroonSPNo int pbspd = 0 /* BaroonSPD /* 搶 int sspno = 0 /* SPNo int sspd = 0 /* SPD int sdir1 = 0 /* p int schrcd = 5 /* ChrCD int sanimcnt1 /* AnimCnt int swatch = 0 int sspx1 int sspy1 int smvdir1 int sactlstptr1 = 0 /* 搶sXg|C^ int sactlstloop_s = 0 /* 搶sXg[vX^[g|C^ int sctrlmd = 1 /* 0:삵Ȃ 1:sXg int smvstep1 int sanimmd1 = 0 /* 搶Aj[h int svismod1 = 0 /* 搶\[h 0:\ 1:\ int sanimwait1 int sbspno = 0 /* BaroonSPNo int sbspd = 0 /* BaroonSPD /* u int tspno = 0 /* SPNo int tbspno = 0 /* BaroonSPNo int tbspd = 0 /* BaroonSPD int tchr = 0 int tdeskno = 0 int tdesknou = 0 int tdesknod = 0 int tchgcnt1 = 0 /* ȑւJE^ /* hA int dspno1 = 0 /* SPNo int dspno2 = 0 /* SPNo int dspd1 = 0 /* SPD int dspd2 = 0 /* SPD int dspx1 int dspy1 int dspx2 int dspy2 int dmvstep1 int dmvstep2 int danimwait1 int dmvdir1 int dmvdir2 int dmvmd1 = 0 /* hAJƒ[h() 0: 1:J 2:‚ 3:J int dmvmd2 = 0 /* hAJƒ[h(E) 0: 1:J 2:‚ 3:J int dmvreq1 = 0 /* hAJ—v() 0:vȂ 1:‚v 2:Jv int dmvreq2 = 0 /* hAJ—v(E) 0:vȂ 1:‚v 2:Jv int dvismod1 = 0 /* hA\[h 0:\ 1:\ int dmvreflesh1 = 0 /* DoorRefleshFlag 0:Not Reflesh 1:Reflesh int dmvreflesh2 = 0 /* DoorRefleshFlag 0:Not Reflesh 1:Reflesh /* [U[ int lsspno1 = 0 /* SPNo int lsspno2 = 0 /* SPNo int lsspd1 = 0 /* SPD int lsspd2 = 0 /* SPD int lsspx1 = 0 /* SPXPos int lsspy1 = 0 /* SPYPos int lsspx2 = 0 /* SPXPos int lsspy2 = 0 /* SPYPos int lsspinix1 = 0 /* SPXPos int lsspiniy1 = 0 /* SPYPos int lsspinix2 = 0 /* SPXPos int lsspiniy2 = 0 /* SPYPos int lsmvreq1 = 0 /* [U[˗v 0:vȂ 1:˗v 2:ˏI int lsmvmd1 = 0 /* [U[˃[h 0:˂Ȃ 1:˒ 2:ˏI int lsmvcnt1 = 0 /* [U[ˎ /* ^[Qbg int tsitreq1 = 0 /* 0:vȂ 1:^[QbguȋNv 2:^[QbguȒȗv /* Friend int fdeskno1 = 0 int fdeskno2 = 0 int fdeskno3 = 0 int ffcspx1 /* FriendFaceSPX1 int ffcspy1 /* FriendFaceSPY1 int ffcspx2 /* FriendFaceSPX2 int ffcspy2 /* FriendFaceSPY2 int ffcspx3 /* FriendFaceSPX3 int ffcspy3 /* FriendFaceSPY3 int rndval = 0 /* i[pϐ int ffcsavflg1 = 0 /* FB~tO(T) 0:~ 1:~ int ffcsavflg2 = 0 /* FB~tO(Ni) 0:~ 1:~ int ffcsavflg3 = 0 /* FB~tO(VA) 0:~ 1:~ int ffcsavreq1 = 0 /* FB~vtO 0:v 1:T 2:Ni 3:VA int ffcsavcd = 0 /* ~FB 1:T 2:Ni 3:VA int ffcsavreflesh1 = 0 /* FB~XVtO int ffcspno1 = 2 /* FBspԍ int ffcspno2 = 3 /* FBspԍ int ffcspno3 = 4 /* FBspԍ int ffcreflesh1 = 0 /* FBXVtO int ffcvis1 = 0 /* FB\tO int fspx1 /* FB~spW1 int fspy1 /* FB~spW1 int fspx2 /* FB~spW2 int fspy2 /* FB~spW2 int fspx3 /* FB~spW3 int fspy3 /* FB~spW3 int fspno1 = 31 /* FB~spԍ int fspno2 = 31 /* FB~spԍ int fspno3 = 31 /* FB~spԍ int ffcsavstatreq = 0 /* FB~\v /* /* LN^[spd dim int chrspdlst(101) /* E] (1 shl 14) = 16384 ㉺] (1 shl 15) = 32768 ㉺E] = 49152 chrspdlst = { + 74+(7 shl 8), 75+(7 shl 8), 74+(7 shl 8), 76+(7 shl 8), 77+(7 shl 8), 78+(7 shl 8), 77+(7 shl 8), 79+(7 shl 8), 16384+ 77+(7 shl 8),16384+ 78+(7 shl 8),16384+ 77+(7 shl 8),16384+ 79+(7 shl 8), +106+(7 shl 8),107+(7 shl 8),106+(7 shl 8),108+(7 shl 8), 109+(7 shl 8), /* u + 32+(2 shl 8), 33+(2 shl 8), 32+(2 shl 8), 34+(2 shl 8), 35+(2 shl 8), 36+(2 shl 8), 35+(2 shl 8), 37+(2 shl 8), 16384+ 35+(2 shl 8),16384+ 36+(2 shl 8),16384+ 35+(2 shl 8),16384+ 37+(2 shl 8), + 38+(2 shl 8), 39+(2 shl 8), 38+(2 shl 8), 40+(2 shl 8), 41+(2 shl 8), /* [i + 64+(3 shl 8), 65+(3 shl 8), 64+(3 shl 8), 66+(3 shl 8), 67+(3 shl 8), 68+(3 shl 8), 67+(3 shl 8), 69+(3 shl 8), 16384+ 67+(3 shl 8),16384+ 68+(3 shl 8),16384+ 67+(3 shl 8),16384+ 69+(3 shl 8), + 70+(3 shl 8), 71+(3 shl 8), 70+(3 shl 8), 72+(3 shl 8), 73+(3 shl 8), /* T + 96+(4 shl 8), 97+(4 shl 8), 96+(4 shl 8), 98+(4 shl 8), 99+(4 shl 8),100+(4 shl 8), 99+(4 shl 8),101+(4 shl 8), 16384+ 99+(4 shl 8),16384+100+(4 shl 8),16384+ 99+(4 shl 8),16384+101+(4 shl 8), +102+(4 shl 8),103+(4 shl 8),102+(4 shl 8),104+(4 shl 8), 105+(4 shl 8), /* Ni + 74+(5 shl 8), 75+(5 shl 8), 74+(5 shl 8), 76+(5 shl 8), 77+(5 shl 8), 78+(5 shl 8), 77+(5 shl 8), 79+(5 shl 8), 16384+ 77+(5 shl 8),16384+ 78+(5 shl 8),16384+ 77+(5 shl 8),16384+ 79+(5 shl 8), +106+(5 shl 8),107+(5 shl 8),106+(5 shl 8),108+(5 shl 8), 109+(5 shl 8), /* VA + 42+(2 shl 8), 43+(2 shl 8), 42+(2 shl 8), 44+(2 shl 8), 110+(2 shl 8),110+(2 shl 8),110+(2 shl 8),110+(2 shl 8), 16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8), + 45+(2 shl 8), 46+(2 shl 8), 45+(2 shl 8), 47+(2 shl 8), 110+(2 shl 8)} /* 搶 /* /* ړpvC[spԍ dim int pmvspno(3) pmvspno = {95,81,67,53} /* dim int deskalc(23) /* Ȋ /* /* ȕ\pspԍ dim int deskalcspno(23) deskalcspno = { +93,91,89,87,85,83, +79,77,75,73,71,69, +65,63,61,59,57,55, +51,49,47,45,43,41} /* /* ȕ\pXvCgW` dim int deskalcspx(23) dim int deskalcspy(23) for lc2 = 0 to 3 for lc1 = 0 to 5 deskno = lc2 * 6 + lc1 x1 = 80 + (lc1 * 32) y1 = 72 + (lc2 * 40) deskalcspx(deskno) = x1 deskalcspy(deskno) = y1 next next /* /* vC[sXg dim int pactlst1(255) /* /* 搶sXg dim int sactlst1(255) sactlst1 = {91,90,210,92,93,90,90,94,90,120,95, 0, 12, 5,21, 5, 1, 2, 5,22, 5, 2, 2,16, 5, 5,41,90,180,42,90,180,43,90,180,44,90,180,45,90,180,90,60,33,98, 5,32, 2, 5, 8, 5, 14, 5, 8, 5, 2, 5,16, 5, 5,99} /* bZ[W{bNX str msgboxstr1[255] int pmsgboxptr1 = 0 dim str msgboxstr(30)[255] int reswid = 255 int msgboxx1 = 0 int msgboxx2 = 0 int msgboxwid = 0 int msgboxy1 = 0 int msgboxy2 = 0 int msgboxhei = 0 int msgboxpos = 1 /* 0:Jnʒu 1: int msgboxfntcol1 = 1984 int msgboxbakcol = 10570 /*2114 int msgboxbdrcol = 65534 int msgboxlen1 = 0 int msgboxreq1 = 0 int msgboxmd1 = 0 int msgboxwait1 = 0 int msgboxrefresh1 = 0 /* ʒu}[N̏ int locmkreq = 0 /* ʒu}[N\v 1:Player 2:Door 3:Friend 4:Sensei int locmk1x1 int locmk1x2 int locmk1y1 int locmk1y2 int locmk2x1 int locmk2x2 int locmk2y1 int locmk2y2 int locmk3x1 int locmk3x2 int locmk3y1 int locmk3y2 int locmkcl1 = 1 /* 65472 int locmkcl2 = 2 /* 65472 int locmkcl3 = 3 /* 65354 int locmkstat = 0 /* ʒu}[N\ 1:Player 2:Door 3:Friend 4:Sensei int locmkcnt = 0 int locmkwait = 0 int locmkbrk = 0 /* /*** Œl ***/ /* Door dspno1 = 97 /* LDoorSPNo dspno2 = 99 /* RDoorSPNo dspd1 = 5 + (1 shl 8) /* LDoorSPD dspd2 = 5 + (9 shl 8) /* RDoorSPD /* pbspno = 32 /* vC[BaroonSPNo pbspd = 17 + (1 shl 8) /* vC[BaroonSPD() /* sspno = 35 /* 搶SPNo sspd = chrspdlst(schrcd * 17 + sdir1 * 4 + sanimcnt1) /* 搶SPD sbspno = 31 /* 搶BaroonSPNo sbspd = 16 + (1 shl 8) /* 搶BaroonSPD(I) /* tbspno = 37 /* uBaroonSPNo tbspd = 190 + (1 shl 8) /* uBaroonSPD /* lsspno1 = 33 /* [U[SPNo lsspno2 = 34 /* [U[SPNo lsspd1 = 156 + (3 shl 8) /* [U[SPD lsspd2 = 156 + (3 shl 8) /* [U[SPD /* /* FB ffcspx1 = 32 ffcspy1 = 32 ffcspx2 = 48 ffcspy2 = 32 ffcspx3 = 64 ffcspy3 = 32 Gtimecnt = Gtimecntdef /* ^C}[ /* /*** Xe[Wƃ[v ***/ while 1 /* Xe[W[vJn /* /*** Xe[WJnƂ̕ϐ ***/ /* stgno = stgno + 1 /* Xe[W pscreflesh1 = 1 /* vC[XRA1XV pscbrk1 = 0 /* vC[XRAuN1 0:\ 1:\ pscbnkcnt1 = 0 /* vC[XRAuNJE^1 Gtimerefresh = 1 padviewreq = 0 /* 1:Pad1 2:Pad2 3:Close padviewmd = 0 /* 1:Pad1 2:Pad2 3:Close padstickreq = 0/* 0 2 4 6 8 padstickmd = 0 /* 0 2 4 6 8 padtrigreq = 0 /* 0 1 padtrigmd = 0 /* 0 1 /* /* ^C}[\ Gtimestr = right$(" " + itoa(Gtimecnt), 3) /* /* Stage stgmsgreq = 0 stgviewreq = 0 stgpappreq = 0 stgmappreq = 0 /* /* Ȋ deskalc = { +0,0,0,0,0,0, /*+0,3,0,0,0,0, /*+0,0,0,2,0,0, /*+1,0,0,0,0,4} +0,0,0,0,0,0, +0,0,0,0,0,0, +1,0,0,0,0,0} /* /* T̍Ȍ if ffcsavflg1 = 0 then { rndval = rnd() * 5 if deskalc( (2 * 6) + rndval) = 0 then { /* deskalc( (2 * 6) + rndval) = 2 fdeskno1 = (2 * 6) + rndval deskalc(fdeskno1) = 2 } else { /* deskalc( (2 * 6) + rndval + 1) = 2 fdeskno1 = (2 * 6) + rndval + 1 deskalc(fdeskno1) = 2 } } else { fdeskno1 = -1 } /* Ni̍Ȍ if ffcsavflg2 = 0 then { rndval = rnd() * 5 if deskalc( (1 * 6) + rndval) = 0 then { /* deskalc( (1 * 6) + rndval) = 3 fdeskno2 = (1 * 6) + rndval deskalc(fdeskno2) = 3 } else { /* deskalc( (1 * 6) + rndval + 1) = 3 fdeskno2 = (1 * 6) + rndval + 1 deskalc(fdeskno2) = 3 } } else { fdeskno2 = -1 } /* VA̍Ȍ if ffcsavflg3 = 0 then { rndval = rnd() * 5 FILES = 30 BUFFERS = 20 1024 LASTDRIVE = Z: KEY = \KEY.SYS USKCG = \USKCG.SYS BELL = \BEEP.SYS DEVICE = \SYS\FLOAT2.X DEVICE = \SYS\HIOCS.X SCSIDEV = OFF RCQb$ '; LGg$(BG*AD B?V@!cJ?6b4IJb4B;S,!̡e$eZK$ʉC TЇ2b>`Eu0Řs'-0IH1B}S1bHA  Ĥ> ?X|JaSb7 G.dOA0ct"8JaHD!kaRPN' g~20'0T$DЏ!c^ %̈q4!}Yxz&y؈>PHeD} =2LfhM4#"GtM q#D0U%UUUUUUUU'"bLЍ24 q`pdB!H # q#1B|FPB$ ʘ7 L %D~A8 #`F@KQ.'"$Da@1LA!<<',#ȂJL  Aj%jbp@T "`GDiD1 "a(:f0@:!cD3bT0D3 @Z:&A j`"Pd82BX@^2"M Fje*fL@h",F 1XͦPH sQ`L","Q: fX0(D"}3 ID"@G8bD%(&̘"T˙3"Dr*gQ.`3Z@D$ĈՂY3`KVB'd H '%Ĉ0b?B 0!Ĺ if deskalc( (3 * 6) + rndval) = 0 then { /* deskalc( (3 * 6) + rndval) = 4 fdeskno3 = (3 * 6) + rndval deskalc(fdeskno3) = 4 } else { /* deskalc( (3 * 6) + rndval + 1) = 4 fdeskno3 = (3 * 6) + rndval + 1 deskalc(fdeskno3) = 4 } } else { fdeskno3 = -1 } /* /* vC[ pdeskno = 18 /* vC[DeskNo(ʒuF) deskalc(pdeskno) = 1 /* ȊɃvC[o^ pspno = deskalcspno(pdeskno) /* vC[SPNo psitmd = 1 /* 1:Ȓ psitreq = 0 /* Ȃ prow = pdeskno / 6 /* vC[ʒus pcol = (pdeskno - (prow * 6)) * 2 /* vC[ʒu pactlstptr1 = 0 /* vC[sXg|C^ pctrlmd = 0 /* 0:vC[ 1:sXg pmvstep1 = 0 /* /* 搶̏ swatch = 0 sspx1 = 32 sspy1 = 32 /*RH`fB _BgHz<%=\O*jJf.J)f&LNuHQ"@"QXIJg$ o  =fpfJf ` JfJfpLNuH砀rtSk2 .f  cP ,g cJgJ(kaP`SLR (.fSHBLNuHA;rC7@JgJ(kaPf JfpLNupLNuH`C:rE7JgJ)karPfLNuRL_kt Zfx mfr uf$ \Siff Cf`C7BBB"L$NqrNC`>Sk8SL Af: dpCmf2B."L$R70br$z7$A(-HB.Ia2a+J- f b- f - fJ-Jf` - f-Jg<`Q JjJ.gr HCNuJ.g"HB B@Nu DgPrz g.A/nk&fa+B- f | a` f| R cz$& 128 schrcd = 5 sdir1 = 2 sanimcnt1 = 0 sactlstptr1 = 0 /* 搶sXg|C^ sctrlmd = 1 /* 0:삵Ȃ 1:sXg smvstep1 = 0 /* /* hȀ dspx1 = 32 /* hAWij dspy1 = 32 dspx2 = 240 /* hAWiEj dspy2 = 32 /* lsmvreq1 = 0 /* [U[˗v 0:vȂ 1:˗v 2:ˏI lsmvmd1 = 0 /* [U[˃[h 0:˂Ȃ 1:˒ /* /* e탂[hƃtȌl dmvmd1 = 0 /* hAJƒ[h() 0: 1:J 2:‚ 3:J dmvmd2 = 0 /* hAJƒ[h(E) 0: 1:J 2:‚ 3:J dmvreq1 = 0 /* hAJ—v() 0:vȂ 1:‚v 2:Jv dmvreq2 = 0 /* hAJ—v(E) 0:vȂ 1:‚v 2:Jv pactlstptr1 = 0 /* vC[sXg|C^ sactlstptr1 = 0 /* 搶sXg|C^ panimmd1 = 0 /* vC[Aj[h sanimmd1 = 0 /* 搶Aj[h pvismod1 = 0 /* vC[\[h 0:\ 1:\ svismod1 = 0 /* 搶\[h 0:\ 1:\ dvismod1 = 0 /* hA\[h 0:\ 1:\ dmvreflesh1 = 0 /* DoorRefleshFlag 0:Not Reflesh 1:Reflesh dmvreflesh2 = 0 /* DoorRefleshFlag 0:Not Reflesh 1:Reflesh sysmsgreq1 = 0 /* 1:bZ[W\v sysmsgstr1 = "" /* bZ[W sysmsgmd1 = 0 /* 0:bZ[W\ 1:bZ[W\ sysmsgwait1 = 0 /* bZ[W҂b sysmsgrefresh1 = 0 /* 0:XVȂ 1:bZ[WXV 2:bZ[W ffcsavstatreq = 1 /* FB~\v blnreq1 = 0 /* BaloonRequest 1:o\v(vC[Ɛ搶) 2:o폜v 3:o\v(3l) blnmd1 = 0 /* BaloonViewMode 0:No View 1:2 2:Remove 3:3 blnreflesh = 0 /* BalooneRefleshFlg 0:No Reflesh 1:Reflesh tchgcnt1 = 0 /* ȑւJE^ /* Gsystemmd = 1 /* ړs(Î~Cxg) /* /*** Xe[WƂ̉ʏ ***/ /* /* locate 0,13 : print "pdeskno tdesknoutdesknodpcol prow " /* sp_off(0,127) bg_set(0, 1, 0) /* /* wi̕` for lc2 = 0 to 27 bg_y = lc2 for lc1 = 0 to 31 bg_x = lc1 bgpb = 1 bgpc = 4 bgpd = (bgpb shl 8) + bgptdat(lc2 * 32 + lc1) bg_put(1, bg_x, bg_y, bgpd) next next /* /* ^C}[̕\ execcmd(CMD_MUSIC, "EDSRSFC", "") color 1 locate 1,0 : print "1P" color 3 color 2 locate 14,0 : print "TIME" color 3 /* /*** Q[{̃[v ***/ /* while 1 /* Q[Jn /* ^C}[JEg Gtimenow = time$ /* t[JEg pscbnkcnt1 = pscbnkcnt1 + 1 /* bZ[WJEg if sysmsgwait1 > 0 then sysmsgwait1 = sysmsgwait1 - 1 if msgboxwait1 > 0 then msgboxwait1 = msgboxwait1 - 1 /* /* get rndval = rnd() * 10 /* /* e^C}[JEg_EɑJ(ݎƌݎ(O)قȂꍇ) if Gtimenow <> Gtimenow_o then { /* /* Cxg if evtwaitsec > 0 then { evtwaitsec = evtwaitsec - 1 /* CxgI if evtwaitsec = 0 then { if Gsystemmd <> 4 then execcmd(CMD_MUSIC, "EDSCRFC", "") psitreq = 3 /* (ړ̃vC[) prow = pdeskno / 6 /* vC[ʒus pcol = (pdeskno - (prow * 6)) * 2 /* vC[ʒu pspoldno = pspno psitmd = 1 psitfreeze = 1 blnreq1 = 2 pfacrefresh = 1 evtstat1 = 0 } } /* /* ^C}[JEg_E(VXe[h2:ړ”\,3:퓬 ̏ꍇ) if Gsystemmd = 2 or Gsystemmd = 3 then { if Gtimecnt > 0 then Gtimecnt = Gtimecnt - 1 Gtimestr = right$(" " + itoa(Gtimecnt), 3) Gtimerefresh = 1 } /* Gtimenow_o = Gtimenow } /* /* 搶̈ړw(SenseiControlMode = 1 and SenseiMoveStep = 0 and EventWaitSec = 0) if sctrlmd = 1 and smvstep1 = 0 and evtwaitsec = 0 then { switch sactlst1(sactlstptr1) case 0 /* \ svismod1 = 0 /* 0:\ sactlstptr1 = sactlstptr1 + 1 break case 1 /* \ svismod1 = 1 /* 1:\ sactlstptr1 = sactlstptr1 + 1 break case 2 /* sdir1 = 0 /* smvstep1 = 32 smvdir1 = 0 /* sanimmd1 = 1 sactlstptr1 = sactlstptr1 + 1 break case 4 /* sdir1 = 1 /* smvstep1 = 32 smvdir1 = 1 /* sanimmd1 = 1 sactlstptr1 = sactlstptr1 + 1 break case 6 /* E sdir1 = 2 /* E smvstep1 = 32 smvdir1 = 2 /* E sanimmd1 = 1 sactlstptr1 = sactlstptr1 + 1 break case 8 /* sdir1 = 3 /* smvstep1 = 32 smvdir1 = 3 /* sanimmd1 = 1 sactlstptr1 = sactlstptr1 + 1 break case 12 /* (Î~) sdir1 = 0 /* smvstep1 = 32 smvdir1 = 4 /* sanimmd1 = 0 sactlstptr1 = sactlstptr1 + 1 break case 14 /* (Î~) schrcd = 5 sdir1 = 1 /* smvstep1 = 32 smvdir1 = 5 /* sanimmd1 = 0 sactlstptr1 = sactlstptr1 + 1 break case 16 /* E(Î~) sdir1 = 2 /* E smvstep1 = 32 smvdir1 = 6 /* E sanimmd1 = 0 sactlstptr1 = sactlstptr1 + 1 break case 18 /* (Î~) sdir1 = 3 /* smvstep1 = 32 smvdir1 = 7 /* sanimmd1 = 0 sactlstptr1 = sactlstptr1 + 1 break case 5 /* Î~ smvstep1 = 32 smvdir1 = 4 /* ~ sanimmd1 = 0 sactlstptr1 = sactlstptr1 + 1 break case 21 /* hA() J dmvreq1 = 2 /* 2:Jv sactlstptr1 = sactlstptr1 + 1 break case 22 /* hA() dmvreq1 = 1 /* 1:‚v sactlstptr1 = sactlstptr1 + 1 break case 31 /* VXe[hύX Gsystemmd = 1 /* ړs(Î~Cxg) sactlstptr1 = sactlstptr1 + 1 break case 32 /* VXe[hύX Gsystemmd = 2 /* ^C}[JEg_E sactlstptr1 = sactlstptr1 + 1 break case 33 /* bZ[W msgboxfntcol1 = WHITE msgboxreq1 = 1 /* 1:bZ[W{bNX\v padviewreq = 2 execcmd(CMD_MUSIC, "EDSCRFC", "") msgboxstr1 = "uł́AƂn߂܂v" sactlstptr1 = sactlstptr1 + 1 break case 41 /* ꏊ}[N\1 if systutendflg = 1 then { sactlstptr1 = sactlstptr1 + 3 } else { execcmd(CMD_MUSIC, "EDSCLFC", "") locmkreq = 1 msgboxfntcol1 = YELLOW msgboxreq1 = 1 /* 1:bZ[W{bNX\v msgboxstr1 = "vC[𑀍삵ȑւ" sactlstptr1 = sactlstptr1 + 1 } break case 42 /* ꏊ}[N\2 if systutendflg = 1 then { sactlstptr1 = sactlstptr1 + 3 } else { locmkreq = 2 msgboxfntcol1 = YELLOW msgboxreq1 = 1 /* 1:bZ[W{bNX\v msgboxstr1 = "FB̂̂ЂƂ" sactlstptr1 = sactlstptr1 + 1 } break case 43 /* ꏊ}[N\3 if systutendflg = 1 then { sactlstptr1 = sactlstptr1 + 3 } else { locmkreq = 3 msgboxfntcol1 = YELLOW msgboxreq1 = 1 /* 1:bZ[W{bNX\v msgboxstr1 = "hAO̐Ȃ܂ňړ悤I" sactlstptr1 = sactlstptr1 + 1 } break case 44 /* ꏊ}[N\4 if systutendflg = 1 then { sactlstptr1 = sactlstptr1 + 3 } else { locmkreq = 4 msgboxfntcol1 = YELLOW msgboxreq1 = 1 /* 1:bZ[W{bNX\v msgboxstr1 = "hAoNAI" sactlstptr1 = sactlstptr1 + 1 } break case 45 /* ꏊ}[N\4 if systutendflg = 1 then { sactlstptr1 = sactlstptr1 + 3 } else { locmkreq = 5 execcmd(CMD_MUSIC, "fadeout", "") msgboxfntcol1 = YELLOW msgboxreq1 = 1 /* 1:bZ[W{bNX\v msgboxstr1 = "搶Ɍ‚Ȃ悤ɁI" sactlstptr1 = sactlstptr1 + 1 } systutendflg = 1 break case 90 /* Î~(^C}lw) sactlstptr1 = sactlstptr1 + 1 smvstep1 = sactlst1(sactlstptr1) smvdir1 = 4 /* ~ sanimmd1 = 0 sactlstptr1 = sactlstptr1 + 1 break case 91 /* Xe[WbZ[W stgmsgreq = 1 padviewreq = 1 sactlstptr1 = sactlstptr1 + 1 break case 92 /* Xe[WbZ[W폜 stgmsgreq = 2 sactlstptr1 = sactlstptr1 + 1 break case 93 /* Xe[W\ stgviewreq = 1 dvismod1 = 1 /* hA\[h 0:\ 1:\ dmvreflesh1 = 1 dmvreflesh2 = 1 sactlstptr1 = sactlstptr1 + 1 break case 94 /* l\ pvismod1 = 1 /* vC[\[h 0:\ 1:\ stgpappreq = 1 pfacbrk = 1 pfacbrkcnt = 59 sactlstptr1 = sactlstptr1 + 1 break case 95 /* k\ stgmappreq = 1 sactlstptr1 = sactlstptr1 + 1 break case 98 /* [vX^[g|Cg̐ݒ sactlstptr1 = sactlstptr1 + 1 sactlstloop_s = sactlstptr1 break case 99 /* [v sactlstptr1 = sactlstloop_s break case 255 /* I sctrlmd = 0 sactlstptr1 = 0 break endswitch /* /* 搶EĂĎ if sdir1 = 2 then swatch = 1 else swatch = 0 } /* /* vC[̈ړw (PlayerControlMode = 1 and PlayerModeStep1 = 0) if pctrlmd = 1 and pmvstep1 = 0 then { switch pactlst1(pactlstptr1) case 0 /* \ pmvstep1 = 0 pvismod1 = 0 /* 0:\ pactlstptr1 = pactlstptr1 + 1 break case 1 /* \ pmvstep1 = 0 pvismod1 = 1 /* 1:\ pactlstptr1 = pactlstptr1 + 1 break case 2 /* pdir1 = 0 /* pmvstep1 = 16 pmvdir1 = 0 /* panimmd1 = 1 pactlstptr1 = pactlstptr1 + 1 break case 4 /* pdir1 = 1 /* pmvstep1 = 16 pmvdir1 = 1 /* panimmd1 = 1 pactlstptr1 = pactlstptr1 + 1 break case 6 /* E pdir1 = 2 /* E pmvstep1 = 16 pmvdir1 = 2 /* E panimmd1 = 1 pactlstptr1 = pactlstptr1 + 1 break case 8 /* pdir1 = 3 /* pmvstep1 = 16 pmvdir1 = 3 /* panimmd1 = 1 pactlstptr1 = pactlstptr1 + 1 break case 12 /* (Î~) pdir1 = 0 /* pmvstep1 = 16 pmvdir1 = 4 /* panimmd1 = 0 pactlstptr1 = pactlstptr1 + 1 break case 14 /* (Î~) pdir1 = 1 /* pmvstep1 = 16 pmvdir1 = 5 /* panimmd1 = 0 pactlstptr1 = pactlstptr1 + 1 break case 16 /* E(Î~) pdir1 = 2 /* E pmvstep1 = 16 pmvdir1 = 6 /* E panimmd1 = 0 pactlstptr1 = pactlstptr1 + 1 break case 18 /* (Î~) pdir1 = 3 /* pmvstep1 = 16 pmvdir1 = 7 /* panimmd1 = 0 pactlstptr1 = pactlstptr1 + 1 break case 38 /* pdir1 = 3 /* pmvstep1 = 8 pmvdir1 = 3 /* panimmd1 = 1 pactlstptr1 = pactlstptr1 + 1 break case 5 /* Î~(^C}lw) pactlstptr1 = pactlstptr1 + 1 pmvstep1 = pactlst1(pactlstptr1) pmvdir1 = 4 /* ~ panimmd1 = 0 pactlstptr1 = pactlstptr1 + 1 break case 11 /* panimmd1 = 0 pactlstptr1 = pactlstptr1 + 1 pmvstep1 = pmvspx1 - 16 /* ړXebv pdir1 = 11 /* pmvdir1 = 1 /* panimmd1 = 0 /* Ajp^[ lsmvreq1 = 1 /* [U[˗v break case 23 /* hA(E) J dmvreq2 = 2 /* 2:Jv pactlstptr1 = pactlstptr1 + 1 break case 24 /* hA(E) dmvreq2 = 1 /* 1:‚v pactlstptr1 = pactlstptr1 + 1 break case 31 /* VXe[hύX Gsystemmd = 1 /* ړs(Î~Cxg) pactlstptr1 = pactlstptr1 + 1 break case 32 /* VXe[hύX Gsystemmd = 2 /* ^C}[JEg_E pactlstptr1 = pactlstptr1 + 1 break case 33 /* bZ[W sysmsgreq1 = 1 /* 1:bZ[W\v sysmsgstr1 = "" pactlstptr1 = pactlstptr1 + 1 break case 34 /* bZ[W{bNX msgboxreq1 = 1 /* 1:bZ[W{bNX\v msgboxstr1 = msgboxstr(pmsgboxptr1) pmsgboxptr1 = pmsgboxptr1 + 1 pactlstptr1 = pactlstptr1 + 1 break case 99 /* [v pactlstptr1 = 0 break case 255 /* I pctrlmd = 0 pactlstptr1 = 0 break endswitch /* } /* Gstick1 = stick(1) if psitfreeze <> 0 then { if Gstick1 = 0 then psitfreeze = 0 } /* Î~̂݃WCXeBbNɂړ菈s if pctrlmd = 0 and (Gsystemmd = 2 or Gsystemmd = 3) and pmvstep1 = 0 and psitfreeze = 0 and evtwaitsec = 0 then { panimmd1 = 0 switch Gstick1 case 8 padstickreq = 8 tdesknod = prow * 6 + pcol / 2 /* tdesknou = tdesknod - 6 /* Ȏ痣Ȃ if psitmd = 1 then { psitmd = 0 /* psitreq = 1 /* (ȒvC[) pspoldno = pspno /* ړvC[̕\W pmvspx1 = 80 + (pcol * 16) pmvspy1 = 72 + (prow * 40) pspno = pmvspno(prow) pdir1 = 3 /* pmvstep1 = 32 /* ړXebv pmvdir1 = 3 /* panimmd1 = 1 /* Ajp^[ /* ړ } else { /* hA(E)̎OȂAXe[WNAv if prow = 0 and psitmd = 0 and pcol = 10 then { gmdreq1 = 2 /* 2:Xe[WNAv } /* Ȃ璅Ȃ if prow > 0 and psitmd = 0 and (pcol and &B1) = 0 then { /* u񂾂ꍇA_Ń`N if deskalc(tdesknou) = 0 and tchgcnt1 > 2 and rndval > 5 then { /* 2ȑւĂƁA_Ń`N tdeskno = tdesknou eventreq1 = 2 /* uɃ`N pdir1 = 3 /* pmvstep1 = 0 /* ړXebv pmvdir1 = 3 /* panimmd1 = 0 /* Ajp^[ } else { /* ȊȌꍇ psitreq = 2 /* (ړ̃vC[) pspoldno = pspno tdeskno = tdesknou prow = prow - 1 psitmd = 1 psitfreeze = 1 /* vC[ȂłȂꍇ if tdeskno <> pdeskno then { if deskalc(tdeskno) <> 0 then tchgcnt1 = 0 else tchgcnt1 = tchgcnt1 + 1 /* FB̏ꍇAȑւJE^0ɁAȕꍇ͉Z tchgcnt1 = tchgcnt1 + 1 /* ȑւJE^Z deskalcspy(pdeskno) = deskalcspy(pdeskno) - 32 tchr = deskalc(tdeskno) deskalc(tdeskno) = deskalc(pdeskno) deskalc(pdeskno) = tchr wdeskno = tdeskno tdeskno = pdeskno pdeskno = wdeskno tspno = deskalcspno(tdeskno) pspno = deskalcspno(pdeskno) /* deskalcspx(tdeskno) = 80 + ((tdeskno - ((tdeskno / 6) * 6)) * 32) deskalcspy(tdeskno) = 72 + ((tdeskno / 6) * 40) deskalcspx(pdeskno) = 80 + ((pdeskno - ((pdeskno / 6) * 6)) * 32) deskalcspy(pdeskno) = 72 + ((pdeskno / 6) * 40) psitspd = chrspdlst(deskalc(tdeskno) * 17 + 16) psc1 = psc1 + 500 pscreflesh1 = 1 /* vC[Ȃ } else { psitreq = 3 /* ȌsȂ() } } /* ȂȂΌς邾 } else { pdir1 = 3 /* pmvstep1 = 0 /* ړXebv pmvdir1 = 3 /* panimmd1 = 0 /* Ajp^[ } } break case 2 padstickreq = 2 tdesknod = prow * 6 + pcol / 2 tdesknou = tdesknod - 6 /* Ȏ痣Ȃ if prow < 3 and psitmd = 1 then { psitmd = 0 /* psitreq = 1 /* (ȒvC[) REAL DUNGEON SHINING STAR GAIDEN Ver.1.2 Copyright 2022 iroirotei ̃vOɂ‚ @A[P[hQ[(?)̃A^C_WT傢Q[łB @vC[̓_WɐA^C}[OɂȂOɁAk̏ @NAĂB ‹ @EX68000S@ @Ev2MBȏ @EvWCXeBbN @@vCۂ́AK{̂ JOY STICK 1 |[gɃWCXeBbN @@(܂̓WCpbh)ڑĂB N@ @tbs[fBXNN @@E{̂Ƀtbs[fBXN}RESETsƂŁAIɃQ[ @@@N܂B @•ʂɃvONꍇ @@Eȉ̃hCo풓A @@@FLOAT2.X @@@HIOCS.X @@@ZMSC.X (Ver.2.08 ZMUSIC.X ł) @@Eȉ̃R}hŋN܂B @@@CD BASIC2 @@@XB RD.BAS STORY @pjIĉƘH֌̂ւ̃cCe[B @ꂩ炩AsKɂh̉lɒǓ˂Ă܂B @yȂĂȂĎ΂ȂcCe[ɑ΂A @̎AlɌnꂽk̏Ƃ́EEEB oLN^[ @E[i(LENA) @@̂ւ̃cCe[ @ET(SALA) @@Mۂcf @El(OH-SAMA) @@h̉l" @EG(GORUA)@ @@D @@ƂɎĂC܂AOɂ{l֎gp‚𓾂Ă܂B @@@ɂ{͖EEEƎvĂ܂B(]Iϑ) @@@(;) ɼ (Q;) ޸ HOW TO PLAY @Q[X^[g @@^CgʂŃgK[(ǂł)ƃQ[Jn܂B @@lƂ̐ڌ(?)Jn܂B @@k̏𕷂ƁAvC[̓_WɌATJnƂȂ܂B @@ @@TJńAԂ̌o߂Ń^C}[Ă܂B @@OɂȂƃQ[I[o[łB @@̑OɃNAڎw܂傤B @bE퓬 @@[AUTO] ƕ\AisƂȂ܂B(͂ł܂) @@퓬́AvC[ւ̃_[W̓^C}[ZƂȂ܂B @@Ђ^C}[CɂȂ猩͂܂傤B @_Wړ @@ȉ̑ŁA_Wi݂܂B @@@@@@@Oi @@@@@@@ @@@񄬁@@E@@ (gp) @@@@@@@@@@@@@@@ @@@@@@@ @@@@@@@ @@_Wړ́AXeBbN̉ςȂňړ邱Ƃł܂B @@(Ver.1.1) @@_WړƁA܂胁bZ[W\邱Ƃ܂B @@bZ[W\͎Ȃ̂ŁAvC[͕̑svłB @@\^C}[͌ĂAˆړł܂̂ŁAЂT @@i߂ĂB @@_ŴƂֈړƁÅK֍~Ki܂B @@‚āATi߂܂傤B @j[\ @@KiӏֈړƁAj[\܂B @@ȉ̑ŁAj[I܂B @@@@@ڈړ() @@@@@@@ @@(gp)@@(gp)@@@ @@@@@@@@@@@@@@@ @@@@@@@ @@@@@ڈړ() @@j[\^C}[Ă܂B @@vɑI܂傤B pK @{vO̓t[\tgEFAłB @{vO̒쌠́A낢ێĂ܂A @@pɊւēɐ͂܂B @{vOɓɊւĂ͖ۏ؂łB @@鎖ڕWɐ삳Ă܂A @@{vO𓮍삳ƂɂA{́AӋ@퓙A @@̃vOɕs^ƂĂAؕۏ؂܂B @@e̐ӔC̉ApĂB @{vO̔zz͎RɍsƂł܂B @@Lzzꍇɂ́AfBA{Ƃ܂B @{vOۂ́A|Ɖӏ{hLg @@LĂB o[W @Ver.1.0 2022/04/29 gGNXvX6 oWo[W @@Ԃ̊֌WAX̂_݂܂܂̃[XƂȂ܂B @@l̕ɃvCAȂɊyłlqłB() @@NA1B߂łƂ܂B @Ver.1.1 2022/05/27 C @@E^Cgʂƃ[J[S摜̏C @@@摜k̉eŃ{P{P̂NbLB @@@܂ŃB[ifBXvĈ悤Ɏv悤ɂȂ܂B(傰) @@EQ[̃WCpbh\̒lj @@@”\ȃL[ƁAݑ쒆̃L[\A삪₷ @@@Ȃ܂B() @@E_Wړ̑쐫 @@@_Wړ́AXeBbN̉ςȂňړ邱Ƃ @@@ł悤ɂȂAvサ܂B(]Iϑ) @@ELOEl[Gg[̎ @@@fʒɁALO\悤ɁB @@@Q[NAɁAc^CDĂꍇ́Al[Gg[ @@@”\ɂȂABサ܂B(]Iϑ) @@EvC[̕\̒lj @@@肵炪ljAAjCサ܂B() @@EGJEg̒ቺ @@EvC[U͂̌ @@@vC̃XgXy܂B(]Iϑ) @@EG̍U[V(H)̒lj @@@G̍UĂ銴サ܂B() @@EvC[_\W̕\AuN̒lj @@@vC[̃_[W󂯂Ă銴サ܂B() @@ELN^[̍V @@@ꕔAȑO삵Q[̗pf[^݂߁ASʓI @@@V܂B @@@ȒPɌƁAceɂȂ܂B(C) @@Efʂ̃XLbv₷̌ @@@fʂŃgK[ƂŁA΂₷Ȃ܂B @@@(ł) @@Eafl̍V @@@ȋȂł܂ɂЂǂ̂ŁȂz背x܂ŏC܂B @@@(łЂǂ) @@@ǁAC1|邱ƂɁEEEB @@@ (;) ɼ (Q;) @Ver.1.2 2022/10/09 12 MI68 oWo[W @@EC^v^X-BASIC؂-BASICɕύXA @@@10MHz@łKɓ”\ƂȂ܂B @@Eɂ蕾QƂȂ쐫̏C @@@_WړAl[Gg[̑쒲s܂B @@EɂQ[oX̒ @@@^C}[ƃGJEǧs܂B @@@ǁAgGNXvX5|Ă܂EEEB @@@ (;) ɼ (Q;) ޸ L @Ver.1.0 2022/04/29 gGNXvX6 oWo[W @E2022N3{ @@4NԂ̊JÂƂȂA4/29JẪgGNXvXɁAolB @@4NOɂA炠Qbc邿傢Q[(+MI69X)̂ŁA܂ @@傢Q[肽ȂƖϑzB @@΁A20NقǑOɃeLXgAhx`[ōČ_WQ[ @@(摜͈ؖAbZ[W3D_W\Ƃgf) @@ĂA‚{3D_W̃Q[肽ƎvĂ̂ @@voB @@悵A^C}[3D_Wpj邿傢Q[낤I @@ƌSBX-BASICŁB @E2022N3{ @@3D_Wpj邾̂̂B @@vȒPɎoĂтB @@܂ɓ삪ςǁAǂɂ߂荞񂾂͂ȂB @@ŁAswitch casebreakYĂ邱ƂoB @@@̌񂩕ʂ̉ӏł炩B() @@bZ[W\@\̎n߂B @@Q[̓^C}[葱AA[P[hQ[ڎwĂA @@PȃbZ[W\A{^܂ő҂“Iȏ͐is̑jQƂȂB @@āAANVQ[̂悤ɏ펞Q[邮悤 @@n߂B @@_WRPĜ悤ȊOŁA鏈+MI69X̂悤ɃANVQ[I @@eƂȂB @E2022N3{ @@ixȂĂAbZ[W\ƃ^C}[\B @@ANVQ[Iȏ̍g݂͏ôŁA֓t邱ƂɂȂB @E2022N43 @@퓬B @@A̎D悷邽߁A摜͖AbZ[Ŵ݁B @@RɃ_WpjłȂȂ߁A኱XgX悤ɂȂB @@GJEg𒲐B @E2022N45 @@KiŎgp郁j[B @@Aj[\ĂяołĂȂ̂ŁA܂gȂB @E2022N46 @@j[̑IڂɃuNB @@X^[N[U[̃j[JbRǂ̂ŁApN...CXpCAB @E2022N410 @@ViIB @@L[ɃViI߂āA[vŃQ[isȂ珈sƂɁB @@񂾂񊮐C[WƂȂĂB @E2002N418 @@Ȃ񂩐ixB @@ViIƃ_WAgł悤ɁB @@lƂ̉bA_Wړ̃bZ[WAKȉƃQ[ @@삷悤ɂȂB @E2022N419 @@_W}bvStAB @@Q[Ŝ̒قڌ܂̂ŁA^C}[̏ԂȂǂ𒲐B @E2022N421 @@Notice\ƃ^CgʂB @@^CgʂPhotoshopłȂƂȂ쐬B @@ubNIjLXڎwB(C) @E2022N422 @@[J[SB @E2022N423 @@lƕP̉b𐴏B @@v[O̎B @E2022N425 @@XvCgLB @@f̃LN^[\AvC̃vC[̕\\ljB @@\\͖ۂB(‚) @@GfBOHOW TO PLAYB @@GLǂ悤ƎvĂ邪Abł̕ɌB @@{lɎgp‚Bp1񂭂炢͊o債悤B(܂Ȃ) @E2022N426 @@GfBOɃLXg\ƃX^bt\ljB(X^bt1) @@Q[I[o[B @E2022N427 @@ȂB @@Ȃ邹łЂǂoɁEEEB @E2022N428 Ver.1.0 @@ׂCIAB @@X68030@ɎčsAmFB薳B @@A2MBł͓삵ȂƂgGNXvXɔB @@orz ... @Ver.1.1 2022/05/27 C @E2022N57 @@fʂ̏璷Ȃ̂ŁAōœKB @@fʒɃgK[ŃXLbv₷悤ɏCB @E2022N58 @@G̍U[V(H)̒ljB @@^Cgʂƃ[J[S摜̏CBNbLB @@vC[_[W̕\ύXuNljB @@vC[\̂ljB @@WCpbh\̒ljB @@GfBO̍ŌɃ[J[S\ljB @E2022N515 @@LO\l[Gg[ljB @E2022N524 @@afl̍VB @@LN^[̍VBceB @@\n̏œKAꂩɏWB @@\[XɃRgЂNjLB(܂܂Ђǂ) @@GJEg̒ቺB @@vC[U͂̌B @@_Wړ́AXeBbN̉ςȂňړł悤CB @@ׂoOׂ͒B(Ǝv) @E2022N527 Ver.1.1 @@̌AׂCIAB @Ver.1.2 2022/10/09 12 MI68 oWo[W @E2022N528 @@10MHz@ƒxĂ܂ƂɃvCłȂԂƂƎvA @@FXƃ\[XAȏ͍̍ƔfB @@ @@ɂ؂-BASICœ삳ƂA10MHz@łă_W @@肭Ȃ炢ɂȂ邱ƂB @@ƂƂƂ؂-BASICŎΗǂEEEB @E2022N1008 @@12 MI68̑O܂Ŗ4JuB @@@(;) ɼ (Q;) ޸ @@C^v^X-BASIC؂-BASICɕύXۂ́AĒsB @@_Wړƃl[Gg[Ă܂ƂɑłȂ̂ŁA @@XeBbNςȂɃEFCg}B @@(̓EFCgł͂ȂAςȂJEgāA @@ JEgoߎɓ悤ɂ) @@ړȂʁAQ[oXςĂ܂̂ŁA @@^C}[ƃGJEg𒲐B @@_W`揈ȊÓA10MHz@łق1Cg\łĂƎv܂B @@fʂA퓬̃tbV\ȂǂŁÄႢ邩Ǝv܂B @@ƁAz肵ĂɎdオȁB @@Ԃɍ΁ACXgNVJ[hĂB @@ł́A12 MI68ɂ܂傤B A @ETwitter @ARX_UHO (邫) Sun Oct 09 00:00 JST 2022 (ARX_UHO) ;00;00=00B``B@?@``;00=00>0077`7;00;00=00;``;:8:``;00=00>$$= ;HH= > @$$> =HH> @ B@?; = >$$= ;HH= > @$$> =HH> @ BB ߠ B00;B``B00I``I00FG``BECHO OFF PROMPT $P$G PATH A:\;A:\SYS;A:\BASIC2 REM SYS\ZMUSIC.X SYS\ZMSC.X -W0 -P0 CD BASIC2 REM BASIC EDS.BAS XB EDS.BAS B00BA``A00A00BEEGGGGBEEGGG ʠ /; ; /; ; /; ; /; ; /; ; /; ; /; ; /; ; 6B B 6B B 6B B 6B B 4@ @ 4@ @ 4@ @ 4@ @ 7C C 7C C 7C C 7C C 7C C 7C C 7C C 7C C /; ; /; ; /; ; /; ; 1= = 1= = 1= = 1= = 2> > 2> > 2> > 2> > 2> > 2> > 2> > 2> > 4@ @ 4@ @ 4@ @ 4@ @ 4@ @ 4@ @ 4@ @ 4@ @ 2> > 2> > 2> > 2> > 4@ @ 4@ @ 4@ @ 4@ @ ;G G ;G G ;G G ;G G ;G G ;G G ;G G ;G G /; ; /; ; /; ; /; ; /; ; /; ; /; ; /; ; 6B B 6B B 6B B 6B B 4@ @ 4@ @ 4@ @ 4@ @ 7C C 7C C 7C C 7C C 7C C 7C C 7C C 7C C /; ; /; ; /; ; /; pspoldno = pspno prow = prow + 1 /* ړvC[̕\W pmvspx1 = 80 + (pcol * 16) pmvspy1 = 72 + ((prow - 1) * 40) pspno = pmvspno(prow) pdir1 = 0 /* pmvstep1 = 16 /* ړXebv pmvdir1 = 0 /* panimmd1 = 1 /* Ajp^[ /* ړ } else { /* Ȃ璅Ȃ if psitmd = 0 and (pcol and &B1) = 0 then { /* u񂾂ꍇA_Ń`N if deskalc(tdesknod) = 0 and tchgcnt1 > 2 and rndval > 6 then { /* 2ȑւĂƁA_Ń`N tdeskno = tdesknod eventreq1 = 2 /* uɃ`N pdir1 = 0 /* pmvstep1 = 8 /* ړXebv pmvdir1 = 0 /* panimmd1 = 0 /* Ajp^[ } else { /* ȊȌꍇ psitreq = 2 /* (ړ̃vC[) pspoldno = pspno tdeskno = tdesknod psitmd = 1 psitfreeze = 1 /* vC[ȂłȂꍇ if tdeskno <> pdeskno then { if deskalc(tdeskno) <> 0 then tchgcnt1 = 0 else tchgcnt1 = tchgcnt1 + 1 /* FB̏ꍇAȑւJE^0ɁAȕꍇ͉Z deskalcspy(pdeskno) = deskalcspy(pdeskno) + 32 tchr = deskalc(tdeskno) deskalc(tdeskno) = deskalc(pdeskno) deskalc(pdeskno) = tchr wdeskno = tdeskno tdeskno = pdeskno pdeskno = wdeskno tspno = deskalcspno(tdeskno) pspno = deskalcspno(pdeskno) /* deskalcspx(tdeskno) = 80 + ((tdeskno - ((tdeskno / 6) * 6)) * 32) deskalcspy(tdeskno) = 72 + ((tdeskno / 6) * 40) deskalcspx(pdeskno) = 80 + ((pdeskno - ((pdeskno / 6) * 6)) * 32) deskalcspy(pdeskno) = 72 + ((pdeskno / 6) * 40) psitspd = chrspdlst(deskalc(tdeskno) * 17 + 16) psc1 = psc1 + 500 pscreflesh1 = 1 /* vC[Ȃ } else { psitreq = 3 /* ȌsȂ() } } /* ȂȂΌς邾 } else { pdir1 = 0 /* pmvstep1 = 0 /* ړXebv pmvdir1 = 0 /* panimmd1 = 0 /* Ajp^[ } } break case 4 padstickreq = 4 if psitmd = 0 and pcol > 0 then { pdir1 = 1 /* pmvstep1 = 16 /* ړXebv pmvdir1 = 1 /* panimmd1 = 1 pcol = pcol - 1 tdesknod = prow * 6 + pcol / 2 tdesknou = tdesknod - 6 } else { pdir1 = 1 /* pmvstep1 = 0 /* ړXebv pmvdir1 = 1 /* panimmd1 = 0 } break case 6 padstickreq = 6 if psitmd = 0 and pcol < 10 then { pdir1 = 2 /* E pmvstep1 = 16 /* ړXebv pmvdir1 = 2 /* E panimmd1 = 1 pcol = pcol + 1 tdesknod = prow * 6 + pcol / 2 tdesknou = tdesknod - 6 } else { pdir1 = 2 /* E pmvstep1 = 0 /* ړXebv pmvdir1 = 2 /* E panimmd1 = 0 } break default padstickreq = 99 endswitch /* } /* /* vC[s if pmvstep1 > 0 then { switch pmvdir1 case 0 : pmvspy1 = pmvspy1 + 1 : break /* case 1 : pmvspx1 = pmvspx1 - 1 : break /* case 2 : pmvspx1 = pmvspx1 + 1 : break /* E case 3 : pmvspy1 = pmvspy1 - 1 : break /* endswitch pmvstep1 = pmvstep1 - 1 if pmvstep1 = 0 then panimmd1 = 0 if pmvdir1 >= 0 and pmvdir1 <= 3 then psc1 = psc1 + 10 pscreflesh1 = 1 } /* 搶s if smvstep1 > 0 then { switch smvdir1 case 0 : sspy1 = sspy1 + 1 : break /* case 1 : sspx1 = sspx1 - 1 : break /* case 2 : sspx1 = sspx1 + 1 : break /* E case 3 : sspy1 = sspy1 - 1 : break /* case 4 case 5 case 6 case 7 case 8 break endswitch smvstep1 = smvstep1 - 1 if smvstep1 = 0 then sanimmd1 = 0 } /* vC[Aj /* ĂꍇA摜 if psitmd = 1 then { pmvspd = chrspdlst(deskalc(pdeskno) * 17 + 16) /* ĂăAj[hON̏ꍇAAj } else { if panimmd1 = 1 then { if panimwait1 = 0 then if panimcnt1 < 3 then panimcnt1 = panimcnt1 + 1 else panimcnt1 = 0 if panimwait1 < 3 then panimwait1 = panimwait1 + 1 else panimwait1 = 0 } if pdir1 <> 11 then { /* шȊOȂ pmvspd = chrspdlst(deskalc(pdeskno) * 17 + pdir1 * 4 + panimcnt1) } else {/* () pmvspd = chrspdlst(deskalc(pdeskno) * 17 + 16) + 16384 pmvspd2 = chrspdlst(deskalc(pdeskno) * 17 + 16) + 16384 - (2 shl 8) + (15 shl 8) /* } } /* /* 搶Aj if sanimmd1 = 1 then { if sanimwait1 = 0 then if sanimcnt1 < 3 then sanimcnt1 = sanimcnt1 + 1 else sanimcnt1 = 0 if sanimwait1 < 3 then sanimwait1 = sanimwait1 + 1 else sanimwait1 = 0 } sspd = chrspdlst(schrcd * 17 + sdir1 * 4 + sanimcnt1) /* /* hAJIɃ[h() if dmvmd1 > 1 then { if dmvstep1 = 0 and dmvmd1 = 3 then dmvmd1 = 1 /* 3:J->1:J if dmvstep1 = 0 and dmvmd1 = 2 then dmvmd1 = 0 /* 2:‚->0: } /* hAJIɃ[h(E) if dmvmd2 > 1 then { if dmvstep2 = 0 and dmvmd2 = 3 then dmvmd2 = 1 /* 3:J->1:J if dmvstep2 = 0 and dmvmd2 = 2 then dmvmd2 = 0 /* 2:‚->0: } /* hAJ—v() if dmvreq1 <> 0 then { if dmvreq1 = 2 then { /* 2:Jv dmvreq1 = 0 if dmvmd1 = 0 then { /* 0: dmvmd1 = 3 /* 3:J dmvstep1 = 16 dmvdir1 = 2 /* 2:E } } if dmvreq1 = 1 then { /* 1:‚v dmvreq1 = 0 if dmvmd1 = 1 then { /* 1:J dmvmd1 = 2 /* 2:‚ dmvstep1 = 16 dmvdir1 = 1 /* 1: } } } /* hAJ—v(E) if dmvreq2 <> 0 then { if dmvreq2 = 2 then { /* 2:Jv dmvreq2 = 0 if dmvmd2 = 0 then { /* 0: dmvmd2 = 3 /* 3:J dmvstep2 = 16 dmvdir2 = 1 /* 1: } } if dmvreq2 = 1 then { /* 1:‚v dmvreq2 = 0 if dmvmd2 = 1 then { /* 1:J dmvmd2 = 2 /* 2:‚ dmvstep2 = 16 dmvdir2 = 2 /* 2:E } } } /* hAJ() if dmvstep1 > 0 then { switch dmvdir1 case 0 : dspy1 = dspy1 + 1 : break /* case 1 : dspx1 = dspx1 - 1 : break /* case 2 : dspx1 = dspx1 + 1 : break /* E case 3 : dspy1 = dspy1 - 1 : break /* endswitch dmvreflesh1 = 1 dmvstep1 = dmvstep1 - 1 } /* /* hAJ(E) if dmvstep2 > 0 then { switch dmvdir2 case 0 : dspy2 = dspy2 + 1 : break /* case 1 : dspx2 = dspx2 - 1 : break /* case 2 : dspx2 = dspx2 + 1 : break /* E case 3 : dspy2 = dspy2 - 1 : break /* endswitch dmvreflesh2 = 1 dmvstep2 = dmvstep2 - 1 } /* Cxg҂ȊOŐ搶ĎԂŗȂĂ搶Ɍ‚Cxg if evtwaitsec = 0 and swatch = 1 and psitmd = 0 then { eventreq1 = 1 } /* /* [U[ˏ if lsmvmd1 = 1 then { lsspx1 = lsspx1 - 4 lsspx2 = lsspx2 - 4 if lsspx1 < 0 then lsspx1 = lsspinix1 if lsspx2 < 0 then lsspx2 = lsspinix2 /* if lsmvcnt1 > 0 then { lsmvcnt1 = lsmvcnt1 - 1 } else { lsmvmd1 = 0 lsmvreq1 = 2 } } /* /*** evΉ ***/ /* /* Cxgv̎t if eventreq1 <> 0 then { if eventreq1 = 1 then { /* 搶Ɍ‚ tchgcnt1 = 0 /* ȑւJE^ pctrlmd = 1 /* execcmd(CMD_MUSIC, "EDSSEFC", "") msgboxfntcol1 = RED pactlst1(0) = 34 /* MsgBox pactlst1(1) = 5 /* Stop pactlst1(2) = 30 /* StopFrames pactlst1(3) = 34 /* MsgBox pactlst1(4) = 5 /* Stop pactlst1(5) = 60 /* StopFrames pactlst1(6) = 255 /* End pmsgboxptr1 = 0 msgboxstr(0) = "u[iNA@@@@@@@@" msgboxstr(1) = "u[iNAȂɖ߂Ȃv" /* blnreq1 = 1 pactlstptr1 = 0 evtwaitsec = 5 evtstat1 = eventreq1 pfacrefresh = 2 eventreq1 = 0 } if eventreq1 = 2 then { /* uɃ`N tchgcnt1 = 0 /* ȑւJE^ pctrlmd = 1 /* execcmd(CMD_MUSIC, "EDSMOFC", "") msgboxfntcol1 = RED pactlst1(0) = 34 /* MsgBox pactlst1(1) = 5 /* Stop pactlst1(2) = 20 /* StopFrames pactlst1(3) = 34 /* MsgBox pactlst1(4) = 5 /* Stop pactlst1(5) = 14 /* StopFrames pactlst1(6) = 34 /* MsgBox pactlst1(7) = 5 /* Stop pactlst1(8) = 60 /* StopFrames pactlst1(9) = 11 /* Futtobi pactlst1(10) = 255 /* End pmsgboxptr1 = 0 msgboxstr(0) = "uݾ! " msgboxstr(1) = "uݾ! ²ð " msgboxstr(2) = "uݾ! ²ð źĽ!!v" /* tsitreq1 = 1 /* 1:^[QbguNv tspno = deskalcspno(tdeskno) psitspd = chrspdlst(deskalc(tdeskno) * 17 + 4) blnreq1 = 3 pactlstptr1 = 0 evtwaitsec = 7 evtstat1 = eventreq1 pfacrefresh = 2 eventreq1 = 0 } } if lsmvreq1 <> 0 then { /* [U[˗v̎t if lsmvreq1 = 1 then { lsmvmd1 = 1 /* [U[˃[h lsmvcnt1 = 130 /* [U[ˎ lsspinix1 = deskalcspx(tdeskno) - 16 /* [U[SPXW1 lsspiniy1 = deskalcspy(tdeskno) + 8 /* [U[SPYW1 lsspinix2 = deskalcspx(tdeskno) - 16 /* [U[SPXW2 lsspiniy2 = deskalcspy(tdeskno) + 8 /* [U[SPYW2 lsmvreq1 = 0 if lsspinix1 < 0 then lsspinix1 = 0 if lsspinix2 < 0 then lsspinix2 = 0 lsspx1 = lsspinix1 lsspy1 = lsspiniy1 lsspx2 = lsspinix2 - 32 lsspy2 = lsspiniy2 pfacrefresh = 4 pfacbrk = 1 pfacbrkcnt = 140 } if lsmvreq1 = 2 then { lsspx1 = 0 lsspy1 = 0 lsspx2 = 0 lsspy2 = 0 lsmvmd1 = 2 lsmvreq1 = 0 tsitreq1 = 2 /* 2:^[Qbguȗv psitspd = chrspdlst(deskalc(tdeskno) * 17 + 16) } } /* o\v̎t if blnreq1 <> 0 then { /* o\(2l) if blnreq1 = 1 then { blnmd1 = 1 blnreflesh = 1 blnreq1 = 0 } /* o폜 if blnreq1 = 2 then { blnmd1 = 2 blnreflesh = 1 blnreq1 = 0 } /* o\(3l) if blnreq1 = 3 then { blnmd1 = 3 blnreflesh = 1 blnreq1 = 0 } } /* ʒu}[N\v̎t if locmkreq <> 0 then { if locmkreq = 1 then { /* 1:Player locmkstat = locmkreq locmk1x1 = deskalcspx(pdeskno) - 24 locmk1x2 = locmk1x1 + 31 locmk1y1 = deskalcspy(pdeskno) - 16 locmk1y2 = locmk1y1 + 35 locmkcnt = 180 locmkwait = 0 locmkbrk = 1 locmkreq = 0 } if locmkreq = 2 then { /* 2:Friend locmkstat = locmkreq locmk1x1 = deskalcspx(fdeskno1) - 24 locmk1x2 = locmk1x1 + 31 locmk1y1 = deskalcspy(fdeskno1) - 16 locmk1y2 = locmk1y1 + 35 locmk2x1 = deskalcspx(fdeskno2) - 24 locmk2x2 = locmk2x1 + 31 locmk2y1 = deskalcspy(fdeskno2) - 16 locmk2y2 = locmk2y1 + 35 locmk3x1 = deskalcspx(fdeskno3) - 24 locmk3x2 = locmk3x1 + 31 locmk3y1 = deskalcspy(fdeskno3) - 16 locmk3y2 = locmk3y1 + 35 locmkcnt = 180 locmkwait = 0 locmkbrk = 1 locmkreq = 0 } if locmkreq = 3 then { /* 3:DoorDesk locmkstat = locmkreq locmk1x1 = deskalcspx(5) - 24 locmk1x2 = locmk1x1 + 31 locmk1y1 = deskalcspy(5) - 16 locmk1y2 = locmk1y1 + 35 locmkcnt = 180 locmkwait = 0 locmkbrk = 1 locmkreq = 0 } if locmkreq = 4 then { /* 4:Door locmkstat = locmkreq locmk1x1 = dspx2 - 20 locmk1x2 = locmk1x1 + 23 locmk1y1 = dspy2 - 20 locmk1y2 = locmk1y1 + 39 locmkcnt = 180 locmkwait = 0 locmkbrk = 1 locmkreq = 0 } if locmkreq = 5 then { /* 5:Sensei locmkstat = locmkreq locmk1x1 = sspx1 - 24 locmk1x2 = locmk1x1 + 31 locmk1y1 = sspy1 - 20 locmk1y2 = locmk1y1 + 38 locmkcnt = 180 locmkwait = 0 locmkbrk = 1 locmkreq = 0 } } /* bZ[W\v̎t if sysmsgreq1 = 1 then { sysmsgreq1 = 0 sysmsgmd1 = 1 sysmsgwait1 = 180 sysmsgrefresh1 = 1 } if sysmsgmd1 = 1 and sysmsgwait1 = 0 then { sysmsgmd1 = 0 sysmsgrefresh1 = 2 } /* /* bZ[W{bNX\v̎t if msgboxreq1 = 1 then { msgboxreq1 = 0 if msgboxmd1 = 1 then msgboxrefresh1 = 3 else msgboxrefresh1 = 1 : msgboxmd1 = 1 msgboxwait1 = 180 } if msgboxmd1 = 1 and msgboxwait1 = 0 then { msgboxmd1 = 0 msgboxrefresh1 = 2 } /* /* Xe[WNAv if gmdreq1 = 2 then { execcmd(CMD_MUSIC, "EDSRCFC", "") gmdreq1 = 0 pctrlmd = 1 pactlst1 = {23, 5,32,38, 5,32,24, 0, 5,32,255} pactlstptr1 = 0 evtwaitsec = 5 Gsystemmd = 4 } /* /*** ʕ`揈 ***/ /* v_disp(0) /* PadView if padviewreq <> 0 then { execcmd(CMD_PAD, itoa(padviewreq), "") padviewmd = padviewreq padviewreq = 0 } /* PadView if padviewreq <> 0 then { if padviewreq = 99 then padviewreq = 0 execcmd(CMD_PAD, itoa(padviewreq), "") padviewmd = padviewreq padviewreq = 0 } /* PadStick if padstickreq <> 0 then { if padstickreq = 99 then padstickreq = 0 execcmd(CMD_STICKCLICK, itoa(padstickreq), "") padstickmd = padstickreq padstickreq = 0 } /* PadTrigger if padtrigreq <> 0 then { if padtrigreq = 99 then padtrigreq = 0 execcmd(CMD_STRIGCLICK, itoa(padtrigreq), "") padtrigmd = padtrigreq padtrigreq = 0 } /* if ffcsavstatreq = 1 then { /* FB~\v̎t if ffcsavflg1 = 1 then { sp_set(ffcspno1, ffcspx1, ffcspy1, chrspdlst(2 * 17 + 0 * 4 + 0), 3) } if ffcsavflg2 = 1 then { sp_set(ffcspno2, ffcspx2, ffcspy2, chrspdlst(3 * 17 + 0 * 4 + 0), 3) } if ffcsavflg3 = 1 then { sp_set(ffcspno3, ffcspx3, ffcspy3, chrspdlst(4 * 17 + 0 * 4 + 0), 3) } ffcsavstatreq = 0 } /* Xe[WbZ[W if stgmsgreq <> 0 then { if stgmsgreq = 1 then { locate 11, 4 : color 1 : print "GET READY" locate 11, 6 : print "PLAYER ONE" locate 13, 9 : print "ROUND" locate 14, 11 : color 2 : print stgno : color 3 stgmsgreq = 0 } if stgmsgreq = 2 then { locate 11, 4 : color 3 : print " " locate 11, 6 : print " " locate 13, 9 : print " " locate 14, 11 : print " " stgmsgreq = 0 } } /* Xe[Wwi\v̎t if stgviewreq = 1 then { /* BG0\Jn bg_set(0, 1, 1) pfacrefresh = 1 stgviewreq = 0 } /* X^[gkov̎t if stgmappreq = 1 then { for lc2 = 0 to 3 bg_y = lc2 for lc1 = 0 to 5 deskno = lc2 * 6 + lc1 psitspd = chrspdlst(deskalc(deskno) * 17 + 16) mspno = deskalcspno(deskno) sp_set(mspno , deskalcspx(deskno), deskalcspy(deskno), psitspd, 3) sp_set(mspno + 1, deskalcspx(deskno), deskalcspy(deskno) + 16, psitspd + 16, 3) next next stgmappreq = 0 } /* X^[gʒu}[N\ if locmkstat <> 0 then { if locmkwait = 0 then { tbox(locmk1x1, locmk1y1, locmk1x2, locmk1y2, locmkcl1) tbox(locmk1x1 + 1, locmk1y1 + 1, locmk1x2 - 1, locmk1y2 - 1, locmkcl2) tbox(locmk1x1 - 1, locmk1y1 - 1, locmk1x2 + 1, locmk1y2 + 1, locmkcl3) if locmkstat = 2 then { /* 2:Friend tbox(locmk2x1, locmk2y1, locmk2x2, locmk2y2, locmkcl1) tbox(locmk2x1 + 1, locmk2y1 + 1, locmk2x2 - 1, locmk2y2 - 1, locmkcl2) tbox(locmk2x1 - 1, locmk2y1 - 1, locmk2x2 + 1, locmk2y2 + 1, locmkcl3) tbox(locmk3x1, locmk3y1, locmk3x2, locmk3y2, locmkcl1) tbox(locmk3x1 + 1, locmk3y1 + 1, locmk3x2 - 1, locmk3y2 - 1, locmkcl2) tbox(locmk3x1 - 1, locmk3y1 - 1, locmk3x2 + 1, locmk3y2 + 1, locmkcl3) } locmkbrk = 0 } if locmkwait = 30 then { tbox(locmk1x1, locmk1y1, locmk1x2, locmk1y2, 0) tbox(locmk1x1 + 1, locmk1y1 + 1, locmk1x2 - 1, locmk1y2 - 1, 0) tbox(locmk1x1 - 1, locmk1y1 - 1, locmk1x2 + 1, locmk1y2 + 1, 0) if locmkstat = 2 then { /* 2:Friend tbox(locmk2x1, locmk2y1, locmk2x2, locmk2y2, 0) tbox(locmk2x1 + 1, locmk2y1 + 1, locmk2x2 - 1, locmk2y2 - 1, 0) tbox(locmk2x1 - 1, locmk2y1 - 1, locmk2x2 + 1, locmk2y2 + 1, 0) tbox(locmk3x1, locmk3y1, locmk3x2, locmk3y2, 0) tbox(locmk3x1 + 1, locmk3y1 + 1, locmk3x2 - 1, locmk3y2 - 1, 0) tbox(locmk3x1 - 1, locmk3y1 - 1, locmk3x2 + 1, locmk3y2 + 1, 0) } locmkbrk = 1 } if locmkwait < 61 then locmkwait = locmkwait + 1 else locmkwait = 0 locmkcnt = locmkcnt - 1 if locmkcnt = 0 then locmkstat = 0 } /* XRAXVڃtbV if pscbnkcnt1 > 29 then { pscbnkcnt1 = 0 if pscbrk1 = 0 then { color 1 locate 1,0 : print " " color 3 pscbrk1 = 1 } else { color 1 locate 1,0 : print "1P" color 3 pscbrk1 = 0 } } /* XRA\tbV if pscreflesh1 = 1 then { pscstr1 = right$(" " + itoa(psc1), 10) /*vC[XRA1\ locate 3,0 : print pscstr1 pscreflesh1 = 0 } /* ^C}[\(^C}[XVtO<>0) if Gtimerefresh <> 0 then { color 3 /* vC[\(_[W)A^C}[uN\ /* if pfacbrkcnt > 0 then { /* if pfacbrk = 0 then color 13 else color 5 /* } if Gtimecnt < 10 then color 5 /* ^C}[\ locate 14,1 : print Gtimestr color 3 /* Gtimerefresh = 0 } /* ^[QbguȋNv̎t if tsitreq1 <> 0 then { if tsitreq1 = 1 then { sp_set(tspno , deskalcspx(tdeskno), deskalcspy(tdeskno), psitspd, 3) sp_set(tspno + 1, deskalcspx(tdeskno), deskalcspy(tdeskno) + 16, psitspd + 16, 3) tsitreq1 = 0 } else if tsitreq1 = 2 then { sp_set(tspno , deskalcspx(tdeskno), deskalcspy(tdeskno), psitspd, 3) sp_set(tspno + 1, deskalcspx(tdeskno), deskalcspy(tdeskno) + 16, psitspd + 16, 3) tsitreq1 = 0 } } /* [U[\ if lsmvmd1 <> 0 then{ if lsmvmd1 = 1 then { sp_set(lsspno1, lsspx1, lsspy1, lsspd1, 3) sp_set(lsspno2, lsspx2, lsspy2, lsspd2, 3) } if lsmvmd1 = 2 then { sp_set(lsspno1, lsspx1, lsspy1, lsspd1, 0) sp_set(lsspno2, lsspx2, lsspy2, lsspd2, 0) lsmvmd1 = 0 } } /* vC[\[h 1:\ if pvismod1 = 1 then { /* Ȏ̏ if psitreq = 1 then { /* ȗv /* ȒvC[ sp_set(pspoldno , deskalcspx(pdeskno), deskalcspy(pdeskno), pmvspd, 0) sp_set(pspoldno + 1, deskalcspx(pdeskno), deskalcspy(pdeskno) + 16, pmvspd + 16, 0) psitreq = 0 } /* Ȏ̏() if psitreq = 2 then { /* v /* ړ̃vC[ sp_set(pspoldno , pmvspx1, pmvspy1, pmvspd, 0) sp_set(pspoldno + 1, pmvspx1, pmvspy1 + 16, pmvspd + 16, 0) /* Ȍ̃LN^[̈ړ sp_set(tspno , deskalcspx(tdeskno), deskalcspy(tdeskno), psitspd, 3) sp_set(tspno + 1, deskalcspx(tdeskno), deskalcspy(tdeskno) + 16, psitspd + 16, 3) psitreq = 0 } /* Ȏ̏() if psitreq = 3 then { /* ȗv /* ړ̃vC[ sp_set(pspoldno , pmvspx1, pmvspy1, pmvspd, 0) sp_set(pspoldno + 1, pmvspx1, pmvspy1 + 16, pmvspd + 16, 0) psitreq = 0 } /* ړvC[\ if psitmd = 0 then { /* ړ if pfacbrkcnt > 0 then { /* _ if pfacbrk = 0 then { sp_set(pspno , pmvspx1, pmvspy1, pmvspd, 3) sp_set(pspno + 1, pmvspx1, pmvspy1 + 16, pmvspd + 16, 3) } else { sp_set(pspno , pmvspx1, pmvspy1, pmvspd2, 3) /* _ sp_set(pspno + 1, pmvspx1, pmvspy1 + 16, pmvspd2 + 16, 3) /* _ } } else { /* ʏ̈ړ sp_set(pspno , pmvspx1, pmvspy1, pmvspd, 3) sp_set(pspno + 1, pmvspx1, pmvspy1 + 16, pmvspd + 16, 3) } } else { /* Ȓ X^[gvC[ov̎t if stgpappreq = 1 and pfacbrkcnt > 0 then { /* ouN if pfacbrk = 0 then { sp_set(pspno , deskalcspx(pdeskno), deskalcspy(pdeskno), pmvspd, 0) sp_set(pspno + 1, deskalcspx(pdeskno), deskalcspy(pdeskno) + 16, pmvspd + 16, 0) pfacbrk = 1 } else { sp_set(pspno , deskalcspx(pdeskno), deskalcspy(pdeskno), pmvspd, 3) sp_set(pspno + 1, deskalcspx(pdeskno), deskalcspy(pdeskno) + 16, pmvspd + 16, 3) pfacbrk = 0 } pfacbrkcnt = pfacbrkcnt - 1 } else { /* ʏ풅 stgpappreq = 0 /* ȒvC[\ sp_set(pspno , deskalcspx(pdeskno), deskalcspy(pdeskno), pmvspd, 3) sp_set(pspno + 1, deskalcspx(pdeskno), deskalcspy(pdeskno) + 16, pmvspd + 16, 3) } } } else { /* vC[\[h 0:\ /* vC[ if pvismod1 = 0 then { sp_set(pspno , pmvspx1, pmvspy1, pmvspd, 0) sp_set(pspno + 1, pmvspx1, pmvspy1 + 16, pmvspd + 16, 0) } } /* hA1\ if dmvreflesh1 = 1 then { if dvismod1 = 1 then { sp_set(dspno1 , dspx1, dspy1 , dspd1 , 3) sp_set(dspno1 + 1 , dspx1, dspy1 + 16, dspd1 + 16, 3) } else { sp_set(dspno1 , 0, 0, 0, 0) sp_set(dspno1 + 1 , 0, 0, 0, 0) } dmvreflesh1 = 0 } /* hA2\ if dmvreflesh2 = 1 then { if dvismod1 = 1 then { sp_set(dspno2 , dspx2, dspy2 , dspd2 , 3) sp_set(dspno2 + 1 , dspx2, dspy2 + 16, dspd2 + 16, 3) } else { sp_set(dspno2 , 0, 0, 0, 0) sp_set(dspno2 + 1 , 0, 0, 0, 0) } dmvreflesh2 = 0 } /* /* 搶̕\ if svismod1 = 1 then { sp_set(sspno , sspx1, sspy1, sspd, 3) sp_set(sspno + 1, sspx1, sspy1 + 16, sspd + 16, 3) } else { sp_set(sspno , sspx1, sspy1, sspd, 0) sp_set(sspno + 1, sspx1, sspy1 + 16, sspd + 16, 0) } /* o\ if blnmd1 <> 0 then { if blnreflesh = 1 then { /* otbVtO /* o\(2l) if blnmd1 = 1 then { sp_set(pbspno, pmvspx1 + 16, pmvspy1 -16, pbspd, 3) sp_set(sbspno, sspx1 + 16, sspy1 - 16, sbspd, 3) blnreflesh = 0 } /* o폜 if blnmd1 = 2 then { sp_set(pbspno, 0, 0, pbspd, 0) sp_set(sbspno, 0, 0, sbspd, 0) sp_set(tbspno, 0, 0, tbspd, 0) blnmd1 = 0 blnreflesh = 0 } /* o\(3l) if blnmd1 = 3 then { sp_set(pbspno, pmvspx1 + 16, pmvspy1 -16, pbspd, 3) sp_set(sbspno, sspx1 + 16, sspy1 - 16, sbspd, 3) sp_set(tbspno, deskalcspx(tdeskno) + 16, deskalcspy(tdeskno) - 16, tbspd, 3) blnreflesh = 0 } } else if blnmd1 <> 2 then { /* o폜ȊȌꍇAvC[͖t[XV(ړ̂) sp_set(pbspno, pmvspx1 + 16, pmvspy1 -16, pbspd, 3) } } /* bZ[W\tbV if sysmsgrefresh1 <> 0 then { /* bZ[W\ if sysmsgrefresh1 = 1 then { msgprint(sysmsgstr1, 24) sysmsgrefresh1 = 0 } /* bZ[W if sysmsgrefresh1 = 2 then { msgprint("", 24) sysmsgrefresh1 = 0 } } /* /* vC[\\(vC[\XVtO<>0) if pfacrefresh <> 0 then { switch pfacrefresh case 1 /* ʏ execcmd(CMD_FACE, "128", "2") pfacrefresh = 0 break case 2 /* execcmd(CMD_FACE, "131", "2") pfacrefresh = 0 break case 3 /* execcmd(CMD_FACE, "134", "2") pfacrefresh = 0 break case 4 /* vC[\(_[W) if pfacbrkcnt > 0 then { if pfacbrk = 0 then { execcmd(CMD_FACE, "137", "2") pfacbrk = 1 } else { execcmd(CMD_FACE, "137", "15") pfacbrk = 0 } pfacbrkcnt = pfacbrkcnt - 1 } else { execcmd(CMD_FACE, "128", "2") pfacrefresh = 0 } break endswitch } /* bZ[W{bNX\tbV if msgboxrefresh1 <> 0 then { /* bZ[W{bNX if msgboxrefresh1 = 2 or msgboxrefresh1 = 3 then { fill(msgboxx1, msgboxy1, msgboxx2, msgboxy2, 0) } /* bZ[W{bNX\ if msgboxrefresh1 = 1 or msgboxrefresh1 = 3 then { /* msgboxx1 = 0 msgboxx2 = 0 msgboxy1 = 30 msgboxy2 = 0 msgboxlen1 = len(msgboxstr1) msgboxwid = ( msgboxlen1 * 8) + 15 msgboxhei = 31 /* msgboxx2 = msgboxx1 + msgboxwid msgboxy2 = msgboxy1 + msgboxhei if msgboxpos = 1 then { msgboxx1 = (reswid - msgboxwid) / 2 msgboxx2 = msgboxx1 + msgboxwid } /* box(msgboxx1, msgboxy1, msgboxx2, msgboxy2, msgboxbakcol) box(msgboxx1 + 1, msgboxy1 + 1, msgboxx2 - 1, msgboxy2 - 1, msgboxbdrcol) fill(msgboxx1 + 2 , msgboxy1 + 2, msgboxx2 - 2, msgboxy2 - 2, msgboxbakcol) symbol(msgboxx1 + 8, msgboxy1 + 8, msgboxstr1, 1, 1, 1, msgboxfntcol1, 0) } msgboxrefresh1 = 0 } /* /*** Q[[hJڏ ***/ /* Xe[WNA if Gsystemmd = 4 and evtwaitsec = 0 then { break } /* /* Q[I[o[菈(^C}[=0) if Gtimecnt = 0 then { Gstartflg = 2 /* X^[gtO 2:Q[I[o[ break } /* endwhile /* Q[Xe[WI /* /* X^[gtO 2:Q[I[o[ if Gstartflg = 2 then { gameover_screen() /* /* SXvCgBG v_disp(0) sp_off(0,127) bg_set(0, 1, 0) /* return(psc1) break } /* Xe[WNA if Gsystemmd = 4 then { /* /* N~oꂽ switch deskalc(5) case 2 ffcsavreq1 = 1 /* 1:T break case 3 ffcsavreq1 = 2 /* 2:Ni break case 4 ffcsavreq1 = 3 /* 3:VA break default ffcsavreq1 = 0 /* 0:v endswitch /* /* NGXg switch ffcsavreq1 case 1 ffcsavreq1 = 0 ffcsavflg1 = 1 /* 1:T ffcsavcd = 1 /* 1:T fspx1 = 136 fspy1 = 136 break case 2 ffcsavreq1 = 0 ffcsavflg2 = 1 /* Ni ffcsavcd = 2 /* 2:Ni fspx2 = 136 fspy2 = 136 break case 3 ffcsavreq1 = 0 ffcsavflg3 = 1 /* VA ffcsavcd = 3 /* 3:VA fspx3 = 136 fspy3 = 136 break endswitch /* ffcvis1 = 0 /*FB\tO padviewreq = 1 padstickreq = 0 padtrigreq = 0 /* /* bZ[W stclrmsg1 = "ESCAPE SUCCESS!!" stclrmsg2 = "SAVED FRIEND IS " /* /* N~Ă30000_{[iX if ffcsavcd > 0 then { pbnssc1 = 30000 pbnsscstr1 = right$(" " + itoa(pbnssc1), 10) /* {[iXXRA1\ stclrmsg3 = "" stclrmsg4 = "BONUS " + pbnsscstr1 /* S~Ă΃^C{[iX if ffcsavflg1 = 1 and ffcsavflg2 = 1 and ffcsavflg3 = 1 then { Gsystemmd = 5 /* I[NA pbnssc2 = Gtimecnt * 10000 pbnsscstr2 = right$(" " + itoa(pbnssc2), 10) /* {[iXXRA2\ stclrmsg5 = "TIME " + pbnsscstr2 } else { pbnssc2 = 0 pbnsscstr2 = "" stclrmsg5 = "" } /* N~ĂȂ΃m[{[iX } else { pbnssc1 = 0 pbnssc2 = 0 stclrmsg3 = " NOTHING " stclrmsg4 = " NO BONUS " stclrmsg5 = "" } /* /* /* SXvCgBG v_disp(0) sp_off(0,127) bg_set(0, 1, 0) /* /* \[v pbscrnproc = 1 /* {[iXʑJ lc1 = 0 lc2 = -1 while 1 /* {[iXXRAꂼ0̏ꍇA[vJE^Zbg if lc2 = -1 and pbnssc1 = 0 and pbnssc2 = 0 then lc2 = lc1 + 360 /* 270 /* [vJE^ɒBꍇA if lc1 = lc2 then break /* t[JEg pscbnkcnt1 = pscbnkcnt1 + 1 /* if lc1 = 60 then pbscrnproc = 2 if lc1 = 90 then pbscrnproc = 3 if lc1 = 120 then pbscrnproc = 4 : ffcsavreflesh1 = 1 if lc1 = 150 then pbscrnproc = 5 if lc1 = 180 then pbscrnproc = 6 : ffcsavreflesh1 = 0 if lc1 = 210 then pbscrnproc = 7 /* /* XRAJEg if pbscrnproc = 7 then { if pbnssc1 > 0 then { psc1 = psc1 + 1000 pbnssc1 = pbnssc1 - 1000 pbnsscstr1 = right$(" " + itoa(pbnssc1), 10) /* {[iXXRA1\ stclrmsg4 = "BONUS " + pbnsscstr1 pscreflesh1 = 1 } /* if pbnssc1 = 0 and pbnssc2 > 0 then { psc1 = psc1 + 1000 pbnssc2 = pbnssc2 - 1000 pbnsscstr2 = right$(" " + itoa(pbnssc2), 10) /* {[iXXRA2\ stclrmsg5 = "TIME " + pbnsscstr2 pscreflesh1 = 1 } pscstr1 = right$(" " + itoa(psc1), 10) /*vC[XRA1\ } /* v_disp(0) /* /* PadView if padviewreq <> 0 then { if padviewreq = 99 then padviewreq = 0 execcmd(CMD_PAD, itoa(padviewreq), "") padviewmd = padviewreq padviewreq = 0 } /* PadStick if padstickreq <> 0 then { if padstickreq = 99 then padstickreq = 0 execcmd(CMD_STICKCLICK, itoa(padstickreq), "") padstickmd = padstickreq padstickreq = 0 } /* PadTrigger if padtrigreq <> 0 then { if padtrigreq = 99 then padtrigreq = 0 execcmd(CMD_STRIGCLICK, itoa(padtrigreq), "") padtrigmd = padtrigreq padtrigreq = 0 } /* switch pbscrnproc case 1 /* ~oς݊ACR\ if ffcsavcd <> 1 and ffcsavflg1 = 1 then { sp_set(ffcspno1, ffcspx1, ffcspy1, chrspdlst(2 * 17 + 0 * 4 + 0), 3) } if ffcsavcd <> 2 and ffcsavflg2 = 1 then { sp_set(ffcspno2, ffcspx2, ffcspy2, chrspdlst(3 * 17 + 0 * 4 + 0), 3) } if ffcsavcd <> 3 and ffcsavflg3 = 1 then { sp_set(ffcspno3, ffcspx3, ffcspy3, chrspdlst(4 * 17 + 0 * 4 + 0), 3) } pbscrnproc = 0 break case 2 locate 8,4 : print stclrmsg1 pbscrnproc = 0 break case 3 locate 8,6 : print stclrmsg2 pbscrnproc = 0 break case 4 locate 8,8 : print stclrmsg3 /* ~oL\ switch ffcsavcd case 1 sp_set(fspno1 , fspx1, fspy1, chrspdlst(2 * 17 + 0 * 4 + 0), 3) sp_set(fspno1 + 1, fspx1, fspy1 + 16, chrspdlst(2 * 17 + 0 * 4 + 0) + 16, 3) break case 2 sp_set(fspno2 , fspx2, fspy2, chrspdlst(3 * 17 + 0 * 4 + 0), 3) sp_set(fspno2 + 1, fspx2, fspy2 + 16, chrspdlst(3 * 17 + 0 * 4 + 0) + 16, 3) break case 3 sp_set(fspno3 , fspx3, fspy3, chrspdlst(4 * 17 + 0 * 4 + 0), 3) sp_set(fspno3 + 1, fspx3, fspy3 + 16, chrspdlst(4 * 17 + 0 * 4 + 0) + 16, 3) break endswitch pbscrnproc = 0 break case 5 locate 8,10 : print stclrmsg4 pbscrnproc = 0 break case 6 locate 8,12 : print stclrmsg5 pbscrnproc = 0 if ffcsavcd > 0 then { execcmd(CMD_MUSIC, "EDSFAFC", "") } else { execcmd(CMD_MUSIC, "EDSFLFC", "") } break endswitch /* /* ~FB\(_) if ffcsavreflesh1 = 1 then { switch ffcsavcd case 1 if ffcvis1 = 0 then { sp_set(ffcspno1, ffcspx1, ffcspy1, chrspdlst(2 * 17 + 0 * 4 + 0), 0) ffcvis1 = 1 } else { sp_set(ffcspno1, ffcspx1, ffcspy1, chrspdlst(2 * 17 + 0 * 4 + 0), 3) ffcvis1 = 0 } break case 2 if ffcvis1 = 0 then { sp_set(ffcspno2, ffcspx2, ffcspy2, chrspdlst(3 * 17 + 0 * 4 + 0), 0) ffcvis1 = 1 } else { sp_set(ffcspno2, ffcspx2, ffcspy2, chrspdlst(3 * 17 + 0 * 4 + 0), 3) ffcvis1 = 0 } break case 3 if ffcvis1 = 0 then { sp_set(ffcspno3, ffcspx3, ffcspy3, chrspdlst(4 * 17 + 0 * 4 + 0), 0) ffcvis1 = 1 } else { sp_set(ffcspno3, ffcspx3, ffcspy3, chrspdlst(4 * 17 + 0 * 4 + 0), 3) ffcvis1 = 0 } break endswitch } /* /* XRAXV if pscbnkcnt1 > 29 then { pscbnkcnt1 = 0 if pscbrk1 = 0 then { color 1 locate 1,0 : print " " color 3 pscbrk1 = 1 } else { color 1 locate 1,0 : print "1P" color 3 pscbrk1 = 0 } } /* XRAJEg\ if pscreflesh1 = 1 then { locate 3,0 : print pscstr1 locate 8,10 : print stclrmsg4 locate 8,12 : print stclrmsg5 pscreflesh1 = 0 } /* lc1 = lc1 + 1 endwhile /* locate 8, 4 : print " " locate 8, 6 : print " " locate 8, 8 : print " " locate 8,10 : print " " locate 8,12 : print " " /* sp_set(fspno1 , 0, 0, 0, 0) sp_set(fspno1 + 1, 0, 0, 0, 0) sp_set(fspno2 , 0, 0, 0, 0) sp_set(fspno2 + 1, 0, 0, 0, 0) sp_set(fspno3 , 0, 0, 0, 0) sp_set(fspno3 + 1, 0, 0, 0, 0) } /* ffcsavcd = 0 /* /* I[NAȂbreak if Gsystemmd = 5 then { return(psc1) break } /* endwhile /* Q[X^[g[vI /* endfunc /* /* GAME OVERʕ\ func gameover_screen() int strig1 = 0 int strig1o = 0 int lc1 = 0 fill( 72, 104, 183, 135, rgb(1,1,1)) color 3 locate 8,6 : print "" locate 8,7 : print " "; : color 1 : print "GAME OVER"; : color 3 : print " " locate 8,8 : print "" /* execcmd(CMD_MUSIC, "EDSOVFC", "") strig1o = strig(1) for lc1 = 0 to 269 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* fill( 72, 104, 183, 135, 0) color 3 locate 8,6 : print "@@@@@@@@" locate 8,7 : print "@@@@@@@@" locate 8,8 : print "@@@@@@@@" /* endfunc /* func msgprint(msgstr;str, msgcols) /* int msgstrlen int msglen1 int msglen2 msgstrlen = len(msgstr) if msgstrlen > 0 then { if msgstrlen > msgcols then { msglen1 = msgcols msglen2 = msgstrlen - msglen1 if msglen2 > msgcols then msglen2 = msgcols } else { msglen1 = msgstrlen } if msglen1 > 0 then color 3 : locate 8,12 : print mid$(msgstr, 1, msglen1); if msglen2 > 0 then color 3 : locate 8,13 : print mid$(msgstr, msglen1 + 1, msglen2); } else { locate 8,12 : print space$(msgcols); locate 8,13 : print space$(msgcols); } endfunc /* /* bZ[W\o^(1s̕lsʒu) func msgdisp(msgstr;str, msgcols, msgwaitsec) /* int msgprintpos = 1 int msgprintlng = 0 int zenchk_byte = 1 int msgstrlen = 0 int msgchkpos = 1 int msgprintlines = 0 char zenchk = 0 /* /* 1ȉ̏ꍇreturn msgstrlen = len(msgstr) if msgstrlen < 1 then { Gmsgviewmd = 0 /* bZ[W\[h(0:\ 1:\) Gmsgpos = 0 /* bZ[W|C^ Gmsgcrpos(1) = 0 /* bZ[Ws|C^ I0B Gmsgwaitcnt = 0 /* bZ[WEFCgJE^ Gmsgrefresh = 0 /* bZ[W\XVtO(0:XVȂ 1:XV) return(0) } Gmsgviewmd = 1 /* bZ[W\[h(0:\ 1:\) Gmsgpos = 1 /* bZ[W|C^ Gmsgwaitcnt = 0 /* bZ[WEFCgJE^ Gmsgstrcur = msgstr Gmsgwaitcntcur = msgwaitsec /* msgprintpos = 1 msgprintlng = 0 msgchkpos = 1 msgprintlines = 0 /* while 1 zenchk = asc(mid$(msgstr, msgchkpos, 1)) zenchk_byte = 1 /* Sp1oCgڂ̃`FbN if (zenchk>=&H81 and zenchk<=&H9F) or (zenchk>=&HE0 and zenchk<=&HFC) then zenchk_byte = 2 /* SpƂŁA1s̕I[o[ꍇAI[o[Ȃ͈͂ŕ1s\ if (msgprintlng + zenchk_byte) > msgcols then { Gmsgcrpos(msgprintlines + 1) = msgprintpos + msgprintlng - 1 msgprintlines = msgprintlines + 1 msgprintpos = msgprintpos + msgprintlng msgchkpos = msgchkpos + zenchk_byte msgprintlng = zenchk_byte } else { /* 1s̕Ɏ܂Ăꍇ msgchkpos = msgchkpos + zenchk_byte msgprintlng = msgprintlng + zenchk_byte /* 1s̕ɓBꍇA1s\ if msgprintlng >= msgcols then { Gmsgcrpos(msgprintlines + 1) = msgprintpos + msgprintlng - 1 msgprintlines = msgprintlines + 1 msgprintpos = msgprintpos + msgprintlng msgprintlng = 0 } } /* `FbN̍ŌɓBꍇA\̕\break if msgchkpos > msgstrlen then { if msgprintlng > 0 then Gmsgcrpos(msgprintlines + 1) = msgprintpos + msgprintlng - 1 : Gmsgcrpos(msgprintlines + 2) = 0 : msgprintlines = msgprintlines + 1 break } endwhile /* return(msgprintlines) /* endfunc /* /* XNvgR}hs func execcmd(opecd, param1;str, param2;str) int spd = 0 /* if opecd = 0 then return(0) /* switch opecd case 201 /* "music" if len(param1) > 0 then { if param1 = "fadeout" then if m_stat() > 0 then m_fadeout() : break if param1 = "play" then m_play() : break if param1 = "stop" then m_stop() : break if param1 = "cont" then m_cont() : break zmd_play(param1) break } break case 202 /* "sound" break case 303 /* "face" if len(param1) > 0 and len(param2) > 0 then { spd = (atoi(param2) shl 8) + atoi(param1) sp_set(11, 16, 192, spd, 3) sp_set(12, 32, 192, spd + 1, 3) sp_set(13, 48, 192, spd + 2, 3) sp_set(14, 16, 208, spd + 16, 3) sp_set(15, 32, 208, spd + 17, 3) sp_set(16, 48, 208, spd + 18, 3) sp_set(17, 16, 224, spd + 32, 3) sp_set(18, 32, 224, spd + 33, 3) sp_set(19, 48, 224, spd + 34, 3) sp_set(20, 16, 240, spd + 48, 3) sp_set(21, 32, 240, spd + 49, 3) sp_set(22, 48, 240, spd + 50, 3) Gfacemd = 1 } else { sp_set(11, 0, 0, 0, 3) sp_set(12, 0, 0, 0, 3) sp_set(13, 0, 0, 0, 3) sp_set(14, 0, 0, 0, 3) sp_set(15, 0, 0, 0, 3) sp_set(16, 0, 0, 0, 3) sp_set(17, 0, 0, 0, 3) sp_set(18, 0, 0, 0, 3) sp_set(19, 0, 0, 0, 3) sp_set(20, 0, 0, 0, 3) sp_set(21, 0, 0, 0, 3) sp_set(22, 0, 0, 0, 3) Gfacemd = 0 } break case 304 /* "front" if len(param1) > 0 and len(param2) > 0 then { spd = (atoi(param2) shl 8) + atoi(param1) if Gfrontmd = 0 then { box(80, 48, 175, 175, 65534) fill(81, 49, 174, 174, 0) } sp_set(31, 136, 112, spd, 3) sp_set(32, 136, 128, spd + 16, 3) Gfrontmd = 1 } else { sp_set(31, 0, 0, 0, 3) sp_set(32, 0, 0, 0, 3) Gfrontmd = 0 } break case 401 /* "pad" if len(param1) > 0 then { switch atoi(param1) case 1 case 3 spd = (1 shl 8) + 7 break case 2 spd = (1 shl 8) + 10 break case 4 spd = (1 shl 8) + 13 break default spd = 0 endswitch /*192 sp_set(7, 216, 240, spd, 3) sp_set(8, 232, 240, spd + 1, 3) sp_set(9, 248, 240, spd + 2, 3) } else { sp_set(7, 0, 0, 0, 3) sp_set(8, 0, 0, 0, 3) sp_set(9, 0, 0, 0, 3) } break case 402 /* "stickclick" if len(param1) > 0 then { switch atoi(param1) case 8 spd = Gjoy_up break case 2 spd = Gjoy_down break case 4 spd = Gjoy_left break case 6 spd = Gjoy_right break default spd = 0 endswitch /*192 sp_set(5, 216, 240, spd, 3) } else { sp_set(5, 0, 0, 0, 3) } break case 403 /* "strigclick" if len(param1) > 0 then { if atoi(param1) = 1 then { sp_set(6, 248, 240, Gjoy_press, 3) } else { sp_set(6, 0, 0, 0, 3) } } break case 103 /* "menu" /* Gbtlenccnt = Gbtlenccntdef + (rnd() * Gbtlenccntdef) / 2 /* 퓬GJEg^C}[ /* menudisp(getparam(param1, 1, ","), getparam(param1, 2, ","), getparam(param1, 3, ","), getparam(param1, 4, ","), getparam(param1, 5, ","), getparam(param1, 6, ","), getparam(param1, 7, ",")) break case 104 /* "menuref" if Gmenuviewmd = 0 then { if atoi(param1) = Gmenupos then execcmd(atoi(getparam(param2, 1, " ")), getparam(param2, 2, " "), getparam(param2, 3, " ")) } break case 301 /* "spfile" if len(param1) > 0 then { spfile_def(param1, 0) } break case 302 /* "palfile" if len(param1) > 0 then { palfile_def(param1, 1) } break endswitch /* endfunc /* /* p[^擾 func str getparam(sstrline;str, paramno, sep;str) int istrlinespos = 1 int istrlinecsr = 1 int istrlinelen = 0 int iparampos = 1 int zenchk_byte = 1 char zenchk = 0 str sstrchr[2] = "" str sresult[255] = "" /* if len(sep) < 1 then sep = "," istrlinelen = len(sstrline) /* if istrlinelen < 1 then return("") /* while 1 zenchk = asc(mid$(sstrline, istrlinecsr, 1)) zenchk_byte = 1 /* Sp1oCgڂ̃`FbN if (zenchk>=&H81 and zenchk<=&H9F) or (zenchk>=&HE0 and zenchk<=&HFC) then zenchk_byte = 2 sstrchr = mid$(sstrline, istrlinecsr, zenchk_byte) if sstrchr = sep then { if iparampos = paramno then { sresult = mid$(sstrline, istrlinespos, istrlinecsr - istrlinespos) break } else { istrlinecsr = istrlinecsr + 1 istrlinespos = istrlinecsr iparampos = iparampos + 1 } } else { istrlinecsr = istrlinecsr + zenchk_byte } if istrlinecsr > istrlinelen then { if iparampos = paramno then { sresult = mid$(sstrline, istrlinespos, istrlinecsr - istrlinespos) break } else { break } } endwhile return(sresult) endfunc /* /* ʃNA func screen_clear() int lc1 = 0 cls /* bg_set(0, 1, 0) vpage(0) home(0, 0, 0) wipe() vpage(1) /* bg_scroll(0, 0, 0) /* bg_fill(1,0) for lc1 = 0 to 127 sp_set(lc1, 0, 0, 0, 0) next bg_set(0, 1, 0) endfunc /* func tbox(x1,y1,x2,y2,col) tline(x1,y1,x2,y1,col) tline(x1,y1,x1,y2,col) tline(x2,y1,x2,y2,col) tline(x1,y2,x2,y2,col) endfunc /* /* Notice\ func notice_print(x, y, smsg;str, autoskip) int lc1 = 0 int llen1 = 0 int strig1 = 0 int strig1o = 0 int trgflg = 0 llen1 = len(smsg) if autoskip <> 0 then trgflg = 1 locate x, y strig1o = strig(1) for lc1 = 1 to llen1 strig1 = strig(1) if trgflg = 0 and (strig1o = 0 and strig1 <> 0) then trgflg = 1 if trgflg <> 1 then v_disp(0) print mid$(smsg, lc1, 1); strig1o = strig1 next /* return(trgflg) /* endfunc /* /* ʕ\ func init_screen() int lc1 = 0 int strig1 = 0 int strig1o = 0 int autoskip = 0 /* /* NXnb`` vpage(0) for lc1 = 0 to 15 line(lc1 * 16, 0, lc1 * 16, 255, 65535) line(0, lc1 * 16, 255, lc1 * 16, 65535) next /* /* XvbV\ autoskip = 0 autoskip = notice_print( 6, 4, "ESCAPE die SUCCESS", autoskip) autoskip = notice_print( 6, 5, "SHINING STAR GAIDEN", autoskip) autoskip = notice_print(13, 7, "X68000", autoskip) autoskip = notice_print(11, 9, "J A P A N", autoskip) /* strig1o = strig(1) for lc1 = 0 to 239 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next cls /* /* Notice\ /* autoskip = 0 notice_print(11, 0, "- Notice -", autoskip) autoskip = notice_print(0, 2, " This gams is for use", autoskip) autoskip = notice_print(0, 3, "exclusively in JAPAN.", autoskip) autoskip = notice_print(0, 4, " The sale, export, use or", autoskip) autoskip = notice_print(0, 5, "operation of this game outside", autoskip) autoskip = notice_print(0, 6, "of JAPAN", autoskip) autoskip = notice_print(0, 7, "may be a violation of", autoskip) autoskip = notice_print(0, 8, "international copyright,", autoskip) autoskip = notice_print(0, 9, "trademark and or other", autoskip) autoskip = notice_print(0, 10, "related laws subjecting", autoskip) autoskip = notice_print(0, 11, "the violatore to legal", autoskip) autoskip = notice_print(0, 12, "penalties.", autoskip) autoskip = notice_print(6, 14, "Copyright 2023 iroirotei", autoskip) /* strig1o = strig(1) for lc1 = 0 to 239 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next cls /* /* NXnb`\ vpage(1) strig1o = strig(1) for lc1 = 0 to 119 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* vpage(0) /* /* 낢S wipe() home(0, 0,256) apic_load("IROIRO.PIC", 64, 96) /* execcmd(CMD_MUSIC, "EDSIRFC", "") /* vpage(1) home(0, 0, 0) strig1o = strig(1) for lc1 = 0 to 299 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next vpage(0) /* endfunc /* /* fʕ\ func demo_screen() /* int tx = 0, ty = 0 int bg_x int bg_y int bgpb int bgpc int bgpd /* int lc1 = 0 int lc2 int lwc1 = 0 int strig1 = 0 int strig1o = 0 int autoskip = 0 str msg1[255] = "" str msg2[255] = "" str msg3[255] = "" str msg4[255] = "" str msg5[255] = "" str msg6[255] = "" str msg7[255] = "" str msg8[255] = "" str msg9[255] = "" /* int cspno1 = 0 /* XvCgԍ int cspno2 = 0 int cspno3 = 0 int cspno4 = 0 int cspno5 = 0 int cspno6 = 0 int cspno7 = 0 int cspno8 = 0 int cspx1 = 0 /* XvCgXW int cspx2 = 0 int cspx3 = 0 int cspx4 = 0 int cspx5 = 0 int cspx6 = 0 int cspx7 = 0 int cspx8 = 0 int cspy1 = 0 /* XvCgYW int cspy2 = 0 int cspy3 = 0 int cspy4 = 0 int cspy5 = 0 int cspy6 = 0 int cspy7 = 0 int cspy8 = 0 int cspdir1 = 0 /* L 0: 1: 2:E 3: int cspmvstep1 = 0 /* LړXebv int cspmvdir1 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd1 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt1 = 0 /* LAjJE^ 0`3 int cspanmwait1 = 0 /* LAjEFCg 0`3 int cspdir2 = 0 /* L 0: 1: 2:E 3: int cspmvstep2 = 0 /* LړXebv int cspmvdir2 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd2 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt2 = 0 /* LAjJE^ 0`3 int cspanmwait2 = 0 /* LAjEFCg 0`3 int cspdir3 = 0 /* L 0: 1: 2:E 3: int cspmvstep3 = 0 /* LړXebv int cspmvdir3 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd3 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt3 = 0 /* LAjJE^ 0`3 int cspanmwait3 = 0 /* LAjEFCg 0`3 int cspdir4 = 0 /* L 0: 1: 2:E 3: int cspmvstep4 = 0 /* LړXebv int cspmvdir4 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd4 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt4 = 0 /* LAjJE^ 0`3 int cspanmwait4 = 0 /* LAjEFCg 0`3 int cspdir5 = 0 /* L 0: 1: 2:E 3: int cspmvstep5 = 0 /* LړXebv int cspmvdir5 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd5 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt5 = 0 /* LAjJE^ 0`3 int cspanmwait5 = 0 /* LAjEFCg 0`3 int cspdir6 = 0 /* L 0: 1: 2:E 3: int cspmvstep6 = 0 /* LړXebv int cspmvdir6 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd6 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt6 = 0 /* LAjJE^ 0`3 int cspanmwait6 = 0 /* LAjEFCg 0`3 int cspdir7 = 0 /* L 0: 1: 2:E 3: int cspmvstep7 = 0 /* LړXebv int cspmvdir7 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd7 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt7 = 0 /* LAjJE^ 0`3 int cspanmwait7 = 0 /* LAjEFCg 0`3 int cspdir8 = 0 /* L 0: 1: 2:E 3: int cspmvstep8 = 0 /* LړXebv int cspmvdir8 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd8 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt8 = 0 /* LAjJE^ 0`3 int cspanmwait8 = 0 /* LAjEFCg 0`3 int cspd1 = 0 /* XvCgSPD int cspd2 = 0 int cspd3 = 0 int cspd4 = 0 int cspd5 = 0 int cspd6 = 0 int cspd7 = 0 int cspd8 = 0 /* /* LN^[spd dim int chrspdlst(101) /* E] (1 shl 14) = 16384 ㉺] (1 shl 15) = 32768 ㉺E] = 49152 chrspdlst = { + 74+(7 shl 8), 75+(7 shl 8), 74+(7 shl 8), 76+(7 shl 8), 77+(7 shl 8), 78+(7 shl 8), 77+(7 shl 8), 79+(7 shl 8), 16384+ 77+(7 shl 8),16384+ 78+(7 shl 8),16384+ 77+(7 shl 8),16384+ 79+(7 shl 8), +106+(7 shl 8),107+(7 shl 8),106+(7 shl 8),108+(7 shl 8), 109+(7 shl 8), /* u + 32+(2 shl 8), 33+(2 shl 8), 32+(2 shl 8), 34+(2 shl 8), 35+(2 shl 8), 36+(2 shl 8), 35+(2 shl 8), 37+(2 shl 8), 16384+ 35+(2 shl 8),16384+ 36+(2 shl 8),16384+ 35+(2 shl 8),16384+ 37+(2 shl 8), + 38+(2 shl 8), 39+(2 shl 8), 38+(2 shl 8), 40+(2 shl 8), 41+(2 shl 8), /* [i + 64+(3 shl 8), 65+(3 shl 8), 64+(3 shl 8), 66+(3 shl 8), 67+(3 shl 8), 68+(3 shl 8), 67+(3 shl 8), 69+(3 shl 8), 16384+ 67+(3 shl 8),16384+ 68+(3 shl 8),16384+ 67+(3 shl 8),16384+ 69+(3 shl 8), + 70+(3 shl 8), 71+(3 shl 8), 70+(3 shl 8), 72+(3 shl 8), 73+(3 shl 8), /* T + 96+(4 shl 8), 97+(4 shl 8), 96+(4 shl 8), 98+(4 shl 8), 99+(4 shl 8),100+(4 shl 8), 99+(4 shl 8),101+(4 shl 8), 16384+ 99+(4 shl 8),16384+100+(4 shl 8),16384+ 99+(4 shl 8),16384+101+(4 shl 8), +102+(4 shl 8),103+(4 shl 8),102+(4 shl 8),104+(4 shl 8), 105+(4 shl 8), /* Ni + 74+(5 shl 8), 75+(5 shl 8), 74+(5 shl 8), 76+(5 shl 8), 77+(5 shl 8), 78+(5 shl 8), 77+(5 shl 8), 79+(5 shl 8), 16384+ 77+(5 shl 8),16384+ 78+(5 shl 8),16384+ 77+(5 shl 8),16384+ 79+(5 shl 8), +106+(5 shl 8),107+(5 shl 8),106+(5 shl 8),108+(5 shl 8), 109+(5 shl 8), /* VA + 42+(2 shl 8), 43+(2 shl 8), 42+(2 shl 8), 44+(2 shl 8), 110+(2 shl 8),110+(2 shl 8),110+(2 shl 8),110+(2 shl 8), 16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8), + 45+(2 shl 8), 46+(2 shl 8), 45+(2 shl 8), 47+(2 shl 8), 110+(2 shl 8)} /* 搶 /* /* BG}bv dim int bgptdat(895) bgptdat = { + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 7, 7, 7, 7, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 7, 7, 7, 7, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, + 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7} /* bg_set(0, 1, 0) /* /* wi̕` for lc2 = 0 to 27 bg_y = lc2 for lc1 = 0 to 31 bg_x = lc1 bgpb = 1 bgpc = 4 bgpd = (bgpb shl 8) + bgptdat(lc2 * 32 + lc1) bg_put(1, bg_x, bg_y, bgpd) next next /* /* BG0\Jn bg_set(0, 1, 1) /* msg1 = "xŋ}ŊwZ֌" msg2 = "̂ւ̃cCe[B" msg3 = "ꂩ炩AsKɂ" msg4 = "h̍ZɒǓ˂Ă܂B" msg5 = "yȂĂȂĎ" msg6 = "΂ȂcCe[ɑ΂A" msg7 = "wZ̎AZɌnꂽ" msg8 = "k̏Ƃ́EEEB" msg9 = "" vpage(0) home(0,0,256) symbol(0, 16, " [ESCAPE die SUCCESS]", 1, 1, 1, 65502, 0) symbol(0, 36, msg1, 1, 1, 1, 65534, 0) symbol(0, 56, msg2, 1, 1, 1, 65534, 0) symbol(0, 76, msg3, 1, 1, 1, 65534, 0) symbol(0, 96, msg4, 1, 1, 1, 65534, 0) symbol(0,116, msg5, 1, 1, 1, 65534, 0) symbol(0,136, msg6, 1, 1, 1, 65534, 0) symbol(0,156, msg7, 1, 1, 1, 65534, 0) symbol(0,176, msg8, 1, 1, 1, 65534, 0) symbol(0,196, msg9, 1, 1, 1, 65534, 0) /*back_setting(lstage) vpage(1) /* cspno1 = 30 cspno2 = 32 cspno3 = 34 cspno4 = 36 cspno5 = 38 cspno6 = 40 cspno7 = 42 cspno8 = 44 cspx1 = 128 cspx2 = 128 cspx3 = 128 cspx4 = 0 cspx5 = 0 cspx6 = 0 cspx7 = 0 cspx8 = 160 cspy1 = 288 + 12 cspy2 = 288 cspy3 = 128 cspy4 = 0 cspy5 = 0 cspy6 = 0 cspy7 = 0 cspy8 = 80 cspdir1 = 3 /* L 0: 1: 2:E 3: cspmvstep1 = 144/* LړXebv cspmvdir1 = 5 /* Lړ 0: 1: 2:E 3: cspanmmd1 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt1 = 0 /* LAjJE^ 0`3 cspanmwait1 = 0 /* LAjEFCg 0`3 cspdir2 = 3 /* L 0: 1: 2:E 3: cspmvstep2 = 144/* LړXebv cspmvdir2 = 3 /* Lړ 0: 1: 2:E 3: cspanmmd2 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt2 = 0 /* LAjJE^ 0`3 cspanmwait2 = 0 /* LAjEFCg 0`3 cspdir3 = 0 /* L 0: 1: 2:E 3: cspmvstep3 = 0 /* LړXebv cspmvdir3 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd3 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt3 = 0 /* LAjJE^ 0`3 cspanmwait3 = 0 /* LAjEFCg 0`3 cspdir4 = 0 /* L 0: 1: 2:E 3: cspmvstep4 = 0 /* LړXebv cspmvdir4 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd4 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt4 = 0 /* LAjJE^ 0`3 cspanmwait4 = 0 /* LAjEFCg 0`3 cspdir5 = 0 /* L 0: 1: 2:E 3: cspmvstep5 = 0 /* LړXebv cspmvdir5 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd5 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt5 = 0 /* LAjJE^ 0`3 cspanmwait5 = 0 /* LAjEFCg 0`3 cspd1 = (1 shl 8) + 191 cspd2 = chrspdlst(1 * 17 + cspdir2 * 4 + cspanmcnt2) cspd3 = (8 shl 8) + 111 cspd4 = 0 cspd5 = 0 cspd6 = 0 cspd7 = 0 cspd8 = (10 shl 8) + 141 /* sp_set(cspno8 , cspx8, cspy8, cspd8, 3) sp_set(cspno8 + 1, cspx8, cspy8 + 16, cspd8 + 16, 3) /* while 1 strig1o = strig(1) for lc1 = 0 to 271 /* 127 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then autoskip = 1 : break if lc1 = 143 then { cspy1 = 157 cspdir1 = 0 cspmvdir1 = 4 cspmvstep1 = 128 cspanmmd1 = 0 cspdir2 = 0 cspmvdir2 = 4 cspmvstep2 = 128 cspanmmd2 = 0 } if cspmvstep1 > 0 then { switch cspmvdir1 case 0 : cspy1 = cspy1 + 1 : break /* case 1 : cspx1 = cspx1 - 1 : break /* case 2 : cspx1 = cspx1 + 1 : break /* E case 3 : cspy1 = cspy1 - 1 : break /* case 4 : cspx1 = cspx1 - (cspmvstep1 and &B00000001) : cspy1 = cspy1 + 1 : break /* endswitch cspmvstep1 = cspmvstep1 - 1 if cspmvstep1 = 0 then cspanmmd1 = 0 } if cspmvstep2 > 0 then { switch cspmvdir2 case 0 : cspy2 = cspy2 + 1 : break /* case 1 : cspx2 = cspx2 - 1 : break /* case 2 : cspx2 = cspx2 + 1 : break /* E case 3 : cspy2 = cspy2 - 1 : break /* case 4 : cspx2 = cspx2 - 1 : cspy2 = cspy2 + 1 : break /* endswitch cspmvstep2 = cspmvstep2 - 1 if cspmvstep2 = 0 then cspanmmd2 = 0 } /* LAj if cspanmmd2 = 1 then { if cspanmwait2 = 0 then if cspanmcnt2 < 3 then cspanmcnt2 = cspanmcnt2 + 1 else cspanmcnt2 = 0 if cspanmwait2 < 3 then cspanmwait2 = cspanmwait2 + 1 else cspanmwait2 = 0 } cspd2 = chrspdlst(1 * 17 + cspdir2 * 4 + cspanmcnt2) if cspanmmd3 = 1 then { if cspanmwait3 = 0 then if cspanmcnt3 < 3 then cspanmcnt3 = cspanmcnt3 + 1 else cspanmcnt3 = 0 if cspanmwait3 < 3 then cspanmwait3 = cspanmwait3 + 1 else cspanmwait3 = 0 } /* cspd3 = chrspdlst(5 * 17 + cspdir2 * 4 + cspanmcnt2) cspd3 = (8 shl 8) + 111 /* v_disp(0) sp_set(cspno1 , cspx1, cspy1, cspd1, 3) /* sp_set(cspno1 + 1, cspx1, cspy1 + 16, cspd1 + 16, 3) sp_set(cspno2 , cspx2, cspy2, cspd2, 3) sp_set(cspno2 + 1, cspx2, cspy2 + 16, cspd2 + 16, 3) sp_set(cspno3 , cspx3, cspy3, cspd3, 3) sp_set(cspno3 + 1, cspx3, cspy3 + 16, cspd3 + 16, 3) /* strig1o = strig1 next /* if autoskip = 1 then break /* /* ebvXN[ strig1o = strig(1) for lc1 = 0 to 511 strig1 = strig(1) if autoskip = 1 or (strig1o = 0 and strig1 <> 0) then autoskip = 1 : break v_disp(0) home(0,0,256 + lc1 / 2) strig1o = strig1 next home(0,0,0) /* /* if autoskip = 1 then break /* strig1o = strig(1) for lc1 = 0 to 359 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* break endwhile /* endfunc /* /* ^Cgʕ\ func title_screen() int lc1 = 0 int lwc1 = 0 int strig1 = 0 int strig1o = 0 strig1o = strig(1) /* vpage(0) home(0,0,256) apic_load("EDSTTL.PIC") /* vpage(1) strig1o = strig(1) for lc1 = 0 to 127 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) home(0,0,256 + lc1 * 2 ) strig1o = strig1 next home(0,0,0) locate 22,9 : print "Ver." + Gsysver /* execcmd(CMD_MUSIC, "EDSTIFC", "") /* strig1o = strig(1) for lc1 = 0 to 1199 strig1 = strig(1) lwc1 = lwc1 + 1 v_disp(0) if lwc1 = 30 then locate 10,11 : print "PRESS TRIGGER" if lwc1 = 60 then locate 10,11 : print " " : lwc1 = 0 if strig1o = 0 and strig1 <> 0 then { locate 10,10 : print " " Gstartflg = 1 break } strig1o = strig1 next /* execcmd(CMD_MUSIC, "fadeout", "") /* endfunc /* /* X^[gfʕ\ func startdemo_screen() /* int tx = 0 int ty = 0 int bg_x int bg_y int bgpb int bgpc int bgpd /* int lc1 = 0 int lc2 int lwc1 = 0 int strig1 = 0 int strig1o = 0 int autoskip = 0 str msg1[255] = "" str msg2[255] = "" str msg3[255] = "" str msg4[255] = "" str msg5[255] = "" str msg6[255] = "" str msg7[255] = "" str msg8[255] = "" str msg9[255] = "" /* /* bZ[W{bNX str msgboxstr1[255] int pmsgboxptr1 = 0 dim str msgboxstr(30)[255] int reswid = 255 int msgboxx1 = 0 int msgboxx2 = 0 int msgboxwid = 0 int msgboxy1 = 0 int msgboxy2 = 0 int msgboxhei = 0 int msgboxpos = 1 /* 0:Jnʒu 1: int msgboxfntcol1 = 1984 int msgboxbakcol = 10570 /*2114 int msgboxbdrcol = 65534 int msgboxlen1 = 0 int msgboxreq1 = 0 int msgboxmd1 = 0 int msgboxwait1 = 0 int msgboxrefresh1 = 0 /* int cspno1 = 0 /* XvCgԍ int cspno2 = 0 int cspno3 = 0 int cspno4 = 0 int cspno5 = 0 int cspno6 = 0 int cspno7 = 0 int cspno8 = 0 int cspx1 = 0 /* XvCgXW int cspx2 = 0 int cspx3 = 0 int cspx4 = 0 int cspx5 = 0 int cspx6 = 0 int cspx7 = 0 int cspx8 = 0 int cspy1 = 0 /* XvCgYW int cspy2 = 0 int cspy3 = 0 int cspy4 = 0 int cspy5 = 0 int cspy6 = 0 int cspy7 = 0 int cspy8 = 0 int cspdir1 = 0 /* L 0: 1: 2:E 3: int cspmvstep1 = 0 /* LړXebv int cspmvdir1 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd1 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt1 = 0 /* LAjJE^ 0`3 int cspanmwait1 = 0 /* LAjEFCg 0`3 int cspdir2 = 0 /* L 0: 1: 2:E 3: int cspmvstep2 = 0 /* LړXebv int cspmvdir2 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd2 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt2 = 0 /* LAjJE^ 0`3 int cspanmwait2 = 0 /* LAjEFCg 0`3 int cspdir3 = 0 /* L 0: 1: 2:E 3: int cspmvstep3 = 0 /* LړXebv int cspmvdir3 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd3 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt3 = 0 /* LAjJE^ 0`3 int cspanmwait3 = 0 /* LAjEFCg 0`3 int cspdir4 = 0 /* L 0: 1: 2:E 3: int cspmvstep4 = 0 /* LړXebv int cspmvdir4 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd4 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt4 = 0 /* LAjJE^ 0`3 int cspanmwait4 = 0 /* LAjEFCg 0`3 int cspdir5 = 0 /* L 0: 1: 2:E 3: int cspmvstep5 = 0 /* LړXebv int cspmvdir5 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd5 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt5 = 0 /* LAjJE^ 0`3 int cspanmwait5 = 0 /* LAjEFCg 0`3 int cspdir6 = 0 /* L 0: 1: 2:E 3: int cspmvstep6 = 0 /* LړXebv int cspmvdir6 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd6 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt6 = 0 /* LAjJE^ 0`3 int cspanmwait6 = 0 /* LAjEFCg 0`3 int cspdir7 = 0 /* L 0: 1: 2:E 3: int cspmvstep7 = 0 /* LړXebv int cspmvdir7 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd7 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt7 = 0 /* LAjJE^ 0`3 int cspanmwait7 = 0 /* LAjEFCg 0`3 int cspdir8 = 0 /* L 0: 1: 2:E 3: int cspmvstep8 = 0 /* LړXebv int cspmvdir8 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd8 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt8 = 0 /* LAjJE^ 0`3 int cspanmwait8 = 0 /* LAjEFCg 0`3 int cspd1 = 0 /* XvCgSPD int cspd2 = 0 int cspd3 = 0 int cspd4 = 0 int cspd5 = 0 int cspd6 = 0 int cspd7 = 0 int cspd8 = 0 /* dim int pactlst1(255) int sysmsgmd1 = 0 int sysmsgwait1 = 0 int sysmsgreq1 = 0 int sysmsgrefresh1 = 0 str sysmsgstr1[255] int pactlstptr1 = 0 int pctrlmd = 0 int pmvstep1 = 0 int evtwaitsec = 0 int pmsgptr1 = 0 dim str msgstr(30)[255] int pactexeflg1 = 0 /* /* LN^[spd dim int chrspdlst(101) /* E] (1 shl 14) = 16384 ㉺] (1 shl 15) = 32768 ㉺E] = 49152 chrspdlst = { + 74+(7 shl 8), 75+(7 shl 8), 74+(7 shl 8), 76+(7 shl 8), 77+(7 shl 8), 78+(7 shl 8), 77+(7 shl 8), 79+(7 shl 8), 16384+ 77+(7 shl 8),16384+ 78+(7 shl 8),16384+ 77+(7 shl 8),16384+ 79+(7 shl 8), +106+(7 shl 8),107+(7 shl 8),106+(7 shl 8),108+(7 shl 8), 109+(7 shl 8), /* u + 32+(2 shl 8), 33+(2 shl 8), 32+(2 shl 8), 34+(2 shl 8), 35+(2 shl 8), 36+(2 shl 8), 35+(2 shl 8), 37+(2 shl 8), 16384+ 35+(2 shl 8),16384+ 36+(2 shl 8),16384+ 35+(2 shl 8),16384+ 37+(2 shl 8), + 38+(2 shl 8), 39+(2 shl 8), 38+(2 shl 8), 40+(2 shl 8), 41+(2 shl 8), /* [i + 64+(3 shl 8), 65+(3 shl 8), 64+(3 shl 8), 66+(3 shl 8), 67+(3 shl 8), 68+(3 shl 8), 67+(3 shl 8), 69+(3 shl 8), 16384+ 67+(3 shl 8),16384+ 68+(3 shl 8),16384+ 67+(3 shl 8),16384+ 69+(3 shl 8), + 70+(3 shl 8), 71+(3 shl 8), 70+(3 shl 8), 72+(3 shl 8), 73+(3 shl 8), /* T + 96+(4 shl 8), 97+(4 shl 8), 96+(4 shl 8), 98+(4 shl 8), 99+(4 shl 8),100+(4 shl 8), 99+(4 shl 8),101+(4 shl 8), 16384+ 99+(4 shl 8),16384+100+(4 shl 8),16384+ 99+(4 shl 8),16384+101+(4 shl 8), +102+(4 shl 8),103+(4 shl 8),102+(4 shl 8),104+(4 shl 8), 105+(4 shl 8), /* Ni + 74+(5 shl 8), 75+(5 shl 8), 74+(5 shl 8), 76+(5 shl 8), 77+(5 shl 8), 78+(5 shl 8), 77+(5 shl 8), 79+(5 shl 8), 16384+ 77+(5 shl 8),16384+ 78+(5 shl 8),16384+ 77+(5 shl 8),16384+ 79+(5 shl 8), +106+(5 shl 8),107+(5 shl 8),106+(5 shl 8),108+(5 shl 8), 109+(5 shl 8), /* VA + 42+(2 shl 8), 43+(2 shl 8), 42+(2 shl 8), 44+(2 shl 8), 110+(2 shl 8),110+(2 shl 8),110+(2 shl 8),110+(2 shl 8), 16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8), + 45+(2 shl 8), 46+(2 shl 8), 45+(2 shl 8), 47+(2 shl 8), 110+(2 shl 8)} /* 搶 /* /* BG}bv dim int bgptdat(895) bgptdat = { + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 7, 7, 7, 7, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 7, 7, 7, 7, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, + 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7} /* bg_set(0, 1, 0) /* /* wi̕` for lc2 = 0 to 27 bg_y = lc2 for lc1 = 0 to 31 bg_x = lc1 bgpb = 1 bgpc = 4 bgpd = (bgpb shl 8) + bgptdat(lc2 * 32 + lc1) bg_put(1, bg_x, bg_y, bgpd) next next /* /* BG0\Jn bg_set(0, 1, 1) /* execcmd(CMD_MUSIC, "EDSSTFC", "") execcmd(CMD_PAD, "1", "") /* msg1 = "" msg2 = "" msg3 = "" msg4 = "" msg5 = "" msg6 = "" msg7 = "" msg8 = "" msg9 = "" vpage(0) home(0,0,0) /* symbol(0, 16, " EPILOGUE", 1, 1, 1, 65502, 0) /* symbol(0, 36, msg1, 1, 1, 1, 65534, 0) /* symbol(0, 56, msg2, 1, 1, 1, 65534, 0) /* symbol(0, 76, msg3, 1, 1, 1, 65534, 0) /* symbol(0, 96, msg4, 1, 1, 1, 65534, 0) /* symbol(0,116, msg5, 1, 1, 1, 65534, 0) /* symbol(0,136, msg6, 1, 1, 1, 65534, 0) /* symbol(0,156, msg7, 1, 1, 1, 65534, 0) /* symbol(0,176, msg8, 1, 1, 1, 65534, 0) /* symbol(0,196, msg9, 1, 1, 1, 65534, 0) /*back_setting(lstage) vpage(1) /* cspno1 = 30 cspno2 = 32 cspno3 = 34 cspno4 = 36 cspno5 = 38 cspno6 = 40 cspno7 = 42 cspno8 = 44 cspx1 = 128 cspx2 = 128 cspx3 = 176 cspx4 = 192 cspx5 = 208 cspx6 = 0 cspx7 = 80 cspx8 = 160 cspy1 = 288 cspy2 = 128 cspy3 = 128 cspy4 = 128 cspy5 = 128 cspy6 = 0 cspy7 = 128 cspy8 = 80 cspdir1 = 3 /* L 0: 1: 2:E 3: cspmvstep1 = 144/* LړXebv cspmvdir1 = 3 /* Lړ 0: 1: 2:E 3: cspanmmd1 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt1 = 0 /* LAjJE^ 0`3 cspanmwait1 = 0 /* LAjEFCg 0`3 cspdir2 = 0 /* L 0: 1: 2:E 3: cspmvstep2 = 0 /* LړXebv cspmvdir2 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd2 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt2 = 0 /* LAjJE^ 0`3 cspanmwait2 = 0 /* LAjEFCg 0`3 cspdir3 = 0 /* L 0: 1: 2:E 3: cspmvstep3 = 0 /* LړXebv cspmvdir3 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd3 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt3 = 0 /* LAjJE^ 0`3 cspanmwait3 = 0 /* LAjEFCg 0`3 cspdir4 = 0 /* L 0: 1: 2:E 3: cspmvstep4 = 0 /* LړXebv cspmvdir4 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd4 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt4 = 0 /* LAjJE^ 0`3 cspanmwait4 = 0 /* LAjEFCg 0`3 cspdir5 = 0 /* L 0: 1: 2:E 3: cspmvstep5 = 0 /* LړXebv cspmvdir5 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd5 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt5 = 0 /* LAjJE^ 0`3 cspanmwait5 = 0 /* LAjEFCg 0`3 cspd1 = chrspdlst(1 * 17 + cspdir1 * 4 + cspanmcnt1) cspd2 = (8 shl 8) + 111 cspd3 = chrspdlst(2 * 17 + cspdir3 * 4 + cspanmcnt1) cspd4 = chrspdlst(3 * 17 + cspdir4 * 4 + cspanmcnt1) cspd5 = chrspdlst(4 * 17 + cspdir5 * 4 + cspanmcnt1) cspd6 = 0 cspd7 = (1 shl 8) + 191 cspd8 = (10 shl 8) + 141 /* sp_set(cspno8 , cspx8, cspy8, cspd8, 3) sp_set(cspno8 + 1, cspx8, cspy8 + 16, cspd8 + 16, 3) /* while 1 strig1o = strig(1) /* /* sXg /* 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 pactlst1 = {41,33,90,90,34,90,90,34,90,90,42,33,90,90,41,34,90,90,42,33,90,90,41,34,90,90,42,33,90,90,41,34,90,90,43,33,90,90,41,34,90,90,42,33,90,90,41,34,90,90,43,33,90,90,41,34,90,90,42,33,90,90,41,81,34,90,90,42,33,90,90,41,34,90,90,43,33,90,90,41,34,90,90,42,33,90,90,33,90,90,255} /* pactlst1 = {41,33,90,180,34,90,180,34,90,180,42,33,90,180,41,34,90,180,42,33,90,180,41,34,90,180,42,33,90,180,41,34,90,180,43,33,90,180,41,34,90,180,42,33,90,180,41,34,90,180,43,33,90,180,41,34,90,180,42,33,90,180,41,81,34,90,180,42,33,90,180,41,34,90,180,43,33,90,180,41,34,90,180,42,33,90,180,33,90,180,255} /* pactlst1 = {41,33,33,33,42,33,41,33,42,33,41,33,42,33,41,33,43,33,41,33,42,33,41,33,43,33,41,33,42,33,41,81,33,42,33,41,33,43,33,41,33,42,33,33,255} /* msgstr(0) = "ڂ̑OɁAh̉lۂlĂB" msgstr(1) = "ũcCe[Iv" msgstr(2) = "uk̏nIv" msgstr(3) = "w܂łlEEEx" msgstr(4) = "ulł͂ȂBZłIv" msgstr(5) = "ẃA͂EEEx" msgstr(6) = "uȂɂ莦kłv" msgstr(7) = "wkƂncʂł́EEEx" msgstr(8) = "uˁHv" msgstr(9) = "w........x" msgstr(10) = "uƂGXP[v̂v" msgstr(11) = "wGXP[vHZĂHx" msgstr(12) = "uÂ̌`Ȃ̂Iv" msgstr(13) = "wAꕷOIx" msgstr(14) = "uƂɂGXP[vIv" msgstr(15) = "wR͂ȂłˁHx" msgstr(16) = "uRl̖~̂Iv" msgstr(17) = "w~ĉIHx" msgstr(18) = "uقIv" msgstr(19) = "wi܂ȁEEjx" msgstr(20) = "uGXP[vowIv" msgstr(21) = "w܂‚̃p^[EEEx" msgstr(22) = "cCe[͊wZփGXP[vɕB" /* msgstr(1) = "lũcCe[Iv" /* msgstr(2) = "lu莦k̏nIv" /* msgstr(4) = "lu͉lł͂ȂBZłv" /* msgstr(6) = "ZuȂɂkłv" /* msgstr(8) = "ZuˁHv" /* msgstr(10) = "ZuƂ̃GXP[vĂIv" /* msgstr(12) = "ZuÂ̌`̂Iv" /* msgstr(14) = "ZuƂɂGXP[vIv" /* msgstr(16) = "ZuRl̖~̂Iv" /* msgstr(18) = "ZuقIv" /* msgstr(20) = "ZuƂ킯ŁAGXP[v֏ôIv" /* pctrlmd = 1 pmvstep1 = cspmvstep1 pmsgptr1 = 0 lc2 = 0 Gtimenow_o = time$ /* while 1 /* ^C}[JEg Gtimenow = time$ /* bZ[WJEg if sysmsgwait1 > 0 then sysmsgwait1 = sysmsgwait1 - 1 if msgboxwait1 > 0 then msgboxwait1 = msgboxwait1 - 1 /* /* e^C}[JEg_EɑJ(ݎƌݎ(O)قȂꍇ) if Gtimenow <> Gtimenow_o then { Gtimenow_o = Gtimenow } /* lc2 = lc2 + 1 /* /* XNvg̈ړw if pctrlmd = 1 and pmvstep1 = 0 then { switch pactlst1(pactlstptr1) case 33 /* bZ[W sysmsgreq1 = 1 /* 1:bZ[W\v sysmsgstr1 = msgstr(pmsgptr1) pmsgptr1 = pmsgptr1 + 1 pactlstptr1 = pactlstptr1 + 1 break case 34 /* bZ[W{bNX msgboxfntcol1 = WHITE msgboxreq1 = 1 /* 1:bZ[W{bNX\v msgboxstr1 = msgstr(pmsgptr1) pmsgptr1 = pmsgptr1 + 1 pactlstptr1 = pactlstptr1 + 1 break case 41 execcmd(CMD_FACE, "128", "2") pactlstptr1 = pactlstptr1 + 1 break case 42 execcmd(CMD_FACE, "131", "2") pactlstptr1 = pactlstptr1 + 1 break case 43 execcmd(CMD_FACE, "134", "2") pactlstptr1 = pactlstptr1 + 1 break case 44 execcmd(CMD_FACE, "137", "2") pactlstptr1 = pactlstptr1 + 1 break case 81 sp_set(cspno3 , cspx3, cspy3, cspd3, 3) sp_set(cspno3 + 1, cspx3, cspy3 + 16, cspd3 + 16, 3) sp_set(cspno4 , cspx4, cspy4, cspd4, 3) sp_set(cspno4 + 1, cspx4, cspy4 + 16, cspd4 + 16, 3) sp_set(cspno5 , cspx5, cspy5, cspd5, 3) sp_set(cspno5 + 1, cspx5, cspy5 + 16, cspd5 + 16, 3) locate 18,6 : print "Rl̖" locate 4,6 : print "g[Xg" pactlstptr1 = pactlstptr1 + 1 break case 90 /* Î~(^C}lw) pactlstptr1 = pactlstptr1 + 1 pmvstep1 = pactlst1(pactlstptr1) pactlstptr1 = pactlstptr1 + 1 break case 99 /* [v pactlstptr1 = 0 break case 255 /* I pctrlmd = 0 pactlstptr1 = 0 break endswitch } /* /* LN^[ړ if cspmvstep1 > 0 then { switch cspmvdir1 case 0 : cspy1 = cspy1 + 1 : break /* case 1 : cspx1 = cspx1 - 1 : break /* case 2 : cspx1 = cspx1 + 1 : break /* E case 3 : cspy1 = cspy1 - 1 : break /* case 4 : cspx1 = cspx1 - 1 : cspy1 = cspy1 + 1 : break /* endswitch cspmvstep1 = cspmvstep1 - 1 if cspmvstep1 = 0 then cspanmmd1 = 0 } /* /* LN^[Aj if cspanmmd1 = 1 then { if cspanmwait1 = 0 then if cspanmcnt1 < 3 then cspanmcnt1 = cspanmcnt1 + 1 else cspanmcnt1 = 0 if cspanmwait1 < 3 then cspanmwait1 = cspanmwait1 + 1 else cspanmwait1 = 0 } cspd1 = chrspdlst(1 * 17 + cspdir1 * 4 + cspanmcnt1) /* /* g[Xgӂӂ if lc2 = 30 then { cspy7 = cspy7 - 1 } else if lc2 = 60 then { cspy7 = cspy7 + 1 if lc2 = 60 then lc2 = 0 } /* if pmvstep1 > 0 then pmvstep1 = pmvstep1 - 1 /* /* bZ[W\v̎t if sysmsgreq1 = 1 then { sysmsgreq1 = 0 /* pactexeflg1 = 1 sysmsgmd1 = 1 sysmsgwait1 = 180 sysmsgrefresh1 = 1 } if sysmsgmd1 = 1 and sysmsgwait1 = 0 then { sysmsgmd1 = 0 /* pactexeflg1 = 0 sysmsgrefresh1 = 2 } /* /* bZ[W{bNX\v̎t if msgboxreq1 = 1 then { msgboxreq1 = 0 if msgboxmd1 = 1 then msgboxrefresh1 = 3 else msgboxrefresh1 = 1 : msgboxmd1 = 1 msgboxwait1 = 180 } if msgboxmd1 = 1 and msgboxwait1 = 0 then { msgboxmd1 = 0 msgboxrefresh1 = 2 } /* v_disp(0) /* /* locate 0,0 : print pactlstptr1,pmvstep1 /*,msgboxstr1 /* bZ[W\ if sysmsgrefresh1 = 1 then { msgprint(sysmsgstr1, 24) sysmsgrefresh1 = 0 } /* bZ[W if sysmsgrefresh1 = 2 then { msgprint("", 24) sysmsgrefresh1 = 0 } /* /* bZ[W{bNX\tbV if msgboxrefresh1 <> 0 then { /* bZ[W{bNX if msgboxrefresh1 = 2 or msgboxrefresh1 = 3 then { fill(msgboxx1, msgboxy1, msgboxx2, msgboxy2, 0) } /* bZ[W{bNX\ if msgboxrefresh1 = 1 or msgboxrefresh1 = 3 then { /* msgboxx1 = 0 msgboxx2 = 0 msgboxy1 = 30 msgboxy2 = 0 msgboxlen1 = len(msgboxstr1) msgboxwid = ( msgboxlen1 * 8) + 15 msgboxhei = 31 /* msgboxx2 = msgboxx1 + msgboxwid msgboxy2 = msgboxy1 + msgboxhei if msgboxpos = 1 then { msgboxx1 = (reswid - msgboxwid) / 2 msgboxx2 = msgboxx1 + msgboxwid } /* box(msgboxx1, msgboxy1, msgboxx2, msgboxy2, msgboxbakcol) box(msgboxx1 + 1, msgboxy1 + 1, msgboxx2 - 1, msgboxy2 - 1, msgboxbdrcol) fill(msgboxx1 + 2 , msgboxy1 + 2, msgboxx2 - 2, msgboxy2 - 2, msgboxbakcol) symbol(msgboxx1 + 8, msgboxy1 + 8, msgboxstr1, 1, 1, 1, msgboxfntcol1, 0) } /* msgboxrefresh1 = 0 } sp_set(cspno1 , cspx1, cspy1, cspd1, 3) /* [i sp_set(cspno1 + 1, cspx1, cspy1 + 16, cspd1 + 16, 3) sp_set(cspno2 , cspx2, cspy2, cspd2, 3) /* Z sp_set(cspno2 + 1, cspx2, cspy2 + 16, cspd2 + 16, 3) sp_set(cspno7 , cspx7, cspy7 - 1, cspd7, 3) /* g[Xgӂӂ /* if pactlst1(pactlstptr1) = 255 then break /* endwhile /* if autoskip = 1 then break /* execcmd(CMD_MUSIC, "fadeout", "") /* strig1o = strig(1) for lc1 = 0 to 359 /* strig1 = strig(1) /* if strig1o = 0 and strig1 <> 0 then break v_disp(0) /* strig1o = strig1 next /* break endwhile /* endfunc /* GfBOʕ\ func ending_screen() /* v_priority("tsg") /* int breakflame = 1020 /* int tx = 0 int ty = 0 int gx = 0 int gy = 0 int bg_x = 0 int bg_y = 0 int bgpb = 0 int bgpc = 0 int bgpd = 0 /* int lc1 = 0 int lc2 = 0 int lwc1 = 0 int strig1 = 0 int strig1o = 0 int autoskip = 0 int toprank = 0 str msg1[255] = "" str msg2[255] = "" str msg3[255] = "" str msg4[255] = "" str msg5[255] = "" str msg6[255] = "" str msg7[255] = "" str msg8[255] = "" str msg9[255] = "" /* int cspno1 = 0 /* XvCgԍ int cspno2 = 0 int cspno3 = 0 int cspno4 = 0 int cspno5 = 0 int cspno6 = 0 int cspno7 = 0 int cspx1 = 0 /* XvCgXW int cspx2 = 0 int cspx3 = 0 int cspx4 = 0 int cspx5 = 0 int cspx6 = 0 int cspx7 = 0 int cspy1 = 0 /* XvCgYW int cspy2 = 0 int cspy3 = 0 int cspy4 = 0 int cspy5 = 0 int cspy6 = 0 int cspy7 = 0 int cspdir1 = 0 /* L 0: 1: 2:E 3: int cspmvstep1 = 0 /* LړXebv int cspmvdir1 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd1 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt1 = 0 /* LAjJE^ 0`3 int cspanmwait1 = 0 /* LAjEFCg 0`3 int cspdir2 = 0 /* L 0: 1: 2:E 3: int cspmvstep2 = 0 /* LړXebv int cspmvdir2 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd2 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt2 = 0 /* LAjJE^ 0`3 int cspanmwait2 = 0 /* LAjEFCg 0`3 int cspdir3 = 0 /* L 0: 1: 2:E 3: int cspmvstep3 = 0 /* LړXebv int cspmvdir3 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd3 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt3 = 0 /* LAjJE^ 0`3 int cspanmwait3 = 0 /* LAjEFCg 0`3 int cspdir4 = 0 /* L 0: 1: 2:E 3: int cspmvstep4 = 0 /* LړXebv int cspmvdir4 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd4 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt4 = 0 /* LAjJE^ 0`3 int cspanmwait4 = 0 /* LAjEFCg 0`3 int cspdir5 = 0 /* L 0: 1: 2:E 3: int cspmvstep5 = 0 /* LړXebv int cspmvdir5 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd5 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt5 = 0 /* LAjJE^ 0`3 int cspanmwait5 = 0 /* LAjEFCg 0`3 int cspdir6 = 0 /* L 0: 1: 2:E 3: int cspmvstep6 = 0 /* LړXebv int cspmvdir6 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd6 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt6 = 0 /* LAjJE^ 0`3 int cspanmwait6 = 0 /* LAjEFCg 0`3 int cspdir7 = 0 /* L 0: 1: 2:E 3: int cspmvstep7 = 0 /* LړXebv int cspmvdir7 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd7 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt7 = 0 /* LAjJE^ 0`3 int cspanmwait7 = 0 /* LAjEFCg 0`3 int cspd1 = 0 /* XvCgSPD int cspd2 = 0 int cspd3 = 0 int cspd4 = 0 int cspd5 = 0 int cspd6 = 0 int cspd7 = 0 /* /* GRAPH1 int lc gx = 0 gy = 256 int waitf = 0 /* /* TEXT tx = 0 ty = 768 lc1 = 0 /* /* LN^[spd dim int chrspdlst(101) /* E] (1 shl 14) = 16384 ㉺] (1 shl 15) = 32768 ㉺E] = 49152 chrspdlst = { + 74+(7 shl 8), 75+(7 shl 8), 74+(7 shl 8), 76+(7 shl 8), 77+(7 shl 8), 78+(7 shl 8), 77+(7 shl 8), 79+(7 shl 8), 16384+ 77+(7 shl 8),16384+ 78+(7 shl 8),16384+ 77+(7 shl 8),16384+ 79+(7 shl 8), +106+(7 shl 8),107+(7 shl 8),106+(7 shl 8),108+(7 shl 8), 109+(7 shl 8), /* u + 32+(2 shl 8), 33+(2 shl 8), 32+(2 shl 8), 34+(2 shl 8), 35+(2 shl 8), 36+(2 shl 8), 35+(2 shl 8), 37+(2 shl 8), 16384+ 35+(2 shl 8),16384+ 36+(2 shl 8),16384+ 35+(2 shl 8),16384+ 37+(2 shl 8), + 38+(2 shl 8), 39+(2 shl 8), 38+(2 shl 8), 40+(2 shl 8), 41+(2 shl 8), /* [i + 64+(3 shl 8), 65+(3 shl 8), 64+(3 shl 8), 66+(3 shl 8), 67+(3 shl 8), 68+(3 shl 8), 67+(3 shl 8), 69+(3 shl 8), 16384+ 67+(3 shl 8),16384+ 68+(3 shl 8),16384+ 67+(3 shl 8),16384+ 69+(3 shl 8), + 70+(3 shl 8), 71+(3 shl 8), 70+(3 shl 8), 72+(3 shl 8), 73+(3 shl 8), /* T + 96+(4 shl 8), 97+(4 shl 8), 96+(4 shl 8), 98+(4 shl 8), 99+(4 shl 8),100+(4 shl 8), 99+(4 shl 8),101+(4 shl 8), 16384+ 99+(4 shl 8),16384+100+(4 shl 8),16384+ 99+(4 shl 8),16384+101+(4 shl 8), +102+(4 shl 8),103+(4 shl 8),102+(4 shl 8),104+(4 shl 8), 105+(4 shl 8), /* Ni + 74+(5 shl 8), 75+(5 shl 8), 74+(5 shl 8), 76+(5 shl 8), 77+(5 shl 8), 78+(5 shl 8), 77+(5 shl 8), 79+(5 shl 8), 16384+ 77+(5 shl 8),16384+ 78+(5 shl 8),16384+ 77+(5 shl 8),16384+ 79+(5 shl 8), +106+(5 shl 8),107+(5 shl 8),106+(5 shl 8),108+(5 shl 8), 109+(5 shl 8), /* VA + 42+(2 shl 8), 43+(2 shl 8), 42+(2 shl 8), 44+(2 shl 8), 110+(2 shl 8),110+(2 shl 8),110+(2 shl 8),110+(2 shl 8), 16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8), + 45+(2 shl 8), 46+(2 shl 8), 45+(2 shl 8), 47+(2 shl 8), 110+(2 shl 8)} /* 搶 /* /* ` msg1 = "ɗFB~iHj" msg2 = "GXP[vɃTNZX" msg3 = "cCe[B" msg4 = "AvԂĂ݂ƁA" msg5 = "ȂGXP[vKv̂A" msg6 = "ׂĂ̂܂܁AŝȂ" msg7 = "CōZ𓇗ɂ邱Ƃ" msg8 = "PWt邱ƂoB" msg9 = "ꂾB" thome(tx, ty) locate 0, 2 : color 2 : print " EPILOGUE" locate 0, 4 : color 3 : print msg1 locate 0, 5 : color 3 : print msg2 locate 0, 6 : color 3 : print msg3 locate 0, 7 : color 3 : print msg4 locate 0, 8 : color 3 : print msg5 locate 0, 9 : color 3 : print msg6 locate 0,10 : color 3 : print msg7 locate 0,11 : color 3 : print msg8 locate 0,12 : color 3 : print msg9 /* cspno1 = 6 cspno2 = 8 cspno3 = 10 cspno4 = 12 cspno5 = 14 cspno6 = 16 cspno7 = 5 cspx1 = 128 cspx2 = 272 cspx3 = 272 cspx4 = 112 cspx5 = 144 cspx6 = 160 cspx7 = 272 + 32 cspy1 = 272 cspy2 = 152 cspy3 = 176 cspy4 = 272 cspy5 = 272 cspy6 = 272 cspy7 = 176 cspdir1 = 3 /* L 0: 1: 2:E 3: cspmvstep1 = 80 /* LړXebv cspmvdir1 = 3 /* Lړ 0: 1: 2:E 3: cspanmmd1 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt1 = 0 /* LAjJE^ 0`3 cspanmwait1 = 0 /* LAjEFCg 0`3 cspdir2 = 0 /* L 0: 1: 2:E 3: cspmvstep2 = 0 /* LړXebv cspmvdir2 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd2 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt2 = 0 /* LAjJE^ 0`3 cspanmwait2 = 0 /* LAjEFCg 0`3 cspdir3 = 3 /* L 0: 1: 2:E 3: cspmvstep3 = 0 /* LړXebv cspmvdir3 = 3 /* Lړ 0: 1: 2:E 3: cspanmmd3 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt3 = 0 /* LAjJE^ 0`3 cspanmwait3 = 0 /* LAjEFCg 0`3 cspdir4 = 3 /* L 0: 1: 2:E 3: cspmvstep4 = 80 /* LړXebv cspmvdir4 = 3 /* Lړ 0: 1: 2:E 3: cspanmmd4 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt4 = 0 /* LAjJE^ 0`3 cspanmwait4 = 0 /* LAjEFCg 0`3 cspdir5 = 3 /* L 0: 1: 2:E 3: cspmvstep5 = 80 /* LړXebv cspmvdir5 = 3 /* Lړ 0: 1: 2:E 3: cspanmmd5 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt5 = 0 /* LAjJE^ 0`3 cspanmwait5 = 0 /* LAjEFCg 0`3 cspdir6 = 3 /* L 0: 1: 2:E 3: cspmvstep6 = 80 /* LړXebv cspmvdir6 = 3 /* Lړ 0: 1: 2:E 3: cspanmmd6 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt6 = 0 /* LAjJE^ 0`3 cspanmwait6 = 0 /* LAjEFCg 0`3 cspdir7 = 0 /* L 0: 1: 2:E 3: cspmvstep7 = 0 /* LړXebv cspmvdir7 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd7 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt7 = 0 /* LAjJE^ 0`3 cspanmwait7 = 0 /* LAjEFCg 0`3 cspd1 = chrspdlst(1 * 17 + cspdir1 * 4 + cspanmcnt1) cspd2 = (8 shl 8) + 111 cspd3 = (8 shl 8) + 140 cspd4 = chrspdlst(2 * 17 + cspdir1 * 4 + cspanmcnt1) cspd5 = chrspdlst(3 * 17 + cspdir1 * 4 + cspanmcnt1) cspd6 = chrspdlst(4 * 17 + cspdir1 * 4 + cspanmcnt1) cspd7 = (1 shl 8) + 191 /* /* XRAgbvN̏ꍇ if Gsc1 >= Granksc(1) then toprank = 1 if toprank = 1 then execcmd(CMD_MUSIC, "EDSED2FC", "") else execcmd(CMD_MUSIC, "EDSEDFC", "") /* /* wi` home(0, gx, gy) /* fill( 0, 0,255,127, rgb(29,24,16)) for lc = 0 to 31 fill( 0, 128 + lc, 255, 128 + lc + 1, rgb( 29, 24 + lc/6, 16 + lc/3)) next for lc = 0 to 31 fill( 0, 160 + lc, 255, 160 + lc + 1, rgb( 20 + lc/3, 18 + lc/3, 14 + lc/4)) next for lc = 0 to 31 fill( 0, 192 + lc, 255, 192 + lc + 1, rgb( 14 + lc/2, 14 + lc/2, 4 + lc/2)) next fill( 0,224,255,255, rgb(28,28,18)) circle(128,104, 8, rgb(29,30,24)) circle(128,104, 7, rgb(28,30,23)) paint(128,104, rgb(28,29,22)) /* while 1 if waitf = 0 then gy = gy + 2 if waitf > 0 then waitf = waitf - 1 if gy = 512 then gy = 0 : waitf = 179 v_disp(0) home(0, gx, gy) if gy = 0 then break endwhile /* lc2 = 272 * 3 while asc(inkey$(0)) <> 27 if cspmvstep1 > 0 then { switch cspmvdir1 case 0 : cspy1 = cspy1 + 1 : break /* case 1 : cspx1 = cspx1 - 1 : break /* case 2 : cspx1 = cspx1 + 1 : break /* E case 3 : cspy1 = cspy1 - 1 : break /* case 4 : cspx1 = cspx1 - 1 : cspy1 = cspy1 + 1 : break /* endswitch cspmvstep1 = cspmvstep1 - 1 if cspmvstep1 = 0 then cspanmmd1 = 0 } if cspmvstep4 > 0 then { switch cspmvdir4 case 0 : cspy4 = cspy4 + 1 : break /* case 1 : cspx4 = cspx4 - 1 : break /* case 2 : cspx4 = cspx4 + 1 : break /* E case 3 : cspy4 = cspy4 - 1 : break /* endswitch cspmvstep4 = cspmvstep4 - 1 if cspmvstep4 = 0 then cspanmmd4 = 0 } if cspmvstep5 > 0 then { switch cspmvdir5 case 0 : cspy5 = cspy5 + 1 : break /* case 1 : cspx5 = cspx5 - 1 : break /* case 2 : cspx5 = cspx5 + 1 : break /* E case 3 : cspy5 = cspy5 - 1 : break /* endswitch cspmvstep5 = cspmvstep5 - 1 if cspmvstep5 = 0 then cspanmmd5 = 0 } if cspmvstep6 > 0 then { switch cspmvdir5 case 0 : cspy6 = cspy6 + 1 : break /* case 1 : cspx6 = cspx6 - 1 : break /* case 2 : cspx6 = cspx6 + 1 : break /* E case 3 : cspy6 = cspy6 - 1 : break /* endswitch cspmvstep6 = cspmvstep6 - 1 if cspmvstep6 = 0 then cspanmmd6 = 0 } /* LAj if cspanmmd1 = 1 then { if cspanmwait1 = 0 then if cspanmcnt1 < 3 then cspanmcnt1 = cspanmcnt1 + 1 else cspanmcnt1 = 0 if cspanmwait1 < 3 then cspanmwait1 = cspanmwait1 + 1 else cspanmwait1 = 0 } cspd1 = chrspdlst(1 * 17 + cspdir1 * 4 + cspanmcnt1) if cspanmmd4 = 1 then { if cspanmwait4 = 0 then if cspanmcnt4 < 3 then cspanmcnt4 = cspanmcnt4 + 1 else cspanmcnt4 = 0 if cspanmwait4 < 3 then cspanmwait4 = cspanmwait4 + 1 else cspanmwait4 = 0 } cspd4 = chrspdlst(2 * 17 + cspdir4 * 4 + cspanmcnt4) if cspanmmd5 = 1 then { if cspanmwait5 = 0 then if cspanmcnt5 < 3 then cspanmcnt5 = cspanmcnt5 + 1 else cspanmcnt5 = 0 if cspanmwait5 < 3 then cspanmwait5 = cspanmwait5 + 1 else cspanmwait5 = 0 } cspd5 = chrspdlst(3 * 17 + cspdir5 * 4 + cspanmcnt5) if cspanmmd6 = 1 then { if cspanmwait6 = 0 then if cspanmcnt6 < 3 then cspanmcnt6 = cspanmcnt6 + 1 else cspanmcnt6 = 0 if cspanmwait6 < 3 then cspanmwait6 = cspanmwait6 + 1 else cspanmwait6 = 0 } cspd6 = chrspdlst(4 * 17 + cspdir6 * 4 + cspanmcnt6) cspd7 = (1 shl 8) + 191 /* if lc1 < 511 then lc1 = lc1 + 1 if lc2 > 0 then lc2 = lc2 - 1 /* else lc2 = 272 * 3 cspx2 = lc2 / 3 cspx3 = lc2 / 3 if lc2 <> 0 then { cspx7 = lc2 / 3 + 32 if (lc2 and &B00001111) = 0 and lc2 <> 0 then cspy7 = cspy7 + 1 if (lc2 and &B00001111) = 8 then cspy7 = cspy7 - 1 } else { if cspx7 <> 0 then cspx7 = cspx7 - 1 } if breakflame > 0 then breakflame = breakflame - 1 else break v_disp(0) thome(tx,ty + (lc1 / 2)) sp_set(cspno2 , cspx2, cspy2, cspd2, 3) sp_set(cspno2 + 1, cspx2, cspy2 + 16, cspd2 + 16, 3) sp_set(cspno3 , cspx3, cspy3, cspd3, 3) /* sp_set(cspno1 , cspx1, cspy1, cspd1, 3) sp_set(cspno1 + 1, cspx1, cspy1 + 16, cspd1 + 16, 3) sp_set(cspno4 , cspx4, cspy4, cspd4, 3) sp_set(cspno4 + 1, cspx4, cspy4 + 16, cspd4 + 16, 3) sp_set(cspno5 , cspx5, cspy5, cspd5, 3) sp_set(cspno5 + 1, cspx5, cspy5 + 16, cspd5 + 16, 3) sp_set(cspno6 , cspx6, cspy6, cspd6, 3) sp_set(cspno6 + 1, cspx6, cspy6 + 16, cspd6 + 16, 3) sp_set(cspno7 , cspx7, cspy7, cspd7, 3) /* endwhile /* v_priority("tgs") /* rfIvCIeBύX(TEXT>GRAPHIC>SPRITE) /* endfunc /* /* LXgX^bt\ func cast_screen() int tx = 0, ty = 0 int lc1 = 0 int lwc1 = 0 int strig1 = 0 int strig1o = 0 str msg1[255] = "" str msg2[255] = "" str msg3[255] = "" str msg4[255] = "" str msg5[255] = "" str msg6[255] = "" str msg7[255] = "" str msg8[255] = "" str msg9[255] = "" /* LN^[spd dim int chrspdlst(101) /* E] (1 shl 14) = 16384 ㉺] (1 shl 15) = 32768 ㉺E] = 49152 chrspdlst = { + 74+(7 shl 8), 75+(7 shl 8), 74+(7 shl 8), 76+(7 shl 8), 77+(7 shl 8), 78+(7 shl 8), 77+(7 shl 8), 79+(7 shl 8), 16384+ 77+(7 shl 8),16384+ 78+(7 shl 8),16384+ 77+(7 shl 8),16384+ 79+(7 shl 8), +106+(7 shl 8),107+(7 shl 8),106+(7 shl 8),108+(7 shl 8), 109+(7 shl 8), /* u + 32+(2 shl 8), 33+(2 shl 8), 32+(2 shl 8), 34+(2 shl 8), 35+(2 shl 8), 36+(2 shl 8), 35+(2 shl 8), 37+(2 shl 8), 16384+ 35+(2 shl 8),16384+ 36+(2 shl 8),16384+ 35+(2 shl 8),16384+ 37+(2 shl 8), + 38+(2 shl 8), 39+(2 shl 8), 38+(2 shl 8), 40+(2 shl 8), 41+(2 shl 8), /* [i + 64+(3 shl 8), 65+(3 shl 8), 64+(3 shl 8), 66+(3 shl 8), 67+(3 shl 8), 68+(3 shl 8), 67+(3 shl 8), 69+(3 shl 8), 16384+ 67+(3 shl 8),16384+ 68+(3 shl 8),16384+ 67+(3 shl 8),16384+ 69+(3 shl 8), + 70+(3 shl 8), 71+(3 shl 8), 70+(3 shl 8), 72+(3 shl 8), 73+(3 shl 8), /* T + 96+(4 shl 8), 97+(4 shl 8), 96+(4 shl 8), 98+(4 shl 8), 99+(4 shl 8),100+(4 shl 8), 99+(4 shl 8),101+(4 shl 8), 16384+ 99+(4 shl 8),16384+100+(4 shl 8),16384+ 99+(4 shl 8),16384+101+(4 shl 8), +102+(4 shl 8),103+(4 shl 8),102+(4 shl 8),104+(4 shl 8), 105+(4 shl 8), /* Ni + 74+(5 shl 8), 75+(5 shl 8), 74+(5 shl 8), 76+(5 shl 8), 77+(5 shl 8), 78+(5 shl 8), 77+(5 shl 8), 79+(5 shl 8), 16384+ 77+(5 shl 8),16384+ 78+(5 shl 8),16384+ 77+(5 shl 8),16384+ 79+(5 shl 8), +106+(5 shl 8),107+(5 shl 8),106+(5 shl 8),108+(5 shl 8), 109+(5 shl 8), /* VA + 42+(2 shl 8), 43+(2 shl 8), 42+(2 shl 8), 44+(2 shl 8), 110+(2 shl 8),110+(2 shl 8),110+(2 shl 8),110+(2 shl 8), 16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8), + 45+(2 shl 8), 46+(2 shl 8), 45+(2 shl 8), 47+(2 shl 8), 110+(2 shl 8)} /* 搶 /* int toprank = 0 int cspno1 = 0 /* XvCgԍ int cspno2 = 0 int cspno3 = 0 int cspno4 = 0 int cspx1 = 0 /* XvCgXW int cspx2 = 0 int cspx3 = 0 int cspx4 = 0 int cspy1 = 0 /* XvCgYW int cspy2 = 0 int cspy3 = 0 int cspy4 = 0 int cspdir1 = 0 /* L 0: 1: 2:E 3: int cspmvstep1 = 0 /* LړXebv int cspmvdir1 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd1 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt1 = 0 /* LAjJE^ 0`3 int cspanmwait1 = 0 /* LAjEFCg 0`3 int cspdir2 = 0 /* L 0: 1: 2:E 3: int cspmvstep2 = 0 /* LړXebv int cspmvdir2 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd2 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt2 = 0 /* LAjJE^ 0`3 int cspanmwait2 = 0 /* LAjEFCg 0`3 int cspdir3 = 0 /* L 0: 1: 2:E 3: int cspmvstep3 = 0 /* LړXebv int cspmvdir3 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd3 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt3 = 0 /* LAjJE^ 0`3 int cspanmwait3 = 0 /* LAjEFCg 0`3 int cspdir4 = 0 /* L 0: 1: 2:E 3: int cspmvstep4 = 0 /* LړXebv int cspmvdir4 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd4 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt4 = 0 /* LAjJE^ 0`3 int cspanmwait4 = 0 /* LAjEFCg 0`3 int cspd1 = 0 /* XvCgSPD int cspd2 = 0 int cspd3 = 0 int cspd4 = 0 /* /* /*** CAST 1 ***/ msg1 = "" msg2 = "@@@@[i(LENA)" msg3 = "@@@@̂ւ̃cCe[" msg4 = "@@@@T(SALA)" msg5 = "@@@@Mۂcf" msg6 = "@@@@Ni(CRENA)" msg7 = "@@@@ӂ|jeq" msg8 = "@@@@VA(LESIA)" msg9 = "@@@@AjCȋC" /* /* vpage(0) home(0,0,256) thome(0,32) wipe() cls /* /* symbol(0, 16, " [EPILOGUE]", 1, 1, 1, 65502, 0) symbol(0, 36, msg1, 1, 1, 1, 65534, 0) symbol(0, 56, msg2, 1, 1, 1, 65534, 0) symbol(0, 76, msg3, 1, 1, 1, 65534, 0) symbol(0,106, msg4, 1, 1, 1, 65534, 0) symbol(0,126, msg5, 1, 1, 1, 65534, 0) symbol(0,156, msg6, 1, 1, 1, 65534, 0) symbol(0,176, msg7, 1, 1, 1, 65534, 0) symbol(0,206, msg8, 1, 1, 1, 65534, 0) symbol(0,226, msg9, 1, 1, 1, 65534, 0) vpage(1) /* tx = 0 : ty = 32 cspno1 = 6 cspno2 = 8 cspno3 = 10 cspno4 = 12 cspx1 = 0 cspx2 = 0 cspx3 = 0 cspx4 = 0 cspy1 = 74 cspy2 = 124 cspy3 = 174 cspy4 = 224 cspdir1 = 0 /* L 0: 1: 2:E 3: cspmvstep1 = 48 /* LړXebv cspmvdir1 = 2 /* Lړ 0: 1: 2:E 3: cspanmmd1 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt1 = 0 /* LAjJE^ 0`3 cspanmwait1 = 0 /* LAjEFCg 0`3 cspdir2 = 0 /* L 0: 1: 2:E 3: cspmvstep2 = 48 /* LړXebv cspmvdir2 = 2 /* Lړ 0: 1: 2:E 3: cspanmmd2 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt2 = 0 /* LAjJE^ 0`3 cspanmwait2 = 0 /* LAjEFCg 0`3 cspdir3 = 0 /* L 0: 1: 2:E 3: cspmvstep3 = 48 /* LړXebv cspmvdir3 = 2 /* Lړ 0: 1: 2:E 3: cspanmmd3 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt3 = 0 /* LAjJE^ 0`3 cspanmwait3 = 0 /* LAjEFCg 0`3 cspdir4 = 0 /* L 0: 1: 2:E 3: cspmvstep4 = 48 /* LړXebv cspmvdir4 = 2 /* Lړ 0: 1: 2:E 3: cspanmmd4 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt4 = 0 /* LAjJE^ 0`3 cspanmwait4 = 0 /* LAjEFCg 0`3 cspd1 = chrspdlst(1 * 17 + cspdir1 * 4 + cspanmcnt1) cspd2 = chrspdlst(2 * 17 + cspdir2 * 4 + cspanmcnt2) cspd3 = chrspdlst(3 * 17 + cspdir3 * 4 + cspanmcnt3) cspd4 = chrspdlst(4 * 17 + cspdir4 * 4 + cspanmcnt4) /* color 2 locate 14,1 : print "CAST" color 3 /* for lc1 = 0 to 127 if lc1 > 79 then { /* Ls if cspmvstep1 > 0 then { switch cspmvdir1 case 0 : cspy1 = cspy1 + 1 : break /* case 1 : cspx1 = cspx1 - 1 : break /* case 2 : cspx1 = cspx1 + 1 : break /* E case 3 : cspy1 = cspy1 - 1 : break /* endswitch cspmvstep1 = cspmvstep1 - 1 if cspmvstep1 = 0 then cspanmmd1 = 0 } if cspmvstep2 > 0 then { switch cspmvdir2 case 0 : cspy2 = cspy2 + 1 : break /* case 1 : cspx2 = cspx2 - 1 : break /* case 2 : cspx2 = cspx2 + 1 : break /* E case 3 : cspy2 = cspy2 - 1 : break /* endswitch cspmvstep2 = cspmvstep2 - 1 if cspmvstep2 = 0 then cspanmmd2 = 0 } if cspmvstep3 > 0 then { switch cspmvdir3 case 0 : cspy3 = cspy3 + 1 : break /* case 1 : cspx3 = cspx3 - 1 : break /* case 2 : cspx3 = cspx3 + 1 : break /* E case 3 : 9Qͽlզ!'._9b#rmͽ?_._9b#rm+/w_.ϣ9b#rm_.ϣ9b#rm_.ϣ9b#rm_.ϣ9b#rmZs[ߟ_.ϣ9@2#)_.S@2#)߱,Ϗ_9ϊ]?_._)J{ޭjִe 0 then autoskip = 1 : break if lc1 = 143 then { cspy1 = 157 cspdir1 = 0 cspmvdir1 = 4 cspmvstep1 = 128 cspanmmd1 = 0 cspdir2 = 0 cspmvdir2 = 4 cspmvstep2 = 128 cspanmmd2 = 0 } if cspmvstep1 > 0 then { switch cspmvdir1 case 0 : cspy1 = cspy1 + 1 : bwwwwwwwwwwwwwwwwwwwwwwwwDDADDADDDOADOOAwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwvfvfvgwwvgwwvfwwwwwwwwwwwwwwwwwwwwww~wwwwffffffffwwwfwwwfffffwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwfwwwfwwwfwwwfwwwfwwwfwwwfwwwfwwwfwwwfwwwfwwwfwwwfшшшшшшшшшшшшшшшшшшшшшшшшшшшшш""DDOODDDDDDDDDDOD""""(DD(DD(DD(DO(D(OO((OO((""(""""""""""""""""U"U"!"""""""!U"U"""!UU뻻""""UUUU""""UUUU""""UR-ݻ"""""UR.R-ҽ"""""""-"R"""UR""""U.U..U"U."""!UUUU!%!UU""!UU""""UUUUUUUUUUUUUUUUUUUU""""UUUU""""UUUU""""UUUUUUUUUUUUUUUUUUUU""""UUUU""""UUUU""""UR--R""-------""R""-UR-"""""UR."R-"""""""-""R"""UR""""U.U"!"!"!"!"!U"U."""!UUUU"!""""%"""!UU""!UU""""UUUUUUUUUUUUUUUUUUUU""""UUUU""""UUUU""""UUUUUUUUUUUUUUUUUUUU""""UUUU""""UUUU""""UQ"-Q""-"..!-"Q"""-UQ""""""UR""!R-!""-!""!R"""UR""""))*)//____QQQQwwwfwwwnwww~www~www~www~www~wwwwfffffffffffffffwwffwwffwwfffffwwwwwwwwwwwwfwwffwwffwwffwwffwwffwwffwwffwwfшшшшшшшfwwffwwffwwffwwffwwffwwfffffffffшшшшшшш""""---""-""-""-""-""-""-""-""-""-""--""""""""""-""-""-""-""-""-""-""-""-""-""""U-U-""""-"U"U-"""!UUUU!!""%"!!UU""!UU"""" UQ"-Q""-"--!-"Q"""-UQ""""""UR""!R-!""-!""!R"""UR""""  """"333#$DO%_$DO"""""""(3332DOBU_RDOB?""""(DfVgVWTc%TU#:V/JWZgQfRv"e/RCDV_weEe;A;AR6A2UAeuv%f"gQ?VQ4/%aDfVgVWTc%TU#:V/JWZgQfRv"e/DV_weEe;A;AR6A2UAeuv%f"gQ?VQDfVgVWTc%TU#:V/JWZgQfbv"e/DV_weEe;A;AR6A2UAeuv%f"gQ?VQVVwwgviWee*!*O*_C4eo|Q{QuVQEgQ%gQWWggagege$VuVVwwgviWee*!*O*_Ceo|Q{QuVQEgQ%gQWWggagegeVVwwgviWee*!*O*_Ceo|Q{QuVQEgQ%gQWWggagegeDUVUVeWec'eU'eV&eWUgQUfRv"e.RDU_UeVe;AVu;AVr6AVrUAVbeUauUvA%fN"gQVQ%aDUVUVeWec'eU'eV&eWUgQUfRv"e.DU_UeVe;AVu;AVr6AVrUAVbeUauUvA%fN"gQVQDUVUVeWec'eU'eV&eWUgQUfRv"e.DU_UeVe;AVu;AVr6AVrUAVbeUauUvA%fN"gQVQVVwwgviWee*!*O*_eo|Q{QuVQEgQ%gQWWgga.,".")"""-.,".")""".,".")"""""""""""""""-"""""""""""!""""""""""""""""""""""""""""""!""""""""""""""""""""""""""""!""""""/D/>"."#344444444"D.Q.Q"*")324444144144444"!)+,RC/#D"#)..""3444444"4?%aBQ2Q"!"2!4"14442"*)+!!RC/$/#/">"#"CCCC"#4/%aD2Q2"Q""31CCCCCCA"!NO"344444$UQ"/!*)2#431441444441"")+˲>D."CCCCC""˱!$VuUQ""."32CBCC!CBC">"/."3CCC"$Vu"UQ""#!CCCCCC"B#)+,".."."#344444444"+/Q/Q"*")324444144144444"!)++!R.."/)/.""3CCCCCCC"%aQQ"!"2C"1CCACCCB")+!!R...//""#"444444"$%aQ"Q""31414344441"!C4NO*4)D21"gege$VuUQ"!1#D#3"!!"-"""--""11"!"--""""""-"-""""=="""-)"""-"-""1!"!-"--"""""!"!-"!"""=""-""""""-""1!-"--""Ғ"ҁ-"-"!"""=-""!"-"-"-"-----"""11"!""""""""-"-""""""=="""-"--""--""""1!"!""""""""!"!""!"""=""-"-"--"-"-""""1!""""-""݁""!"""=-""!fl˻vggfg%U"*/ZWQgbv"e/RCfg[qvvevR"aaae&v"g?Vq4/%qfl˻vggfg%U"*/ZWQgbv"e/fg[qvvevR"aaae&v"g?Vqfl˻vggfg%U"*/ZWQgbv"e/fg[qvvevR"aaae&v"g?Vq˻viWee*!**_C4eQeeQfQuvQUgQ%gQWWQgagegege&Vu˻viWee*!**_CeQeeQfQuvQUgQ%gQWWQgagegege˻viWee*!**_CeQeeQfQuvQUgQ%gQWWQgagegegeUUffgfwVgwVgwwwwwwwVgwVgwVgwffwffwUfUvfQwfQwvewvewwQwwQwwawvewvewvewffQwffQUUffgfwVgwVgwwwwwwwVgwVgwVgwffwUfUvfQwfQwvewvewwQwwQwwawvewvewvewffQUUffgfwVgwVgwwwwwwwVgwVgwVgwffwUfUvfQwfQwvewvewwQwwQwwawvewvewvewffQ˻viWee*!**_eQeeQfQuvQUgQ%gQWWQgageWWfewfeevue%Uv#:/:JqRbbru/RCufWwfQeeQvVRV2eqqa&%'&?Wq4/%aWWfewfeevue%Uv#:/:JqRbbru/ufWwfQeeQvVRV2eqqa&%'&?WqWWfewfeevue%Uv#:/:JqRbbru/ufWwfQeeQvVRV2eqqa&%'?WqVVwwgviWee*!*?*OC4eegfQvguvwguVgUgf%gVU'RWbfRwQ%ga'vQ$fvQVVwwgviWee*!*?*OCeegfQvguvwguVgUgf%gVU'RWbfRwQ%ga'vQVVwwgviWee*!*?*OCeegfQvguvwguVgUgf%gVU'RWbfRwQ%ga'vQ/D/>".,4","D.Q.Q"*)=<4<<"!-,!"!RC/#D"#)..-4","4/%qBQ2Q"!©2!<"<2"-,"!!RC/$/#./",C"!4/%qD2Q2"Qҁ=LLC""-,,""NO"=4,Vu%u/Q"Q*)#31<1=441""-,">D."M""",!&VuVu%uQQ"."32BC!L!M"",!!>"/."=="",&Vu"Vu%qQQ"#!CCMC"#"-""!"ffgfffUVfU""""vffQfffQfeUUZ")!<344=="!,"!"ffwffgfffUVfUUU"""""wffQvffQfffQfeUUUQ"˜<"3<=2","!!!ffwffgfffUVfUU"-"""!wffQvffQfffQfUQUUQ"UQ"3CML"","""C4NO*<)A",gege&VuVu%e!2Q#!D,"!!/D/>"."#344444444"D.a.Q"*")324444144144444"!)+,RC/#D"#)..""3444444"4?%aBa2Q"!"2!4"14442"*)+!!RC/$/#/">"#"CCCC"#4/%aD2a2"Q""31CCCCCCA"!NO"344444$Ue%Q/!*)2#431441444441"")+˲>D."CCCCC""˱!$fvQUe%Q "."32CBCC!CBC">"/."3CCC"$fvQ"Ue%Q"#!CCCCCC"B#)+,"Wkegfeevue%Uv#:/:Jabb/C!QW%wfReeRvVRV2errQbq&'Q&&Q?e4/%Wkegfeevue%Uv#:/:Jabb/!QW%wfReeRvVRV2errQbq&'Q&&Q?eRu%fw%VVegYe%ZV#:'/:'J&qrbbbU/uvVQVfqWgVURV2ga!q&&?VVwwgviWee*!*?*OC4egQvkavfbauVbqUgbq%gbQW%W&g&bgQ"gaguQ$VuVVwwgviWee*!*?*OCegQvkavfbauVbqUgbq%gbqW%aW&Qg'bWbVQ &qVVwwgviWee*!*?*OCegQvkavfbauVbqUgbq%gbqW%aW&Qg'bWbV%veVVUfWev'ev'eU'e'e&eWeWe%e%uvVQUeeVufVrgVrgVrUVraVbqVuqVuVVWRg^ eVVUfWev'ev'eU'e'e&eWeWe%e%uVQUeeVufVrgVrgVrUVraVbqVuqVuVVWReVVUfWev'ev'eU'e'e&eWeWe%e%uVQUeeVufVrgVrgVrUVraVbqVuqVuVVWRVVwwgviWee*!*?*OegQvkavfbauVbqUgbq%gbQW%W&g&bgQeeUVgfwfgwVgwVwwwwgwgwgwfwfwffwVUVveQwfawvfwvewwewwawvawvawvwfQwfQwffeeUVgfwfgwVgwVwwwwgwgwgwfwfwVUVveQwfawvfwvewwewwawvawvawvwfQwfQeeUVgfwfgwVgwVwwwwgwgwgwfwfwVUVveQwfawvfwvewwewwawvawvawvwfQwfQVVwwgviWee*!*?*OeegfQvguvwguVgUgf%gVU'RWbfRwQ.""!"""""""!"""!"!RU"RvVe&g%R"*/JJWQgbv"e/.R.%"UQg%arVe%RuR"qaae&v."gVa%q/D/>"."#344444444"D.."*")324444144144444"!)+,C/#D"#)..""3444444"4?%B2"!"2!4"14442"*)+!!RC/$/#/">"#"CCCC"#4/ D22"""31CCCCCCA"!NO"344444$UQ"/!*)2#431441444441"")+˲>D."CCCCC""˱!$ 'aQ"."32CBCC!CBC">"/."3CCC"$'q"""#!CCCCCC"B#)+,".v.W".U"#344444444"+g_u/U"*")324444144144444"!)++!f.Vf"Ww)UU.""3CCCCCCC"u RRR"!"2C"1CCACCCB")+!!W.%.%%""#"444444"$f^ fewu"UU""31414344441"!C4NO*4)D21""gaguQ$VuUQ"!1#D#3"!!VfgVffUVfU"#344444444"+vfeffefeUUZ")324444144144444"!)++!ffwVfgVffYVf%U""3CCCCCCC"wffvfeffefeUU"!"2C"1CCACCCB")+!!ffwVfgVffUVf"U"#"444444"$wffvfeffefeUR""31414344441"!C4NO*4)D21"%ga'vQ$fvQUe%Q!2#D#3"!!-"""""--"!"!-"!!!!!*)2#"!11"!"!.."""M2C3BK3BD4+D+D+D,4))/a/Q".""!4#1$3DD3CD1D1D1(C(A(1vgwgwwwgwvffffffwwwwwwwwwwwwwwwwwwwfwwwgwwwffffwwwfwwwwwwwwwwwvwwwwwwwwwwwwavwafvfgavfvvgwgwwwgwvffffffwwwwwwwwwwwwwwwwwwwfwwwgwwwffffwwwfwwwwwwwwwwwvwwwwwwwwwwwwavwafvfgavfvvgwgwwwgwvffffffwwwwwwwwwwwwwwwwwwwfwwwgwwwffffwwwfwwwwwwwwwwwvwwwwwwwwwwwwavwafvfgavfvvgwgwwwgwvffffffwwwwwwwwwwwwwwwwwwwfwwwgwwwffffwwwfwwwwwwwwwwwvwwwwwwwwwwwwavwafvfgavfvڪٙٙ؈ڪٙٙ؈ڪٙٙ؈؈ݪݪݪffUUfTfTeTeDeDeCUCTCfTCfT3eT3eD3ff`U`U`EfEfEVDVDV`4V`4U`4E`4Ef3Ef3EV3DV`񈈈!!!񈈈񈈈"!!!!!!!!!!!ffgfwfwfwagqqqqqqqqqqawwfawvfwvfwfgwfggvfgwvfgwffwfmwwfwvfwvfwwffwwffwwfgwvfgvfgwwwwwwwwwwwwwwwwwwvwwwqwawwwwwvwwawwawvawfvffaڑa-wwwvwwwvwwwwgwgwvwqwaa}agavvfaa"-wfggvgfwfafgfafgvafgvfffvffvf}fvfwffwffwvffwvffwwffgwffwfffqfqfgfgfggfqqqqqqqqqffgfwfwfwagqqqqqqqqqqawwfawvfwvfwfgwfggvfgwvfgwffwfmwwfwvfwvfwwffwwffwwfgwvfgvfgwwwwwwwwwwwwwwwwwwvwwwqwawwwwwvwwawwawvawfvffaڑa-wwwvwwwvwwwwgwgwvwqwaa}agavvfaa"-wfggvgfwfafafafafafffffqqfqfqfqfqfqqfffafffqfqfgfgfggfqqqqqqqqqffgfwfwfwagqqqqqqqqqqawwfawvfwvfwfgwfggvfgwvfgwffwfmwwfwvfwvfwwffwwffwwfgwvfgvfgwwwwwwwwwwwwwwwwwwvwwwqwawwwwwvwwawwawvawfvffaڑa-wwwvwwwvwwwwgwgwvwqwaa}agavvfaa"-R  f`*a'a)XA/k"a*- g f| `a2| `I ||a64|a6* a6"`*@HXI G|a6- < kJ-ga4a5ta54--+-P+B-B-aC__+_LNuBP Dgf|B.rz g8A.Hk0fa*- fB- B--a` f| R cz$&R  fa&`)ha&B.A-prk*a)- fB- B--aD` f| Q|a& b,NqNqB a+L B- paRCKQ`R<Bt`JBjB.z%@JR.`B-J`Hz`!E$v"JI G|a+k0H*z%J- fJ-g`J-+j- aP+P `&INu e&gJ<a*`a*a*g{a+P`*r$a*"<`ta*PAa*PAa*PA`*J.k0<NBNurpgNONu2SA S@&*K*z%L(z%LG#|9F%p&E86 eb,a*a*va*la*`J-+g m k0@+@ @ C )JaKIREQ9NuJjEPM@ C )JaM`kl Bg g gX g` g gD @g Jg `g ag bg cg ~g g`Nut"JNCE7`C#.aX`rZC$<`^tNC`Tta04"JNC`Bta4a &a(a*a ."JrNCJfXJ`Jf`A"GJfpaS@gf`B`ta4a&"JNCԂ`HR XO`"Jr9NC`C!`C!-I, A&LfA&D MiDifC$`C$aE&*ap$FJkXa,:"FfagHak>A"䶐b6":"//:"ؗ-AaFJkaT-FVaaJ-_ `$-_ aa2`HNuHH@HNu@|//??O FNu=|tD?</:"=*//?@Oa=|NqDNuB?W\ONu|2HCJ.g: e CgPN?Nu|2 z", g"@$HCJ.g: e CgPN?NuA 4Jg p apa`paa`rRQNurRQNuaa-z!B|Aa'T|a'JBa'D| a':`X@|CBa'$B) a'FJf4"z!(-I!Dd z!DgJfHa&L$z!  tv ea>gH dt<0 9c^0 9c^ Qa`t|  Nu$ "z $z -J Ђ d(-@ra  JNua-|-|`aj-|-|` NuH I G|a&tHBSkga% fa%LNua`JfZ g .c /g4 *g.a<0  c_a垐<0 c_ at` d g`a\Sf`a@|anArk"aap@ @++@<+@PQa0a:aZPArta%a%k aJ- gRQ  faZaaAB(rvk&af$-J-k ԭ<+BB<<QJfFTOpNuFJfAaADErtvpkhaRaJ*f BUJ HR ?<: -"JaHR ?<  -<"JaHR OSfHz$ XORt`Hz XOQAa`SCAaVQ`$ =|`$=|`BNu/ <ӭ<-@"D-@-@"|-@"V-@*l-@. NuHQC!2$8=|`=|Nu`",-|`n"4 -|`n"_NuH瀀 Z !@!@8!@!@(!@ !@!@2!@!@LNu/ `Jj:NE8Cn+RJB44a^E*) a)S cp) ) a)) aBRtCatCr:a`Jj:ECn+RJxTONup`Pp`Lp`Hp`Dp&`@p'``,p@`(pA`$pB` pC`pD`pE`pF`pI` pJ`pL`pNuaa`H@AEr`QLNuHxBACr t&eR`Ѓf`P<0QCxf0BLNu/H*z Nu`Ha@k=ALNuHa`k=ALNu/"<Àp:i8A?LNu`2/0:H":iHAJAgҼHA0<A2LNu rNu/":rLi0<Ajp2LNu@|H?<Bg#XOLFNuJgDHA26CC0046C K000&<e,H `$pNOLfLNuNqÓNqÕpNO`HM-O<(mO-OJfB.aHB.QaDaIaKRfF^aGfD+z2aKaJ.^gaJ._gaOL`MhB XO-@@O-O-HD-IHACnf(JRL/ PaHVJ,fHzSN"XOJk / (@aD*(_B.QaD aIaJLfEaGBfKaK0aH6kKa4J.^ga J._ga`":n"zpNOBg/1C>r9NCJf aA]`jaA7``HAC` HAlCaNa>LNuEVaɆaF(R":/:/:-A(A//??O azg6 .f Mf$ Df Df Hz"HȊ`HHzHO g`r-_-_aN?<Hz\ONu-_-_a4?<HzO\ONuJ.g 0pp-J HA2:fNuCzR);$zk HJ2 fNuC:B)p"QpNCa aa`f` 0<aH":HAJAgҼHA3Nu0<a":3NuC2H@0<J)f0<@c22`C2H@dr2`Cak3A`pCr2H@0<@c22`CV2H@pJ)gpM@d22`r4:4`fr4:*a\Jr`TJ-+gz- ba: fd `\<ajata~`HrA+An:NqNqt6-V;BaJ-+j afgj+HNuNqNqCJ-+j- <aaJa a6`NqNqJ-+j- <waaaCBtkgQ`Sk YkQP`NqNqJ-+jr ZgJv;CCBtzk gTRQP- eHz4-V;BTBc2H;Fp4-LH…;BBBHBJBjDBኄHBJBgԼBB+BXNu-gHJmnfB4-V;BTBc6H;Fp4-NH…;BBBHBJBjDBኄHBJBgԼBB+BXNuJ-g"I;Az;A|PB-KNu-g2<-g;mt+B;BH;A2--k,; N I;Al;mNu;Al;FNuBm2-I;AlDQBB2B<BAF"z4+Y +Y$+Y ;YPtB;B`4"I;A;At-k-gj2-; N <I;Alr4- ;Bjr;A- Aքr+A;AJBfrANu;AlPr;AA;m,frANurAJmfr;AANuJ-gbJ-j^Jmg;mBmPNu"I;A;Ar|F;FA -g$J-+gtaag-aNuaZJ-+g4-mR|l4<` < Bo 44<` ,-g,-g;mt+B;BJjFFA2--k; N LZNL;A2-I;ADQBB2B<BAF"zh+Yd+Yh+Y~;YPtB;B`A;Am Nu;AFNuM;E;Ert-k-g\+A;A-\gjFFPA` r|A2-; N A;Am~mdNu;AFNurAJ-frAANu-gJ-j~J-g2BmP;mgf-k`ra -aBaB`M;E;EPrA;A-g&J-+g ra$-a-\a@B`NuaFPJ-fJ-\kJ-+gra-a$-Jmf-jpaBB`t*- bJCf0aNa-gfaJ-jgNuJ-gaB-B-J-gaB-J-gJ-k?-a;_B-`BmJ-gJ-k?-a^;_B-Nu< JCf0aaN-gfaJ-j\gRNuJ-gaB-B-J-ga B-J-g?-aN;_B-`BmJ-g?-a;_B-Nur;A:NqNqRH+H`r:NqNq;A+HBmNurA+An2%NqNq6-VXXJkav`+HNu A;6A@B-J-+g- bgH-*r a>`l@@Jg<aaaj`P<aaaB-`8Jmg0C<Jg f `pp-JNB`-jp`-Аjp`r c r _crA@J-+g- bRgz-*r an`@0;NLZ&-fl-f +H.a֮ m-`D+H`6-g,-f"--f +H m`+H`-g m`-g`|+H+m<B<`P`NqNq:ja-ga,-g:۲gP:ۜeJp.C$f8CJtkH$zEJ*kR`EcRb "zp@NRgAp-+@+@@ m f ( f `CJ)gS<`J)Rffl"` #|`d B#|`v 0#|`ZX#|`#|`D h#|` |0#|` Jb#|` #|`%`RH`TH`PH`A `xHzn`-f`CvJ)zfTJk.RD#|` P#|`!#|` !#|`*#|`f-#|`"#|` |#|` J#|` f#|`>#|``RH`TH`PH`A `HzH@CDS.f B#zpa;AR`8HmP2<mPo;APmR2<mRo;AR` CPtB;BpJ-+gZHzR- bgvCBk *alRQNu< 4-Rra@| 2a@I`,J-gJmgraav`dNu2%NqNq6-VXXXTXUXXXYH;BntBBX;BZa`J-+jagk~ gvb+HafJ-gaJ-gaJ-ga*-(raJJ-)gJCfrtat`Nur-AaLaB-Nu-HA2<`f -a`aPf -a۸`aPf-aۢP` aP`JCfr-AJmf&?-jpa--a<vCNuaޮahCNuJCfBr-K5rjJAg Sk5rj`t-BpjpJ-gJmf?-jpaT--a<vCNuH2-PZA4BgBA?t0aaQaھaڴ`Nu@ZEmP2EgEA? @nb6|k0v0a|arQafa\Nu    !"$%&()*,-.01245689:<=>@ABDEFHIJLMNPQRTUVXYZ\]^`abdefhijlmnpqrtuvxyz|}~pqrtuvxyz|}~pqrtu- ch< +HJCg -fBm(-gagaFraJaذJ-fgaٰNur-K5rk`؊JAgSk5rk`x-B-aFBm`Jr+An2%NqNq6-VXX@@aJ-+j PJCg4rz"Htk"|EBkf R eR e- `\- J-gEB| b a:rR b`PQ+HNu< a+HNuP b&rtgg\RARBRD c`fD bz0 kHBHpg f&p-kD a vaLRARBRD`RB`RARD c`,JBk&faa׾RD bRA`PHF +HNu< &rtgghRARB c`fR b~0 kT5Bkaaa"A$BBfa" $ RARB`a" $ RARB`RB`RA c`$5BkPBfa<a֔RA cPH+HNuPHPB+HNuPH+HNuP bJ,"HEBk0g fp-kD a ~ vaDR cJgPPHF +HNu< "HEBvzk daS`aQPH+HNuXPXQXLXMXRXSXNXOXVXWXJmV`<H`0H`$Jkf`Jk f `J`Jg ``pJmgp+@eB-Bm;m`aeB-PB-;m`aeB-`aUTeB-`rB-`jHzfJmVBmXf;mJ-+g- c<< J-javaԪ`ԒJng 4-RmZ``tJng4-Z`HzJmVB-Xf;mJ-+g2- Ue$--k< kaaaD`ӬNuJmVXgHzpJmNjD@NuJmVXWfB-`VB-`NCrpQPJmV`2XC,tIa2QBmJmVa`XC\rQB-JmVa`H @g;@H @g;@`H@g;@J-g aJmVH@g;@J-gaJmV`rk, eD@- c J-j|J-gak< eD@ c J-j|J-gaV` - cJ-gjJAjDA AcrNuH Al2<` Ao2<NuJmVIa;A,;AHz0-gL[kR-HBm2- -fI;@JjDB@H@ሀH@J@gмH@@Nu(A,C E Jmfr;A+AA:- -fMt0H2JjDB@H@ሀH@J@gмH@QP DNuk@ g@k@`JmV@\@Hz-gR[kR-HHBm2--g fA@ JjDB@H@ሀH@J@gмH@@Nu(A\C~EdJ-frA+AA:--g fEtHHJjDB@H@ሀH@J@gмH@QP DNu:ʆfHB-kf@`@P|@`D@|B-@ - d߲|>@`ߨRH`ߢJ-+gߚrta`J-kߊCɮ`߀J-+gvra>J-khCɌ`^VJ-+gP- c<aόaaZ`2Jf,a\B-` X`:ɨfR-  kHaNgdaafgea aTga@a`RH`޺:JffgagagaϴgaϦgaϘa~ fRHga|`NRH fRH`@XXX`0:fLaSDgSDaQ` H`X`:Ȉfd-  kZa.gcaaΐgbaa~gaalkݤg&aaͨ`ݎXH`݈:f<-  k2a;a@axgwfggvgfwfafgfafgvafgvfffvffvf}fvfwffwffwvffwvffwwffgwffwfffqfqfgfgfggfqqqqqqqqqffgfwfwfwagqqqqqqqqqqawwfawvfwvfwfgwfggvfgwvfgwffwwfgwwfwwvfwwvfwwffwwffwwfgw}fg}gwwwwwwwwwwwwwwwwwwvwwwqwwwawwwwwvwwawwawvawfvfڑ"-wwwvwwwvwwwwgwgwvwqwawawagavvfaa"-wfggvgfwfafgfafgvafgvfffvfvfvfwfvfwfffwvffwvffwvffwwffwfffffqfqfgfgfggfqqqqqqqqqUUUUUUUUUUUUffffffffffffwwwwwwwwffffffffffffUUUUUUUUUUUUUUUUUUUUUUUUffffffffffffwwwwwwwwffffffffffffUUUUUUUUUUUUeH3UCUC8TC8T8TH8UCDHTH3V`94U`4U`4E`8E`E4UDPEP"""""""""""""""!!!!!!!!!!!!!!!@dOFidKOldOo""""""!!!!!!!!!qqvvvvvvvvvvvvvvffffffaff.f#afaafaaaaaaafaffaffavfavfavfawa3:>33333CS3ST4SUUS6f:3:"++̪,̚,̙̚.⪣3>?3?3>45355CE5UUfc3:"*ªªªª*ff-fffafa2fa9f9f9affffgfgfgfgwqqgqgagggggggggagqgqgqqqvvvvvvvvvvvvvvffffffafffafaafaaaaaaafaffaffavfavfavfawa3NC444C>:::"++̪,̚,̙̚3NCC44C>:::"*ªªªª*fffffafafaffaffffgfgfgfgwqqgqgagggggggggagqgqgqqqvvvvvvvvvvvvvvffffffafffafaafaaaaaaafaffaffavfavfavfawaTZ343333ECEҪ,"EC3E3334T3T"ڪ-""fffffafafaJf:f:affffgfgfgfgwqqgqgagggggggggagqgqgqqqvvvvvvvvvvvvvvffffffafffafaafaaaaaaafaffaffavfavfavfawavU43JS33CҪ,̪̙̚,UgC33354Z"ڪ-ªªª-fffffafaJfajffaffffgfgfgfgwqqgqgagggggggggagqgqgqUUBB$()R2UQ4EQ#4D""4#)Q5uUQUuuUvuUeuUeVUUWWUgeUUQWQWQVUfeQwUUuUUUuUUUUUUqUfqVfqVeUwgwwwwwwwwwqwgqwwqwwavwvwvgwgagafafqfqfqvqvaqvavvafwfwfgfagvafwavgvf"//)*/2#DC$C#32#4CD>3"...2#4D4B322#./4C>/D>/3//vqfqfqfqfaggggvgqfwfwfvgvwfvgfgwqwvwwwwwwawwqwqwqwvgwgawgawwvvqqqqqwgwwwwwwwwwqwgqwwqwwavwvwvgwgagafafqfqfqvqvaqvavvafwfwfgfagvafwavgvf"//)*/2#DC$C#32#4CD>3"...2#4D4B322#./4C>/D>/3//vqfqfqfqfaggggvgqfwfwfvgvwfvgfgwqwvwwwwwwawwqwqwqwvgwgawgawwvvqqqqqwgwwwwwwwwwqwgqwwqwwavwvwvgwgagafafqfqfqvqvaqvavvafwfwfgfagvafwavgvf//)*/2#DC$C#32#4CD>3...2#4D4B322#./4C>/D>/3//vqfqfqfqfaggggvgqfwfwfvgvwfvgfgwqwvwwwwwwawwqwqwqwvgwgawgawwvvqqqqqwgwwwwwwwwwqwgqwwqwwavwvwvgwgagafafqfqfqvqvaqvavvafwfwfgfagvafwavgvf"//)*/2#DC$C#32#4CD>3"...2#4D4B322#./4C>/D>/3//vqfqfqfqfaggggvgqfwfwfvgvwfvgfgwqwvwwwwwwawwqwqwqwvgwgawgawwvvqqqqqC.C-D24C#B33""QA"!#5#D4C$D2C!#2#2"""^F""wwwwwwwwwwwwwwwwffff/+/""/+///+!//+!//fj fff f"v n. b g-' grw hww h"ffff fjffj"v"-'rwww(ffff int cspmvdir7 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd7 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt7 = 0 /* LAjJE^ 0`3 int cspanmwait7 = 0 /* LAjEFCg 0`3 int cspdir8 = 0 /* L 0: 1: 2:E 3: int cspmvstep8 = 0 /* LړXebv int cspmvdir8 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd8 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt8 = 0 /* LAjJE^ 0`3 int cspanmwait8 = 0 /* LAjEFCg 0`3 int cspd1 = 0 /* XvCgSPD int cspd2 = 0 int cspd3 = 0 int cspd4 = 0 int cspd5 = 0 int cspd6 = 0 int cspd7 = 0 int cspd8 = 0 /* dim int pactlst1(255) int sysmsgmd1 = 0 int sysmsgwait1 = 0 int sysmsgreq1 = 0 int sysmsgrefresh1 = 0 str sysmsgstr1[255] int pactlstptr1 = 0 int pctrlmd = 0 int pmvstep1 = 0 int evtwaitsec = 0 int pmsgptr1 = 0 diZmuSiC ESCAPE die SUCCESS Class Room Composed by @arx_uho""  ""  "" "" <.? wr ( ;G;G;G;;G;;;G;G;G;;G;;=I=I=I==I===I=I=I==I== ߠ( 0*B0*B0*B0*B0*B0*B0*B0*B0*D0*D0*D0*D0*D0*D0*D0*D ʠ /6/6/6/6/6/6/6/61818181818181818  (`( VH 0`0 TH 0`/a r" 0` Jg k gZNuNu/?a`8Jgk g<"Nu"NuXNu0Jgk fJ@k f$a NugxHx@aLJPf (`b f f&g l ` n00`>/a"0`0fa n`a| l/ @d 2I@0"` NuJ@k faNu f@f.0l `*g`T@H?@>0*>0*@`T;H?>0*>0*@ 7`T;0*>0*@C`T>`TC`TC`T@`T@`T@0*;0*7`T7H?;0*C0*0*;0*;0*;0*;C`T>`TCH?E0*ETI E0*C0*C0*C`TB`T7`T;0*B0*>`T@H?@>0*>0*@`T;H?>0*>0*@ JTPTXRTXRZZZZZZZZZZZZZZZZ`b``^dlxdr  & 0 : D N X h | $DdxLXzj$@\XR@z &2JbzDRp*Pbh4N*7p/A N/?6\Jk0`t?/>TJl```Vp?/?/BJkp/@ZmuSiC ESCAPE die SUCCESS ENDING1 Composed by @arx_uho""  ""  "" "" <.?\ (GHHBB00B D G I LHHK I K00G00D`DFGIGHHF D F``GHHBB00B D G I LHHK I K00G00I00D00GFDFGGHHBB00B D G I LHHK I K00G00D`DFGIGHHF D F``GHHBB00B D G I LHHK I K00G00I00D00GFDFGK$$K K``I00I$$I I``K00K$$K I00I$$I IKLMN`NNMLGHHBB00B D G I LHHK I K00G00D`DFGIGHHF D F``GHHBB00B D G I LHHK I K00G00I00D00GFDFGGHHBB00B D G I LHHK I K00G00D`DFGIGHHF D F``GHHBB00B D G I LHHK I K00G00I00D00GFDFG00;; ; ;``ߠ(KHHGG``PHHP N P00K00G`GIKLK``I``KHHGG``PHHP N P00K00N``L``NKHHGG``PHHP N P00K00G`GIKLK``I``KHHGG``PHHP N P00K00N``L``NP$$P P``N00N$$N N``P00P$$P N00N$$N NOPQS`SSRQKHHGG``PHHP N P00K00G`GIKLK``I``KHHGG``PHHP N P00K00N``L``NKHHGG``PHHP N P00K00G`GIKLK``I``KHHGG``PHHP N P00K00N``L``N00BB B B``ʠ10$:0$;0$60$@0$@0$?0$?0$=0$=0$=0$80$;0$;0$:0$60$10$:0$;0$60$@0$@0$?0$?0$=0$80$;0$80$;0$60$/0$0$10$:0$;0$60$@0$@0$?0$?0$=0$=0$=0$80$;0$;0$:0$60$10$:0$;0$60$@0$@0$?0$?0$=0$80$;0$80$;0$60$/0$0$?0$?0$=0$=0$=0$=0$?0$?0$=0$=0$=;:860$60$668:10$:0$;0$60$@0$@0$?0$?0$=0$=0$=0$80$;0$;0$:0$60$10$:0$;0$60$@0$@0$?0$?0$=0$80$;0$80$;0$60$/0$0$10$:0$;0$60$@0$@0$?0$?0$=0$=0$=0$80$;0$;0$:0$60$10$:0$;0$60$@0$@0$?0$?0$=0$80$;0$80$;0$;; ; ;`H;`JLL ?`:LJlЀf<`& /ZmuSiC ESCAPE die SUCCESS Iroirotei Credit Theme (from SHINING STAR) Composed by @arx_uho""  ""  "" "" <.?O (N`NGKLN0*L0*K0*G0*IIߠ(GH?S0*H?S0*Q0*P0*L0*NM N Pʠ;;0$90$80$40$65ȃp[^ŃR[܂hCuwɌ肪܂JgfBNg͍폜ł܂̃t@C͏݂ł܂̃fBNg͂łɓo^Ă܂t@Ĉō폜ł܂t@ĈŃl[ł܂fBXNςŃt@C܂ZmuSiC ESCAPE die SUCCESS Tell-tale Composed by @arx_uho""  ""  "" "" <.?arvqn (GG B D B JG D C A B ;$UT ߠ(ʠZmuSiC ESCAPE die SUCCESS GAME OVER Composed by @arx_uho""  ""  "" "" <.?R{ (?0*? ? =$ :=? = ?`?ߠ(C`HA0$A0$C C C`Cʠ3`H10$.0$3 3 3`3+ 38+(2 shl 8), 39+(2 shl 8), 38+(2 shl 8), 40+(2 shl 8), 41+(2 shl 8), /* [i + 64+(3 shl 8), 65+(3 shl 8), 64+(3 shl 8), 66+(3 shl 8), 67+(3 shl 8), 68+(3 shl 8), 67+(3 shl 8), 69+(3 shl 8), 16384+ 67+(3 shl 8),16384+ 68+(3 shl 8),16384+ 67+(3 shl 8),16384+ 69+(3 shl 8), + 70+(3 shl 8), 71+(3 shl 8), 70+(3 shl 8), 7ZmuSiC ESCAPE die SUCCESS Round Clear Composed by @arx_uho""  ""  "" "" <.?| (B D F G~G @ G H A H J H J Lߠ(GGGB~CCCEEEGGGGʠ;H?6H?/H?6H?7H?9H?; shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8), + 45+(2 shl 8), 46+(2 shl 8), 45+(2 shl 8), 47+(2 shl 8), 110+(2 shl 8)} /* 搶 /* /* BG}bv dim int bgptdat(895) bgptdat = { + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, ZmuSiC ESCAPE die SUCCESS Round Start Composed by @arx_uho""  ""  "" "" <.? (E0*E$E E J L Q O0*N0*L0*J0*E0*E$E Q O N J Lߠ(@`T@`T@`T@EGE@`TL0*I0*Gʠ9`T9`T9`T94949`T<0*<0*9 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, + 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,ZmuSiC ESCAPE die SUCCESS Scolded Composed by @arx_uho""  ""  "" "" <.?Ximhx (B; 6 4 0*; 6 ; = B B B B = ߠʠ 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7ZmuSiC ESCAPE die SUCCESS The journey continues (from SHINING STAR) Composed by @arx_uho""  ""  "" "" <.?X ( ;HH6HHB`B$$ B$$@$$? =HH8 88HH;HH6HHB`B$$ B$$@$$? =@6 = BB$$ B00?00;00=6 6 BB$$ B00?00;00=B =?@00@ @00@$$?$$= ?B=?@00@ @00@$$?$$= ?? =?@00@ @00@$$?$$= ?B=?@00@ @00@$$?$$= ;; ߠ( BH?BH?G`G$ G$G$F DH?@ @@H?BH?BH?G`G$ G$G$F DG GG$ G0*G0*G0*D= = GG$ G0*G0*G0*DI B~DE0*E E0*E$D$B GKB~DE0*E E0*E$D$B GG B~DE0*E E0*E$D$B GKB~DE0*E E0*E$D$B BB ʠ /;/;/;/;/;/;/;/;1=1=1=1=*6*6*68:/;/;/;/;/;/;/;/;1=1=1=1=4@4@4@4@6B6B6B6B6B6B6B6B1=1=1=1=*6*6*68:6B6B6B6B6B6B6B6B1=1=1=1=6B6B6B6B1=1=1=1=4@4@4@4@3?3?3?3?6B6B6B6B1=1=1=1=4@4@4@4@3?3?3?3?3?3?3?3?1=1=1=1=4@4@4@4@3?3?3?3?6B6B6B6B1=1=1=1=4@4@4@4@/;/;/;/;/;/;/;/;                                                                               Bg/.=JkEr/<`:B .NVavk\".tebC"Bg/.=JkDEr/< / ??Jo J0"QQ>pA4!@tN^ X NuC*t`C7t`CDt`rpNOJNuʃ[hsłt@C܂p[^ُł0 ZmuSiC ESCAPE die SUCCESS The story of a SHINING STAR Short ver. (from SHINING STAR) Composed by @arx_uho""  ""  "" "" <.?.E~  I KM KNMK KNMK H IKI KM KNPR NPNM N MKI KM KNMK KNMK H IKI KM KNPR NPNM N MKI`I`I`I``I`I`I`I`` ߠ D FI I HF I HF D DF D FI I KM K IH I HF D FI I HF I HF D DF D FI I KM K IH I HF D``:=@=BF@FFI@I:=@==B@BBF@FFI@I ʠ 8`T=`T=`T8`T8`T=`T?`T8`T8`T=`T=`T8`T8`T=`T?`T8`T8`8`8`8`T8`8`8`8`T z`z/7 Ecp`0<NOJjp``r/ Acp`0<NOJjp`| /f `^ @f `R @f `F @f `:p`Fr/ Acp`4$/ cp`"0<NOJjp``r/ Acp`t/ B?cp`v/# C?cp`(/* cp`0<NOJjp``r/ Acp`t/ B?cp`v/# C?cp`|0<NOJjp`l`Vr/ Acp`VB 49(. XOBf <` <Jojt`$/ep`Jojv`&/ ep`0<NOJjp``r/ Acp`Jojt`t/ Bcp`Jojv`v/# Ccp`0<NOJjp``pr/ Acp`zp/f0<NOJjp`b `J @f0<NOJjp`F `. @f0<NOJjp`*` @f0<NOJjp``p`0<NOJjp``0Hʃ[hsKłZmuSiC REAL DUNGEON TITLE Composed by @arx_uho""  ""  "" "" <.?TO ( ;0066`6;00;00=00B``B@?@``;00=00>0077`7;00;00=00;``;:8:``;00=00>0077`7B00@00>00@HHEHH@>00=00>007700>00@00==00@00B`BHH@?;0066`6;00;00=00B``B@?@``;00=00>0077`7;00;00=00;``;:8:``;00=00>$$= ;HH= > @$$> =HH> @ B@?; = >$$= ;HH= > @$$> =HH> @ BB ߠ( B0B ;; B`TB0*I`I I0*FG`TB`TGG$ B`TB0*BA`TA0*A0*BB$ G`TG0*GH?LH?G~E0*E0*C0C CH?C0*E0*EH?E0*GGGB0B ;; B`TB0*I`I I0*FG`TB`TGG$ B`TB0*BA`TA0*A0*BEEGGGGBEEGGG ʠ /; ; /; ; /; ; /; ; /; ; /; ; /; ; /; ; 6B B 6B B 6B B 6B B 4@ @ 4@ @ 4@ @ 4@ @ 7C C 7C C 7C C 7C C 7C C 7C C 7C C 7C C /; ; /; ; /; ; /; ; 1= = 1= = 1= = 1= = 2> > 2> > 2> > 2> > 2> > 2> > 2> > 2> > 4@ @ 4@ @ 4@ @ 4@ @ 4@ @ 4@ @ 4@ @ 4@ @ 2> > 2> > 2> > 2> > 4@ @ 4@ @ 4@ @ 4@ @ ;G G ;G G ;G G ;G G ;G G ;G G ;G G ;G G /; ; /; ; /; ; /; ; /; ; /; ; /; ; /; ; 6B B 6B B 6B B 6B B 4@ @ 4@ @ 4@ @ 4@ @ 7C C 7C C 7C C 7C C 7C C 7C C 7C C 7C C /; ; /; ; /; ; /; ; 1= = 1= = 1= = 1= = /; ; /; ; /; ; /; ; 6B B 6B B 6B B 6B B ;G G ;G G ;G G ;G G ;G G ;G G ;G G ;G G /; ; /; ; /; ; /; ; 6B B 6B B 6B B 6B B ;G G ;G G ;G G ;G G ;G G ;G G ;G G ;G G  $0$0$$0$0$0$$0$0$0$$$$$$0$0$$0$0$$0$0$$$$$$0$0$$0$0$0$$0$0$0$$$$$$0$0$$0$0$$0$0$$$$$ dCQ NuQNuA5||BDǜBdCQ NuQNu5||BDǜBdCQ NuQNu5||BDǜBdCQ NuQNu5||BDǜBdCQ NuQNu5||BDǜBdCQ NuQNu5||BDǜBd CRHQNuQNu3*L (a 3 f*Nu3*0: 2: a3*0@@A 83.HD+B+CQ3*3 *NuK H+D aeZB-Jg> ErC ߰VJAjB-` ErC ߰VJAj |^BJRB$ԂԂԃ/HX+@k @"@$I&Jprtvxz:-<>-GSF Fo <<>ERG0-24-BSA Ao4<@RB;B;GEQEDE2FRF0-HI@;AfV|,m 0-S@>-SGH?rtvx    Q9:;<>QL `BB->-EFO?,m 0-S@EEK\*uPHHNL@ "QL:K 0-2-a0-S@>-SG$<&<PIC  b07B m uEUB`D` Dꫫ *6\"A䦵j' CHNAXi TMTUUSSS T UUUUT5ꪪ:ɠUUUUUUUA7D+HBBd3 uU5WUAkV~N~p7o).0g;" EUp 0wCPz1jJ`5UXPQ,ZDUUU TJ`5UPAQ9PzPRU`e UUUUV"@j)RUU UTE*UP9jpa1kap"UUUVŮm"j1!c1b \cX$FTkd9s9sXqʎ~lpGT{H1ST1z\ 0hӂA1g _HT#),dS"EZp@ UC3XDI52L! ! I3TXGNIe` ITX @?){8%8(DJ3TgUʮU9UJ6xOxA$A0X C<3T@jc @Z0aUPAQKPz )fz,K.YYPz 5T2c 5U].uu˸%Ѽ PA 5Q@z3 1\hJ0ٟTjL&W2̦UUQPUUA~lpM3pM.iҠUT0De?3mۂmsmSo͑N s 7pN?6?8'Yγ0(Tu:ϰg<0ySɀ*ys \"UPg>#}3D X'>oQ% " \"Q"q(  M5POoPS PYjS" 0\]2̓NH=Aa:AMEMkPU8*5a(`cAUb !a\ @|eW6pB*?%0mX (@pR^ PTc`/ A"2`P9U025AU Ш/ #QA[PAUJW2. J&I `4MOUa_@qڰ?]33@UEUASUQ f '|fn:z njs'4c ®@2UErN,YA rUPAUGBn]30\"U0NA>BAcv T%] BSeHU ^ H=PW/Sz^/XAE~|¢*u~ E+T'~Dߪ`\~ g?S(*3*a0RARG&P5 ApT.0Z`P AHALSa 9200ꪪ 9210c AH"F" {1x L࿂cQH5<l J jB. Z{ޘ ' c9EkPReR!(6_ Ns F̱ё cf,r$ pRgHZ(%fƙgLsaAZgg=AZ9 zgVhb BִK  djs9C$ Q"QIZ`ƕ(+Z4$JD4s?81f#XVBQ ^)L sXg#kHqc1V-!þB%)VBBtXUUUUUU(:e""q9Ul'B5x60`2UYO(!3Pɫshj:cum4'#|e!xD][M q% p):(F1> WS,FL8VqA 9 )FzC}=N.~ Q:F(OS9L2qTrƢ;Yc#=Q(Luǿl ts͘1 c )G1}UyFJ|QDy!dyB >n7?Jst`{joe3Wß|A|9:~_a~ JO{%$}'NG-4l'Gt#ӔO {9%gV?A" ?G:?=ΟJOՄochG,Tb:?hV+MUWqg3CT8Z1Z12PNV<et³D++J!\Ù!0V0CUa\0u)4*R̹`hp)R"e SJ~eC0 xb2 xb"!,2 B L I4Z43D`: 1Ic_e5g8Q=9xa&aFsƌ9[*?33"˅)k"ϤiDT4"#MWHdZ$N$DȹQ"#D'H? ['6/K?Ѷ|Bp@ʲGJeZʲB5#D-Cq15RM UUm@Dʶ|_ [IL,$a&](A$$a5 ͘vQ4XƧPF|MT&].T.|D w8?ULAJe̵eN fT(MV/pwDCCCCCCCCCCCC 44444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444443HU*nCommand2.03HuO0|2ea&O#ACaCa/AC/ /JP f&/<H".HXJk`Ҁ/a X# @Eaf:YBJgJgШ P`/HXJk"# y NAq`AR`A`A9"HpRJf// ?<@O ?<Lsł ُI܂ 풓ǂݍ߂܂ 풓̃o[WႢ܂ ̂nrł͎gpł܂ /<H0|be9dRf<La2Jk: DBR a"Jk Eahg(` "X//JPNuH$a"Jk B(بZ< LNufSNuH`/X/Hy?<KOLNuHG 0< VLNuB .CA ("Jf"g @`BC g @E af (g"./ Nu :2 z HUX .tdt `Command2.03Hu0|2eAba ?<LQ @.hanadaJ9nfJ9nfa4J9ng:J9nfJ9nfjnCeJfC[;Anaa`0CeJf`4nB9nJ9ngB9n`a gag aFgaa' `A[aLJ9nf( <|eR|eT|d|d?L <|eR|eT|d|d#dQ @.hp&a,X`0A[aJ9nf?<L#dQ @.hp"a,&B9nB9nB9nJ9ngaJ9nkfa,a&" `Ac@ap?< T< <ng"<yf#dnB9na(A[a2Nu3d3d3d3dB9nB9nnnndBdBdBdB9nB9nB9nB9nB9nB9nB9nB9nB9nB9dB9dB9nB9nB9nB9nB9n0|JentnQ @ P"<g&J9nf"J9ng*B9nTሰe"`J9ngB9nT"/a*X#d @ C[J9nfQ$@$RgX"Ja Q @ dB9nT"/a*X#d @ #d#d#dBBa)nta$Hyd?<%\Hy?<%\Nu/aJdg/9dIXBd "/HXJk @#d BHaLNu0<Jdgad/9dIXBdaNuA\aAbaa#a)0a?<L/Aa۰<b AZd pa Nu 9nk/IX#n 9nk/IX#n 9nk/IX#nNua/< a)&X#n/<a)X#n/<a)X#n0<Nua(Ng* 9 a(*E$RJg *g @ *a(`NuAC/ /JPNua(g*I 9 a'E$RJg *g"@ *a'`NuJ9nga NuB9nB9nB9nB9nB9nB9nB9eQ @ (P hRJjnahg6<cf2naare <"HAe`r`<df n`<efT :fa$g</gR< g< fJjFg|< btbjnn`X<hfL :fa:$g</gR< g< fJjFg"< bbn`<bf( :f4g</gR< g< f`ذ<pf n`9n9nNu"|$I&I(IBAnapJgAna4g\gJgB`<e<e<e<`ڰ<"g<'g<<|g(<>ff*$Hf&HS >fR`(Hf$&HS`f"Hfj&HS`b |fRagg4J9nf IaJgBdKnJ9nfKnB`0J9ngB9nAl2KnJ9nf AmJKnJgBgET3dBg/=\3dk2Bg?FXBgBgDXgBg?<DXJg`Bg/9dBgBPg >fR JaNJg$H?<ET3d?</=\3dk?<?FX?<BgDXg?<?<DXJgt`?<B?<BP$g?</gR`B _Nuang<NuA` `6A`E`.A`j`&A]7`A_`A_`A_`A` aJJ9ngB9ngB9nB9nJ9ngnJ9ngn <#d`HA[xQ"@"Qag&Jg""HLa*aLg"C[[a8`LC[Ya|aC[]aaJaLL?</ HytNO Jk C2<JAgR 9c0SQBLNuJ9ng0J9nfl 9ng.J9nghanB9nNuJ9nfJ9ngT ydJfB9nNuB9nCeAna2JNuB9nCfAnaJNuJ9ng J9nfa: yd#dBdAnCdaaHyn XJ9ngAna,J0g +g (-fpJga Jk< bd yd"ydXaf" ydaN"HAnaaJ`x K#da,"HAnaa(aa `JpJga hJk< bd ydaf`B /g (?fz$H"&yd K0<aBg&H"HAoa &a "JJf a pg` a dgg<e<e<eR`a B@Nua Ana & yd"҈$9dЂTd VJf"H ydXaS#d yd#dCna R#dBAdCna f0<0eV<9bPR<0H$HAgBa`Bgg<gRR` J`0R`BJ9ngAnaa Nu&H(IBCog><g8< g2<%g <g&R`$H=BAoQ"@"Qa 4g"L`~ K"L(`a BBAkCngR<%g<gR`BnJ9nfJJfh ydaJg`?<%/HynbNO Jk9nw<g HynbOX`nHynbOXJk9nw<g&`B9n yd0<a#dJfB9na0TCtfAgaVaDRCoaTA\a#dNuJ9tgCtfAraG[`@Q"@"QA[ja$fA[&HCtfAra`Jf J9rf`aJ9t~fBArat$HC[aArCtaJkJ9t~f(At0aCtaJjJg"L J.a0AraCAtNaaC[6aBJ@g*AoCraFJjA]a#d`e #dB@NuJ9nfA\aZ#dNuArBg2<;g.Jg<g<`B<eܰ<e<e<`S(<g<\g\Ctfa@NuaBg <.f"`Jg( A<C[0aNJg JfSgJfe(INuHy[ XNuH BBa^Jg<-g</f(gn< gܰ< gRBgX<-g</g`R<"fg<<"f`<'f g(<'fg</gR< g< g`B`vBBBB "LNuHy[ XNu?< TNuHaa:LNuHaLNuHCZB"gRdЁ</`BLNug<0f Jg| `NuHPB4<"<  c<'<0QLNuH8aLNuH8aaLNuBBB< -fR< 0f 0g <1e<9cSJg>g:<0e2<9b,<0¼Ѐe/ЀeЀeПe ЁeRS`Xx `FJgD"Nu/pRJf _NuHfLNuHJ`WBLNuHJfSfLNuHggep` p`JfBLNuH`fQB`ep`pLNu/ g g  _SNu Ae Zb< Nu ae zb< NuHBg6JgB`<e<e<e<R` Ae Zb< `LNuHBg6JgB`<e<e<e<R` ae zb< `LNu?< // NO Nu/ OXNuNVHC/BA(<:fa,<@2`R<A:$HBg.JgB`<e<e<e<`ܰ<\g` \g\/ ?G\$IJfSg\fB _CGBJgB`L<e<e<e<`4<\f. .f& )\g ).f )\f"g AT`R`/fOLN^NuH@XaJgHagLRJf`B` L I?<^TTNuH瀀a`<`<<`|a`|A`B@a`><=`< `'a`(a2` a`/BA??TAbp`BT"NuNVHHn/)PC2<< gQC  g.2<< gQBLN^NuHB<0e <9bR`LNuB9nJ9ngnJ9ngn09dkBg?FX09d?>T3d09dk?>T3d09dk?<?FX09d?>T3d09dk?>T3d 9nfHyl2AXB9n 9nfHymJAXB9nNu/?g6n Ja"JAna`Jf`A`ja. <`BN^Nu"H JaJf&<'g<"fg<"f`g <'f`$H I0<a:NuNVAoB9na"H$HAa^A&H %f@Jg:Chf Kaz(B(a@pC[a&f TVf&H Ja2$HR K<(fJfR&H Ja$H KCj )fJ(f &Ia "K`TRR`NJgRf&H J(Ja$H K ()g(&HYa*IC[ap K"MJfW$LUWB)UBCjJgV#daC[a:Jf>T JapJg0"HAkaJnfTAaja^ <`Jxf?<Hn=\JjaJk\?<Hn<\JkJxg/.x2?W\Ad?>TJk`ZA]a <`JA^a <`8Aaa <`&Aaa۾ <`A`a۬ <`BN^Nu?<HnHnNO Jk8.f4ACaBgHnC\JkHnAXJk HnOX`BNupNuNVAoaJfBn@B:=|LAqJg4aԆg<vg<bg<qf|D`|8`|>`Jyng ynbACpaz IafRAahCAg,<d <d<d<+fB(<+g`fBAJgDaRJg=|@KA"Ma MaR*HAa=|BaJfBnDBnBA (:fal<Aa~Jk"ynag|xc AbaD"ynJg)gC `?<?HnHnjNO JjpCAjaX$H I"JEJg ):g& *:f2<Aa*U$H I"Ja`aҼ<AaJk"Aa߼a^aޞ"HAaJn@fJnBgaJf=|@Jn8gT=@6?<.T ynJf0< QBAa$H yng<.g` ynAg` yn|.Bg/=\Jkh?>T/Aaݮ$I"_aD I"JEahHn XaaJf` Jg(f ( g|./AaX$I"_a I"JEaHCAaa*CAjaa?< CN/ /O gJk@?< A\/HnO gJkHffLHn Xa`LJnDfHn Xa` Hn X/Acaa _aJAg jaJfA `JfB`Ba`< <Aa0`* <A_Q`A]`A^`A^ <ax/Jn@g0.Lk R:?>T .:gAap/ XHyc X` Hyc XJn8g?.6.T N^NuHx=|JJn@f=|L/9nIXJkB/<HX"/HX#nJk-AF?<Hn=\Jk=@JJnLjDJn@f?fH?</TJkHnAXJk=|L <`a@/ 9nk/IX/<avX#n0.Jk?>TJn@f0.Lk?R:>T=|L LNuNVJyng -|Bn yng=|CpJgAaxAp0<at"HApaHA (:fa<AaJka"ynaۂg|xc AbaJnfAaTA[a` `JgB`BN^NuA^ <`6A^ <`(A] <` <Aa0` A_ <a`aڂa,`NV ynftCpAa(aC[QaRJg0C[UaDJfXBg?</?<?</?<?</O `BgBg/?<?</?<?</O BN^NuA^ah <`A]aV <`JyngV ynfApa8C[R2<aɪJg"C[MBAaɚJgC[H2<aɈJfP?3TJkF`@Hy\ X?<3TA[MJgA[RgA[H/ XHy\ XBNuA^a̢ <NuNVAC[paCoaQ"@"Qa\JfA]af <`BN^NuNVBBaB/<HXd&/HXJk҃d$/`B g/IXJjv`JfB AaHP XHybT Xg AaHP XHybq XapBN^NuHy\ X`NVv(*CpAg"f ),gJg ,g|,`S`BAJg ,g0SaaⲼfb&J(gn (,fJg` ,g0SaaҨf|br(J(g4 (,f`Jg&aƜavfJb@*J(f62 ynfdApazC[R2<aJgC[MaJf:BA?.T`,Hy\ XTA[MJgA[R/ XHy\ XBNuA^a <NuNVBnAqJgag<bf:|`6 ł ͂Ă: ̎w肪Ⴂ܂ 폜܂ łǂꂩL[ĂR}h܂̓t@CႢ܂ EAP[Vُł sł ob`̂߂̃܂ ‹̂߂̃܂ ܂ t@C܂ pX܂ hCu : ̃{[xt@Cł hCuł foCXł {[xł t@C͎sł܂ Rs[ƃRs[悪ł Vt@CƋt@C̃hCuApXႢ܂ t@C‚ȂAt@CdĂ܂ t@Cłɑ݂Ă܂ p[^ł fBXNςł fBXNǂݍ߂܂ ݋֎~ł fBXNɏ߂܂ fBXN̏oĂ܂ Rs[t@C‚܂ t@CI[vł܂ fBNgςł t@C܂ ͂dĂ܂ o͂dĂ܂ ͂‚܂ o͂܂ foCX͂ƂĎgpł܂ foCXo͂ƂĎgpł܂ @Ⴂ܂ ZN^‚܂ {[x‚܂ pX‚܂ e|pX͒`Ă܂ fBNgłȂA‚ȂAJgpXł fBNg‚܂ fBNg܂ {[x܂ foCXANZXł܂ {[xł܂ VXeŃG[܂ 풓Ă̂ŐevZXɋA܂ fBNgő吔𒴂܂BȌ𖳎܂ oCg: őgp”\ oCg: S̎gp”\ {[܂ t@CK Byte gp”\ t@CgpُI܂ ̂nrł͎gpł܂ I܂ 낵ł ob`𒆎~܂ Rs[܂ f[g܂ l[܂ Rs[͂܂ł ‚̃t@CRs[܂ vZXԒʐMG[ł vZXhcsł vZX𐶐ł܂ t@CbNł܂ t@C̃ANZXۂ܂ I[ṽt@C܂ Modified 1993/02/03 by Yuuji TanakaFishcommand.xgăl"   $ T  &    "    $   RR@  46f2,"   ,6    B  :0 fP \2(.0.$   "   $ 4   N ( LX 6             T*$4L     `r  :,   `&   0D 2(j^,"DP"  ,PP F"  2 " pP$B   N 0 &TnVD&6B N N J2ljr  < B  < 0>  $<<< 4( &B:.$`( r""T    ~    (\ CMD X fCOMMANDOx :YO  a~@a``FTH`@:f - AgR- < kk@a.g[a&ak@ag]aaRH` <k>Sk8 c<H\gagAagaʹgaͦga͘tH@a|atalanpaNRHgaR`$VH`:ƮgTH``:ƘgTH`5`:ƀgTH`5`kS@J-gak۾S@J-g۰a`ۨ:8f۠pCJf`ې| :P`tCJ)ftH"Qp) f @@ `Z fR@ `JCƼJ)f<$zHH"QJ) k&#R2B) `CJ)k-fHH02NuHaL#2`S@- gbJB- Bg J-+ga`ڲ"z67a`ڠJ-+ga`ڒ"z7a`ڀJ-+gx<aʾaʂ`hrt- a*Pa$PaP`H@a"z7a-aV@- r -a`rH@a"zŐ7an-a@- r -aʪ`H@aj"zT7a"-a@- r ) an<) )a\r)aRr)JaF)a:)8  C1 S CU T CA U S1 V SU WVOID ENWL JINS PN&CU FEOF ZDIR A:*.* DIR B:*.* COPY DEL REN DIR A:*.*/W DIR B:*.*/W TYPE DATE TIME E+ E- PVJSUCLS HIS EU . {DS.. {DSFLOAT2 X `XVhiocs x ,IЉZMUSIC X ` ZMSC X ` <ČHUQtJ"FLOAT*/-#NuHD*zJ-a@H@L"NufH"mJfg*</g<-f< <qf3Nq<hfaa6ga+|RpNu0611/4<4V  F16h dZ|NNONO6OTOOOOP :P,PNPpPP @N NJNpNP/fNn//Lax@ "`/fNn/ a@ `/fNn//La@h@, "`j/fNn//La?h@, "`H/fNnHLa?HLNu/fNnHLaAHLNu/fNnHLa@XHLNu/fNnHLa@HLNu/fNnHLaLNu/fNnHLaLNuH@NV"Ort0dRQN^Hg`LNuR< g< gJNu nJ@g kBA|g@g|dRA`0`BNuJ@k|dAN2d"HRGNuNuJk"Jkef efDNuDNuD NuJjefefDNuJg]Q~0-Б]QNup3a0:AkH|6fapR@3Qt@KQ05L NuHKQ~6= R@::Q36Qva a aL pNuKQ~ -|Q~ -QNuHa0"a,><`ҁрQGgGH@GH@L Nupoa|0:@dk|6fapR@3Qv@@KQ 5NuRJfNuJjfJg <rNuBNufJg .gNv0SGfNuJk nApNv.NuJGf4 . g.Ud .ff fJf nNv0RGNu.g nApWcNv,RG`Nu n .ff f(Jg p-NvRGNuJfp+`N:Jfp+`N:Jfp `p-BNu.g nNv\RGNuHǞd nDp .gp*NvSfNuN<&f2RNf<Bg<Og<HgD NuNn`N`Ne N<`||f.μg`JFf`H@HBGGf(.μ,̼gt.μf`X.μfʼ rD``T`H@HBʼ rD`H@HB.μg& "`H=H@HB:E|HE:<><GgGgGgGg~GG|H@HBf Jf|?`z(8HC|HBHD4(80Jf(JBf$HB>HA&H@6062HABC2`//Q//~//&HBL>HGBEHE܇مdL0SC҅фd?C&6HChvLp~<HFBDHD܅هdL0SC҅фd?C&hvL0BEHE؅dL0SC҅фd?C&HCBChv8/ÒdSC?COLce"8.22||AeRgF|?` 8.22|?|!eRg8|?FcR|d`H@|EHEEH@DLNuR e|`R e|` <rD`prD`prD`ʼ rD`H0aL Nu$HBJ||e*|4d(|dr&<Nu|&<ƒNuprNuJjHN"~L f fL Nu$.μfV` .μf$JFf <rD`ʼ rD```H@HB`H@HB.μg "`H=H@HB:E|HE:<><GgGgGgGg~GG~GGH@HBJf H6$p`BHJfpr`4"HAB@H@Ҁp@LpHC<BDHDHF܅zم҆фTхJf*L0.HGBGBEHE؅҇фL0HBHDڄЅ`:L>BEHEHG܇م҆фLHBHDHF8BFކۄ҇хP*,g&|>$2dH2|f(g$2d&2|fgRdR e |`2E|?c|d*H@|FHEEH@DLNuprD`prD` <HEEH@rD`H2$. &֕>Ey0:>z򚼯H>>h?6C-?PbM?zG{??@  JgrGd,8ch/@D20" gbDNuJjH g2dfc(/@D20" gPDNupDNugd <DNuDNuDNugd <DNuHx$H@(L||gd|eD||H@|d8|drDJjD<DLNug|&60`p`ffJf <`Jgt <JjRLDNuf*Jf&prL`DNufJf <rL`DNuL`DNuH?(k0?.BdaalH@|?H@L`Nu@edd$O||H@|d$DG|eB| e0|0e|0"p2HAiNu,<0Nu| "pNu|2B@H@HA,22Nu$<vK;F,A(*.k ,E(*օՄ(*.k ,E(*օՄ|r (*.k ,E(*.::օՄRFQ(*.k ,E(*:BDHDHEօՄ|r (*.k ,E(*::BDHEHDօՄRFQ",C/,<0,<4JfR(&*|HBHABCHCBEHEڃ҅ц$Ҏт.|,22| eRdR eSSNua 20H@HA`H"HA*p:HE҅рLpHC~<8HDHF܅ه҆фvL>:<HEHG܇م׃x҆фׄLHBHDHF8<<tކۄׂ҇хׂ(PL Nu(*$HBJ||e|d,̼vBJj,&<r$& "NTFF$Nu DL>Nu g`$&H@HA46|FFRFFFH@HAJK||BgeAC:C|d\UBЀҁЀҁꩲgPeACd.dЀSBg2`JH@|BHB|BH@DL>NuRBd`r`pDL>Nu DL>Nu(f (ef޲g <DL>NuDL>NuHB".μf D` <D`.μf pD` `H}*,(ȼ.<ʇg\gṫggቂ/$HA6(HA.BGHG؇d .BGHGSCЇdHCBCH@B@HAhp@ (e ڼ`^ڼ?cdDLNupD`pD` <D` <D`/N6N+N LNu/N6N"rN LNu/N6N"N "Nu/N6N8N LNu/N6N:N LNu/N6N;"N LNuHx( N6$& N6N#XN LNu/alL@Nu̇f.μg"`Ṅf .μf(`<.μfJf D`ˆ D``.μg `H}*,(ȼ.<ʇg~ġgȼgH@HA><GGRGGG$&H@HA/x>ЁلHDB@H@ЇЄ(~e.<Rڇچ?cdDLNupD`pD` <D`HB"<@IN5 LBNu <@INuHz( N6$& N6N=N L`^Nu/N6N?N LNu/N6NBN LNuHBN6NDN L`BNuHB">,.$ & "jR@ @g>(B*C$&"66օՄ"::(*$ & "֞Ձj`p`p`NR@ @g(B*C$&66HCHBHևՆ>>HGHFHƚ,.$ & "jR@ @g@(B*C$&66HCHBHօՄ::HEHDHĞ(*$ & "֞Ձjv`NC$&HQxNuf*NuH2G` H2GN+e"$& k4||H@OG|k(80NuDG(22Nu||H@aD@Nu(g>,.$ & `p` ֌ՁR@ @g@"(^k(B*C$&66HCHBHևՆ>>HGHFHƚ,.$ & `NCJjD@ "NCT// "NCT$&NDLxNuJfXLxNu &(*N$,.$<@.vNTFG$<@vN$$&NJFG$&N$$&NDXLxNu & ?!"   @n*$^   H    2R B&*  8(\h`:b &8F <Th( "  & B&*&"""" HU|ph y6y>@IOCS HIOCS bug patch for ROM IOCSA 08 dg$R@g$p0x db@g0pNu0NupNup/v@㘴g`0[0H@Zg`0[Z &Nue4/$<a*gggg $fNuJ8 4f 4<<@#@<@#@P@3@@Nu/ H:| zHjPd2-l AbJ-(g N2-lNN@| 8 ְFe "A80  A 8 ֐@@ ;r28 ̐2:FNuHV: C?bDpBe<:@e8HHCEָ D&CE*IAA< 4Xfrg f`Sr I t4org eg\ ge| ge beL I`$:Y\gp B@eh ?eg`S bXAHU ^e^RtN @JAgV`b eNH@@AY4 pA@`: ef d(` e ` z]`& e0|@ ` enM8A26kSDk&0 MHdM4N`4TETQ4L\jNuxgg dMA26k` dd e b  a^M FIeLBBI,,A FIp`d e b  aI:\fF Ae@g Ag& Af29Yg(A `9YgA`9YgAWM 4N`4RERQ4L\jNurg f`Sr Jj e e2gt xXN @JAg.SDk&0 MHdM4N`4TETQ4L\jNuxgM ~4N`4RERQ4L\jNuJ8 f1 Q J8 ga/Q Hp0rg arfL J8 f 1 P 8 tNu$zW 8 f* 4XfR Ad@4JGA 4J(nNN jB8 02N 4Xg `N`%N` *N` A e Ad0HG3o NuJ8 f1 Q J8 ga.Q Hp0Hz<8 f 4XfF Ad 0HAT0NNj$B8 4Xg .02t xXN @JAgr` A e Ad0H;o Nu 0@P`p  0@P`p  NNN N0N@NPN`NpNNNNNNNNNNN N0N@NPN`NpNNNNNNNNNNN N0N@NPN`NpNNNNNNNNNNN N0N@NPN`NpNNNNNNNNNN N0N@NPN`NpNNNNNNNNNNN N0N@NPN`NpNNNNN4N \ \ \ \/ \F \ \@ \  \R@ \i \@ \ \@ \ \@ \ \@ \% \=@ \T \l@ \ \@ \ \@ \ \@ \ \(@ \? \W@ \nNNN N0N@NPN`NpNNNNNNNNNNN N0N@NPN`NpNNNNNNNNNNN N0N@NPN`NpNNNNNNNNNNN N0N@NPN`NpNNNNNNNN \@ \ \@ \ \@ \ \@ \* \B@ \Y \q@ \ \ \#@ \: \R@ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ \ 9YgD:RFf> zMA`69Yg*:R,f$ zMA `9Yg:Rf zMA` P48 tx pb2v68 vHCBָ Hָ D&CE*p8 4@Nx4Rx tNuHztBx t08 vR@x rb1 vNu4a4"`4a4"`43`x4a4"`4a4"`43``@`D`N`X`8````0````(` `43`4a4"`p4aj4"`43`\4a4"`P4aJ4"`43XXXXXXXXXXXXXXXNup@@@@@@@@@@@@@@@Nu F@H@@H@@ F@H@@@H@@ F@H@@@H@@ F@H@@@H@@Nu <"&€AHAAHAA"&€AHAAAHAA"&€AHAAAHAA"&€AHAAAHAANu <"&€FAHAAHAA"&€FAHAAAHAA"&€FAHAAAHAA"&€FAHAAAHAANu EJ$4Nu4BAJA0  p gj~ Be* !e ~bBJd^ eR e<@J`:Nf \eg ~g |g Nu9Yg<Nu9YgVNu9Yg\Nu$:Ig> B@e4 ?eg*S b AHU ^e^RtN @JAg`(g dGA23k` dd e b  a:G FEeJBBI&&A F` zI` e b  aI`z eH@@AI pA@`|A zHl0:Hlkn ehg gXe gJe> bVe I`" ef d,` e"` zM0`& e0|@ ` eG A23k48 tx pd8v68 vHCBָ Hָ D&CE*p8 4@Ke(Nr4Tx tNub / z/aA?` AB1|!|@1| !| 1|1|Ҽ^aA?& ҼxaA? A0A1| "< v 1| PҼQ"`Hz/Av:C;gv 1|PҼQ:Ck@fLAB1|!|@1| !| 1|":> !A1|`A01|A0 "NuHz"/ Av ( g PҼQ1| "NuHz/Ҽ A1| v PҼQAv 1|PҼQ:BNf&AT1| "< v 1| PҼQ"NuH`@$HB xXN @HA2RB2HARAJSB"QLNu  g A eH4BAJA0  p kBgl eg gne2 g\eN be I `" !e& ~bBJd^ eR e<@J`z$:L?LNuHp08 r(LSDXH@$@E H DCa rpa`68 pRC4<CDB` 68 ptCRC&I(JpH@ HUdSCrCKDADCCKfAAJgNKLQNu$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$N@HCp x D Hp08 rR@鈐QS@6) 8 H"i208 rR@Hi4<9fHaHzH80"`LQLLNuHL"x A g! 8 [g =g *g Dg Eg Mg:5`$z1N0Sbg/r`/r$z1>p$N"`bUg b\ RHg4Ha*a4Nua"$z1`>$z1 a`2/<#XNu 8 c /rpNO"Nup ` baB8 L2Nua6`aZ`aL`aB t`A fprt8 8 @@a`H@r @5lgr @5hf NuH@r @4lgr @4hf1 Nu"8 ~g"AA HNa4L@Nu 8 g/NuA H@ @[?g @[>gRa Ag Bg Cg Dg$ sg ug ng Jg0 Kgr Mg Lg PgB @gv Xg mgB ;fF4a Hg fg mg ;f"6ah mf0aC0a0Jg8 g: g< e$ &d  Nu (e 0d  Nu Nu 8 Nu 8 Nu2<p g 0e :d 0 @`NuJAj ! t  NuJAj ! t NuJAnrJBntSASBx pbx rb 1 t1 vpNupNuaHzhRx v08 rx vdSx vapNua`HzFJx vgSx vpNuapNu"`*/a:HzAfr08 vAk1 vpNupNu/aHzA vAfrP08 rPd0pNu/aHzA tAfrP08 pPd`/aHzAfrx tjBx tpNuL`HpHaHzJgUe(b aB tpNupNu08 r28 vAg@eRAa`6r08 vg`Hx|aHzAfrtv68 r48 v0R@B@dHH`Jx fL8 8 HH@2RAAASAA"DDDD20R@BDH4 8 H g$¼ B@H@H¼Ҁ 8 H! HB t"AHH@ 8 p gļ?! pB t$p`a AkIA"Nup0:*""Nup0H !e> d8 !e2 d,<Rd<^ eR<p e<@@"Nup0:)"Nu z*NJj0:)Nu z$ fH08z$f8r. faaΚJ8 f 1 P pNu xNpNuI$T8 z+XNI$H8HDBM z+BNLB"8:$.Nu .d z$t fapNu z+"N z$^ fT8:$"V f4ah` xfarf`da8aaH`xf xNrfpNuah` z*N0.S@f z# f apNuS@f z# (fapNu z*N0.S@f z# fZaZS NuS@fJ z# (f>z8:#>"V f"a`RaHrf `|R xNrf Nu z*,N0 @b@2AA pNpNuU z* N`$`D`J`P`H`F`B`@`>`<`:`8`6`4````>`Fr2faaapNuNpNu"VNpNu2NpNu24NpNu xNpNu xNpNu0S@fr z" f8:"L"n*. f@a`rxfaHSj .`|axaa`rxf xNSj .Nua`S@fn z"6 (fb8:!"n*. f>a8`rxfaSj .`aa,a`rxf xNSj .Nua` z(NI!n8HDBHxHo?<M z(NO LB"8:!FNuS8 3eExUCAn gRCf,z`Pv@UF2HA2<0HA2<0HA2Q<=_FNu:9*B9* x ~"x zE G 0t4"8 ֔Ajtv Bc 6<BkB$HBHAAjtJB8< B~e46Q` $&Q48 A BB$p x ~"x zt4HAAjBk6BE`v Bc 6<BkG 8<H@HAAjD@4`f2IA@gzt@ A~d$pr20FQ3*Nupr20H@HAQQF@PQ3*Nupr20QQF@PQ3*Nu20QQF@PQ3*Nu89*B9*A C 0$x ~&x zt4"8 ֔Ajtv Bc6<BkBH@HAAjpH@2< @~d$&Q3*Nu46Q3*Nu zNA! 8p1 1 NuJg! 81 1 NuHpE*Gp0264g2jRB`SBA<CJ@k"f(|@H@0<>4a(4LNu|H|`0|`ANu0|`L0 TDmElHDHEAlBDl2Em4SB<0HF<08 @vxRB68||CD6;0z8;@vIeHCBCJeHDBDFHCHD:AgezSEAABBx @fYBx0fZ/ @|63 HD63 HD62HC62HCBSF0ga"_ANu/ @|6Fq HD6Fq HD6FYHC6FYHCBSF0ga"_ANuAA0f @|63HC63HCBSFANu@|6FqHC6FqHCBSFANuA@@ nD@ _N""""""""""""""""NA@@ nD@ _NFFFFFFFFFFFFFFFFNHpE*Gp0246g2jRC`SCB<CJ@k"f(|@H@0<>4a4LNu|H|`0|`޲x Tmx XlL0 TBlCDl4Em6SCBeRC88 @0H@|0<x@|6pgJftpL2IAF`D3@3@3@3@3@3@3@3@3@3@3@3@3@3@3@2NqNQ|CCDCAN0d2`BQQBSFNuHxE*Gx8024g@jRB`SB@6g2jRC`SCA<CJDk"f(|DHD8<>4a4LNu|L|`8|`޴@lBAlC(IHCAaZ"LLAaN"LLABa"LLB`xHzE*Gx8024gRjRB`SB@6gDjRC`SCA<CJDk4f:|DHD8<?4?:8HE:,EAa4L^Nu|L|`8|`̴@lBAlCL0 TDmԲElвDl2Em6SC>AAC8x @N͎QNuHzE*Gx8024g@jRB`SB@6g2jRC`SCACf"|DHD8<?4Aaj4L^Nu8|`H`?9*0||3*0<JCj04a*4LNu|L|`8|`D`BE`6a |eDECgBgnDE28 @00H@BCdDEDA0A0||D@rA6IDeI<a LpNu08 dgLieJHx0246><a LpNu08 dg$ie"H|8:2>46<a`L>pNupNupNu08 dgieHx0246>a LpNu08 dg̰ieH|8:> "a0L>pNuJx dgH~/ 8:ae0"_3@L~pNuB@`08 dgLieJH~8:>ae0L~pNu08 dg&i e$H|8: Y>aL>pNu`.`.Jx dgHxa LpNuJx dgHx0246$Y&QaLNuJx dgHx0246$Y&QaLNux hm2x ln,x jm&x nn p0H@8 bfЀ x \J@Nu<Nu NV-x h-x lB<er|;=AIK8:|ft|fv02S@SAa=B=C=@=AC2.HABAgj<e<e 2gRH*n xdNL!<SFNRF9T8;U:)EG`/ #fj$0.2.46lmH*na L#p0.m$_SEf0.lSDf0.T`RN^NuSe g SgMDADCNuMD@DBNuD@DBDADCNupNupNupNu~`~Jx dg@lBAlCx hmڴx lnԲx jmζx nnȔ@A8:a20R@2RANSЊbp0H@8 bfЀ x \Nr08 dkrJkrCJGf\AI NupRNuNug"J"H2 (HD Q `QpNu"H20SAeYQ `QpNu `"H2QpNu"H20Q `QpNu"H24Q `QpNug J"H222Q `QpNu"H22SAe2Q `QpNu `"H2QpNu"H22Q `QpNu"H22Q `QpNuN^NuNV-x h-x l-x `Ȳe-@Ԓ-A-@-@28Ea~e¾Pg0HG><8.:.aR-n-n-na"nгgC c"n-I4Y8Y-Y-Y-Y-Y-Y-Ya^`0/?DSAd02`0`VgTRAD=A-H2_SAe _T` _02`0ǼPVgURAEDA=A-HNugKpa gKp6@2 AgH2.DgSA62. na>2.Eg n6.TRA`8gKpa gKp6@6. n2.0.4 fD@`RACbRXfUaTRA`a "nC c"nԳg(-I22""""""2. nNuNV-x h-x lB=D=E=FBnBnBnpJBjDB=@JCjDC=@Bd=@JAj2<=A=ABnaaN^NuAr<BXd|Q0a4=A 0a(=AgJngRF|aDf`<<-r @hc0<hFcRA`F?IdFD@rFg r;<p;`6ANu $(,15:>BGKOSX\`dhlptx|  aLRn0.@2.@RAjSn0.@@RA=A0.ngS@f0.nd=@nd=@aI|H, gkL2. d.0.Ag,!fe`d JjdJng^` JjJnf0.Ag\,!ge`>e<8:,nm0nn*nm$nnp0H@8 bfЀ x \0L@TQbNuJn`Jng02,4.6.|/ *n?8 Bx a1 *_`IK0.a0.a40.E9@ 9@0.E9@9@Y0.Da0.D;@:Nu8:0.|g*dNur2p0tvЀ㒴eQ:NuNV-x T-x X`NV-x h-x lH|BCaBC:a>EfJFgBCLN^Nu>EfJDfBCEFFa`<`Dei g>.`>.0A2@4C6BaANu>.`>.0@2A4B6C|dJKHg&Jg2 KQ0JPGge4@6A`0@2A`JK02 ||NuBDnlRDnoTDnlXDnoPDNuAg>@gDH8:/2/a8/:/2/a8/:/2a82*`8:2`8:2`aeAg@g(*rpDdPDBp"@08 bEdDCD@4@CdHACJ02IeJgSAp0H@8 bfЀ x \Jx f0^d0S@ktCBeB`0^dFPS@kZCBeB`DdRA`SAape<|gp0H@8 bfЀ x \ĒDd6Jx fTDA^d1QNuUQNuTDA^dF`QNuUQNuJx f^d0QNuTQNu^dFXQNuTQNuDdDDp0H@8 bfЀ"x \RAHABAHA0HG>Jx g` EdRA`SAaeB|gLp0H@8 bfЀ x \p08 bEdD@DAJx f^d0QNu^dFPQNuEdEEp0H@8 bfЀ"x \RAHABAHA8 bVJx g`$8 h&8 lBm,Cn(HBHCDlAaANuBmCnBl8Co2J@Nu<Nux hmx ln48 j68 nElAaANuBmֺCnҺBl:Co2J@Nu@lBAlC(8 h*8 lDmEnHDHEDmڰEnְDl0Eo4HDHEDl2Eo6<HG>Jx gG`L h26H@HB~G@@RBA8p0H@8 bfЀ$x \x88 bHBBBHB"J"NQNuAQBAj2ADA _NB""""""""""""""""""""""""""""""""NAQBAjFYADA _NBFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFNG@EJgE`G@E.JgEfSAk ANQBAAADA _N@3G<3G83G43G03G,3G(3G$3G 3G3G3G3G3G 3G3G2NN3Gx3Gp3Gh3G`3GX3GP3GH3G@3G83G03G(3G 3G3G3G2NNFi<Fi8Fi4Fi0Fi,Fi(Fi$Fi FiFiFiFiFi FiFiFQNNFixFipFihFi`FiXFiPFiHFi@Fi8Fi0Fi(Fi FiFiFiFQNNUUUUUUUUUUUUUUUU^HIOCS PLUS 16.14IOCS/@H1  @ hN1  _NsJf JgEN&x$e E!PJ)fhgpNOE pRf R@e$G.aE$ Eע! pNOEB&xe $E !af,G,&Hj&&EG$&`R\+%PaJ)fhgGaJ)fhga :g EGPaJ)ffhg^GajEZB&x e@&xPe4@|E6$ E! B8 3E&$P$TEݔ!P!TFrp6NOpNu$x hmk*NuE" 0k@@(A&%`HB,O xNX VA LNuJgJf E&fJ)g>J(f8GafjE( f^ :xg EנfL:Rgadf>J)gJ(f GNaFf&J)gJ(fEGa.f J)gBJ(fhf6pNOGa! pNO :g!:gEG&QaJ)ghfG~a^J)ghf EGBaXJ)g8hf0Ga2 :Ng@|!B B8 3!<P!:TFrp6NOpNupNuE` @@T%B0jNuE" 0k@@(AXgpNupNu":. dt p8NO":$ dtp8NOAzg1|1|"(.Cn!I0NuAb02:ZpNOJk A)e A0eAj0tpNO AfAZ NuHIOCS PLUS 16.14UUUUUUUUUUUUUUUU"( 0 !"Ѥ#$̬%&'(>)`*͈+,>-./ Z8NxTղNV,^|dT6hpNqbrنs٪tٴuvX RՊ#@֚#ydNuH*z p-@0;NV?LNu$ @@D0Bg/ 1/A*r g egR`r _NuHBB$; Nu@8@`Hz f XA_PAJ0ApPQ"maZkX:8fRaaa2ABBBBaTACppQQa8AC\aFaHA\/a"|` Hz i`Hz X0

Hz  \dLPxNuHz ` ?>THz 1 O ar$:>xNu`#HUPAIR.hB XHz XKA0Hz ?<\JoHz `BgHzj=\.k(?BgDX2?>T~A? A f ?<Hz:=\.kHxLArBHP??<DO A^C(pVfZ:bf AZpPQaf^: f: fan: g0:(f$Hz S Xana4k:"b/Hz ?@O 0:f`2aFC&C> a"AfC0<"QaÐA CNHxLHz??<DO NuA gB./I.kaHxHz ?@O NuHIOCS external font buffer/C / "Yf?@>O A~Bg/ 1ABpQQ :2gF @CxJg E&Pf&Jg E(fJg E*fJg Edfa"0:fa, :g @Cx"g!P"g!("g!"g!"hx"/I.k`ApPQaa a6f: fx: faJa~An/CV"aEA|$"aA CTNuCh YNUf L f i fC"QJjNuarJfHz  XBgHxJ1Hz`J8 f0JWg`(a0Jg Jg ?gP AT2gfNpNucld4e fgh jlm$rs u*v pNuAF`a sg Sg hgJ HgDAP`rAra 0eg& 4br5@a~PA`0`HrJfP`5lłɃxN^Ă܂. IOCS ROMɃpb`ĂsȂ܂. ~:n(1(jvx'HUw \ 4OPM wPH *zp-@0;N@H@L0Nu PCM H *zp-@0;N@H@L0Nu$MIDI `ZZZ````ZH *zp-@0;N@H@L0Nu#Nu#rNu#Nu0@0;N8JZjjzjjjj  2ljxj @g`4pOLNuR`SkRL`Sk  f`p\aO`pT`atha`Hzp@-@@Nup:y:yzNua8Jg )fSkRL`ak0a.$k"Jga"JkJgHB4raJg`VpU`~aSkrt Fg< Ag Pf(a^k aJgSg b<`&2<` r` Mft a.ka m҂SACw,tvg RCQ`~`RSk6 g, )g& ,g $g %g 0e 9bSLRpNuSLRpNuSk  g , gSLRNuSk +gSLRNu?Sk" g g ,g :g =gSLR0NuSk  gSLRNuta:k aJgH$ra4`laEr a$E`aFrDa`ajt` aJg$ra`*ra` ajF.`a\JgJV`aHJg($k$aBhgvJgrravaFak`aP&kXJgL 7dCz a" )fSk8RL`ak&aJg&R 7eatjCyrav`C`PpX`jPaNka$BgJgvCyA.0 0a:tfSkRL`akaJgR 7eajCyXra`"zu`CyDa^:tf SkRL`0akPaVJg b` fAzed`$ Cxgra`$ Cx┉ra`-I`^aJgdH0 -WfSRLaa $gH %grpSk& _g<0k< bҁ&҃ҀJg`SLRJgDaL NuprSkRLaJSk _ga<0kȰ< c e b_鉂Jg`prSkRLaSk _g 0g 1f<0ҁJgx`RSLGs4pJgt&."Lg -Cral`H" k6Jg>`dtvzaJg4 )fSRL`(a(k$aS Ob c ?b```Nu/aXJg* %g $g -g +g 0e 9bp`pLNuaZJg$a8k` aDJg$sTdaJgak a"-A`" .g #g cAx2aP-|p-@-@-@-@@Jg&a /gSk e a\ Cg, Fgd Rg Dg~ Mg VgD PfJakBavҼ k4 b*-AJf~-|d`raka:-AgkJfR-| `Fa~ka b=A`(a`j2Sk@ OfaFka $ak"$`aJkqdz=Aaaka b\=A`P`akDax b6=Araka^ b=AJg`praka8|JjDD. b=Aaazk:a bA`$SkRLSk@ Ofa@kaJg $ak-B$`R/&:pHC :p6(:p*:o:n.:oCurNC(` zo<@0aF aL aH aD a>CuJf `f(B.$-Hڱobp@`pY`XXNuNuH R tSk(AEZ2 azphpLNupLNuraJg #g +g -g NuRSRL`SSRL`H砀rtSk0 .f  cP ,g cJgJ(kaP`SLR (.fSHBLNu ae zb@NuafaaJgak  ga`a6|}B4; N x H L BL$tv4z  : l   > j &pZ`,p]`&tv*CpAJgaSkv {fn"zha:hIf SkXRL`>Hz "g 'gXOaVk@aJg.vc4Jhfd.`B.6:i $ "zh\gra &`-I|`p@`"zh`Sk {f"zh ah:gf SkRL`:Hz "gX 'gRXOakKc |"~`|Kcv|"~`Kb|#`6:e2"zeKb|$~;|2J`Kbv|$~;|2J`6:e"zdKb|%~`Kbv|%~`6:d"zdKb|&~`Kbv|&~`v6:d"zdKbo|'~`Kbcv|'~`T6:d"zd~KbM|(~`KbAv|(~`6:d|"zd\`Ja^k>aAJg0aHkaAJgaSk {f alkJgva:bf SkRL`ak2aJg`B.:bHC:a$ "zcgr)a`-I|=C`"zbSk>  fR` "g 'fSk  d`g bb `BpNuSLRpNu6:c|"zc\Ka+|*~`Kav9|*~`86:cZ"zc:Ka |+~ `K`v|+~ `K`|,`6:c."zcK`|-~!`K`v|-~!`6:c "zbK`|.~"`K`v|.~"`6:b"zbK`|/~#`K`v|/~#`~6:b"zbK`x|0~$`a`6:`"z`K`|I~)Hz ;|:(;|2l;|6NuK`BUv|I~)a`aka0S`Ddv=A`xva~ka&rQa~``vafka&rRaf`HH`@pa` H`@rpgNOp`$-"m2:.NOL`pfNO(m`(mH3``JgHM]$(m(- z^$ftra^gSf-HLQ``JgHȊM\(m(-Sk^kr /gl *gf cV .cJa<0k6  c_ b(J.k:]f A`B.a~`LQ` B.`B.B.`PB.`|ZmuSiC H~M\@0/4@ =@pHA2;:N6L~Ns Xb$@H~M\=|'pHA2;NL~FNupNu0[< p |H<n<2~ *~t.h h!!!","#$ $%j&'d'(4(D(T()))))***T*\+:+|,, ,,,,-x-. .V.^.n.v...//V/p/@|a$-|-|-|1-R-z]-z]$-z]  Py=|Nq a1a1Za0a1a16a0a.aFa1Na:taTa-`24=|p@@ @adadNuHȘI G|adgadrxA$ack acadD`NqNqRQLNuy|zed@&ed@ H@S@ @Ob1Br2vdb"RA z\F@@C"a/jB`1a0 a0"a0@ H@S@a/`1P H@HS@ @b0aUr2SA AOb0@aUjaUP4 ctB RbaQJ- f b- f - fJ-Jf` - f-Jg<`Q JjJ.gr HCNuJ.g"HB B@Nu DgPrz g.AUk&faP- f | a` f| R cz$&R Pf`,za)a*xAU0k"aP- g f| `a2| `I ||a_|a_  a_`,HXI G|a^- < kJ-ga]a^Va^--+-P+B-B-al__+_LNuB Dgf|B. rz g8ATZk0faO- fB- B--a` f| R cz$&R Pfa'`+Fa'B. ASprOk*aOp- fB- B--aD` f| Q|a'\a2I |a]|a];a]`* - eNu-a'_NuSB Ob*^ zUlBB 0 NuH zURCV@pr TI UI 0QLNuH :U(g @ :US@r XHQLNu@|HApa] Ba]IKMGa]a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\a\za\ra\ja\ba\Za\Ra\Ja\Ba\:a\2a\*a\"a\Pa\a\  a\ a[a[a[a[a[a[LFNual9`(Lr`a.JgJCg( C,b(HC Cb(HCJDkzSd(JgJgJk(tJg(XB.%B.z-D-EF-GƴSd((-BjJg| Ig( .fg Pfg 1fg 6fP%$Ia@Jk'B.*Dak'Dagj'k'@|/HQ??O FJk'a'Pz`0 zRp ((g'a@gj'k'$I"Pr$aL"JJnj :P݀RRgJf&< d"J.%fHC C dҁRb'N I"zR r2HC|<J.%gab`a^( AQJg2$zQp0到d'Crt4f$` Ђb&aL((J.g2$zQAHQd&HR"zQ 4Sf"_$zQr$aKAQ:Jgl"zQvp0到d&zJj"~` "<~ <&a4 H@B@"aJgR@"JjDv<2@dSf zQ "Dp0:Pk&zQJg&,":P$ P䒉b&$+p0:P-@Ԁ労b%$I :PgЀBYSf S +H0aL  zP +кPZb؄$I0ZSf(+غPB I`$H"+ҺP4ҁ0ZSfa0gj%k%H@H aFL zPV$:PA( ! `%JgT :P&"@Є-@P caJh :O"@ЄOb4-@":P~S$zP gOdЪcBBPJQpNupNupNuHVKPMQ0v~xЀGO6DJj RHFa2Sf,_NuHVENBGOBSIMB/ dA g&eKP7u` KP7uPBkBkKPPMPv~xЀ„Jj RHFaBg(Jg$k 2+kd`2+gkd 2kA227BSf,_Nu65ptg4KgCKgCKCgDBS6vk G0c~0Nu~NuEMBGNBSILB/ dA g&eKO7u` KP7uPBkBk4g(Jg$k 2+kd`2+gkd 2kA227BSf“NuHVKOMOl|~xЀGN66ad `Sf,_NuSkr`DCr45pClBJClBJClvk G0c~0`~ FaG Nu:*b"H @ada-|-|1-R-zM-zMV-zM< Py=|Nq -|aL-Bg Mb"0"zLraGEM|p$$$$IJjTJ`a R$@2SAk"F zM*zLv-C$I(4 e g> b,NqNqB a+L B- paRCKQ`N<Bt`JBjB.zK~JR.`B-J``!EJ"JI G|aTk0H*zLRJ- fJ-g`J-+j- aP+P `&INu e&gJ<aSBaSaSg{aT2`S|r$aS"<`taSPAaSPAaSPA`SJ. k0<NBNurpgNONu2SA S@&*K*zK(zKGI|9FKp&E86 eb,aSdaSXaSNaSBJ-+g m k0@+@ @ C )JaKIREQ9NuJjEPM@ C )JaM`kl Bg g gX gd g gD @g Jg `g ag bg cg ~g g`Nut"JaFE7`~CIlaD`nZ CJ`Zta`Nta84"Ja`:ta$4a&&a (a*a."JrNCJfXJ`Jf`AHJfpaS@gf`B`ta4a&"JaԂ`HR XO`"Jr9NC`CH`CH-IF, AO$fAO MiDifCM`CMaEOa$FJk\aP,:HFfagLa܆kBAI:b:":I6//:I.-Aa&Jka&-Faa(-_ `-_ aCTa` HNuHH@HNu|2HCJ. g:G_e CP NBNu|2 zH g"@$HCJ. g:G-e CP NBNuAFJg p apa`paa`rRQNurRQNua8a-zHNB|AaPr|aPhBaPb| aPX`r@|CBaPBB) aP:FJfN"zG-IڳGd zGg(JfHaL$zG  tv ea>gHGdt<0 9c^0 9c^ Qa`t|  Nu$ "zG2$zGT-J ЂGJ- gRQ PfaZaaACRB(rOvk&a>$-J-k ԭ<+BB<<QJfFTOpNuFJfJADaBACEDrOtvpkha>lRa=J*f BUJ HR ?<: -"JaBrHR ?<  -<"JaB^HR OSfHzD. XORt`HzD XOQAaBSCAaBQ` =|`'j=|` Nu/ <ӭ<-@%-@-@%L-@%&-@-B-@0 NuHQCJ`2L=|` =|Nu 0"T-|`n"\-|`n"_NuH瀀 E?CB(<AHCKCCSBka|RIQ`HA?]QHDHD0 pC?8@ t aLNu bJj:> E?CERJBZajH @aLra`hECrJj:=Cdv2@00H@ 0H@YQE>ERJ4at@CCa rt@CCa`Jj:=[E>dCRJ4aH @aLra``Jj:=!E>*CRJ4a~H @aLra&`|Jj:aL$:atC>ra>`Jj:9E:C+RJB44a^E>|) a)S cp) ) a)) aBRtC>4aBtC>*r:a`Jj:8~E9C+RJxLNu/@@Lf/:.NuNs`r:-Ka6rt:a6P)Nu4:-4ra6rJa5rt5a5P)Nurt`5H*z.tOB- aP KQL NupS@@H- $:.bHf b0fa5a5,@ bajh`ajB`< kI G|a5 @b a4a4a4gya5a4gea5pa4gda5^a4ga5Lga5>a4p-a4a4ga5a4va4da4ga5a40-R| 2Ia3a3LNuHI G|a4x`xadQLNuH瀄pO z,*z,p+XKQL!NuH瀄@ z,f@@*z,HH+PL!NuH@ z,JprOИQL+d -@ :+NupNu :+H z,"z,rO ЙQLNuHrO z+"z,"BCQLNuH z+pO"XPQLNu z+pOr QNu"z,Lpr#|0#|E|$$$$#@#|#| #@$E(r$Q@Er$<+4`%HA)Vpr QLNuCVj$n"rt7a%"JE7$<*a%vNu/a Nu?>TONup`Pp`Lp`Hp`Dp&`@p'``,p@`(pA`$pB` pC`pD`pE`pF`pI` pJ`pL`pNuaa`$H@A)r`Q@LNup`>p `8p `2p `,p `&p ` p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p`p `p!`p"`p#`p$`p%`p&`p'`p(`~p)`zp*`vp+`rp,`np-`jp.`fp/`bp0`^p1`Zp2`Vp3`Rp4`Np5`Jp6`Fp7`Bp8`>p9`:p:`6p;`2p?`.pF`*pH`&pJ`"pK`pM`pN`pO`pP`pQ` pR`pS`@aakRa.z)Nu:(f`Nu/ g f Nu-OrA=A-Aa"tG@@$z)*2ga"8kg ^g &g<g e /g {g4 }g8az(wB.rAkD b>A4{N8 JN 0  R  & @g b |g :gh ;g (g 'g [g4 _g> ~g `g| =g \g ?g "gH`aR`` ``Rc$QP"Nuaka ba`aa`ka"a aNka$ <bJ)k8 gDb gR g`  gl g~ g 0e 7cxpa\aVaN`dDpa@ aN`pa0a&`fpa`pa  cpa`paa` "[B` jJjpaa`pa` )gbraFk raJfrtaa.k taJft kpaz`J)jrakaX"btahaka<$b k|pa,`x )graka"bN e c@ta aka$b( e c kpa`h-QP`I&B.aBg *fRHa b.`p0)`aa"gfe\ @b"H@=@H&$z%k4J*ga A`aA0a@VJSf`"SnkRANuKIJAggfŃƠE`E ` E `E `ZJ`XJ`VJ`TJ`RJ`H.*H**M**J* ES@ex|* HB* dAQHaB*AEc*H* @g a*B*@$BBHBJBjDBJHBJBgԼHB\D\D B E LtSf*`D*H* @fa>B*A`a0B*A0aB*@p*AdjESf`a:J.faa ka @g ]ft@0;N&""..22*6:>Vhr`Pr`Lr`Hr`Dr`@r`pvE!4$af e ]g +g #fR` -fS` g ,fv`aʐ<AkJ @bB`Hp`tvC#^agJfRQpLNu LNu/ " gazf Jf"_pNu A"_pNuaJ.fa :f@RHa6ka`pJg bapaxparalpa\`0ak2aP bpaHaB a2pa8a4a`pa& apaa`a& |fRHaPk2pa0a`XaX`H` $RELrJg \JQ]Jr$4tA LNuH`8&QVKEvrJf]JQrJ(g$i(`pLNuJAf#J($BBJ ,gk(q , UXXB , S*fBB1 LNuH@0&QVKEvrJf ]JQ`1 J*fPAL NuH@ EvrJf ]JQ\JrAA#,LNuzJ.fanka b3@`aPkDaR b:@`h ) g(R)`VJ)gS)`FJ.flat *fRHzsakaJ"` aka La f3@`ak:a"jD b&A`at -g4 +g0aka e b"<a`RBRHabka"kva`aHkaSxJ.%g^c&`a(ka~SxJ.%g^ba b Rf|J)k~<aJaD`aka, bJ)g 2ISjr`;"<aa(J)kA pa`UWZ]_begjmoruwz}J)fHp:[Nuxa`ka"baaHka$baa0ka&bpaa|atal`>axHz4ajpaV) `N -g +fVa4"gVbPpa,`&aDg<"b4pa` a Hzak& +g& -g a"JkA pa`)`a"gjD b@) jrJkr`J)jJ.fa"kpatapalPaf`.vxak.aJah"ca>Rg`a.R`NuagVpaAk~ bv@0;N^n@,2 &6R L ^B^"<J)k f"<`raJg񎰁b<aa`^ )g6xajHzH` aj"ak$킅avak&aF"afk(큃BCgaLaka b3@pa0a$0a0a0a0)a pJDjDa`񲲼moDNuDNu )gnxaRjHz` La$"a@bza@aa*k&a"(abXaD`4palB` bjD Nu/ <m <o"pLNuJ)jrtvxak a"b~a,ak a$bhaak a&bRf fbDpa`Trafka" bpaa`zJ.f`>at -g$ +g a"kFax"k<<at`|RBRHak$aV"kaP`^akPt +ft` -ftRHa&" b*aa`z%J.fakaJfp`4 bD@3@aavkaJg ``aRka b"`J)jJ.fa&kpa(Ja~az$<a\\`0J)jakpaNta Dg Dg`pa0` )ga$ ,gaj rHz` ) EhtvakP +Wg -Wa"aJgr) Ҁ crJkr bgA Q` ,fRHPQ_ a(jI f gdpantafQ`*p:gS@@Hz$Q0;N &PNuPPNuEPPNuQJPPNu|NuJ.gRp`*J.gRp`aJ.gRIa bBB.-| <axa2:2g AcZpaa0aa &f RHp`,p`( g @ga ":j `J.gpar|` aJ0aJaL &f RHp`2p`. g g ga ":j `J.gpa|`a Jgr:b뀂izNu0a .fRHJ.fIAeZ @bR`a ^f6RHa fa`JNupNu ) gpR)NuJ)gbS)Nupa`a )g\J.gRxE$%RBB.-|ia  'g8aPka " <aa ^a4kR bX 'gSH`JgBa 6 *fRHajp0:` J.f a =@fga  ,f&a  *fRHaka bv@t4:gh Bb`p)SDİBdapa0aa &g"  ga":j ` J.gp`pa)ajIra^Qz|`Hx $a F *fRHa kJ.f"a"`akJ.f aPa*b=@B.a ,fRHakaa=@Pa ,f`RHaXkX)gUU -g +faJgr`aDgr`a|rA bEP`J.fgE4R.LNu *fpRHaka&"g`La( .fP`J.k2)`H(I0 ga`LNugp`NuJ)j,afjp`a"paa` )gXa>jp`ag"paa|`Fpat`jpaj`\pa``NpaV`P )gaJ ,gajtHz`Etvxraj ,fRRH`N +g -f a"Ҁ `a" n maarj ,gJgHJgf4&R eaLjIJTf gjpaat0aQ`R gJj l npaf`n )g2<4aka$kv blpa a a`(<? )graxka"g:b4taa\ka$gb gpa` )gFa ,ga"j vHzN`E tvxraj ,fRRH`N +g -f aH"Ҁ `a<" n maDaj ,gJgHJgf&R eaj0I bJf ghpaataQ`JgHpaa`rxaPk a"btaa8k a$ctvaa k ax&b kpaj`ajr`aN"jD UbpaBa<`aka&"pa(Ja `pa`aka"kLA`r)p_apJ.g< aa J)k) kdrA a`aTka"kA`r)p~a2pJ.g< aa J)k) kdrA ar`:tanf ajRB`SHNuajr` a<"grpa:a4`ajr`aJVpaa`J)jdak`a" bPpaa`J)jrtalka" baaTka$ b` $pIpaaa`Xa k߆av"S Obtpalaf`0J.fVakߢaF bߔaBaVak`aHak~a" bna,akb -g +fa$gLp`aDg>$p`a$pմb&a`na\k a"S Pbpaa`ppa`f/r2)jDA@d)fAg`0` 0fp"NuHah 0e 9c %g $g +g -gpLNupLNua. 0e 9c $gpNupNuHxP -WfRHaa $gB %gzpr<0k< bBЀ&ЃЁ`SHJgDJktLNutLNuprRHa ae zbߒ<0k²< c e b_B鈀`prRHaj 0g 1f<0BЀ`HxBACr t&eR`Ѓf`P<0QCjf0BLNu +gSHNu  g ( gSHNu  g (,gSHNu/"z Nu/H*zf Nu/AH0 _Nu`Ha@k=ALNuHa`k=ALNu/"<Àp:i8A?LNu`2/0:H":>iHAJAgҼHA0<A2LNu rNu/":i0<Ajp2LNu@|H?<Bg#XOLFNuJgDHA26CC0046C K000&<e,H `$pNOLfLNuNqÓNqÕpNO`HM$Oz-OO-OVa (mJfB. aMB.`aI^aNlaO8aPfKaLlfI,+zaQVaJ.gaJ.gaNOL`PMB XO-@Oz-OO-OVa-H-IACVf(JRL/ P aLJ,fHzc^NXOJk / (@aH(_B.`aHaMaNaPLfJdaKfQlaPaLkQJafJ.gaXJ.ga":"zpNOBg/1HA >"zpt/"Qt"<vppNORAp"QQLNuC r9aJf aA )`faA `\HA C` HA 8CaJa:LNuE "aa(R":\/:R/:R-A(AaFaJg6 .f Mf$ Df Df Hz"HȊ`0HzHO g\`-_-_aV?<HzY\ONu-_-_aatNqNqQNu?<HP\ONu?<HQ`H@PIBx<0 9c^QLNu oPmMiDizmusic0A 1-%xt;B@'d "%)-27<BIPXakv3Qs Vl$E0ɵܡE8C$`j UB0pZ9D.C.D.S.SEGNO$TOCODA*FINE^CODADOLOOP!END@K.SIGNADPCM_LISTOPRINTFM_VSETADPCM_BANKSC55_PRINTMT32_PRINTMIDI_DUMPU220_PRINTSEND_TO_M1M1_PRINTADPCM_BLOCK_DATACOMMENTFM_MASTER_VOLUMEERASESC55_INITMT32_INITM1_EFFECT_SETUPROLAND_EXCLUSIVEEXCLUSIVESC55_V_RESERVESC55_REVERBSC55_CHORUSSC55_PART_SETUPSC55_DRUM_SETUPSC55_DISPLAYMT32_P_RESERVEMT32_REVERBMT32_PART_SETUPMT32_DRUM_SETUPMT32_COMMONMT32_PARTIALMT32_PATCHU220_SETUPU220_COMMONU220_DRUM_SETUPU220_PART_SETUPU220_TIMBREU220_DRUM_INSTM1_MIDI_CHM1_PART_SETUPWAVE_FORMMIDI_DATA <  (2ZMDZMSZPDCNFMDDBlock ADPCM data 'Start up file '' couldn't be found. ' has been included. x?ƀ8`  0c&&$DD  $H   P `p  0cc 0`00  0 bD 8ga NugaNugaNugaNugaNugaNugaNugBaNugaNugaNug axNug@ajNuga^NuaaNuJ9kNu?4:dSBeaQ4Nu9g9fNuJ9jJ9kQNuJ9NuHEaJ*j.* g$ gCh Q"eBaB* aa| aLNsaZaN5H90/8@ FMVBRI G|aZk:H*z-fJ- faJ-+kNq.H*zJ- fap`L|9Ns-*zP+D f- bf r:Bara|p-kva3^`n- kfSg`J-kl Gfz- -gXjB-` ge` Jj--d2"EN :F fJ-Jg-J<V%@r-p-@I gfbpJfaCCR b ga`-@Jgj Pc` -@c` -@g` -?@c`v-@Jgj -[@b|`` jNuB0gJf>pp-J HA24-V;BTBc2H;Fp4-LH…;BBBHBJBjDBኄHBJBgԼBB+BXNu-gHJmnfB4-V;BTBc6H;Fp4-NH…;BBBHBJBjDBኄHBJBgԼBB+BXNuJ-g"I;Az;A|PB-KNu-g2<-g;mt+B;BH;A2--k,; N I;Al;mNu;Al;FNuBm2-I;AlDQBB2B<BAF"z+Y +Y$+Y ;YPtB;B`4"I;A;At-k-gj2-; N <I;Alr4- ;Bjr;A- Aքr+A;AJBfrANu;AlPr;AA;m,frANurAJmfr;AANuJ-gbJ-j^Jmg;mBmPNu"I;A;Ar|F;FA -g$J-+gtaag-aNuaZJ-+g4-mR|l4<` B Bo :4<` 2-g,-g;mt+B;BJjFFA2--k; N LZNL;A2-I;ADQBB2B<BAF"z+Yd+Yh+Y~;YPtB;B`A;Am Nu;AFNuM;E;Ert-k-g\+A;A-\gjFFPA` r|A2-; N A;Am~mdNu;AFNurAJ-frAANu-gJ-j~J-g2BmP;mgf-k`ra -aBaB`M;E;EPrA;A-g&J-+g ra$-a-\a@B`NuaFPJ-fJ-\kJ-+gra-a$-Jmf-jpaBB`t*- bJCf0aNa-gfaJ-jgNuJ-gaB-B-J-gaB-J-gJ-k?-a;_B-`BmJ-gJ-k?-a^;_B-Nu< JCf0aaN-gfaJ-j\gRNuJ-gaB-B-J-ga B-J-g?-aN;_B-`BmJ-g?-a;_B-Nur;A:NqNqRH+H`r:NqNq;A+HBmNurA+An2%NqNq6-VXXJkav`+HNu A;6A@B-J-+g- bgH-*r a>`l@@Jg<aaaj`P<aaaB-`8Jmg0C<Jg f `pp-JNB`-jp`-Аjp`r c r _crA@J-+g- bRgz-*r an`@0;NLZ,-fl-f +H.a m-`D+H`6-g,-f"--f +H m`+H`-g m`-g`|+H+m<B<`P`NqNq:&ja-ga-g:gV:ePp.C$f>CztkH$zZEJ*kR`EؽRb "zpp@NRgAp-+@+@@ m f ( f`CJ),gS<`J)ffl"` #|`j B#|`| 0#|`Z^#|`#|`J h#|` 0#|` Pb#|` #|`%`RH`TH`PH`zA `rHzh`j-fZCJ)zfNJk.RD#|` VN#|`$#|`&$~#|`,#|`f0P#|`$#|` ~#|` P#|` #|`AL#|` `RH`TH`PH`A `HzH@C6DS.f B#z aLNuazTH`aRf`H$aj(fnB B`baRfTH`TpH`FaNk-fTH`6pH`"CrJgR cR!NuCrJ!fQpNuNuCrJ!fQJANur;A(AJrc@Jp@ J-k,Ck$I$zצ* f f *J-JfjCyJg":Hz f``LJgr":gh:a`\mP - bH g> g6 g. g& g gp-`J-jm-jrA - bp-`~J-jm-dr`J-jmX - bp-`D-jrA - bp`&-Ӓdr`-dp`-jp`- aVaB-J-+gJ bbg@J-f:Hz6-HA2<`ga,Pga@Pga$P`>Jmgrpp-J HA2;AR`8HmP2<mPo;APmR2<mRo;AR` CPtB;BpJ-+gTHzL- bgvCBk *alRQNu< 4-Rra:| 2a:I`&J-gJmgraap`^Nu2%NqNq6-VXXXTXUXXXYH;BntBBX;BZaZJ-+jagkx gpb+HafJ-gaJ-gaJ-ga*-(raJJ-)gJCfrtat`Nur-AaFaB-Nu-HA2<`f -a`aPf -a۲`a Pf-aۜP`aP`JCfr-AJmf&?-jpa--a<vCNuaިahCNuJCfBr-K5rjJAg Sk5rj`t-BpjpJ-gJmf?-jpaN--a<vCNuH2-PZA4BgBA?t0aaQaڸaڮ`Nu@ZEmP2EgEA? @nb6|k0v0avalQa`aVNu    !"$%&()*,-.01245689:<=>@ABDEFHIJLMNPQRTUVXYZ\]^`abdefhijlmnpqrtuvxyz|}~pqrtuvxyz|}~pqrtu- ch< +HJCg -fBm(-gagaFraJaتJ-fga٪Nur-K5rk`؄JAgSk5rk`r-B-aFBm`Dr+An2%NqNq6-VXX@@aJ-+j PJCg4rz"Htk"|EBkf R eR e- `\- J-gEB| b a:rR b`PQ+HNu< a+HNuP b&rtgg\RARBRD c`fD bz0 kHBHpg f&p-kD a vaLRARBRD`RB`RARD c`,JBk&faa׸RD bRA`PHF +HNu< &rtgghRARB c`fR b~0 kT5Bkaaa"A$BBfa" $ RARB`a" $ RARB`RB`RA c`$5BkPBfa6a֎RA cPH+HNuPHPB+HNuPH+HNuP bJ,"HEBk0g fp-kD a ~ vaDR cJgPPHF +HNu< "HEBvzk daS`aQPH+HNuXPXQXLXMXRXSXNXOXVXWXJmV`6H`*H`Jkf`Jkf `J`Jg ``pJmgp+@eB-Bm;m`aeB-PB-;m`aeB-`aUTeB-`lB-`dHz`JmVBmXf;mJ-+g- c<< J-japaԤ`ԌJng 4-RmZ``tJng4-Z`HzJmVB-Xf;mJ-+g2- Ue$--k< kaaӼa>`ӦNuJmVXg~HzzpJmNjD@NuJmVXWfB-`PB-`HCrpQPJmV`,XC,tIa2QBmJmVa`XC\rQB-JmVa`H @g;@H @g;@`H@g;@J-g aJmVH@g;@J-g|aJmV`lk, eD@- c J-j|J-gak6 eD@ c J-j|J-gaV` - cJ-gjJAjDA AcrNuH Al2<` Ao2<NuJmVIa;A,;AHz0-gL[kR-HBm2- -fI;@JjDB@H@ሀH@J@gмH@@Nu(A,C E Jmfr;A+AA:- -fMt0H2JjDB@H@ሀH@J@gмH@QP DNuk@ g@k@`JmV@\@Hz-gR[kR-HHBm2--g fA@ JjDB@H@ሀH@J@gмH@@Nu(A\C~EdJ-frA+AA:--g fEtHHJjDB@H@ሀH@J@gмH@QP DNu:fHB-kf@`@P|@`D@|B-@ - d߬|>@`ߢRH`ߜJ-+gߔrtaZJ-k߄C`zJ-+gpra8J-kbC`XVJ-+gJ- c<aφaaT`,Jf&aVB-`X`:fR-  kHaHgdaa`geaaNga@a`޺RH`޴:ƤffgagaϼgaϮgaϠgaϒax fRHgav`HRH fRH`:XXX`*:fLaSDgSDaQ`H`X`:fd-  kZa(gcaaΊgbaaxgaafkݞg&aκa͢`݈XH`݂:rf<-  k2a͸a@arg ax@aZ`@TH`::*f - AgR- < kk@a(g[a ak@a g]aaRH` <k>Sk8 c<H\gagAaͼgaͮga͠ga͒tH@avanafahpaHRHgaL`VH`:gTH` `:gTH`5`:gTH`5`kS@J-gak۸S@J-g۪a`ۢ:ÒfۚpCJf`ۊ| :P`nClJ)fnH"Qp) f @@ `T fL@ `DC4J)f6$zLNs6 H@r ffJRHz" :a(Hz ?<  @0;,C(aHzp aHz Hzd OLNu %17QXdx %+228?HTTT]Tflr{?7=CQWmsyHPpgN |fAS fAQ cfAM #fAK %fAH =fAH/f?\O` XO` _NuJjA`AafLNg g -g /g #g`J. fJg`g ?g CW Ag Bg Cg Eg Gg Hg Jg Mg Ng OgD Pg Qg RgD SgZ Tg8 Ug< Wg Xg`xt=B&=|`B=|NuBTxNk NjSLSkb=A&`-|adf-|a L`P` kP`JaHAAJ. g`AJ. f a.zHOL0

rjpNO#@~eh 8e`-@bBCB2<`pNO#@CC2<gpNO#@r#CpNO#@^-z Z-n^J. fAaa.A _a|pNu/<`/!J. f(0A aJ. gA @aJ. gA MaJ.%gA xaAA`AaA aAaA`C 5a"zZpNO?<LJj Aax`C#`akd z2.:6C01xQf:"zAHQHPJPOr NCCprJg0C:H ~BHzdHq?<KTOBgKOLR@QakCKJ1xg0<NB`4C!xC2<`"qxpNOC2<g"qxpNOCL!xC2<"qxpNOC 1xg!(pjNOaC!x$zHB*HjIXOa<"z*pNOH@"zaAaFaLNu"<vptpNORAC QNua?<Hz\ONuCl`zaCG`pa gaC`b"xQI ZmuSf YiCfNupNuH z g @`CD"1xEǵTf!AT ( g @`LNu zp g @` ( g$@\gag J`-JpNupNuACߴfJfpNupNuAhEHRafd h$fC-IEzak $pNupNuag g I"Q`pNupNuH`Cr f QpLNupLNuADaa> z"zAHQHPJPOHx@H.@O@a"a8PxN.A NA CN̞NVJfa@`A NA CN̞aaa-z-|B=|h>=|g6HzHON"fJ.frOt"z| Y g.Epkg"`AMa RaLAaAA`8Ai`2A 1aTA|`&A %HPAXOa@A`A` A`a`a :g*aAza~AFava `C"ar`bNUL :% / % UNIVERSAL VERSION 2.08 (C) 1991,1992,1993,1994 ZENJI SOFT MIDI/FMOPM/ADPCM are under the control of ZMUSIC. MUSIC BIOS has already been included in your system. Didn't you include a special ADPCM driver? Out of memory. Secure for ADPCM data buffer. for work area. for track buffer. kByte(s) Interrupt source:TIMER A The external MIDI sequencer synchronizes with ZMUSIC.X ADPCM is managed by PCM8.X (C)H.ETOH -has been released from your system. is not kept in your system. is unable to release. Illegal version number. Unable to release. ERROR Unknown error!  c File not found. c Write error. c Unable to read. Work area is not enough. Track buffer is not enough. TRACK c NOT ASSIGNED. | TRACK #TRACK BUFFER IS TOO SMALL| CHANNEL #I c DEBUG c HAS STILL EXISTED@X c | DEVICE IDRELATIVE VOLUME c @C c @A c NOTHING = FOR INTERNAL DEVICES@H c @S c UNDEFINED MML [`] c REPEAT c | OCTAVE | LENGTH TRACK BUFFER IS FULL@B c NOTHING = FOR ADPCMTIE c T c @T c V c @K c | NOTE #| PROGRAM #{`} c Q/@Q c Y c J c P/@P c K c CHORD c @V c PORTAMENT c | VELOCITY VALUEN/@N c @M c H c @Z c | % FORMATDELAY TIME IS TOO LONGFILE READ W c WORK AREA IS TOO SMALLBAD % FOR THE MIDI INSTRUMENT| % X c | WAVE FORM #M c WAVE FORM SETTING c ; c \ c ? c @F c @G c @Y c @E c SYNTAX (A) c (M) c (T) c FM VOICE SET c ADPCM CONFIGURATION c | % FORMAT IN COMMON c(O) c UNDEFINED c % OUT OF RANGEILLEGALERRORCOMMANDNUMBERPARAMETEREFFECTS (No.) ERROR(S) Operations are all set. A SOUND mind in a SOUND body. Now calculating the total step time...< USAGE > ZMUSIC.X [Optional Switches] [-C-Q [ZMD filename]] < OPTIONAL SWITCHES > -? or H Display the list of optional switches. -A Make ZMUSIC.X work on TIMER-A. -B Include ADPCM block data. -C Convert ZMS file into ZMD file. -E Synchronize an external MIDI sequencer. -P Secure n kBytes for ADPCM data buffer.(default=256kB) -Q Convert ZMS file into ZMD file and calculate the total step count. -R Release ZMUSIC.X from the system. -S Include start-up file. -T Secure n kBytes for the MML track buffer.(default=128kB) -W Secure n kBytes for a work area.(default=12kB) < NOTICE > '-C' or '-Q' must be set in the last. zm_optRXT2*0HE?USKCG ver 0.0!v? QR,( %E~"v?|?<#v||||||||||$v|?8>pp%vxxxx{yxx|x>x&vxxxxxxxx'v 0a@@`0 8(v6II?oo)v  7ooow?*v<&b 8 33&Lah20 +v  a@@p@A@1`3  ,v?nD-v    9`@`9.v<3fA@@@@@@@@LsA/v x8:p ??0v~?|||~?1v x1?h H  h h 2v 7,++;<3v $ $ $  4vFD*3P]K ^<(>Pr/O†5v 198p6v ??b??RH7v?vv?||y<{y<||?8v@@@@@@@@@@@Ox9v~D:v`  0;v`v`00?v  0@vAvBvCv00Dv@0 0Ev@0Fv@ Gv@0Hv@00Iv8 0Jv8Kv p Lv8Mvx00NvOv<8BDB>BBFD:8Pv8$DBBBBB$D8QvB8BDBBBBBFD:8Rv@@ 88Sv@@TvUv00Vv8`Wv@@@ 88Xv@@@Yv@Zv@ `    `[v@88  \v `@@ 88]v@0  ^v@0_v@0 00`v `88  av p @@ 88bv p @@cv p dv p  `    `ev p 88  fv"@A@A@A@~A@A@A@A@Agv"@A@A@A@A~A@A@A@"@hvAA@A@A@A@A~A@A@A@A@>iv jv@   @ 0 !vHP@@  @ @ @P"v??<?#v$v<~<~x?x?%v?&v'vp=0 <`<```0 0(v 303030?? {{)v<`00 Q93@ sssy9?*v;cc> 0 [83 l@Ac>n<+vp   0 ?` ` ` x x `#`c 0 p,v ???;1!A -v `0     0 0 `̀?>>p ` ` p???.v8w``````````C`?`#`#`#g|p>`>/v``x|8????0v??1v< ??s3C1p0p0wwwp02v??1??? 3v0011114v7 =F?p?n?77'cc>c|a >5v$$~}} 0x6v0p<= 0FFFD0`;7v?yxyxyx?~~y~I~y~xx?8v` ` ` ` ` ` ` ` x` ` ``````a9v )iH@`0 Hh` `8:v >p;v a  @?v ~?vp>p@vpa  @?Avp|Bvp?`pppppp`?Cvp~Dv<f>pEv<fa  @?Fv<f|Gv 3@?`pppppp`?Hv<f~Iv>pJva  @?Kv|Lvaa?`pppppp`?Mv~Nv?ppp00`?Ov9øp p`8pppp9cPv9ø0 pppppppp09njQvppp ppppppppp9cRv8`08x\ >Sv8`@@Tv8`88888888888888Uv8`~ÀÀ~Vv8````````````<Wv8 08x\ >Xv8 @@Yv8 88888888888888Zv8 ~ÀÀ~[v8 ```````````<\v8l08x\ >]v8l@@^v8l88888888888888_v8l~ÀÀ~`v8l```````````<av08x\ >bv@@cv88888888888888dv~ÀÀ~ev```````````<fvÆ000000?0000000ygvÆ0cpspspspspspspspspspsps0c8hvp7p3p3p3p3p3p3p3p3p3p3p3p3p3p38civ?x888p? jv|>>09qq0@*eϩL?ULB?qꪙHH> Ha =Ѓ!3Lp&i8K\.! p>X8c4LӚ@&i3x~ &>9u8#j 8`5LѦ50|sEEOMT5b!5CvL"1a!H1|:Qbdi!#D xO0f -ǖkPأɖ !@أɖ3f+-jq!rIc|$[jpMfͲ>L&΃Z7: LےILCHFmzD͵{,CCӎƳFnVHN32G B"qZe" 28 { áT?ux}΂=%N ANeu=Ej"u8n Q:˥gX,=Ƈ:uH#hq_g$ jgf̵`Q<IdO5i}(tO3#0|O3g8FPDO2|?BڅBIBօBυ. J f"}͡DyA=!!ua"}FMe"Ful 70!t~GG8Htx QGG8M#Ѿt7i8R#0sXpdQ::E(Nxy'=(M֚'D~p~!4f"2"^q:F(M;|A*ѭ4mauxw6)(|g'Rd9939c@E3~A E3ZiнM3VcPɟR q AJb D qΔi)PCU2js1(:c>cl 0 ftFrNs#AJ4Ѯ5,QiFk<2O0 uD8DXTh1CR!8C5{A#3:-s"a3‘`i挡%YC"Cl1xCb9DTDaL}h̲ydXL!1'l`a'Fw\x /ԢxD"BxLOUUP8Dp@^`UUTbxLGu<3A UUT0UUPÆW5x.Qj.jla 5u#AڪcV< MU8D U5v'@j"UUcjjF<&USF#p:xF"`^"`UUB1E/hL2cPFz7t3aWBqFxF"`UUCY^K %y+ae%K%KL-rY%m4iMצ5MæM]7}6l4^᠕A" A. pK\PJ >Dž0IeۆV&<(aτ& ᡂ\p<"@avq׎Ç1cH1;|t; vqjP1c ƹi;sØ=UB8ps1;1b`0Ќ3m a+A$W( TT8JW 0XJc 0hVN %/ B6ap!B5g#G#E0\#E.#<0zKa~M<^Bcɿ`Aeɷ&I8x'I&I5@ՂIrL$L$$=@a$L&2M$p&MI3zI3LI> \ W`Z0*z h,2 _ ePAL,d\"`U $ɗ DY0Ld%@h6Lx~&vI¬dɗ DY3W, BcCfvl,f5٪0En6l,AYͅK6Vj ,fͭ;5@`پ?\'\+<*<)_ O xZUxUžp®\' .džU#U2'f᠃S'B8x #Sv<<\"UV]R@a AsWb L.",v" dU#ai |4Rv0x~Aj"e xfAԮ iPAk"~EDžUT&ҵ^" Mm+U VA AzG_#A ziDL F0zdifDO AeÁ-`P-Zhih@Ј=J MV?>{\/-N88\sA$c10y1FaxeB3@ Nua .4ade&3@Nu,OO"OaZ . d3@ .*a4e3@B@Jn.k .4ae3@0<hJn8k .>ae3@ 0<JnBk .Hae3@ <NO`,O"/ <dpNO`,OO"OaF <NO`,OO"Oa <NO`a&n40+2+aE GS#J#K NuRAgNuH@B@Nu,O . <d B$.d&. d <NO`,O"/ <d$/< d&/ < dHA2IpNO`,OO"OaX <NO`,OO"Oa#| 8#|7 <NO`a . aed3@Nu,O . aeP" .aeF$a Jkt`LHB .a XLNuA 09$||g.J@f|b |bB0@g0BNu0NupNuB/B@㘴g`0[0H@Zg`0[Z &Nu,OO"Oa <NOJfB0)`|,OO"Oa <NO`,OO"Oa <NOJgRRg`Rgb`b,O"/ < d8 /< d,$/ < d HAHBH`,OO"Oa0#n n-gn7 g .><d@ .Hae3@ .R<d@ <NOJgRg`,O"/ <d <NO`H,OO"O". dV$.dJ&. d>(.*d2Ae.Be* <NOJg:RgH`J,O <NOJg$`4p`Bp`>p`:p`6p`2p`.p`*p`&p `"p `p `p `p `p`p` p`p`p/CaAB .NNuSfNuJf`7 ,*d"V0apageboxcirclecontrastfillgethomehsvlinepaintpaletpointpsetputrgbsymbolvpagewindowwipeȃy[Ww肵܂ȍWw肵܂ȃpbgR[hw肵܂ȃJ[R[hw肵܂ȃCX^Cw肵܂Ȕaw肵܂r a-HA2<@) )aP)) )(aP) )aP)4 )3aP)g-jtaɼP)&g-jtaɤP)g-jtaɌP)1-jtazP)) ajP)')!aZP))aJP)2),a:P)) a*P)+)"aP) )a P)6)-aP)) aP)*)#aP))aP)5).aȺP) )aȪP)% )$aȚP) )aȊP)0 )/az_LNup) @{Piii&i1?@*@;@@)@(i)Nu @@NqNqHJ-f0J-+j($:¢g$B g"@$g :f2:&,a F`C`C `Cj`$xNp-JtNBNur-kIA$:4g٢$B$gٖ"B-ar HA2--$gv+HpJ-JNBNuEzcpRNBNu@|H`aA@E4$$BRp c $<H@J@gH@`H@S@4pT 2zP1|En!J%I5B a pLFNu8 J Ae| aƞaƒ0g f I 9|NuJg g0 gDpNu:fp@|@ 1 2FNup@|; @FNu@pNu|HAJPgHSP"< $e$Ӡ"P2 A@ 2rP!I1Ba LNs@P@ p 2@LNs| JjA U`A aL`Ng g -g /g #g`J.fJg`g ?gL Ag Bg Eg Gg Hg Jg Mg Ng Og< Pg Rgn SgN Tgh UgT Wg0 Xg@`t=B=|`?=|Nu?~xNDk$NƖSLSkb=A` -|a9x-|a|`P` =@P=@"=@K&`P`P`P`fJ.fJg` cSLxAN\ACaCEJ.GfBa:kP^`jaAJ.g`A J.fa.znL0

rjpNO#@~eh 8e`-@BCR2<`pNO#@C&2<gpNO#@r#CpNO#@6-z’ -zJ.fAaa0AapNu/<`/p  ca:a>A\a2J.gAa$J.gAaJ.gAaAeA\`AaAHaAaA+`Cua"zNpNO?<LJj AOa`C`ak. z&.:*C01xQf"zAHQHPJPOr NCCprJg0CH\BHzjdHq?<KTOBgKOLR@QaxkC]J1xg0<NB`4C !xC2<`"qxpNOC2<g"qxpNOC@!xC 1xg!(pjNOa~C!x$zNB*HjIXOa"z0pNO?<Hz{\ONua?<Hz\ONuC`aC`a gaC`"xQI ZmuSf YiCfNupNuH z g @`Cn"1x$z *g$@&Hg + g&@`%AT`LNu z g @` ( g$@xgag J`-JLpNupNuABCߴfJfpNupNuAhEtHRajd h$fC-IPE@ak pNupNuag g I"Q`pNupNuH`Cr f QpLNupLNuaD`NUL :% / % UNIVERSAL VERSION 2.08 (C) 1992,1993,1994 ZENJI SOFT MIDI/FMOPM/ADPCM are under the control of ZMUSIC. MUSIC BIOS has already been included in your system. Didn't you include a special ADPCM driver? Secure for ADPCM data buffer. for work area. for track buffer. kByte(s) Interrupt source:TIMER A The external MIDI sequencer synchronizes with ZMSC.X ADPCM is managed by PCM8.X (C)H.ETOH mc has been released from your system. is not kept in your system. is unable to release. Illegal version number. Unable to release. ERROR Unknown error! < USAGE > ZMSC.X [Optional Switches] < OPTIONAL SWITCHES > -? or H Display the list of optional switches. -A Make ZMSC.X work on TIMER-A. -B Include ADPCM block data. -E Synchronize an external MIDI sequencer. -P Secure n kBytes for ADPCM data buffer.(default=256kB) -R Release ZMSC.X from the system. -S Include start-up file. -T Secure n kBytes for the MML track buffer.(default=32kB) -W Secure n kBytes for a work area.(default=0kB) zm_optRXT(` BȊpxw肵܂ȕΕw肵܂Ȗ邳w肵܂ȐFw肵܂Ȕ{w肵܂tHg̎ނłȕ\XCb`w肵܂OtBbNʂĂ܂݂̃[hł͐ݒł܂EBhEO̍Ww肳܂z̑傫܂݂̃[hł͎w肳ꂽpbgR[h͖łF switch cspmvdir1 case 0 : cspy1 = cspy1 + 1 : break /* case 1 : cspx1 = cspx1 - 1 : break /* case 2 : cspx1 = cspx1 + 1 : break /* E case 3 : cspy1 = cspy1 - 1 : break /* endswitch cspmvstep1 = cspmvstep1 - 1 if cspmvstep1 = 0 then cspanmmd1 = 0 } if cspmvstep2 > 0 then { switch cspmvdir2 case 0 : cspy2 = cspy2 + 1 : break /* case 1 : cspx2 = cspx2 - 1 : break /* case 2 : cspx2 = cspx2 + 1 : break /HU!@@@@@@@@ NuB` aBNuA !@NutAa .JPk a Qa `0<(QNua k J/ d a 09(@ f$99fa `pa ` /a a `R/ d Jfa` Sfa&`aB`0a zA C p0Qa pNua \A C 0<0Qa PNua TJk6`*J~fJfAr/</?@O JkQ?>TJk`a6ktaTfTB~Jok d(#~BJok  d # ,o aHk 9c<g J~f` ~dJo$k" /*kB29Вc3333?<Hyf=\*k y gp"9~$9690y @d@/<Hy??O JkC <NOy0y @dQ?>TJk`J~fJfAr/</??O JkbQ?>TJkP`DHy /7PJktJ9afakfar 9`BAְg  e`3 ЁЁACp2QAfC aCMa C`aBNufNuAa ae zb R ae zb Nu< <NO dJrS g rM grLA`.Ga9)a d fr0NupNuB9 @Hy?6\2949Nu g g| gt gh g` g` g\`\akX$/ &/(/ BdL CdD Dd< Bg`CCVCBBD2??` y!f @?e*` @e BEAg e:<`:d>La~aE Ad F BdQar`H@@AB09!HH@ $H y!gL y!g 0< J2<0QQLNu0< J2<0QQLNu0< J2<00QQLNu `nak"/ d$/ d&/   d*/* d,/4 dփփ |!68aRA00000000C0a2D0a4aQa2`j0<` @eB@NuHQL@NuB X# Nu/:< XNup`:p`6p`2p`.p`*p`&p`"p`p `p `p `p `p ` p`p`pS"{ pa\pNu [ j   3 \ s 2 8 D D D H V ^ D D h p | ~Zbv~& img_setimg_stillimg_posimg_colorimg_htimg_saveimg_loadv_cutcrtimg_scrnimg_putkeysnsimg_homełPԖڂ̈łQԖڂ̈łRԖڂ̈łSԖڂ̈łTԖڂ̈łUԖڂ̈ł[hႢ܂t@Cُłt@C‚܂w肳ꂽt@C݂̏͂ł܂fBXNςłt@CُłOtBbNʂĂ܂z̗vf܂ʃ[hłRB/B?ߏ?/?$,6>$,6>@HRZdlv~@HRZdlv~PPPPP$P,P6P>QQQQQ$Q,Q6Q>R@RHRRRZRdRlRvR~S@SHSRSZSdSlSvS~TTSeNTTTTUUUUUUUUVVVVVVVVWWWWWWWW$,6>$,6>@HRZdlv~@HRZdlv~ȮҮڮȯүگ$,6>$,6>@HRZdlv~@HRZdlv~.GS0.GM0.GL0.GS1.GM1.GL1.GS2.GM2.GL2.GS3.GM3.GL3  @@?@ ??IMG_V22(     N    >N> H f`V break } next } /* ^Cg\ locate titlecol, titlerow : color 1 : print "BEST " + itoa(ranklists) : color 3 /* /* LO^Cg\ locate ranktitlecol, ranktitlerow : color 3 : print "RANK SCORE HU4:@@@@@@@@BvNubpeekwpeeklpeekbpokewpokelpokeiocs_arp_vrpP`t2H / "/$/ &/*(/4*/>ABa "JPaNO`JXk$h>*g\E Nu o 0(g\A ` / `"o p<NO`"o ap<NO`"o arpNO`"o AtJXk (pNO`RPQ`x"o aBAtJXk 2(pNO`TPQ`T"o aAtJXk "(pNO`XPQ`0 fNuXCpNuAhXw肵܂pA !@pNuNlrefresh = 1 /* while 1 stick1 = stick(1) strig1 = strig(1) timenow = time$ if timenow <> timenow_o then { /* ^C}[JEg_E if timecnt <> 0 then timecnt = timecnt - 1 else { entryname = entryname + mid$(namechrlst, namechrlstpos, 1)/*PIC@Odž1`Ҫ$/B!CCC)䄥'wEKQD8JRbSH EKQTR=Z^ QGU!0G9*D9r*!2b2șgEM!48$D# (d!42$8!Ĺ1WL!4*`%P(!D e eTDhሑXBi3" @pB"#Ī#8@D2S Bi IQ$ %T"4@^A 8b$`k2I1V ! P&)KgDH˜Q'0ƈkB$"`̞>C, 'XdDH1J,!LhX`ƈ X"5HC`&,b0cDD 4B 6R " C4K 7dHJC2)29QTB\DsC(!5F"!Ј!Q#Dj2Y1ȍLƢh"8"eRbha8 M28L,(&c` \ J"DȉV0<A# $S(dp$K*Rb"dFXG8B3D*DA,1AQ1b$D902Uxa"$ DɒLz"& 0DJA$a<"K VJ Q,%XF&!İPGPB"T&E"M1QBPIPB0LC2!8dDfU2:NC"!$Ĉ0fDLN&q%9D"M3(2"dBpȉ4ÈEHb"#ZPBf0bPIFQSxc&"PLcG61L{10%ЄDx0IHHdM 3jF 1(1 &#ДB I ""@C"!"U0IA$"&Bx@$%4#B M D "LЀL@D@$"GKUsUUUUUUO8BZLx|pW5MT&. ȼx3"0`,Ϊ <Ϊ jak&&U$*b&Lˆ 0 then break v_disp(0) strig1o = strig1 next } /* endfunc ` if Gruntimemd = 1 then stick1pressmax = stick1pressmax2 /* /* VXRAHU&8PZZPZZZZvF^V1.00-8703 ppNOrp}NONuB`p` aBNuA!@Nu / <dbSegUegBp}NO`appNO`pqNO`prNO`psNOJ@g`(/ d.*/d ,/ d./*d2HA24HB4pwNOJgR` / <d"/<d$/ dJgrJfpxNO`pyNOJ@g|g `puNO o "oBQ3@H@BP1@`ptNO o "o$o &o*2|HH&2IHH$H@2|HH"HHH `"/ d,$/d HA2pvNOJgt`p`p` p`p`p/S"{ pa` Nu &*4@<.bmousemsareamsbtnmsposmsstatsetmsposȃ[hw肵܂}EX{^̎w肪łȑҎԂw肵܂Ȕ͈͂w肵܂Ȉʒuw肵܂$ /* LO^Cg\ locate ranktitlecol, ranktitlerow : color 3 : print "RANK SCORE HU;@HP2NNNN@2$m_assignm_allocm_vgetm_vsetm_trkm_playm_stopm_contm_initm_statm_freem_tempom_atoim_assign2m_chm_pcmsetm_pcmplaym_recm_savem_rstopm_transm_fmvsetm_outm_diroutm_excm_rolandm_totalm_fadeoutm_pcmcnfm_switchsc55_v_reservesc55_reverbsc55_chorussc55_part_setupsc55_drum_setupsc55_printsc55_displaym_adpcm_blockmt32_p_reservemt32_reverbmt32_part_setupmt32_drum_setupmt32_commonmt32_patchmt32_partialmt32_printm_printu220_printu220_setupu220_commonu220_drum_setupu220_part_setupu220_timbreu220_drum_instm1_midi_chm1_part_setupm1_effect_setupm1_printsend_to_m1zmd_playm_debugm_countfm_masterm_mutem_solom_wave_formsc55_initmt32_initadpcm_to_pcmpcm_to_adpcmexec_zmsm_inpzm_verm_trk2zm_work^djjpvvv $,6<BFLRX`jr|vv TT444444442444444444444444424224P & " ~  ( ` L j F 8R*Rl:` nTz4R  v  ""# #$6$$%Z%%%&&,''Z'((\((()JC3B)3|Q @#P|/< HXO#@м #@aj|NuB)E3vK6-`$B XO/ x (< PCM WC xQH ZmuSf XiCf3@ XOpNu XOpNuC3VBBPz0:;k?>TOJ)g?< Hz:O<\O3@NuC3"J)f tvxr NCNuC3 B)z0:;k?>TO3|NuNua&:8g*4(m / a%H, / b'a%2)`$$/ "/ b&HB4rNCJf'`&a&:81g 4(a / a$, /a$)`$r$/ "/HB4rNCJf&`&a&^:7f&$/ "o if& i f&CrNCJf&`&Va&$:7gv4(v / a$r,0a!"o if&D i f&:CA2a!r fA2 a! t pa$d,QSJa!QUJ)`#$/ "o if% i f%CrNCJf%`%a%v:7gJok%4(o / a#)`#JJojtrNC"g%`%n$/ rNCJf%`%Za%(:6g4(t / a#v)"ofSJ`"$/ "orNCJf%\`%a$:6yf%2$/ rNC"g%>`%a$:6[g4(p` a rNCJf%`$a$M67Jf$tJok / SkJ.f b$r NC"g$`$a$j:5g4(s` a Vr NCJf$`$xa$F:5g4(c` ra 2r NCJf$`$Ta$":5g 4(i)`"rNCJf$p`$0a#:5f$F$/ r NC"g$R`$a#:5og 4(a o a, /a"")`! o a!a"rt FgB Ag Pf,a!k"a""gSg b#<`02<`*r`& Mf#t a!tk#a"|" m#҂SA&r:NC @"tvg RCQ`#p4HBJk#d"/4rNCJf#v`#6a#:4g&4(b o ta" MfR a!@)` o t MWrNCJf#&`"a":4Cg / a!= oaJok,p / a Jo$k,v /*a Jo.k,m /4a Jo8k,d />a JoBk ,c /H"B@H@a ,0a zJoLk /Rg,rJoVk*,f /\"B@H@JAj-a B,pa 6`$/ "ov(<z|~poo$o.o8oBk\&< dJok / HC6HCJo$k /*6Jo.k /48Jo8k />HD8HDJoBk*/HJoLk,/RJoVk./\rNCJf!`!ha!6:2f!~$/ &/"/ IArNC`!Da!:2f!ZrNCJf!j`!*a M2Jf!>trNC"g!L-HR-@` a M2YJf!(:56f"trNC"g!-HR-@(g o ?< HP<\O*k //:4?@O Jk ?>TO` a bA.J(gaJ o aB`>$o aJk at"MrNCHUIXO` Ra A,fJ(Ig~ aA.a / a^={"o if 4 i f *CrJfA,Ja g  t paT,QSJaQUJ}`$/ "o if i fCrNCJf`afA-J(g,aNAr JPk (a.,A QSJ}`&C0Ar JPk (A QA0$ "HrNCJfj`*a:0gp"o t4)RC Jok"/g0b*$A-Xa rpSa,R fJgr|    Q|}`x"o t4)RC Jok"/gb$rNCJf`|aJ:/g."o t4)RC Jok"/gb|$A,`P"o t4)RC Jok"/gTbN$rNCJfP`a:/mgh&/ K"/"o t4)RC Jo$k"/*g b$A,Lap[a|,Kap={ah  `&/ K"/"o t4)RC Jo$k"/*gb$rNCJf`^a,:.fttrNCJf`Ba:.fXtJok$/ rNCJf\`aA+J(ga o a`$o aPJkabE(a"HUIXO`:1k:.3Jok / V@Jok o`A(C/r .fP bSIJf.ZMSB`xaF:-gR"o if~C vJok&/A*a ka={pra`,Q|}`"o if,C vJok&/trNCJf.`a:-KgT"o ib4)C vJok&/A*ka kal={pa,Q|}`X"o ibt4)RC vJok&/rNCJf`\a*:,gT"o ibb4)C vJok&/A)a ka={paB,Q|}`"o ibt4)RC vJok&/r NCJf `a:,'gl"/ b"o i'b4)C vJok&/ A)UaP a< k,a0={pa,Q|}`&/ btHC"o ivbTt4)RC rJok"/ 6r!NCJfN`a:+kg / b""/ b"o ib4)C vJo$k&/*A(aar, ah k,a\={pa,Q|}`H&/ b / bKHC"o ibnt4)RC rJo$k"/*6r"NCJfh`(aA( J(xg0aJok /a:" o Jg$a"`"o ItRBJfSBg B bvJok&/r#NCJf`a:*gj"o ifC vJok&/A'aL ka6={pt a, f|    Q|}` o hfPA vJok&/C)t 2QC)r$NCJfB`aA'J(\ga o a`"o r9NCJf`a:)/gR"o ifC vJok&/A&aj kaT={pra,Q|}`>"o ifC vJok&/t r%NCJf`Ha:(gR"o 4) BbLC vJok&/A&Ga ka={pa0,Q|}`"o t4) BbRC vJok&/r&NCJf`a:(gT"o 4) BbC vJok&/A%aP ka:={pra,Q|}`$"o t4) BbhRC vJok&/r'NCJfj`*a:'gt"/ Wb@ e6"o4) BbC vJok&/ A%1a a k,a={pa,Q|}`t&/ HC"ot4) BbRC rJok"/ 6r(NCJf`ra@:&g"/ @bJg&oJgv"o 4) BbVC vJo$k&/*A$a aL k,a={"f|",pa,Q|}`&/ HC&o"o t4) BbC rJo$k"/*6A&2pR@fS@g bQC&$r)NCJf`vaD:%gp"/ bJg"o4) BbfC vJok&/ A#a a\ k,a={pa@,Q|}`&/ HC"ot4) BbRC rJok"/ 6r+NCJf`a:%g / @bJg"/ bJg"o 4) B9bC vJo$k&/*A"a.a, a k,a={aAa pr fSJAa fSJAa fSJAa fSJA a )fSJA /a /fSJA ?a a$,RQz|}`f&/ K /HC"o t4) B9bRC rJo$k"/*6r*NCJf`\a*A!J(g0aJok /a:" o JgXa "`"o ItRBJfSBg8 Bb0vJok&/r,NCJf(`aA!J(g"a :" o Jga "`"o ItRBJfSBg B`brp#NO/Hzr HQ PO$"HAp#NO`zaHA!J(g0a 0Jok /a:" o Jgva "`"o ItRBJfSBgV B bNvJok&/r1NCJfF`a:"cgR"o if C vJok&/A a ka={pra,Q|}`r"o ifC vJok&/tr-NCJf`|aJ:!gR"o ifC vJok&/A a  ka={prad,Q|}` "o if0C vJok&/tr.NCJf2`a:!OgR"o ifC vJok&/Aa kat={pra ,Q|}` ^"o ifC vJok&/tr/NCJf`ha6: gp"/ b~Jgx"o4) B fXC vJok&/ Aa a N k,a ={pa 2,Q|}` &/ HC"ot4) B fRC rJok"/ 6r0NCJf`a: g"/ bJg&oJg"o 4) BfC vJo$k&/*APa * a k,a ={"pRf bb|"a Aa  pr  fSJAa  fSJAa  a ^,RQ|}` &/ HC&o"o t4) Bf C rJo$k"/*6A0pR@fS@g @ b QC$r2NCJf ` ta B:gt"/ cb #e "o4) Bb `C vJok&/ A&a a V k,a ={pa :,Q|}` &/ HC"ot4) Bb RC rJok"/ 6r3NCJf ` a :g6"o if C Aa`pra ,Q|}` D"o if C r4NCJf ` \a *:g"o i'f `C Aia1  A[aA5apr'tvSf0vSJaA1a a *R  Aa  a J,Q|}` "o i'f C r6NCJf ` a t:g6"o if C AaJpra ,Q|}` ."o if vC r7NCJf ` Fa AyJ(*ga o Jg Xa"`"o ItRBJfSBg 8 B b 0r8NCJf 4` a :Qg$vJok&/ A!a k a `vJok&/ r5NCJf ` a zEJ*f "o B .fP c`Jf.ZMDBEMaJk at"M Zmuf v YSif n Cf f$rNCA g/IXO ` "a :g4(d / a>)`$/ rANCJf 2` a :Og4(z / a)`$/ rBNCJf ` a AJ(gax / a`l$/ r>NCJf ` a `:f aRrDNCJf ` ta B:f a4JgFrDNCJf ` Pa AJ(ga / af, /aZpJok, / "o*PI4RBa<={ a.SBg@," @NcSa z.HRHP?:"@O Jk$z  `}`x&/ K"/HCrJok"/ 6"o*PI4RB I$I"SA 4QrJNCJf`la::g&vJok&/ Aa k a`vJok&/ rQNCJfb`"a:g&vJok&/ Aa k a`vJok&/ rRNCJf`a:5f o p0(RA Jok"/gܲb "o r2)RC $㊲eHazL`|aJ:f"o p0)RC Jok"/gbz  o r2(RA $⊲e^HajL` a:}g o a`"o E*JvgR`|  VEa`a:7ftJok$/ rUNC`aAxJ(fpJ({gp0:6`af:g64(t"o GvJ[kXK  g,aQ)fSJ` "o GvJ[kHXK$rNCJfvQ`2aAJ(fD$/ rONuHBgHR=\O*j JHzfaXOJk"@rEJf  /g -gSIrg\ ;gV`"A`YHz"aXOJkx&@B." g ;g`p\*fSJ`fRK`g ;g`rHPp\*fSJ`fRH`fB _BgHzj=\O*jJfTJ)fLLNuH"zXIJg$ o  =fpfJf ` JfJfpLNu?<B?BPO&fXO`/?<X\OJjXO`x*@BgB?B/HU??OJjXO`h?>TNua zHRHP?:x@O JkN`g $g %g 0e 9bSHpNuSHpNu +gSHNu/ g gSH NuHxB JC`r t&CeR`ЃJfJgP<0Q޵f0LNuHxB JC`pB`pF` pG`pH`ANB(/ ScpA@0;C!| Nu&Idy,Qv4C\s8Wz$9Hc~;^#Lq7X{ - X  3 b  :p[^̏ȗ͏o܂gbNԍKOłyltrhbDwo^łgbNobt@̃TCY̎w肪KOłgbNobt@̊mۂo܂`lԍKOłž^KOłyltrhbDw͌ݓ~łhR}h̎gp@Ɍ肪܂̖߂̓RpCo܂wR}h̎gp@Ɍ肪܂hR}h̎gp@Ɍ肪܂΃{[̎wɌ肪܂bR}h̎gp@Ɍ肪܂`R}h̎gp@Ɍ肪܂ɂ͖֌W̃R}hłgR}h̎gp@Ɍ肪܂rR}h̎gp@Ɍ肪܂`̂llkł`́m`nR}hłn܂JԂ񐔂KOłJԂ\ُłJԂԍKOłIN^[ul܂IN^[ulKOłKOłgbNobt@sĂ܂aR}h̎gp@Ɍ肪܂`coblɂ͖֌W̃R}hł^C̎w@Ɍ肪܂sR}h̎gp@Ɍ肪܂sR}h̎gp@Ɍ肪܂l܂ʒl܂ʒlKOłjR}h̎gp@Ɍ肪܂L[R[h^m[gԍ̒lKOłFԍKOłp܂o`pɉ܂o`pɉ܂p^pR}h̎gp@Ɍ肪܂o`p̒ɋKÔ݂̂܂xR}h̎gp@Ɍ肪܂iR}h̎gp@Ɍ肪܂o^oR}h̎gp@Ɍ肪܂jR}h̎gp@Ɍ肪܂aR}h̎gp@Ɍ肪܂a̐邩A邢͌́f܂uR}h̎gp@Ɍ肪܂|^gR}h̎gp@Ɍ肪܂xVeB̒lKOłm^mR}h̎gp@Ɍ肪܂lR}h̎gp@Ɍ肪܂gR}h̎gp@Ɍ肪܂yR}h̎gp@Ɍ肪܂p[^̎w@KOłfBC̒l܂`coblp̃obt@sĂ܂`cobl̎gp͏o܂fBXN̓ǂݍ݂Ɏs܂vR}h̎gp@Ɍ肪܂[NGAsĂ܂̕s̃G[܂o[Wio[ႤA邢ZMUSICp̃f[^ł͂܂`coblF`R}h̎gp@Ɍ肪܂lhchC^[tF[X{[hłlhchyɑ΂p[^KOłp[^lKOłt@C̏oɎs܂wR}h̎gp@Ɍ肪܂f[^͎MĂ܂g`ԍKOłlR}h̎gp@Ɍ肪܂g`o^R}h̎gp@Ɍ肪܂GR}h̎gp@Ɍ肪܂R}h̎gp@Ɍ肪܂HR}h̎gp@Ɍ肪܂eR}h̎gp@Ɍ肪܂fR}h̎gp@Ɍ肪܂xR}h̎gp@Ɍ肪܂dR}h̎gp@Ɍ肪܂OPM MIDI zmusicOPM ZMUSIC.ZMS/ AF OM WF SY SP PMD AMD PMS AMS PAN / AR DR SR RR SL OL KS ML DT1 DT2 AME / AL FB OM PAN WF SY SP PMD AMD PMS AMS / WG PC PF PKF PBS WFM PCM PLW PWVS / P-ENV DPT VLS TMK TM1 TM2 TM3 TM4 LV0 LV1 LV2 STL EDL / P-LFO RT DPT MDS / TVF CUT RES KYF BSP BSL /TVFENV DPT VLS DPT TMK TM1 TM2 TM3 TM4 TM5 LV1 LV2 LV3 STL / TVA LVL VLS BP1 BL1 BP2 BL2 /TVAENV TMK TMV TM1 TM2 TM3 TM4 TM5 LV1 LV2 LV3 STL / TMD TMN TML VLS CHP EAR EDR ESL ERR / PSC PSF BRL BRU CHA PAS ABD ABR DTD / VRT WFM DPT DLY RST MDP CHA PAS / TrPRG VOL KTR DTN PAN .FM_VSET .MIDI_DUMP=.MIDI_DATA={.EXCLUSIVE={.ROLAND_EXCLUSIVE .ADPCM_LIST=.SC55_V_RESERVE .SC55_REVERB .SC55_CHORUS .SC55_PART_SETUP .SC55_DRUM_SETUP .SC55_PRINT .SC55_DISPLAY .ADPCM_BLOCK_DATA=.MT32_P_RESERVE .MT32_REVERB .MT32_PART_SETUP .MT32_DRUM_SETUP .MT32_COMMON .MT32_PATCH .MT32_PARTIAL .MT32_PRINT .U220_PRINT .PRINT .U220_SETUP .U220_COMMON .U220_DRUM_SETUP .U220_PART_SETUP .U220_TIMBRE .U220_DRUM_INST .M1_MIDI_CH={.M1_PART_SETUP={.M1_EFFECT_SETUP={.M1_PRINT ".SEND_TO_M1 .FM_MASTER_VOLUME=.WAVE_FORM .SC55_INIT .MT32_INIT ;B@'d "%)-27<BIPXakv3Qs Vl$MUSICZ.FNC V2.00 (C)ZENJI SOFT n A"!NO"344444$Ue%Q/!*)2#431441444441"")+˲>D."CCCCC""˱!$fvQUe%Q "."32CBCC!CBC">"/."3CCC"$fvQ"Ue%Q"#!CCCCCC"B#)+,"HU "ffffffff@L^peekpokeTXhNup @2|pNO3"@pNOpANup @2|pNO0"@pNOpNu$%VVegYe%ZV#:'/:'J&qrbbbU/uvVQVfqWgVURV2ga!q&&?VVwwgviWee*!*?*OC4egQvkavfbauVbqUgbq%gbQW%W&g&bgQ"gaguQ$VuVVwwgviWee*!*?*OCegQvkavfbauVbqUgbq%gbqW%aW&Qg'bWbVQ &qVVwwgviWee*!*?*OCegQvkavfbauVbqUgbq%gbqW%aW&Qg'bWbV%veVVUfWev'ev'eU'e'e&eWeWe%e%uvVQUeeVufVrgVrgVrUVraVbqVuqVuVVWRg^ eVVUfWev'ev'eU'e'e&eWeWe%e%uVQUeeVufVrgVrgVrUVraVbqVuqVuVVWRHU B@@@@LNupNO/| 4eB ?pNO"@ApJokJ gfgpNONugfpNONur@b 0:f$/ kn Qdf0:fl3J${ 0:Y@f*C$pNO@Y@dA0g Sf Ez`E:C4" pNOB"o0)@4@BA #Jol JBg0)` / d3Jo$l JBg2) `"/* d3RR&p0)RJBg2) RepJo.k /43`2p`.0:XfA0/0Jok0/0`0:,f / gk0:kJolt`$/2:RA0 z2:0<fT#Jolp0:j` / dzVbe3 pJo$k /*k~2:kJ@gR@3By`>p`:3#3 pNO/|Ap (((((| |"_pNO`a`0:H`9!<##zNs9!<#d#XNs9!<#B#6Ns9!&<# #Ns9!V<##Ns9!<##Ns9!<##Ns9!<##Ns9! $<#v#j#b#Z #R$Ns9! f<#<#0#(NsSyd(! Ln&H&&40"t         0 ((D1(C(A(1HU@Xfspfile_defpalfile_def``nB .NVak".tSeCBg/.=JkEr/<`:B .NVavk\".tebC"Bg/.=JkDEr/< / ??Jo J0"QQ>pA4!@tN^ X NuC*t`C7t`CDt`rpNOJNuʃ[hsłt@C܂p[^ُł0 gwgwwwgwvffffffwwwwwwwwwwwwwwwwwwwfwwwgwwwffffwwwfwwwwwwwwwwwvwwwwwwwwwwwwavwafvfgavfvvgwgwwwgwvffffffwwwwwwwwwwwwwwwwwwwfwwwgwwwffffwwwfwwwwwwwwwwwvwwwwwwwwwwwwHU lJJJJJLJJb , pNu0<NONup`p` apNuA@!@Nu/SC"qpa Nup/f0<NO` @fa0<NOJgp`p`Hr0<NOJftvxE0<NOQL?NuL?pXO`p`pJoj|Joj~`@~/ Gc4p``|/ Fcp`NJoj.`~/ Gcp`2FlG"Ftvx*0<NOJjp` RAQ`Joj|Joj.<`~/`|/Joj.`~/FlG"F0<NOJjp`RAQ`r/tJok@t/#f8 o h?dp` NV"O|v~Q"Q`\ BfP o hdp`D NV"O$O@|vx~(QPH"$Q`p`"O0<NOJjN^p`N^`r/tJokTt/#fL o h?dp` NV"O0<NOJjpN^`|&~QQN^`h Bfd o hdp`l NV"O0<NOJjpN^`P$I@|&(~@QQN^`p`r/ Acp`Jojt`$/ cp`Jojv`&/  cp`Jo$jxz` x/-Dz0<NOJjp``rr/ Acp`|Jojv`&/ cp``Jojt`t/#o Bcp`B0<NO`&r/ Acp`&Jojt`$/ cp`Jojv`&/ cp`Jo$jx`(/* cp`Jo.jz`z/7 Ecp`0<NOJjp``r/ Acp`0<NOJjp`| /f `^ @f `R @f `F @f `:p`Fr/ Acp`4$/ cp`"0<NOJjp``r/ Acp`t/ B?cp`v/# C?cp`(/* cp`0<NOJjp``r/ Acp`t/ B?cp`v/# C?cp`|0<NOJjp`l`Vr/ Acp`VB 49(. XOBf <` <Jojt`$/ep`Jojv`&/ ep`0<NOJjp``r/ Acp`Jojt`t/ Bcp`Jojv`v/# Ccp`0<NOJjp``pr/ Acp`zp/f0<NOJjp`b `J @f0<NOJjp`F `. @f0<NOJjp`*` @f0<NOJjp``p`0<NOJjp``0Hʃ[hsKłłPԖڂ̈łQԖڂ̈łRԖڂ̈łSԖڂ̈łTԖڂ̈łz̗vf܂sp_dispsp_onsp_offsp_clrsp_defsp_patsp_movesp_colorsp_setsp_statbg_fillbg_putbg_getbg_scrollbg_setbg_statsp_init4    $p^:,d t>"wwwwffffffffffffUUUUUUUUUUUUeH3UCUC8TC8T8TH8UCDHTH3V`94U`4U`4E`8E`E4UDPEP"""""""""""""""!!!!!!!!!!!!!!!@dOFidKOldOo""""""!!!!!!!!!HUTTTTTTTTV1.00-8703 aBNuA!@Nu"/ S<d:::"++̪,̚,̙̚3NCC44C>:::"*ªªªª*fffffafafaffaffffgfgfgfgwqqgqgagggggggggagqgqgqqqvvvvvvvvvvvvvvffffffafffafaafaaaaaaafaffaffavfavfavfawaTZ343333ECEҪ,"EC3E3334T3T"ڪ-""HUZ@@@@@@@@BtNutlinetputtpalettclstfillthometpsettpoint4Pna" / "/$/ &/*(/4aa 9Nua / "/$/ &/*(/4ؼ */>aa 9Nua x/"/a a 9Nua a a 9Nua / "/$/ &/*x/7a a 9Nua l / "/a a j 9Nua P / "/x/#a a H 9Nua . / "/a :a ,A 9Nua ea ea eB<<><@nBCH3Al3LHD8:@AjDCDFDGJCg$JBgO:0HD@@0;N43J*Nu8`A5||BDCdBQNuA5||BDCdBQNuA5||BDCdBQNu5||BDCdBQNu5||BDCdBQNu5||BDCdBQNu5||BDCdBQNu5||BDCdBQNu<N:0HD@@0; N4Nu>lBA5||BDǜBdCQ NuQNuA5||BDǜBdCQ NuQNuA5||BDǜBdCQ NuQNu5||BDǜBdCQ NuQNu5||BDǜBdCQ NuQNu5||BDǜBdCQ NuQNu5||BDǜBdCQ NuQNu5||BDǜBd CRHQNuQNu3*L (a 3 f*Nu3*0: 2: a3*0@@A 83.HD+B+CQ3*3 *NuK H+D aeZB-Jg> ErC ߰VJAjB-` ErC ߰VJAj |^BJRB$ԂԂԃ/HX+@k @"@$I&Jprtvxz:-<>-GSF Fo <<>ERG0-24-BSA Ao4<@RB;B;GEQEDE2FRF0-HI@;AfV|,m 0-S@>-SGH?rtvx    Q9:;<>QL `BB->-EFO?,m 0-S@EEK\*uPHHNL@ "QL:K 0-2-a0-S@>-SG$<&<(<EI N:4PFI V<4`*J-fJ-g"E3.(N(8HMQ`TH3.(8HSGkBy.(8HQ3.(8HL@MQ/-IXB9*BNuJ-g*E3.(N6(686HMQ`H3.6(686HSGk By.6(686HQ3.6(686HL@MQ`N                                rtvxQ^>SFk&    Q9:;<Nurtvx    `rtvx        `trtvx            `2rtvx                `rtvx                    `xrtvx                        `rtvx                            `vrtvx                                ` : | 6 8ae"JkX nNA"D1@BNup"$&(*, @"@$@&@(@*@3*+M><H?H?4H?hMQ3*BNu@lBAlCaBe6aZe0are*3*A>62aRCQ3N*BNuae33BNuaeHa eBa@@3*A 3*+3.3*BNuaedad@_@D@3*3*xgRDgTDgXDgPD3~*#BNuHCHLNuHMHLNu @m^ @nX AmR AnL<Nu Bm@ Bn: Cm4 Cn.<NuJk8 n2<NuB X#Nu/: XNuC#<NuC#<NuC#<NuC #<NuHAlB3Rxz<<><GnJEmDFoFn:4DlDm.2CGI*>OG<ARFpz| n >GG 3pFA8:NL8F9@BiH@9@BQD2H@9@2Œ| AjLNu>Og|$I8p|DGGNp$$$$$$$$$$$$$$$$$$$$$$$$DNp""""""""""""""""""""""""Fg*FF 3`89@BiH@9@BQD2H@9@23*LNu??PSETXOR Wl͈͊OłJ[R[h͈͊OłpbgR[h͈͊Oł[hwɌ肪܂????LF&2*"  < ((\* ".Jrasterhasi 0*B0*B0*B0*B0*B0*B0*B0*B0*D0*D0*D0*D0*D0*D0*D0*D ʠ /6/6/6/6BEEP = ON CAPS = OFF ED = ED EXTEND = ADEL FKEY = ON FREE = 1500 FUNC = GRAPH FUNC = MUSICZ FUNC = SPRITE FUNC = STICK FUNC = APIC FUNC = TGRAPH FUNC = RASTER FUNC = SPDEF SINIT = ALWAYS NEVER TAG = XB.$$$ WARN = ON WIDTH = 96 /)*/2#DC$C#32#4CD>3"...2#4D4B322#./4C>/D>/3//vqfqfqfqfaggggvgqfwfwfvgvwfvgfgwqwvwwwwwwawwqwqwqwvgwgawgawwvvqqqqqAHJ$</<He".H,@C"Ђ(@O-@Ҏ-A~p-G-G=G=GG=@=@=@H=GGGGApC Nfaa VHz6?<%\Hz.?<-%AZBX >3=@>3\=|=|aL΀Ba-L -L -Lp0.f0<r Cb-L-I-I/ /JPa8-nBnEBg/ =Jl Jf|.basB=Jk*n".eB/Hm??EBZId">Op=@=@ =@=@=@$=@=@=@=@`=@l=@x nBBnTa-L-L*nRapJ@f< BBg&a2Hnpa@0<a8pa2paX` HnpaXAdtaJ@kg }g| ?bg *g /f -*faR`Rp`Raa` "f4aa "f(`a""IXA&nhaRf$ aNupQ`8pR`HBRBg TBg p:`6Bg`?<8RHBa| =f&La7H(K8` [gL/aZ =fGa7$N"JAg 8HF8ISAeA N8Q`j8HF8``8L/Rt&La6 ]fa =f4<a6(K$HB8`*a =frA 6pr2RQ"6KHBa2ak :g" }gz /f -*gjaf&``R`Za0Bp` =g (f p"` p`p`p`p8`p9`Jk nJf8&a$p`g-La C|aCagHzaXg=|`Trara B?<#TBn ag/.Y?</.Y?<?<*na?v,z< kv.nJnk?.>T=|a?<#TJngJ.ga\f(/:g?<-%. >k3. g rar apa$6./IXaX?LHz Hz >LA.fRJn2kJ@f Hz!aXf d/<#UW#HzK PdaNuHz$ >L=|p`Zp`Tp*`Np+`Hxb.cnfbasic.cnf ؂a`rhb ver.0.02 ( H9/3/5 ) (c)v914AKSTN. gp : xb.r [-option] BASICt@C(.bas) -f<> : t[GȂ傫̎w ( Kb P ) -c : RtBOt@C̎w -e<> : g@\ ON/OFF / x@g xTeA0 !RxA0 W.NuaaNa^`aaDax=|`f0HHz~ X a4`fHHzf X a@LNu/pa=| Nu?A N/'Q' B X0`B. NC/JfQ/ XA N ".g2Hz .aHz P r : E NfS`B.Hz Xf|  BJ.g(0.l?< Hn<\=@?HnXHn N\Nu// Hz P?Hz| Xp _ yNu ( Y or N )[jO܂AvOs܂Hʂ܂HWarning : ccs mۏo܂ł t[GA܂ł؂aɃoOL̃Xe[gg͖T|[g@G[ϐ̐錾ςłdɐ錾Ȃ‚͖錾̕ϐ낤X^bNӂ܂ςȎ̃Xe[gg͂܂soȂdim Ŕz錾܂sԍȂł擪Ƃ₱łRtBȌςłw肳ꂽO֐̃t@C֐݂̈֐̒ɕςȈO֐t@C̃p[^e[uO֐ŃG[void ^̊֐ɂ͕Ԃl͂Ȃ񂾂Xe[gg̃p[^̌Ȃcolor[ ɑΉ ] ܂width Ɏwol 64 96 łfor ̏gpϐ̌^Ⴄnext ɑΉ for ȂlXg\ break, continue ͂ł܂if ̂Ȃ then, else łif ̏̌^Ⴄendwhile ɑΉ while Ȃuntil ɑΉ repeat Ȃ錾̊֐złȂz̐錾ɓY̎w肪܂z̐錾łz̓Y傫܂z̓Y̐̂悤łfunc ̏ɊԈႢł̊֐͂łɎgĂ܂փANZX|C^̒l܂łlXg\‚Ă܂endfunc ܂łlocate ̃p[^ł˂endfunc or return ɑΉ func ܂łswitch ̒ continue łHcase, default, endswitch ɂ switch KvȂłswitch ɂ͂ς 1 ‚ case Ȃfunc ` endfunc ̒ɕԂl܂return ̏using ̃tH[}bgusing ̌ ';' Ȃłconsolẽp[^܂break ܂input, linput ̏Ⴄz̓Y̌Ȃłz̓Y̌łVXeϐɂo܂錾ϐ int ^ɊU܂z10܂łȂłSiTCdefault ̌ case, default ͒uȂłexit ̏ςłkey , ܂key ̃p[^[܂łw肳ꂽRtBOt@C܂sԍ̌ɂ͋󔒂肢܂inputn, key ̂ŁAt@NVL[{ƌ݊ɏւłGfB^No܂OŊ邱Əo܂date$, time$ ֕ςȒlȂʼnscreen ̉ʃ[hُłGV-RAM ͎gpłconsole ̂RԖڂ̈K͈̔͂𒴂Ă܂֐̈̔z̓Y܂̂̔z̎܂end ܂ɔzȂ񂩎g܂w̍sԍ͂܂gsԍ 0 65535 ܂łȂłς gotõx͂łɎgpĂ܂label ͂ " łĂgoto Ŋ֐ubN̊OɔтႢ܂z̓Y̑傫ɂ͒萔g܂global ȉ•ϒz͎g܂?<#HnHn NNO k\/. dA NCf| CfHBHn NHn N?<KJk*BWKOL?<#HnHn NNO  dNupNuBpD`:O*OGEJgA NalpA`Eal Eakaka =fa J@k<;`N`Fnfuncbeepcapsfreewidthfkeywarnsinittagedextendonoffalwaysaskneverauto M*HJnf=@``Cta va>YFe FdUFQ`tagUFg QFf``tag UFf`t`pA`A e`BS`TB@ e aej bd; g^`S`,R e`BSa `bSE=EJ.gAJfCfO@NuB.B.p`*xb.errA NC NfSfBgHn N=\Jk/<?/ ??B5>O pNuE{|Jg, Mgr gJfTF`r  ae ze*HJFNu|Nu:.-L&L0kTHIEA NC NfSf|.fncB/./ Hn N?<KOJoL&Q|&n-LIaG:.k [*h L$?a:Q(n=FGKNaNu=| @gp`8RDL O0 GQ4SBk.G S(:BSE$K"b)d %IQY%HXQprt"OB] Y(g ::Rr`((((RA|Q:2<@kp*QNuJga|((((RFRJfNu-LO(O-LA N <r Q <r7 QA N| |f|u|nB(c=|XB@0fRp"M !nfH !ufB !ff<!  g  g 9b( 0d  f-  g  f Ha.Lpe(n-L2.k O((((QO@NuRa\?aaJDkaJ@fazJ@fvRn(a(&n(B (fBav )ggh "g *f\RaaZFa`6Ra aJ "fFa` pR`g$ M*H da a(XNupN`pP`a6JAl,2.lRAI/Hnd aa apaaX"p0Nu6.lRCKSCk2&nht rf k"J0VgGRASBWf&St QrNuH8.xRDLSDkD&ntv@$lF2IXA/ &nha&_"@` aJAk af [a& SCWf&Sv@QLNu*[apN`H:.k&nıeIG dd QL NuL *Ha|pS`jH6SCr&n"naRAQLNuHr6.`&n\aRABWgrLNuJjh (f.Ra` )g 84.8J&La$(K )fNup2`RJnf8B\Nup1`Jjf nJfF88aLNup-`f nJf$8a*`ga aaJDkaJ@gFCkK&n'L 0.R@@80.R@@8Hn0S@aXp=@,=@4=@<=@D=@L (fal0l @fh/ ?a*aJ@fa*J@fakJk4 Bgp`Bga^`a ;fRa$_aR ,g )f20l,` )f"@gS@gS@gS@fp`0<`p=@Nu?AHra 0 @f o0BAB8DA@/H``ذa8&Lta ,f 4<a (KNup?`؊a [g 8taNu8FtR` a ,fRa ,g ]f8`B\?t&La f(K4Q ]fNup`( ,g0G N6ta > ,f4ta 2/ a A NHS@8QNuRa: ,f 8HtaHNup5`8ta:Nu ,g8ta, ,gNuRa ,f,R8Jt&La (KNu ,f?t&La (K4QNup`|8aEma ,gaJkg0 }gx :bgp /f -*gb ,g$` ;g agNtGa LN8`8Ra\J@k$ :g }g /f -*g ag`~8NuB\Nua& "f$Mg g "ft;a2;N(fX\ "g e88aLUAegaS` "gf d`\p`pR@  g *&fDf88?a8`rf$8a`b&L4</ a 4$_t,(KNu *fxp \f&xp`" \fxp`xp` #fNxpS8f/ &L4<HaL(K$_t,al8 ,fR .f RpaR8`8 +g" -g" ^f"r J ^Vf$H` `R8` ;f`R`TR@ #gSNug.ArTAgfNurNu_"#.+\*!&@using ;gp3`p4`BB (@Nua4Rg "g g g`aNu8 "fa ,g ;g`SaRaaJDkpanJkfHBJlFB( ,g8Nu8 "f av ;f6a^aa`JDk&a$JkV BfTfLHBJlFB8Nup7`a\J@oEFraWgrpNuA ApNua2J@oEC*raTWf0NupNuintstrcharfloatrv k&XRP4g0| c&S`pBf""H0X@aIJBf&I!K`'0&IpBh&a&8+JlFBNuSBf [fRa@a ]fNuHK*a o$gaz?4/ a4aZ =fR?4/ 8J&La(K8 ,gNuR8D88<a {ftRaH f "fg~ "g`B`0Jg&ka`"Hp M *H #fR((L`az(RBa ,g }f.SBe*Ab&6 R(@Nup`Bp`2p`,p#`0p$`*p<`$pT`pU`GtPWfT k"J2 VfYBd6 Bf& (fRa0 0fva$ )fjSBa HB4<`YBHBBB`JjTvG(al*G0ak4<`G@a|k4<` G8ank 4<0<Nuv JjGHaVk 4(0<NuvGaDl(Gag -=f0< TNu0< TNuRNupNu ><=-+\/*CE$ra:g TQpNu0Nuorandmodnotshlshrxor Mg gJfpNu $g 0e$ 9c Ae Zc _g ae zc*HpNuH~pG NtaG N [f~ L~Nu/ O(O)K L"LA"A"A"/aJ@kHg @g @g @f20< T0(aJ@gk .g &g "g 'g (f*R&ltatLBX""H )g`aHJDm (fVaFJ@gNJkDgSgSg 4<`4<` 4<`4<L BX"6HaLpT"H `p`˾akV Bf [ggv"TBY(L"P4<`JjRZHB$4 (fpR&JHtaПLD$K ,Vg"JBf )fT"H` p8`t`aadLBX"6<[4 Bg$p`$$p #fR"Ha,J@o @g T0(`l"T( LD ?SDe44!o, Bg& Bg I62 gkb 1AQU1BQ:CE&l ajH, Ff<`@g @gN FgFp2 AdI q"1ASA6Q`BB6IA6T@Q@O(_Nup`\p ``H(pp8JZf5@R@Q8<" Fd2I q g|`N?`4J Bg Bg02 f gr`g gJk JkBB`C Bg Bg BeB>4JAkJ@k8JkJk`fJ@k JkJk2 Bg BgX`JkJkQBbB4; N tt&T4I0H q (gQb@0;` 026>@ABCI0H q (gxQbr|W`I0H q (gXQbR|/`I0H q (e6g\tHHe,RBHe&RBHe RBHeRBHeRBHeRBHeRBHdJf0`zI0H q (Ue b|0`X g >g ~g g`0<@`.0<A`(0<B`"0<C`I0H q (gQb|'H4>SE0D JXWfU0Q`>` Bg Bg BdJl>HIdI qL `I q ($&0HdH qL` H q (<F<;`N`-` .`+`,4J5BJ q H`HH qT II qT"B4; N &**.26:>BHNTZ`lpt`L`H`DЁ`@`<`8`4g"`f`m`n` o `lp`p` `` UE0D J0Q`z`t Bf4`h B e Bd B4>`N0 gJkJ@l Bg4`0B4`*HH qT  BfF`D SE0D J0QQ0LNu Bg> &g M*HNuAp  hg bg og `t*HNu*HNu*HNu? M *H4Nu Mg .g #g 9b 0dtNu4<NuRpg "bg  g  gR@`SBHdR@BNuH?6r )gRaܚ4l Bg`Jl ,gb )g\p`f`f&ff$ffp`4<`4<` 4<`4<6TAZBH@ aLҀ`z6TA`pH@0HaJDm8ak0g(02( gSAff `g0L a<@JjRZHB&XA` H@0axJDma:kgL 8vDBBfh f<@JjRZHB&XA8A Dd0PfTTQ`?H@0aJDmnaL Jkbf\0a(<`JjRZHB&XA`h )fNR6 LpNug Bg(gJBgg Bgg Bgp`xNupJ`ppK`jp`dp`^&O n0( H|"O(O)ICe/ JkC-I / HnHnHnHV`HlHlHl HlHTaO&_)n-l0:gg8krgh8;@N@`4B.j  P f4J ~ `~^ \n "  "6a`xgDa$&"Ha |Jg(kSg`RAf`DH `8!`.a4kDJg4kSg"n `"nJH `"nJC f`"VJ# `FBJg4kSg"l  `"lJH `"lJC f`"TJ# `a֘p`x`x0Jgk: g f~?/a"8NuJ@kf&a~`gzHx@aZLJPfP (`d f f&g l ` n00`@/a "0`2f a n`a l @d V/2I@0"` `lJ@k"fa`\ fDf20l$a`Fg>Hx@aLJPf (`( VH 0`0 TH 0`/a r" 0` Jg k gZNuNu/?a`8Jgk g<"Nu"NuXNu0Jgk fJ@k f$a NugxHx@aLJPf (`b f f&g l ` n00`>/a"0`0fa n`a| l/ @d 2I@0"` NuJ@k faNu f@f.0l `*gL`t/a"a"Nu/a"aJgA"Nu/a"aJgA"Nua/aПNu/a"a "Nu/a"a "Nu/a"a "Nuk(Ug8H@a"Hag gLNuLNu?a$&a8)Nua6"a0Nu/-g ag`a"ag`/-g af`a"a각f`/-ga^br`va"aưnb`f/-ga>eR`Va"amB`F/-gad2`6a"al"`&/-gac`al"afo`p"Nup"NuaPFNuaH/aBNua:/a4Nu/a*"a$"NuaDNuaRNua TNuaVNuaXNuaZNua\Nua^NuaPNuaSNuaUNuaWNuaYNua[Nua]Nua_NuaQNuaJlRNuaJlVNuavJl^NuahJlDDNuNuaTJlDDNuNua@JlDDNuNua,JlDDNuNuaJlDDNuNuaNuaNuaNuaNuaNuaNuaNuaNuaЀNua/ЀПNuaNua/ПNuaЀ/ЀПNua/爐NuaNuaz/ПNuanЀ/ПNua`/ЀїПNuaP/ЀПNuaB/їЀПNua2Ѐ/爐Nua$/鈐NuaNuaNuaNuaNuaNuap`apE`2gA`2lFAA` n I p2(PgX`8aU?=@ a?@W @ bf/<#XW@f ?<#\`ap5`a"S@b0/<#JAg JgBo`Wg.#.#X`aǸpI`a @@gr @`gaǜp`rJ??<#.#Xa`vaZ @brgDrAaJ @bb@@Aa:S@gbRRAa.S@gbFpNOJ`4aLf@pNOpNO`a J@f$aS@J@fa?S@kba f?<#X`apG`apH`?BAtpNO2JgWNurvJ]f?a$pNO6RAQ`a2p"NO`aY>azn e?@?<#\`|axp,`faVJfgb?<` fT?<#T`H?<T`"n Edg<$o$0R@H$o$0R@H$o $0X@@$o$0R@H`@r$o$0R@a\$o$0R@HaL$o $0X@Ha<$o$0R@@a,$o8k>vfT$B2a22Qag`raQ-I n6kz"o\0k4$oJ% `X4JgDk,Sg$o $R `>$oJ$RE / if _`$$oJ$R% % `$oJ$R% C QNuptJgkSgpt` 0<t`pt2Nu2IG/ p`'r2!RQ"_VNuSk"QB@SdNuS@k"QNua|p`j?KTJl```Vp?/?/BJkp/@BP`,P @g2`?/TJl @g`n op  rg* wg6 cf:Jf4?< //<\Jl`6rp  wfrR`rJf?//=\Jl`p/?/?XJkp/`a2//?/*?O Jlt`a//?/*@O JlZ` o\0;r2$/kReNu o ?//\JktpR@JfS@`?/C N/ 2\Jl @g`D o pR@fS@g (fpB(`?/"//?/BPJl`// AXJl`////VPJl` o /pgrR@fS@`h"o IxRDJf o pgN4k $IWg>R@`"o IxRDJf o pg 4k $IWfR@` o "Hg Ae Zb( ` o "Hg ae zb(` o /"/ "HSAeJgQ` o /pR@JfSU@e WH` o /Jg`"o $IA NpR@fS@ezS$IQB`Z o JgC$Ifp`0.kHC oa(a0fR@R`G Ng R@ag`B=@`$HtRBJfNu$H&UCeWNu/ 0e 9c Ae Zc ae zc`/`/l`/ g e|`h/ 0e\ 9cd`P/ !eD ~cL`8/`/ e& ~c.`/ e /c :e @c [e `c {e ~c`/ g e c`/ Ae Zc`/ 0e 9c aez fc`np/@`rp/ Aed Zb\ `Tp/ aeF zb>`6 o"o "/ o UAe JWggf$H&Igg J"KR@`"o IrRAJf /k^S@mg @dAr / kF@dA`*"o IrRAJf /k*@dAr` "o /kA NS@eQB`A NB` o p`l o pR@JfS@`Z / A NB`V / A N`H / A N`: / A N`, o`rp#NOB@H@2/@br0r `r 0/C NS@e @d6QB` o C N$IpR@JfS@eSQB` o "` o `L$/A N$"o ""o*"`L$/A N%"o ""o*"`lL$/A N&`X / A N`JLA N#`: o `Jok L>` <@ !" 0 then { switch cspmvdir4 case 0 : cspy4 = cspy4 + 1 : break /* case 1 : cspx4 = cspx4 - 1 : break /* case 2 : cspx4 = cspx4 + 1 : break /* E case 3 : cspy4 = cspy4 - 1 : break /* endswitch cspmvstep4 = cspmvstep4 - 1 if cspmvstep4 = 0 then cspanmmd4 = 0 } /* LAj if cspanmmd1 = 1 then { if cspanmwait1 = 0 then if cspanmcnt1 < 3 then cspanmcnt1 = cspanmcnt1 + 1 else cspanmcnt1 = 0 if cspanmwait1 < 3 then cspanmwait1 = cspanmwait1 + 1 else cspanmwait1 = 0 } cspd1 = chrspdlst(1 * 17 + cspdir1 * 4 + cspanmcnt1) if cspanmmd2 = 1 then { if cspanmwait2 = 0 then if cspanmcnt2 < 3 then cspanmcnt2 = cspanmcnt2 + 1 else cspanmcnt2 = 0 if cspanmwait2 < 3 then cspanmwait2 = cspanmwait2 + 1 else cspanmwait2 = 0 } cspd2 = chrspdlst(2 * 17 + cspdir2 * 4 + cspanmcnt2) if cspanmmd3 = 1 then { if cspanmwait3 = 0 then if cspanmcnt3 < 3 then cspanmcnt3 = cspanmcnt3 + 1 else cspanmcnt3 = 0 if cspanmwait3 < 3 then cspanmwait3 = cspanmwait3 + 1 else cspanmwait3 = 0 } cspd3 = chrspdlst(3 * 17 + cspdir3 * 4 + cspanmcnt3) if cspanmmd4 = 1 then { if cspanmwait4 = 0 then if cspanmcnt4 < 3 then cspanmcnt4 = cspanmcnt4 + 1 else cspanmcnt4 = 0 if cspanmwait4 < 3 then cspanmwait4 = cspanmwait4 + 1 else cspanmwait4 = 0 } cspd4 = chrspdlst(4 * 17 + cspdir4 * 4 + cspanmcnt4) /* } if lc1 > 95 then { ty = ty - 1 } v_disp(0) home(0,0,256 + lc1 * 2) thome(tx, ty) sp_set(cspno1 , cspx1, cspy1, cspd1, 3) sp_set(cspno1 + 1, cspx1, cspy1 + 16, cspd1 + 16, 3) sp_set(cspno2 , cspx2, cspy2, cspd2, 3) sp_set(cspno2 + 1, cspx2, cspy2 + 16, cspd2 + 16, 3) sp_set(cspno3 , cspx3, cspy3, cspd3, 3) sp_set(cspno3 + 1, cspx3, cspy3 + 16, cspd3 + 16, 3) sp_set(cspno4 , cspx4, cspy4, cspd4, 3) sp_set(cspno4 + 1, cspx4, cspy4 + 16, cspd4 + 16, 3) next /* home(0,0,0) thome(0,0) /* strig1o = strig(1) for lc1 = 0 to 359 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* /*** CAST 2 ***/ msg1 = "" msg2 = "@@@@uq(MOB)" msg3 = "@@@@uȍ" msg4 = "@@@@搶(GreatTeacherOCCHI)" msg5 = "@@@@ꌒSam()" msg6 = "@@@@Z(KO-CHO)" msg7 = "@@@@h̍Z" msg8 = "@@@@g[Xg(Kari2GORUAToast)" msg9 = "@@@@JJ" /* vpage(0) home(0,0,256) thome(0,32) wipe() cls sp_set(cspno1 , 0, 0, 0, 0) sp_set(cspno1 + 1, 0, 0, 0, 0) sp_set(cspno2 , 0, 0, 0, 0) sp_set(cspno2 + 1, 0, 0, 0, 0) sp_set(cspno3 , 0, 0, 0, 0) sp_set(cspno3 + 1, 0, 0, 0, 0) sp_set(cspno4 , 0, 0, 0, 0) sp_set(cspno4 + 1, 0, 0, 0, 0) /* /* symbol(0, 16, " [EPILOGUE]", 1, 1, 1, 65502, 0) symbol(0, 36, msg1, 1, 1, 1, 65534, 0) symbol(0, 56, msg2, 1, 1, 1, 65534, 0) symbol(0, 76, msg3, 1, 1, 1, 65534, 0) symbol(0,106, msg4, 1, 1, 1, 65534, 0) symbol(0,126, msg5, 1, 1, 1, 65534, 0) symbol(0,156, msg6, 1, 1, 1, 65534, 0) symbol(0,176, msg7, 1, 1, 1, 65534, 0) symbol(0,206, msg8, 1, 1, 1, 65534, 0) symbol(0,226, msg9, 1, 1, 1, 65534, 0) vpage(1) /* tx = 0 : ty = 32 cspno1 = 6 cspno2 = 8 cspno3 = 10 cspno4 = 12 cspx1 = 0 cspx2 = 0 cspx3 = 0 cspx4 = 0 cspy1 = 74 cspy2 = 124 cspy3 = 174 cspy4 = 224 cspdir1 = 0 /* L 0: 1: 2:E 3: cspmvstep1 = 48 /* LړXebv cspmvdir1 = 2 /* Lړ 0: 1: 2:E 3: cspanmmd1 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt1 = 0 /* LAjJE^ 0`3 cspanmwait1 = 0 /* LAjEFCg 0`3 cspdir2 = 0 /* L 0: 1: 2:E 3: cspmvstep2 = 48 /* LړXebv cspmvdir2 = 2 /* Lړ 0: 1: 2:E 3: cspanmmd2 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt2 = 0 /* LAjJE^ 0`3 cspanmwait2 = 0 /* LAjEFCg 0`3 cspdir3 = 0 /* L 0: 1: 2:E 3: cspmvstep3 = 48 /* LړXebv cspmvdir3 = 2 /* Lړ 0: 1: 2:E 3: cspanmmd3 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt3 = 0 /* LAjJE^ 0`3a cspanmwait3 = 0 /* LAjEFCg 0`3 cspdir4 = 0 /* L 0: 1: 2:E 3: cspmvstep4 = 48 /* LړXebv cspmvdir4 = 2 /* Lړ 0: 1: 2:E 3: cspanmmd4 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt4 = 0 /* LAjJE^ 0`3 cspanmwait4 = 0 /* LAjEFCg 0`3 cspd1 = chrspdlst(0 * 17 + cspdir1 * 4 + cspanmcnt1) cspd2 = chrspdlst(5 * 17 + cspdir2 * 4 + cspanmcnt2) cspd3 = (8 shl 8) + 111 cspd4 = (1 shl 8) + 191 /* color 2 locate 14,1 : print "CAST" color 3 /* for lc1 = 0 to 127 if lc1 > 79 then { /* Ls if cspmvstep1 > 0 then { switch cspmvdir1 case 0 : cspy1 = cspy1 + 1 : break /* case 1 : cspx1 = cspx1 - 1 : break /* case 2 : cspx1 = cspx1 + 1 : break /* E case 3 : cspy1 = cspy1 - 1 : break /* endswitch cspmvstep1 = cspmvstep1 - 1 if cspmvstep1 = 0 then cspanmmd1 = 0 } if cspmvstep2 > 0 then { switch cspmvdir2 case 0 : cspy2 = cspy2 + 1 : break /* case 1 : cspx2 = cspx2 - 1 : break /* case 2 : cspx2 = cspx2 + 1 : break /* E case 3 : cspy2 = cspy2 - 1 : break /* endswitch cspmvstep2 = cspmvstep2 - 1 if cspmvstep2 = 0 then cspanmmd2 = 0 } if cspmvstep3 > 0 then { switch cspmvdir3 case 0 : cspy3 = cspy3 + 1 : break /* case 1 : cspx3 = cspx3 - 1 : break /* case 2 : cspx3 = cspx3 + 1 : break /* E case 3 : cspy3 = cspy3 - 1 : break /* endswitch cspmvstep3 = cspmvstep3 - 1 if cspmvstep3 = 0 then cspanmmd3 = 0 } if cspmvstep4 > 0 then { switch cspmvdir4 case 0 : cspy4 = cspy4 + 1 : break /* case 1 : cspx4 = cspx4 - 1 : break /* case 2 : cspx4 = cspx4 + 1 : break /* E case 3 : cspy4 = cspy4 - 1 : break /* endswitch cspmvstep4 = cspmvstep4 - 1 if cspmvstep4 = 0 then cspanmmd4 = 0 } /* LAj if cspanmmd1 = 1 then { if cspanmwait1 = 0 then if cspanmcnt1 < 3 then cspanmcnt1 = cspanmcnt1 + 1 else cspanmcnt1 = 0 if cspanmwait1 < 3 then cspanmwait1 = cspanmwait1 + 1 else cspanmwait1 = 0 } cspd1 = chrspdlst(0 * 17 + cspdir1 * 4 + cspanmcnt1) if cspanmmd2 = 1 then { if cspanmwait2 = 0 then if cspanmcnt2 < 3 then cspanmcnt2 = cspanmcnt2 + 1 else cspanmcnt2 = 0 if cspanmwait2 < 3 then cspanmwait2 = cspanmwait2 + 1 else cspanmwait2 = 0 } cspd2 = chrspdlst(5 * 17 + cspdir2 * 4 + cspanmcnt2) if cspanmmd3 = 1 then { if cspanmwait3 = 0 then if cspanmcnt3 < 3 then cspanmcnt3 = cspanmcnt3 + 1 else cspanmcnt3 = 0 if cspanmwait3 < 3 then cspanmwait3 = cspanmwait3 + 1 else cspanmwait3 = 0 } /* cspd3 = chrspdlst(3 * 17 + cspdir3 * 4 + cspanmcnt3) cspd3 = (8 shl 8) + 111 if cspanmmd4 = 1 then { if cspanmwait4 = 0 then if cspanmcnt4 < 3 then cspanmcnt4 = cspanmcnt4 + 1 else cspanmcnt4 = 0 if cspanmwait4 < 3 then cspanmwait4 = cspanmwait4 + 1 else cspanmwait4 = 0 } /* cspd4 = chrspdlst(4 * 17 + cspdir4 * 4 + cspanmcnt4) cspd4 = (1 shl 8) + 191 /* } if lc1 > 95 then { ty = ty - 1 } v_disp(0) home(0,0,256 + lc1 * 2) thome(tx, ty) sp_set(cspno1 , cspx1, cspy1, cspd1, 3) sp_set(cspno1 + 1, cspx1, cspy1 + 16, cspd1 + 16, 3) sp_set(cspno2 , cspx2, cspy2, cspd2, 3) sp_set(cspno2 + 1, cspx2, cspy2 + 16, cspd2 + 16, 3) sp_set(cspno3 , cspx3, cspy3, cspd3, 3) sp_set(cspno3 + 1, cspx3, cspy3 + 16, cspd3 + 16, 3) sp_set(cspno4 , cspx4, cspy4, cspd4, 3) /* sp_set(cspno4 + 1, cspx4, cspy4 + 16, cspd4 + 16, 3) next /* home(0,0,0) thome(0,0) /* strig1o = strig(1) for lc1 = 0 to 359 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* /*** CREDIT1 ***/ msg1 = "" msg2 = "@@t@t@[" msg3 = "@@uE}[`v Short ver." msg4 = "@@@ FElmer Bernstein" msg5 = "@@@ҋ FJohnnie Vinson" msg6 = "@@@" msg7 = "@@@MML CodedFARX_UHO" msg8 = "@@@" msg9 = "@@@" /* /*sp_set(6, 0, 0, &B100000000 + 0, 3) /*sp_set(7, 0, 0, &B100000000 + 0, 3) /*sp_set(8, 0, 0, &B100000000 + 0, 3) /*sp_set(9, 0, 0, &B100000000 + 0, 3) /*sp_set(10, 0, 0, &B100000000 + 0, 3) /*sp_set(11, 0, 0, &B100000000 + 0, 3) /*sp_set(12, 0, 0, &B100000000 + 0, 3) /*sp_set(13, 0, 0, &B100000000 + 0, 3) /* vpage(0) home(0,0,256) thome(0,32) wipe() cls /* sp_set(cspno1 , 0, 0, 0, 0) sp_set(cspno1 + 1, 0, 0, 0, 0) sp_set(cspno2 , 0, 0, 0, 0) sp_set(cspno2 + 1, 0, 0, 0, 0) sp_set(cspno3 , 0, 0, 0, 0) sp_set(cspno3 + 1, 0, 0, 0, 0) sp_set(cspno4 , 0, 0, 0, 0) sp_set(cspno4 + 1, 0, 0, 0, 0) /* /* symbol(0, 16, " [EPILOGUE]", 1, 1, 1, 65502, 0) symbol(0, 36, msg1, 1, 1, 1, 65534, 0) symbol(0, 56, msg2, 1, 1, 1, 65534, 0) symbol(0, 76, msg3, 1, 1, 1, 65534, 0) symbol(0,106, msg4, 1, 1, 1, 65534, 0) symbol(0,126, msg5, 1, 1, 1, 65534, 0) symbol(0,156, msg6, 1, 1, 1, 65534, 0) symbol(0,176, msg7, 1, 1, 1, 65534, 0) symbol(0,206, msg8, 1, 1, 1, 65534, 0) symbol(0,226, msg9, 1, 1, 1, 65534, 0) vpage(1) /* tx = 0 : ty = 32 color 2 locate 13,1 : print "CREDIT" color 3 /* for lc1 = 0 to 127 if lc1 > 95 then { ty = ty - 1 } v_disp(0) home(0,0,256 + lc1 * 2) thome(tx, ty) next /* home(0,0,0) thome(0,0) /* strig1o = strig(1) for lc1 = 0 to 359 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* /* XRAgbvN̏ꍇ if Gsc1 >= Granksc(1) then toprank = 1 if toprank = 1 then { /*** CREDIT2 ***/ msg1 = "" msg2 = "@@GfBOe[}" msg3 = "@@VśulŁv" msg4 = "@@@쎌 Fxcǎq" msg5 = "@@@쎌F{A" msg6 = "@@@ FcOq" msg7 = "@@@ȁFH琡u" msg8 = "@@@" msg9 = "@@@MML CodedFARX_UHO" /* /*sp_set(6, 0, 0, &B100000000 + 0, 3) /*sp_set(7, 0, 0, &B100000000 + 0, 3) /*sp_set(8, 0, 0, &B100000000 + 0, 3) /*sp_set(9, 0, 0, &B100000000 + 0, 3) /*sp_set(10, 0, 0, &B100000000 + 0, 3) /*sp_set(11, 0, 0, &B100000000 + 0, 3) /*sp_set(12, 0, 0, &B100000000 + 0, 3) /*sp_set(13, 0, 0, &B100000000 + 0, 3) /* vpage(0) home(0,0,256) thome(0,32) wipe() cls /* sp_set(cspno1 , 0, 0, 0, 0) sp_set(cspno1 + 1, 0, 0, 0, 0) sp_set(cspno2 , 0, 0, 0, 0) sp_set(cspno2 + 1, 0, 0, 0, 0) sp_set(cspno3 , 0, 0, 0, 0) sp_set(cspno3 + 1, 0, 0, 0, 0) sp_set(cspno4 , 0, 0, 0, 0) sp_set(cspno4 + 1, 0, 0, 0, 0) /* /* symbol(0, 16, " [EPILOGUE]", 1, 1, 1, 65502, 0) symbol(0, 36, msg1, 1, 1, 1, 65534, 0) symbol(0, 56, msg2, 1, 1, 1, 65534, 0) symbol(0, 76, msg3, 1, 1, 1, 65534, 0) symbol(0,106, msg4, 1, 1, 1, 65534, 0) symbol(0,126, msg5, 1, 1, 1, 65534, 0) symbol(0,156, msg6, 1, 1, 1, 65534, 0) symbol(0,176, msg7, 1, 1, 1, 65534, 0) symbol(0,206, msg8, 1, 1, 1, 65534, 0) symbol(0,226, msg9, 1, 1, 1, 65534, 0) vpage(1) /* tx = 0 : ty = 32 color 2 locate 13,1 : print "CREDIT" color 3 /* for lc1 = 0 to 127 if lc1 > 95 then { ty = ty - 1 } v_disp(0) home(0,0,256 + lc1 * 2) thome(tx, ty) next /* home(0,0,0) thome(0,0) /* strig1o = strig(1) for lc1 = 0 to 359 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next } /* /*** STAFF ***/ msg1 = "" msg2 = "@@PLANNING" msg3 = "@@@@ARX_UHO" msg4 = "@@PROGRAM" msg5 = "@@@@ARX_UHO" msg6 = "@@GRAPHIC & DESIGN" msg7 = "@@@@ARX_UHO" msg8 = "@@MUSIC COMPOSE" msg9 = "@@@@ARX_UHO" /* /*sp_set(6, 0, 0, &B100000000 + 0, 3) /*sp_set(7, 0, 0, &B100000000 + 0, 3) /*sp_set(8, 0, 0, &B100000000 + 0, 3) /*sp_set(9, 0, 0, &B100000000 + 0, 3) /*sp_set(10, 0, 0, &B100000000 + 0, 3) /*sp_set(11, 0, 0, &B100000000 + 0, 3) /*sp_set(12, 0, 0, &B100000000 + 0, 3) /*sp_set(13, 0, 0, &B100000000 + 0, 3) /* vpage(0) home(0,0,256) thome(0,32) wipe() cls /* sp_set(cspno1 , 0, 0, 0, 0) sp_set(cspno1 + 1, 0, 0, 0, 0) sp_set(cspno2 , 0, 0, 0, 0) sp_set(cspno2 + 1, 0, 0, 0, 0) sp_set(cspno3 , 0, 0, 0, 0) sp_set(cspno3 + 1, 0, 0, 0, 0) sp_set(cspno4 , 0, 0, 0, 0) sp_set(cspno4 + 1, 0, 0, 0, 0) /* /* symbol(0, 16, " [EPILOGUE]", 1, 1, 1, 65502, 0) symbol(0, 36, msg1, 1, 1, 1, 65534, 0) symbol(0, 56, msg2, 1, 1, 1, 65534, 0) symbol(0, 76, msg3, 1, 1, 1, 65534, 0) symbol(0,106, msg4, 1, 1, 1, 65534, 0) symbol(0,126, msg5, 1, 1, 1, 65534, 0) symbol(0,156, msg6, 1, 1, 1, 65534, 0) symbol(0,176, msg7, 1, 1, 1, 65534, 0) symbol(0,206, msg8, 1, 1, 1, 65534, 0) symbol(0,226, msg9, 1, 1, 1, 65534, 0) vpage(1) /* tx = 0 : ty = 32 color 2 locate 13,1 : print "STAFF" color 3 /* for lc1 = 0 to 127 if lc1 > 95 then { ty = ty - 1 } v_disp(0) home(0,0,256 + lc1 * 2) thome(tx, ty) next /* home(0,0,0) thome(0,0) /* strig1o = strig(1) for lc1 = 0 to 359 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* /* PRESENTED BY iroirotei msg1 = "" msg2 = "" msg3 = "" msg4 = "" msg5 = "" msg6 = "" msg7 = "" msg8 = "" msg9 = " (c) 2023 iroirotei" vpage(0) cls wipe() /* /* 낢S /* vpage(0) vpage(1) home(0,0,256) thome(0,32) apic_load("IROIRO.PIC", 64, 96) /* symbol(0, 16, " [EPILOGUE]", 1, 1, 1, 65502, 0) symbol(0, 36, msg1, 1, 1, 1, 65534, 0) symbol(0, 56, msg2, 1, 1, 1, 65534, 0) symbol(0, 76, msg3, 1, 1, 1, 65534, 0) symbol(0,106, msg4, 1, 1, 1, 65534, 0) symbol(0,126, msg5, 1, 1, 1, 65534, 0) symbol(0,156, msg6, 1, 1, 1, 65534, 0) symbol(0,176, msg7, 1, 1, 1, 65534, 0) symbol(0,206, msg8, 1, 1, 1, 65534, 0) symbol(0,226, msg9, 1, 1, 1, 65534, 0) /* vpage(1) /* tx = 0 : ty = 32 /* color 2 locate 10,1 : print "PRESENTED BY" color 3 /* for lc1 = 0 to 127 if lc1 > 95 then { ty = ty - 1 } v_disp(0) home(0,0,256 + lc1 * 2) thome(tx, ty) next /* home(0,0,0) thome(0,0) /* execcmd(CMD_MUSIC, "fadeout", "") strig1o = strig(1) for lc1 = 0 to 359 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* endfunc /* /* LO\l[Gg[ func ranking_screen(ranksc, rankname;str) int lc1 = 0 /* [vJE^ int lc2 = 0 /* [vJE^ str timenow[8] /* str timenow_o[8] /* () int timecnt = 40 /* ^C}[ str timestr[3] /* ^C}[\ int timerefresh = 0 /* ^C}[XVtO int timecol = 0 /* ^C}[ int timerow = 0 /* ^C}[s int stick1 = 0 /* XeBbN1 int stick1o = 0 /* XeBbN1() int stick1press = 0 /* XeBbN1(vXJEg) int stick1pressmax = 6 /* XeBbN1(vXJEgő X-BASIC) int stick1pressmax2 = 12 /* XeBbN1(vXJEgő ؂-BASIC,RpC) int strig1 = 0 /* gK1 int strig1o = 0 /* gK1() int ranklists = 5 /* LO str rankstrlin[256] = "" /* LO\s str namechrlst[32] = ". ABCDEFGHIJKLMNOPQRSTUVWXYZ" /* l[Xg int namechrlstnum = 0 /* l[Xg int namechrlstpos = 1 /* l[Xgʒu int namechrselrefresh = 0 /* l[IXVtO int namechrentrefresh = 0 /* l[mXVtO int titlecol = 13 /* ^Cg int titlerow = 3 /* ^Cgs int ranktitlecol = 4 /* LO^Cg int ranktitlerow = 6 /* LO^Cgs int rankstartcol = 6 /* LOJn int rankstartrow = 8 /* LOJns int entrystartcol = 22 /* Gg[Jn int entrystartrow = 8 /* Gg[Jns int entryrow = 0 /* Gg[\s int entryrank = 0 /* Gg[N int entrynamepos = 1 /* l[͈ʒu int entrynamemaxlen = 5 /* l[(ő) str entryname[5] /* l[͕ namechrlstnum = len(namechrlst) /* /* ^C[hɂvXJEg̒` if Gruntimemd = 1 then stick1pressmax = stick1pressmax2 /* /* VXRAGg[ɊY邩̃`FbN if ranksc > 0 then { /* N^Cݒ肳ĂꍇA`FbN for lc1 = 1 to ranklists if ranksc >= Granksc(lc1) then { /* VXRAGg[ɊYꍇ for lc2 = 0 to 4 - lc1 /* LOf[^ړ Granksc(ranklists - lc2) = Granksc(ranklists - lc2 - 1) Grankname(ranklists - lc2) = Grankname(ranklists - lc2 - 1) next Granksc(lc1) = ranksc /* VXRAGg[ Grankname(lc1) = "" entryrank = lc1 /* VXRÃGg[N break } next } /* ^Cg\ locate titlecol, titlerow : color 1 : print "BEST " + itoa(ranklists) : color 3 /* /* LO^Cg\ locate ranktitlecol, ranktitlerow : color 3 : print "RANK SCORE NAME" : color 3 /* /* LO\ for lc1 = 1 to ranklists rankstrlin = itoa(lc1) + " " + right$(" " +itoa(Granksc(lc1)), 10) + " " + Grankname(lc1) if lc1 = entryrank then color 2 else color 3 /* VXRÃGg[s̏ꍇA\FύX locate rankstartcol, rankstartrow + (lc1 - 1) : print rankstrlin next /* /* l[Gg[ entryrow = entrystartrow + (entryrank - 1) /* Gg[\s stick1o = stick(1) strig1o = strig(1) /* /* VXRAGg[ꂽꍇAl[Gg[ if entryrank <> 0 then { if entryrank = 1 then execcmd(CMD_MUSIC, "EDSED2FC", "") else execcmd(CMD_MUSIC, "EDSEDFC", "") namechrselrefresh = 1 /* while 1 stick1 = stick(1) strig1 = strig(1) timenow = time$ if timenow <> timenow_o then { /* ^C}[JEg_E if timecnt <> 0 then timecnt = timecnt - 1 else { entryname = entryname + mid$(namechrlst, namechrlstpos, 1)/*^C}[=0̏ꍇAl[m菈s namechrentrefresh = 1 } timestr = right$(" " + itoa(timecnt), 3) timerefresh = 1 timenow_o = timenow } if stick1 <> 0 and stick1 = stick1o then { /* XeBbNvXĂꍇ́AJEg stick1press = stick1press + 1 } if (stick1o = 0 and stick1 <> 0) or stick1press = stick1pressmax then { /* XeBbNꂽAvXJEgő̏ꍇAl[Is switch stick1 case 4 /* if namechrlstpos <> 1 then namechrlstpos = namechrlstpos - 1 else namechrlstpos = namechrlstnum namechrselrefresh = 1 break case 6 /* E if namechrlstpos <> namechrlstnum then namechrlstpos = namechrlstpos + 1 else namechrlstpos = 1 namechrselrefresh = 1 break endswitch stick1o = stick1 stick1press = 0 } else { stick1o = stick1 } if strig1o = 0 and strig1 <> 0 then { /* gK[ꂽꍇAl[m菈s entryname = entryname + mid$(namechrlst, namechrlstpos, 1) namechrentrefresh = 1 strig1o = strig1 } else { strig1o = strig1 } /* v_disp(0) /* /* l[I̕\ if namechrselrefresh = 1 then { locate entrystartcol + (entrynamepos - 1) , entryrow color 1 : print mid$(namechrlst, namechrlstpos, 1) : color 3 namechrselrefresh = 0 } /* l[m̕\ if namechrentrefresh = 1 then { locate entrystartcol + (entrynamepos - 1) , entryrow color 2 : print mid$(namechrlst, namechrlstpos, 1) : color 3 /* m\ entrynamepos = entrynamepos + 1 if (entrynamepos > entrynamemaxlen) or timecnt = 0 then break /* ő啶𒴂or^C}[=0̏ꍇ́A𔲂 namechrlstpos = 1 locate entrystartcol + (entrynamepos - 1) , entryrow color 1 : print mid$(namechrlst, namechrlstpos, 1) : color 3 /* ̕I\ namechrentrefresh = 0 } /* /* ^C}[\ if timerefresh = 1 then { locate timecol, timerow color 3 : print timestr timerefresh = 0 } endwhile /* execcmd(CMD_MUSIC, "fadeout", "") Grankname(entryrank) = entryname /* l[m /* strig1o = strig(1) for lc1 = 0 to 179 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* /* VXRAGg[ȂꍇALO\݂̂ŃEFCg } else { strig1o = strig(1) for lc1 = 0 to 179 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next } /* endfunc no2 = (1 * 6) + rndval + 1 deskalc(fdeskno2) = 3 } } else { fdeskno2 = -1 } /* VA̍Ȍ if ffcsavflg3 = 0 then { rndval = rnd() * 5 ƂԂɏoĂ܂B @@AxꂾĴɁBl^̂傫EEEB @@ɋ~ošʉljB @@ЂAȂłFXƋCɂȂ̂B @@񂱂̓fOȂƂF‚EEEB @Ver.1.0 2024/5/12 Q[WFh37 oWo[W @@ũ[U[Uł̏AoȌCB @@aflł֍ւBt@t@[ljB{~ošʉljB @@Ƃ͕sȂ΁Ał؂Ǝv܂B @@Ȃ񂩒ȁEEECxg߈ȊO͂قڃT{ĂƂEEEB A @EX @ARX_UHO (邫) Sun May 12 00:00 JST 2024 (ARX_UHO)  pK @{vO̓t[\tgEFAłB @{vO̒쌠́A낢ێeds.bas GfB^No܂ [ ͂܂B @{vOɓɊւĂ͖ۏ؂łB @@鎖ڕWɐ삳Ă܂A @@{vO𓮍삳ƂɂA{́AӋ@퓙A @@̃vOɕs^ƂĂAؕۏ؂܂B @@e̐ӔC̉ApĂB @{vO̔zz͎RɍsƂł܂B @@Lzzꍇɂ́AfBA{Ƃ܂B @{vOۂ́A|Ɖӏ{hLg @@LĂB NWbg @t@t@[ @@uE}[`v Short ver. @@@ FElmer Bernstein @@@ҋ FJohnnie Vinson @@@MML CodedFARX_UHO @GfBOe[} @@VśulŁv @@@쎌 Fxcǎq @@@쎌F{A @@@ FcOq @@@ȁFH琡u @@@MML CodedFARX_UHO ZmuSiC ESCAPE die SUCCESS ENDING1 Composed by @arx_uho""  ""  "" "" <.?c ( GHHBB00B D G I LHHK I K00G00D`DFGIGHHF D F``GHHBB00B D G I LHHK I K00G00I00D00GFDFGGHHBB00B D G I LHHK I K00G00D`DFGIGHHF D F``GHHBB00B D G I LHHK I K00G00I00D00GFDFGK$$K K``I00I$$I I``K00K$$K I00I$$I IKLMN`NNMLGHHBB00B D G I LHHK I K00G00D`DFGIGHHF D F``GHHBB00B D G I LHHK I K00G00I00D00GFDFGGHHBB00B D G I LHHK I K00G00D`DFGIGHHF D F``GHHBB00B D G I LHHK I K00G00I00D00GFDFG00;; ; ;0000 ߠ( KHHGG``PHHP N P00K00G`GIKLK``I``KHHGG``PHHP N P00K00N``L``NKHHGG``PHHP N P00K00G`GIKLK``I``KHHGG``PHHP N P00K00N``L``NP$$P P``N00N$$N N``P00P$$P N00N$$N NOPQS`SSRQKHHGG``PHHP N P00K00G`GIKLK``I``KHHGG``PHHP N P00K00N``L``NKHHGG``PHHP N P00K00G`GIKLK``I``KHHGG``PHHP N P00K00N``L``N00BB B B0000 ʠ 10$:0$;0$60$@0$@0$?0$?0$=0$=0$=0$80$;0$;0$:0$60$10$:0$;0$60$@0$@0$?0$?0$=0$80$;0$80$;0$60$/0$0$10$:0$;0$60$@0$@0$?0$?0$=0$=0$=0$80$;0$;0$:0$60$10$:0$;0$60$@0$@0$?0$?0$=0$80$;0$80$;0$60$/0$0$?0$?0$=0$=0$=0$=0$?0$?0$=0$=0$=;:860$60$668:10$:0$;0$60$@0$@0$?0$?0$=0$=0$=0$80$;0$;0$:0$60$10$:0$;0$60$@0$@0$?0$?0$=0$80$;0$80$;0$60$/0$0$10$:0$;0$60$@0$@0$?0$?0$=0$=0$=0$80$;0$;0$:0$60$10$:0$;0$60$@0$@0$?0$?0$=0$80$;0$80$;0$;; ; ;0$0$ OɂȂƃQ[I[o/* ESCAPE die SUCCESS /* SHINING STAR GAIDEN /* Ver.1.0 /* 2024/05/12 /* (c) 2023 iroirotei /* /* ʏ screen 0,3,1,1 : console ,,0 color[0, 1984, 65502, 65534] /* eLXgJ[R[hύX v_priority("tgs") /* rfIvCIeBύX(TEXT>GRAPHIC>SPRITE) sp_init() sp_clr() sp_disp(1) /* /* o[W` /* str Gsysver = "1.0" str Gsysverdate = "2024/05/12" /* /* 萔 */ int RED = 1984 int YELLOW = 65472 int WHITE = 65534 int CMD_SYSTEM = 101 int CMD_MUSIC = 201 int CMD_SOUND = 202 int CMD_FACE = 303 int CMD_FRONT = 304 int CMD_PAD = 401 int CMD_STICKCLICK = 402 int CMD_STRIGCLICK = 403 int CMD_MAP = 102 int CMD_MENU = 103 int CMD_MENUREF = 104 int CMD_MSG = 105 int CMD_EVENT = 106 int CMD_SPFILE = 301 int CMD_PALFILE = 302 int CMD_STARTFLG = 107 /* /* ϐ` */ /* ^C[h` int Gruntimemd = 1 /* RuntimeMode(0:X-BASIC 1:؂-BASIC or RpC) /* /* TIME֌Wϐ錾 int Gtimecnt = 0 /* TimerCounter int Gtimecntdef = 120 /* TimerDefineValue str Gtimestr[3] /* TimerViewString str Gtimenow[8] /* NowTime str Gtimenow_o[8] /* NowTime(Old) int Gtimerefresh = 0 /* TimerRefleshFlg /* int Gstartflg = 0 /* GameStartFlg(0:f 1:X^[gꂽ) /* /* bZ[WpO[oϐ錾 str Gmsgstrcur[255] /* MessageViewString(Current) dim char Gmsgcrpos(12) /* "Gmsgstrcur" CRLFPointer int Gmsgpos = 1 /* "Gmsgcrpos" Pointer(I1B0ɂ0B) char Gmsgcols = 26 /* MessageColumns(p) char Gmsgrows = 2 /* MessageRows int Gmsgviewmd = 0 /* MessageViewMode(0:\ 1:\) int Gmsgwaitcnt = 0 /* MessageWaitCounter(Sec) int Gmsgwaitcntdef1 = 3 /* MessageWaitSecDefine(1) int Gmsgwaitcntdef2 = 3 /* MessageWaitSecDefine(2) int Gmsgwaitcntcur = 0 /* MessageWaitSec(Current) int Gmsgrefresh = 0 /* MessageRefleshFlg /* /* 퓬pO[oϐ錾 int Gsystemmd = 0 /* GameSystemMode(0:Q[is,1:ړs,2:ړ”\,3:퓬,4:Xe[WNA,5:I[NA) /* /* WCXeBbN֌Wϐ錾 int Gstick1 = 0 /* Joystick(1) Stick int Gstick2 = 0 /* Joystick(2) Stick int Gstrig1 = 0 /* Joystick(1) Trigger int Gstrig2 = 0 /* Joystick(2) Trigger int Gstick1o = 9 /* Joystick(1) Stick(Old) int Gstick2o = 9 /* Joystick(2) Stick(Old) int Gstrig1o = 0 /* Joystick(1) Trigger(Old) int Gstrig2o = 0 /* Joystick(2) Trigger(Old) int Gjoy_up = 0, Gjoy_down = 0, Gjoy_left = 0, Gjoy_right = 0, Gjoy_press = 0 /* WCXeBbNԂ̃XvCgp^[f[^ int Gstick1press = 0 /* Joystick(1) PressCounter int Gstick1pressmax = 1 /* Joystick(1) PressCounterMAX(InterpriterMode) int Gstick1pressmax2 = 10 /* Joystick(1) PressCounterMAX(CompilerMode) int Gstick1clickview = 0 /* Joystick(1) StickClickView int Gstrig1clickview = 0 /* Joystick(1) TriggerClickView int Gstick1clickrefresh = 0/* Joystick(1) StickClickRefreshFlg int Gstrig1clickrefresh = 0/* Joystick(1) TriggerClickRefreshFlg int Gpadview = 0 /* JoypadIconView(0:\, 1:AUTO, 2:ړ”\, 3:AUTO, 4:j[) int Gpadrefresh = 0 /* JoypadIconRefresh /* Gjoy_up = (1 shl 8) + 24 /* JoystickKeyPressSPD(up) Gjoy_down = (1 shl 8) + 25 /* JoystickKeyPressSPD(down) Gjoy_left = (1 shl 8) + 26 /* JoystickKeyPressSPD(left) Gjoy_right = (1 shl 8) + 27/* JoystickKeyPressSPD(right) Gjoy_press = (1 shl 8) + 29/* JoystickTriggerPressSPD /* /* j[֌Wϐ錾 int Gmenuviewmd = 0 /* MenuViewMode int Gmenupos = 0 /* MenuPosition int Gmenuposo = 0 /* MenuPosition(old) int Gmenunum = 0 /* MenuItems int Gmenucol = 4 /* MenuColumn(locate) int Gmenurow = 2 /* MenuRow(locate) int Gmenubrink = 0 /* MenuBrink int Gmenubrinko = 0 /* MenuBrink(old) str Gmenustr0[255] = "" /* MenuItemString str Gmenustr1[255] = "" str Gmenustr2[255] = "" str Gmenustr3[255] = "" str Gmenustr4[255] = "" str Gmenustr5[255] = "" str Gmenustr6[255] = "" str Gmenuhed[255] = "" str Gmenufot[255] = "" str Gmenuline0[255] = "" /* j[ڕ\p str Gmenuline1[255] = "" str Gmenuline2[255] = "" str Gmenuline3[255] = "" str Gmenuline4[255] = "" str Gmenuline5[255] = "" str Gmenuline6[255] = "" str Gmenuspace[255] = "" int Gmenurefresh = 0 /* j[\XVtO(1:j[I[v, 2:j[N[Y) /* /* ViI֌Wϐ錾 int Gscenariopos = 0 /* ViIQƃ|C^ int Gscenarionum = 0 /* ViIo^ dim str Gscenariocmd(255)[8] /* ViIo^(R}h) dim str Gscenarioparam1(255)[255] /* ViIo^(p[^1) dim str Gscenarioparam2(255)[255] /* ViIo^(p[^2) int Gscenarioeventid /* ViICxgԍ dim str Gmapeventcmd(255)[8] /* }bvCxg(R}h) dim str Gmapeventparam1(255)[255] /* }bvCxg(p[^1) dim str Gmapeventparam2(255)[255] /* }bvCxg(p[^2) /* /* OLN^[\֌Wϐ錾 int Gfrontmd = 0 /* OLN^[\[h int Gfrontrefresh = 0 /* OLN^[XVtO int Gfrontbrink = 0 /* OLN^[_ŃtO int Gfrontbrinkcnt = 0 /* OLN^[_ŃJE^ /* /* vC[\\֌Wϐ錾 int Gfacemd = 0 /* vC[\\[h int pfacrefresh = 0 /* vC[\XVtO int pfacbrk = 0 /* vC[\_ŃtO int pfacbrkcnt = 0 /* vC[\_ŃJE^ /* /* LO֌Wϐ錾 dim int Granksc(5) /* LOXRA dim str Grankname(5)[5] /* LOl[ int Gsc1 = 0 /* XRA /* /* LO֌Wϐl Granksc = {0,500000,400000,300000,100000,50000} Grankname = {"", "LENA", "SALA", "CRENA", "LESIA", "OCCHI"} /* /* O[o /* /* XvCgt@C` execcmd(CMD_SPFILE, "EDS.SP", "") /* XvCgt@C execcmd(CMD_PALFILE, "EDS.PAL", "") /* pbgt@C /* /* O[o I /* /* Q[{ Jn while 1 screen_clear() init_screen() /* screen_clear() demo_screen() screen_clear() title_screen() screen_clear() /* Q[X^[gtO1̏ꍇAQ[C if Gstartflg = 1 then { startdemo_screen() screen_clear() Gsc1 = game_main() if Gsystemmd = 5 then { screen_clear() ending_screen() screen_clear() cast_screen() screen_clear() gameover_screen() } screen_clear() ranking_screen(Gsc1, "") Gstartflg = 0 Gsystemmd = 0 } else { screen_clear() ranking_screen(0, "") } /* endwhile /* end /* /* Q[C func game_main() /* /*** ϐ錾EꕔŒl ***/ int lc1 = 0 int lc2 = 0 int bg_x = 0 /* BGXpos int bg_y = 0 /* BGYpos int bgpd = 0 /* nouse int bgpb = 0 /* nouse int bgpc = 0 /* nouse dim int bgptdat(895) bgptdat = { + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,124,126, 6, 6, + 6, 6, 7, 7,20,22, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6,20,22, 7, 7, 6, 6, + 6, 6, 5, 5,21,23, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,21,23, 5, 5, 6, 6, + 6, 6, 7, 7,84,86, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6,84,86, 7, 7, 6, 6, + 6, 6, 7, 7,85,87, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,85,87, 7, 7, 6, 6, + 6, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4 + (8 shl 8), 4 + (8 shl 8), 4, 6, + 6, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4 + (8 shl 8), 4 + (8 shl 8), 4, 6, + 6, 4, 4, 4, 4, 4, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4 + (8 shl 8), 4 + (8 shl 8),12 + (8 shl 8),14 + (8 shl 8), 4, 6, + 6, 4, 4, 4, 4, 4, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8 + (8 shl 8),10 + (8 shl 8),13 + (8 shl 8),15 + (8 shl 8), 4, 6, + 6, 4, 4, 4, 4, 4, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9 + (8 shl 8),11 + (8 shl 8),76 + (8 shl 8),78 + (8 shl 8), 4, 6, + 6, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6, +16, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6, +17, 4, 4, 4, 4, 4, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4,18, +17, 4, 4, 4, 4, 4, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 4,19, +17, 4, 4, 4,77, 4, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 4,19, +17, 4, 4, 4,79, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,19, +17, 4, 4, 4,81, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,19, +17, 4, 4, 4, 4, 4, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4,19, +17, 4, 4, 4, 4, 4, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 4,82, +80, 4, 4, 4, 4, 4, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 4, 6, + 6, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6, + 6, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 6, + 6, 4, 4, 4, 4, 4, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 4,12,14, 4, 6, + 6, 4, 4, 4, 4, 4, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 8,10,13,15, 4, 6, + 6, 4, 4, 4, 4, 4, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 9,11,76,78, 4, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6} /* /* JoyStick int padviewreq = 0 /* 1:Pad1 2:Pad2 99:Close int padviewmd = 0 /* 1:Pad1 2:Pad2 0:Close int padstickreq = 0/* 0 2 4 6 8 99:Close int padstickmd = 0 /* 0 2 4 6 8 int padtrigreq = 0 /* 0 1 99:Close int padtrigmd = 0 /* 0 1 /* Stage int stgno = 0 /* StageNo int stgmsgreq = 0 /* StageMsg 1:view 2:clear int stgviewreq = 0 /* StageView 1:view int stgpappreq = 0 /* StagePlayerAppier 1:appier int stgmappreq = 0 /* StageMobAppier 1:appier /* Event int evtwaitsec = 0 /* EventWaitSecond int evtstat1 = 0 /* Cxg 1:搶Ɍ‚ 2:uɃ`N int blnreq1 = 0 /* BaloonRequest 1:o\v(vC[Ɛ搶) 2:o폜v 3:o\v(3l) int blnmd1 = 0 /* BaloonViewMode 0:No View 1:2 2:Remove 3:3 int blnreflesh = 0 /* BalooneRefleshFlg 0:No Reflesh 1:Reflesh int gmdreq1 = 0 /* Q[[hv 2:Xe[WNAv 3:I[NAv int eventreq1 = 0 /* Cxgv 1:搶Ɍ‚ 2:uɃ`N /* int sysmsgreq1 = 0 /* 1:bZ[W\v str sysmsgstr1[255] = "" /* bZ[W int sysmsgmd1 = 0 /* 0:bZ[W\ 1:bZ[W\ int sysmsgwait1 = 0 /* bZ[W҂b int sysmsgrefresh1 = 0 /* 0:XVȂ 1:bZ[WXV 2:bZ[W int systutendflg = 0 /* Tutorial End Flg 0:No 1:Done /* int deskno = 0 int wdeskno int mspno = 0 int x1 int x2 int y1 int y2 /* int psc1 = 0 /* Score1 str pscstr1[255] /* Score1String int pscreflesh1 = 0 /* ScoreRefreshFlag int pscbrk1 = 0 /* vC[XRAuN1 0:\ 1:\ int pscbnkcnt1 = 0 /* vC[XRAuNJE^1 /* int pbscrnproc = 0 /* {[iXʑJ int pbnssc1 /* {[iXXRA1 str pbnsscstr1[255] /* {[iXXRA1\ int pbnsscreflesh1 = 0 /* {[iXXRA1XVtO int pbnssc2 /* {[iXXRA2 str pbnsscstr2[255] /* {[iXXRA2\ int pbnsscreflesh2 = 0 /* {[iXXRA2XVtO str stclrmsg1[255] /* {[iX\ʕ1 str stclrmsg2[255] /* {[iX\ʕ2 str stclrmsg3[255] /* {[iX\ʕ3 str stclrmsg4[255] /* {[iX\ʕ4 str stclrmsg5[255] /* {[iX\ʕ5 /* vC[ int pdeskno /* DeskNo int pspno /* SPNo int pspoldno /* SPNo(Old) int psitspd /* SPD(Sit) int pmvspd /* SPD(Move) int pmvspd2 /* SPD(MoveBrink) int pmvspx1 /* SPXpos(Move) int pmvspy1 /* SPYpos(Move) int psitreq = 0 /* 0:vȂ 1:Ȃ 2:v 3:ȗv() int psitmd = 0 /* 0:Ȓ 1:Ȓ int psitfreeze = 0 int pcol int prow int pchrcd = 1 /* vC[LN^[R[h int pdir1 int panimcnt1 int panimwait1 int pmvstep1 int pmvdir1 int pctrlmd = 0 int panimmd1 = 0 /* vC[Aj[h int pvismod1 = 1 /* vC[\[h 0:\ 1:\ int pactlstptr1 = 0 int pbspno = 0 /* BaroonSPNo int pbspd = 0 /* BaroonSPD /* 搶 int sspno = 0 /* SPNo int sspd = 0 /* SPD int sdir1 = 0 /* p int schrcd = 5 /* ChrCD int sanimcnt1 /* AnimCnt int swatch = 0 int sspx1 int sspy1 int smvdir1 int sactlstptr1 = 0 /* 搶sXg|C^ int sactlstloop_s = 0 /* 搶sXg[vX^[g|C^ int sctrlmd = 1 /* 0:삵Ȃ 1:sXg int smvstep1 int sanimmd1 = 0 /* 搶Aj[h int svismod1 = 0 /* 搶\[h 0:\ 1:\ int sanimwait1 int sbspno = 0 /* BaroonSPNo int sbspd = 0 /* BaroonSPD /* u int tspno = 0 /* SPNo int tbspno = 0 /* BaroonSPNo int tbspd = 0 /* BaroonSPD int tchr = 0 int tdeskno = 0 int tdesknou = 0 int tdesknod = 0 int tchgcnt1 = 0 /* ȑւJE^ /* hA int dspno1 = 0 /* SPNo int dspno2 = 0 /* SPNo int dspd1 = 0 /* SPD int dspd2 = 0 /* SPD int dspx1 int dspy1 int dspx2 int dspy2 int dmvstep1 int dmvstep2 int danimwait1 int dmvdir1 int dmvdir2 int dmvmd1 = 0 /* hAJƒ[h() 0: 1:J 2:‚ 3:J int dmvmd2 = 0 /* hAJƒ[h(E) 0: 1:J 2:‚ 3:J int dmvreq1 = 0 /* hAJ—v() 0:vȂ 1:‚v 2:Jv int dmvreq2 = 0 /* hAJ—v(E) 0:vȂ 1:‚v 2:Jv int dvismod1 = 0 /* hA\[h 0:\ 1:\ int dmvreflesh1 = 0 /* DoorRefleshFlag 0:Not Reflesh 1:Reflesh int dmvreflesh2 = 0 /* DoorRefleshFlag 0:Not Reflesh 1:Reflesh /* [U[ int lsspno1 = 0 /* SPNo int lsspno2 = 0 /* SPNo int lsspd1 = 0 /* SPD int lsspd2 = 0 /* SPD int lsspx1 = 0 /* SPXPos int lsspy1 = 0 /* SPYPos int lsspx2 = 0 /* SPXPos int lsspy2 = 0 /* SPYPos int lsspinix1 = 0 /* SPXPos int lsspiniy1 = 0 /* SPYPos int lsspinix2 = 0 /* SPXPos int lsspiniy2 = 0 /* SPYPos int lsmvreq1 = 0 /* [U[˗v 0:vȂ 1:˗v 2:ˏI int lsmvmd1 = 0 /* [U[˃[h 0:˂Ȃ 1:˒ 2:ˏI int lsmvcnt1 = 0 /* [U[ˎ /* ^[Qbg int tsitreq1 = 0 /* 0:vȂ 1:^[QbguȋNv 2:^[QbguȒȗv /* Friend int fdeskno1 = 0 int fdeskno2 = 0 int fdeskno3 = 0 int ffcspx1 /* FriendFaceSPX1 int ffcspy1 /* FriendFaceSPY1 int ffcspx2 /* FriendFaceSPX2 int ffcspy2 /* FriendFaceSPY2 int ffcspx3 /* FriendFaceSPX3 int ffcspy3 /* FriendFaceSPY3 int rndval = 0 /* i[pϐ int ffcsavflg1 = 0 /* FB~tO(T) 0:~ 1:~ int ffcsavflg2 = 0 /* FB~tO(Ni) 0:~ 1:~ int ffcsavflg3 = 0 /* FB~tO(VA) 0:~ 1:~ int ffcsavreq1 = 0 /* FB~vtO 0:v 1:T 2:Ni 3:VA int ffcsavcd = 0 /* ~FB 1:T 2:Ni 3:VA int ffcsavreflesh1 = 0 /* FB~XVtO int ffcspno1 = 2 /* FBspԍ int ffcspno2 = 3 /* FBspԍ int ffcspno3 = 4 /* FBspԍ int ffcreflesh1 = 0 /* FBXVtO int ffcvis1 = 0 /* FB\tO int fspx1 /* FB~spW1 int fspy1 /* FB~spW1 int fspx2 /* FB~spW2 int fspy2 /* FB~spW2 int fspx3 /* FB~spW3 int fspy3 /* FB~spW3 int fspno1 = 31 /* FB~spԍ int fspno2 = 31 /* FB~spԍ int fspno3 = 31 /* FB~spԍ int ffcsavstatreq = 0 /* FB~\v /* /* LN^[spd dim int chrspdlst(101) /* E] (1 shl 14) = 16384 ㉺] (1 shl 15) = 32768 ㉺E] = 49152 chrspdlst = { + 74+(7 shl 8), 75+(7 shl 8), 74+(7 shl 8), 76+(7 shl 8), 77+(7 shl 8), 78+(7 shl 8), 77+(7 shl 8), 79+(7 shl 8), 16384+ 77+(7 shl 8),16384+ 78+(7 shl 8),16384+ 77+(7 shl 8),16384+ 79+(7 shl 8), +106+(7 shl 8),107+(7 shl 8),106+(7 shl 8),108+(7 shl 8), 109+(7 shl 8), /* u + 32+(2 shl 8), 33+(2 shl 8), 32+(2 shl 8), 34+(2 shl 8), 35+(2 shl 8), 36+(2 shl 8), 35+(2 shl 8), 37+(2 shl 8), 16384+ 35+(2 shl 8),16384+ 36+(2 shl 8),16384+ 35+(2 shl 8),16384+ 37+(2 shl 8), + 38+(2 shl 8), 39+(2 shl 8), 38+(2 shl 8), 40+(2 shl 8), 41+(2 shl 8), /* [i + 64+(3 shl 8), 65+(3 shl 8), 64+(3 shl 8), 66+(3 shl 8), 67+(3 shl 8), 68+(3 shl 8), 67+(3 shl 8), 69+(3 shl 8), 16384+ 67+(3 shl 8),16384+ 68+(3 shl 8),16384+ 67+(3 shl 8),16384+ 69+(3 shl 8), + 70+(3 shl 8), 71+(3 shl 8), 70+(3 shl 8), 72+(3 shl 8), 73+(3 shl 8), /* T + 96+(4 shl 8), 97+(4 shl 8), 96+(4 shl 8), 98+(4 shl 8), 99+(4 shl 8),100+(4 shl 8), 99+(4 shl 8),101+(4 shl 8), 16384+ 99+(4 shl 8),16384+100+(4 shl 8),16384+ 99+(4 shl 8),16384+101+(4 shl 8), +102+(4 shl 8),103+(4 shl 8),102+(4 shl 8),104+(4 shl 8), 105+(4 shl 8), /* Ni + 74+(5 shl 8), 75+(5 shl 8), 74+(5 shl 8), 76+(5 shl 8), 77+(5 shl 8), 78+(5 shl 8), 77+(5 shl 8), 79+(5 shl 8), 16384+ 77+(5 shl 8),16384+ 78+(5 shl 8),16384+ 77+(5 shl 8),16384+ 79+(5 shl 8), +106+(5 shl 8),107+(5 shl 8),106+(5 shl 8),108+(5 shl 8), 109+(5 shl 8), /* VA + 42+(2 shl 8), 43+(2 shl 8), 42+(2 shl 8), 44+(2 shl 8), 110+(2 shl 8),110+(2 shl 8),110+(2 shl 8),110+(2 shl 8), 16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8), + 45+(2 shl 8), 46+(2 shl 8), 45+(2 shl 8), 47+(2 shl 8), 110+(2 shl 8)} /* 搶 /* /* ړpvC[spԍ dim int pmvspno(3) pmvspno = {95,81,67,53} /* dim int deskalc(23) /* Ȋ /* /* ȕ\pspԍ dim int deskalcspno(23) deskalcspno = { +93,91,89,87,85,83, +79,77,75,73,71,69, +65,63,61,59,57,55, +51,49,47,45,43,41} /* /* ȕ\pXvCgW` dim int deskalcspx(23) dim int deskalcspy(23) for lc2 = 0 to 3 for lc1 = 0 to 5 deskno = lc2 * 6 + lc1 x1 = 80 + (lc1 * 32) y1 = 72 + (lc2 * 40) deskalcspx(deskno) = x1 deskalcspy(deskno) = y1ZmuSiC ESCAPE die SUCCESS uE}[`v The Great Escape March Short ver. ȁFElmer Bernstein ҋ:Johnnie Vinson MML Coded by @arx_uho""  ""  "" "" <.?x (? B H?B K$I G D ~ I I$ G F$B B I G~0* ߠ(F F H?F N$N K K ~ N N$ K K$F F N K~0*ʠ;060;060@0;0@0;0=080B0:0;060;00       Tspy1 + 1 : break /* case 1 : pmvspx1 = pmvspx1 - 1 : break /* case 2 : pmvspx1 = pmvspx1 + 1 : break /* E case 3 : pmvspy1 = pmvspy1 - 1 : break /* endswitch pmvstep1 = pmvstep1 - 1 if pmvstep1 = 0 then panimmd1 = 0 if pmvdir1 >= 0 and pmvdir1 <= 3 then psc1 = psc1 + 10 pscreflesh1 = 1 } /* 搶s if smvstep1 > 0 then { switch smvdir1 case 0 : sspy1 = sspy1 + 1 : break /* case 1 : sspx1 = sspx1 - 1 : break /* case 2 : sspx1 = sspx1 + 1 : break /* E case 3 : sspy1 = sspy1 - 1 : break /* case 4 case 5 case 6 case 7 case 8 break endswitch smvstep1 = smvstep1 - 1 if smvstep1 = 0 then sanimmd1 = 0 } /* vCZmuSiC ESCAPE die SUCCESS Failure Composed by @arx_uho""  ""  "" "" <.?@QUx (C>;72/+& ߠ(ʠalc(pdeskno) * 17 + 16) + 16384 pmvspd2 = chrspdlst(deskalc(pdeskno) * 17 + 16) + 16384 - (2 shl 8) + (15 shl 8) /* } } /* /* 搶Aj if sanimmd1 = 1 then { if sanimwait1 = 0 then if sanimcnt1 < 3 then sanimcnt1 = sanimcnt1 + 1 else sanimcnt1 = 0 if sanimwait1 < 3 then sanimwait1 = sanimwait1 + 1 else sanimwait1 = 0 next next /* /* vC[sXg dim int pactlst1(255) /* /* 搶sXg dim int sactlst1(255) sactlst1 = {91,90,210,92,93,90,90,94,90,120,95, 0, 12, 5,21, 5, 1, 2, 5,22, 5, 2, 2,16, 5, 5,41,90,180,42,90,180,43,90,180,44,90,180,45,90,180,90,60,33,98, 5,32, 2, 5, 8, 5, 14, 5, 8, 5, 2, 5,16, 5, 5,99} /* bZ[W{bNX str msgboxstr1[255] int pmsgboxptr1 = 0 dim str msgboxstr(30)[255] int reswid = 255 int msgboxx1 = 0 int msgboxx2 = 0 int msgboxwid = 0 int msgboxy1 = 0 int msgboxy2 = 0 int msgboxhei = 0 int msgboxpos = 1 /* 0:Jnʒu 1: int msgboxfntcol1 = 1984 int msgboxbakcol = 10570 /*2114 int msgboxbdrcol = 65534 int msgboxlen1 = 0 int msgboxreq1 = 0 int msgboxmd1 = 0 int msgboxwait1 = 0 int msgboxrefresh1 = 0 /* ʒu}[N̏ int locmkreq = 0 /* ʒu}[N\v 1:Player 2:Door 3:Friend 4:Sensei int locmk1x1 int locmk1x2 int locmk1y1 int locmk1y2 int locmk2x1 int locmk2x2 int locmk2y1 int locmk2y2 int locmk3x1 int locmk3x2 int locmk3y1 int locmk3y2 int locmkcl1 = 1 /* 65472 int locmkcl2 = 2 /* 65472 int locmkcl3 = 3 /* 65354 int locmkstat = 0 /* ʒu}[N\ 1:Player 2:Door 3:Friend 4:Sensei int locmkcnt = 0 int locmkwait = 0 int locmkbrk = 0 /* /*** Œl ***/ /* Door dspno1 = 97 /* LDoorSPNo dspno2 = 99 /* RDoorSPNo dspd1 = 5 + (1 shl 8) /* LDoorSPD dspd2 = 5 + (9 shl 8) /* RDoorSPD /* pbspno = 32 /* vC[BaroonSPNo pbspd = 17 + (1 shl 8) /* vC[BaroonSPD() /* sspno = 35 /* 搶SPNo sspd = chrspdlst(schrcd * 17 + sdir1 * 4 + sanimcnt1) /* 搶SPD sbspno = 31 /* 搶BaroonSPNo sbspd = 16 + (1 shl 8) /* 搶BaroonSPD(I) /* tbspno = 37 /* uBaroonSPNo tbspd = 190 + (1 shl 8) /* uBaroonSPD /* lsspno1 = 33 /* [U[SPNo lsspno2 = 34 /* [U[SPNo lsspd1 = 156 + (3 shl 8) /* [U[SPD lsspd2 = 156 + (3 shl 8) /* [U[SPD /* /* FB ffcspx1 = 32 ffcspy1 = 32 ffcspx2 = 48 ffcspy2 = 32 ffcspx3 = 64 ffcspy3 = 32 Gtimecnt = Gtimecntdef /* ^C}[ /* /*** Xe[Wƃ[v ***/ while 1 /* Xe[W[vJn /* /*** Xe[WJnƂ̕ϐ ***/ /* stgno = stgno + 1 /* Xe[W pscreflesh1 = 1 /* vC[XRA1XV pscbrk1 = 0 /* vC[XRAuN1 0:\ 1:\ pscbnkcnt1 = 0 /* vC[XRAuNJE^1 Gtimerefresh = 1 padviewreq = 0 /* 1:Pad1 2:Pad2 3:Close padviewmd = 0 /* 1:Pad1 2:Pad2 3:Close padstickreq = 0/* 0 2 4 6 8 padstickmd = 0 /* 0 2 4 6 8 padtrigreq = 0 /* 0 1 padtrigmd = 0 /* 0 1 /* /* ^C}[\ Gtimestr = right$(" " + itoa(Gtimecnt), 3) /* /* Stage stgmsgreq = 0 stgviewreq = 0 stgpappreq = 0 stgmappreq = 0 /* /* Ȋ deskalc = { +0,0,0,0,0,0, /*+0,3,0,0,0,0, /*+0,0,0,2,0,0, /*+1,0,0,0,0,4} +0,0,0,0,0,0, +0,0,0,0,0,0, +1,0,0,0,0,0} /* /* T̍Ȍ if ffcsavflg1 = 0 then { rndval = rnd() * 5 if deskalc( (2 * 6) + rndval) = 0 then { /* deskalc( (2 * 6) + rndval) = 2 fdeskno1 = (2 * 6) + rndval deskalc(fdeskno1) = 2 } else { /* deskalc( (2 * 6) + rndval + 1) = 2 fdeskno1 = (2 * 6) + rndval + 1 deskalc(fdeskno1) = 2 } } else { fdeskno1 = -1 } /* Ni̍Ȍ if ffcsavflg2 = 0 then { rndval = rnd() * 5 if deskalc( (1 * 6) + rndval) = 0 then { /* deskalc( (1 * 6) + rndval) = 3 fdeskno2 = (1 * 6) + rndval deskalc(fdeskno2) = 3 } else { /* deskalc( (1 * 6) + rndval + 1) = 3 fdeskno2 = (1 * 6) + rndval + 1 deskalc(fdeskno2) = 3 } } else { fdeskno2 = -1 } /* VA̍Ȍ if ffcsavflg3 = 0 then { rndval = rnd() * 5 if deskalc( (3 * 6) + rndval) = 0 then { /* deskalc( (3 * 6) + rndval) = 4 fdeskno3 = (3 * 6) + rndval deskalc(fdeskno3) = 4 } else { /* deskalc( (3 * 6) + rndval + 1) = 4 fdeskno3 = (3 * 6) + rndval + 1 deskalc(fdeskno3) = 4 } } else { fdeskno3 = -1 } /* /* vC[ pdeskno = 18 /* vC[DeskNo(ʒuF) deskalc(pdeskno) = 1 /* ȊɃvC[o^ pspno = deskalcspno(pdeskno) /* vC[SPNo psitmd = 1 /* 1:Ȓ psitreq = 0 /* Ȃ prow = pdeskno / 6 /* vC[ʒus pcol = (pdeskno - (prow * 6)) * 2 /* vC[ʒu pactlstptr1 = 0 /* vC[sXg|C^ pctrlmd = 0 /* 0:vC[ 1:sXg pmvstep1 = 0 /* /* 搶̏ swatch = 0 sspx1 = 32 sspy1 = 32 /* 128 schrcd = 5 sdir1 = 2 sanimcnt1 = 0 sactlstptr1 = 0 /* 搶sXg|C^ sctrlmd = 1 /* 0:삵Ȃ 1:sXg smvstep1 = 0 /* /* hȀ dspx1 = 32 /* hAWij dspy1 = 32 dspx2 = 240 /* hAWiEj dspy2 = 32 /* lsmvreq1 = 0 /* [U[˗v 0:vȂ 1:˗v 2:ˏI lsmvmd1 = 0 /* [U[˃[h 0:˂Ȃ 1:˒ /* /* e탂[hƃtȌl dmvmd1 = 0 /* hAJƒ[h() 0: 1:J 2:‚ 3:J dmvmd2 = 0 /* hAJƒ[h(E) 0: 1:J 2:‚ 3:J dmvreq1 = 0 /* hAJ—v() 0:vȂ 1:‚v 2:Jv dmvreq2 = 0 /* hAJ—v(E) 0:vȂ 1:‚v 2:Jv pactlstptr1 = 0 /* vC[sXg|C^ sactlstptr1 = 0 /* 搶sXg|C^ panimmd1 = 0 /* vC[Aj[h sanimmd1 = 0 /* 搶Aj[h pvismod1 = 0 /* vC[\[h 0:\ 1:\ svismod1 = 0 /* 搶\[h 0:\ 1:\ dvismod1 = 0 /* hA\[h 0:\ 1:\ dmvreflesh1 = 0 /* DoorRefleshFlag 0:Not Reflesh 1:Reflesh dmvreflesh2 = 0 /* DoorRefleshFlag 0:Not Reflesh 1:Reflesh sysmsgreq1 = 0 /* 1:bZ[W\v sysmsgstr1 = "" /* bZ[W sysmsgmd1 = 0 /* 0:bZ[W\ 1:bZ[W\ sysmsgwait1 = 0 /* bZ[W҂b sysmsgrefresh1 = 0 /* 0:XVȂ 1:bZ[WXV 2:bZ[W ffcsavstatreq = 1 /* FB~\v blnreq1 = 0 /* BaloonRequest 1:o\v(vC[Ɛ搶) 2:o폜v 3:o\v(3l) blnmd1 = 0 /* BaloonViewMode 0:No View 1:2 2:Remove 3:3 blnreflesh = 0 /* BalooneRefleshFlg 0:No Reflesh 1:Reflesh tchgcnt1 = 0 /* ȑւJE^ /* Gsystemmd = 1 /* ړs(Î~Cxg) /* /*** Xe[WƂ̉ʏ ***/ /* /* locate 0,13 : print "pdeskno tdesknoutdesknodpcol prow " /* sp_off(0,127) bg_set(0, 1, 0) /* /* wi̕` for lc2 = 0 to 27 bg_y = lc2 for lc1 = 0 to 31 bg_x = lc1 bgpb = 1 bgpc = 4 bgpd = (bgpb shl 8) + bgptdat(lc2 * 32 + lc1) bg_put(1, bg_x, bg_y, bgpd) next next /* /* ^C}[̕\ execcmd(CMD_MUSIC, "EDSRSFC", "") color 1 locate 1,0 : print "1P" color 3 color 2 locate 14,0 : print "TIME" color 3 /* /*** Q[{̃[v ***/ /* while 1 /* Q[Jn /* ^C}[JEg Gtimenow = time$ /* t[JEg pscbnkcnt1 = pscbnkcnt1 + 1 /* bZ[WJEg if sysmsgwait1 > 0 then sysmsgwait1 = sysmsgwait1 - 1 if msgboxwait1 > 0 then msgboxwait1 = msgboxwait1 - 1 /* /* get rndval = rnd() * 10 /* /* e^C}[JEg_EɑJ(ݎƌݎ(O)قȂꍇ) if Gtimenow <> Gtimenow_o then { /* /* Cxg if evtwaitsec > 0 then { evtwaitsec = evtwaitsec - 1 /* CxgI if evtwaitsec = 0 then { if Gsystemmd <> 4 then execcmd(CMD_MUSIC, "EDSCRFC", "") psitreq = 3 /* (ړ̃vC[) prow = pdeskno / 6 /* vC[ʒus pcol = (pdeskno - (prow * 6)) * 2 /* vC[ʒu pspoldno = pspno psitmd = 1 psitfreeze = 1 blnreq1 = 2 pfacrefresh = 1 evtstat1 = 0 } } /* /* ^C}[JEg_E(VXe[h2:ړ”\,3:퓬 ̏ꍇ) if Gsystemmd = 2 or Gsystemmd = 3 then { if Gtimecnt > 0 then Gtimecnt = Gtimecnt - 1 Gtimestr = right$(" " + itoa(Gtimecnt), 3) Gtimerefresh = 1 } /* Gtimenow_o = Gtimenow } /* /* 搶̈ړw(SenseiControlMode = 1 and SenseiMoveStep = 0 and EventWaitSec = 0) if sctrlmd = 1 and smvstep1 = 0 and evtwaitsec = 0 then { switch sactlst1(sactlstptr1) case 0 /* \ svismod1 = 0 /* 0:\ sactlstptr1 = sactlstptr1 + 1 break case 1 /* \ svismod1 = 1 /* 1:\ sactlstptr1 = sactlstptr1 + 1 break case 2 /* sdir1 = 0 /* smvstep1 = 32 smvdir1 = 0 /* sanimmd1 = 1 sactlstptr1 = sactlstptr1 + 1 break case 4 /* sdir1 = 1 /* smvstep1 = 32 smvdir1 = 1 /* sanimmd1 = 1 sactlstptr1 = sactlstptr1 + 1 break case 6 /* E sdir1 = 2 /* E smvstep1 = 32 smvdir1 = 2 /* E sanimmd1 = 1 sactlstptr1 = sactlstptr1 + 1 break case 8 /* sdir1 = 3 /* smvstep1 = 32 smvdir1 = 3 /* sanimmd1 = 1 sactlstptr1 = sactlstptr1 + 1 break case 12 /* (Î~) sdir1 = 0 /* smvstep1 = 32 smvdir1 = 4 /* sanimmd1 = 0 sactlstptr1 = sactlstptr1 + 1 break case 14 /* (Î~) schrcd = 5 sdir1 = 1 /* smvstep1 = 32 smvdir1 = 5 /* sanimmd1 = 0 sactlstptr1 = sactlstptr1 + 1 break case 16 /* E(Î~) sdir1 = 2 /* E smvstep1 = 32 smvdir1 = 6 /* E sanimmd1 = 0 sactlstptr1 = sactlstptr1 + 1 break case 18 /* (Î~) sdir1 = 3 /* smvstep1 = 32 smvdir1 = 7 /* sanimmd1 = 0 sactlstptr1 = sactlstptr1 + 1 break case 5 /* Î~ smvstep1 = 32 smvdir1 = 4 /* ~ sanimmd1 = 0 sactlstptr1 = sactlstptr1 + 1 break case 21 /* hA() J dmvreq1 = 2 /* 2:Jv sactlstptr1 = sactlstptr1 + 1 break case 22 /* hA() dmvreq1 = 1 /* 1:‚v sactlstptr1 = sactlstptr1 + 1 break case 31 /* VXe[hύX Gsystemmd = 1 /* ړs(Î~Cxg) sactlstptr1 = sactlstptr1 + 1 break case 32 /* VXe[hύX Gsystemmd = 2 /* ^C}[JEg_E sactlstptr1 = sactlstptr1 + 1 break case 33 /* bZ[W msgboxfntcol1 = WHITE msgboxreq1 = 1 /* 1:bZ[W{bNX\v padviewreq = 2 execcmd(CMD_MUSIC, "EDSCRFC", "") msgboxstr1 = "uł́AƂn߂܂v" sactlstptr1 = sactlstptr1 + 1 break case 41 /* ꏊ}[N\1 if systutendflg = 1 then { sactlstptr1 = sactlstptr1 + 3 } else { execcmd(CMD_MUSIC, "EDSCLFC", "") locmkreq = 1 msgboxfntcol1 = YELLOW msgboxreq1 = 1 /* 1:bZ[W{bNX\v msgboxstr1 = "vC[𑀍삵ȑւ" sactlstptr1 = sactlstptr1 + 1 } break case 42 /* ꏊ}[N\2 if systutendflg = 1 then { sactlstptr1 = sactlstptr1 + 3 } else { locmkreq = 2 msgboxfntcol1 = YELLOW msgboxreq1 = 1 /* 1:bZ[W{bNX\v msgboxstr1 = "FB̂̂ЂƂ" sactlstptr1 = sactlstptr1 + 1 } break case 43 /* ꏊ}[N\3 if systutendflg = 1 then { sactlstptr1 = sactlstptr1 + 3 } else { locmkreq = 3 msgboxfntcol1 = YELLOW msgboxreq1 = 1 /* 1:bZ[W{bNX\v msgboxstr1 = "hAO̐Ȃ܂ňړ悤I" sactlstptr1 = sactlstptr1 + 1 } break case 44 /* ꏊ}[N\4 if systutendflg = 1 then { sactlstptr1 = sactlstptr1 + 3 } else { locmkreq = 4 msgboxfntcol1 = YELLOW msgboxreq1 = 1 /* 1:bZ[W{bNX\v msgboxstr1 = "hAoNAI" sactlstptr1 = sactlstptr1 + 1 } break case 45 /* ꏊ}[N\4 if systutendflg = 1 then { sactlstptr1 = sactlstptr1 + 3 } else { locmkreq = 5 execcmd(CMD_MUSIC, "fadeout", "") msgboxfntcol1 = YELLOW msgboxreq1 = 1 /* 1:bZ[W{bNX\v msgboxstr1 = "搶Ɍ‚Ȃ悤ɁI" sactlstptr1 = sactlstptr1 + 1 } systutendflg = 1 break case 90 /* Î~(^C}lw) sactlstptr1 = sactlstptr1 + 1 smvstep1 = sactlst1(sactlstptr1) smvdir1 = 4 /* ~ sanimmd1 = 0 sactlstptr1 = sactlstptr1 + 1 break case 91 /* Xe[WbZ[W stgmsgreq = 1 padviewreq = 1 sactlstptr1 = sactlstptr1 + 1 break case 92 /* Xe[WbZ[W폜 stgmsgreq = 2 sactlstptr1 = sactlstptr1 + 1 break case 93 /* Xe[W\ stgviewreq = 1 dvismod1 = 1 /* hA\[h 0:\ 1:\ dmvreflesh1 = 1 dmvreflesh2 = 1 sactlstptr1 = sactlstptr1 + 1 break case 94 /* l\ pvismod1 = 1 /* vC[\[h 0:\ 1:\ stgpappreq = 1 pfacbrk = 1 pfacbrkcnt = 59 sactlstptr1 = sactlstptr1 + 1 break case 95 /* k\ stgmappreq = 1 sactlstptr1 = sactlstptr1 + 1 break case 98 /* [vX^[g|Cg̐ݒ sactlstptr1 = sactlstptr1 + 1 sactlstloop_s = sactlstptr1 break case 99 /* [v sactlstptr1 = sactlstloop_s break case 255 /* I sctrlmd = 0 sactlstptr1 = 0 break endswitch /* /* 搶EĂĎ if sdir1 = 2 then swatch = 1 else swatch = 0 } /* /* vC[̈ړw (PlayerControlMode = 1 and PlayerModeStep1 = 0) if pctrlmd = 1 and pmvstep1 = 0 then { switch pactlst1(pactlstptr1) case 0 /* \ pmvstep1 = 0 pvismod1 = 0 /* 0:\ pactlstptr1 = pactlstptr1 + 1 break case 1 /* \ pmvstep1 = 0 pvismod1 = 1 /* 1:\ pactlstptr1 = pactlstptr1 + 1 break case 2 /* pdir1 = 0 /* pmvstep1 = 16 pmvdir1 = 0 /* panimmd1 = 1 pactlstptr1 = pactlstptr1 + 1 break case 4 /* pdir1 = 1 /* pmvstep1 = 16 pmvdir1 = 1 /* panimmd1 = 1 pactlstptr1 = pactlstptr1 + 1 break case 6 /* E pdir1 = 2 /* E pmvstep1 = 16 pmvdir1 = 2 /* E panimmd1 = 1 pactlstptr1 = pactlstptr1 + 1 break case 8 /* pdir1 = 3 /* pmvstep1 = 16 pmvdir1 = 3 /* panimmd1 = 1 pactlstptr1 = pactlstptr1 + 1 break case 12 /* (Î~) pdir1 = 0 /* pmvstep1 = 16 pmvdir1 = 4 /* panimmd1 = 0 pactlstptr1 = pactlstptr1 + 1 break case 14 /* (Î~) pdir1 = 1 /* pmvstep1 = 16 pmvdir1 = 5 /* panimmd1 = 0 pactlstptr1 = pactlstptr1 + 1 break case 16 /* E(Î~) pdir1 = 2 /* E pmvstep1 = 16 pmvdir1 = 6 /* E panimmd1 = 0 pactlstptr1 = pactlstptr1 + 1 break case 18 /* (Î~) pdir1 = 3 /* pmvstep1 = 16 pmvdir1 = 7 /* panimmd1 = 0 pactlstptr1 = pactlstptr1 + 1 break case 38 /* pdir1 = 3 /* pmvstep1 = 8 pmvdir1 = 3 /* panimmd1 = 1 pactlstptr1 = pactlstptr1 + 1 break case 5 /* Î~(^C}lw) pactlstptr1 = pactlstptr1 + 1 pmvstep1 = pactlst1(pactlstptr1) pmvdir1 = 4 /* ~ panimmd1 = 0 pactlstptr1 = pactlstptr1 + 1 break case 11 /* panimmd1 = 0 pactlstptr1 = pactlstptr1 + 1 pmvstep1 = pmvspx1 - 16 /* ړXebv pdir1 = 11 /* pmvdir1 = 1 /* panimmd1 = 0 /* Ajp^[ lsmvreq1 = 1 /* [U[˗v break case 23 /* hA(E) J dmvreq2 = 2 /* 2:Jv pactlstptr1 = pactlstptr1 + 1 break case 24 /* hA(E) dmvreq2 = 1 /* 1:‚v pactlstptr1 = pactlstptr1 + 1 break case 31 /* VXe[hύX Gsystemmd = 1 /* ړs(Î~Cxg) pactlstptr1 = pactlstptr1 + 1 break case 32 /* VXe[hύX Gsystemmd = 2 /* ^C}[JEg_E pactlstptr1 = pactlstptr1 + 1 break case 33 /* bZ[W sysmsgreq1 = 1 /* 1:bZ[W\v sysmsgstr1 = "" pactlstptr1 = pactlstptr1 + 1 break case 34 /* bZ[W{bNX msgboxreq1 = 1 /* 1:bZ[W{bNX\v msgboxstr1 = msgboxstr(pmsgboxptr1) pmsgboxptr1 = pmsgboxptr1 + 1 pactlstptr1 = pactlstptr1 + 1 break case 99 /* [v pactlstptr1 = 0 break case 255 /* I pctrlmd = 0 pactlstptr1 = 0 break endswitch /* } /* Gstick1 = stick(1) if psitfreeze <> 0 then { if Gstick1 = 0 then psitfreeze = 0 } /* Î~̂݃WCXeBbNɂړ菈s if pctrlmd = 0 and (Gsystemmd = 2 or Gsystemmd = 3) and pmvstep1 = 0 and psitfreeze = 0 and evtwaitsec = 0 then { panimmd1 = 0 switch Gstick1 case 8 padstickreq = 8 tdesknod = prow * 6 + pcol / 2 /* tdesknou = tdesknod - 6 /* Ȏ痣Ȃ if psitmd = 1 then { psitmd = 0 /* psitreq = 1 /* (ȒvC[) pspoldno = pspno /* ړvC[̕\W pmvspx1 = 80 + (pcol * 16) pmvspy1 = 72 + (prow * 40) pspno = pmvspno(prow) pdir1 = 3 /* pmvstep1 = 32 /* ړXebv pmvdir1 = 3 /* panimmd1 = 1 /* Ajp^[ /* ړ } else { /* hA(E)̎OȂAXe[WNAv if prow = 0 and psitmd = 0 and pcol = 10 then { gmdreq1 = 2 /* 2:Xe[WNAv } /* Ȃ璅Ȃ if prow > 0 and psitmd = 0 and (pcol and &B1) = 0 then { /* u񂾂ꍇA_Ń`N if deskalc(tdesknou) = 0 and tchgcnt1 > 2 and rndval > 5 then { /* 2ȑւĂƁA_Ń`N tdeskno = tdesknou eventreq1 = 2 /* uɃ`N pdir1 = 3 /* pmvstep1 = 0 /* ړXebv pmvdir1 = 3 /* panimmd1 = 0 /* Ajp^[ } else { /* ȊȌꍇ psitreq = 2 /* (ړ̃vC[) pspoldno = pspno tdeskno = tdesknou prow = prow - 1 psitmd = 1 psitfreeze = 1 /* vC[ȂłȂꍇ if tdeskno <> pdeskno then { if deskalc(tdeskno) <> 0 then tchgcnt1 = 0 else tchgcnt1 = tchgcnt1 + 1 /* FB̏ꍇAȑւJE^0ɁAȕꍇ͉Z tchgcnt1 = tchgcnt1 + 1 /* ȑւJE^Z deskalcspy(pdeskno) = deskalcspy(pdeskno) - 32 tchr = deskalc(tdeskno) deskalc(tdeskno) = deskalc(pdeskno) deskalc(pdeskno) = tchr wdeskno = tdeskno tdeskno = pdeskno pdeskno = wdeskno tspno = deskalcspno(tdeskno) pspno = deskalcspno(pdeskno) /* deskalcspx(tdeskno) = 80 + ((tdeskno - ((tdeskno / 6) * 6)) * 32) deskalcspy(tdeskno) = 72 + ((tdeskno / 6) * 40) deskalcspx(pdeskno) = 80 + ((pdeskno - ((pdeskno / 6) * 6)) * 32) deskalcspy(pdeskno) = 72 + ((pdeskno / 6) * 40) psitspd = chrspdlst(deskalc(tdeskno) * 17 + 16) psc1 = psc1 + 500 pscreflesh1 = 1 /* vC[Ȃ } else { psitreq = 3 /* ȌsȂ() } } /* ȂȂΌς邾 } else { pdir1 = 3 /* pmvstep1 = 0 /* ړXebv pmvdir1 = 3 /* panimmd1 = 0 /* Ajp^[ } } break case 2 padstickreq = 2 tdesknod = prow * 6 + pcol / 2 tdesknou = tdesknod - 6 /* Ȏ痣Ȃ if prow < 3 and psitmd = 1 then { psitmd = 0 /* psitreq = 1 /* (ȒvC[) pspoldno = pspno prow = prow + 1 /* ړvC[̕\W pmvspx1 = 80 + (pcol * 16) pmvspy1 = 72 + ((prow - 1) * 40) pspno = pmvspno(prow) pdir1 = 0 /* pmvstep1 = 16 /* ړXebv pmvdir1 = 0 /* panimmd1 = 1 /* Ajp^[ /* ړ } else { /* Ȃ璅Ȃ if psitmd = 0 and (pcol and &B1) = 0 then { /* u񂾂ꍇA_Ń`N if deskalc(tdesknod) = 0 and tchgcnt1 > 2 and rndval > 6 then { /* 2ȑւĂƁA_Ń`N tdeskno = tdesknod eventreq1 = 2 /* uɃ`N pdir1 = 0 /* pmvstep1 = 8 /* ړXebv pmvdir1 = 0 /* panimmd1 = 0 /* Ajp^[ } else { /* ȊȌꍇ psitreq = 2 /* (ړ̃vC[) pspoldno = pspno tdeskno = tdesknod psitmd = 1 psitfreeze = 1 /* vC[ȂłȂꍇ if tdeskno <> pdeskno then { if deskalc(tdeskno) <> 0 then tchgcnt1 = 0 else tchgcnt1 = tchgcnt1 + 1 /* FB̏ꍇAȑւJE^0ɁAȕꍇ͉Z deskalcspy(pdeskno) = deskalcspy(pdeskno) + 32 tchr = deskalc(tdeskno) deskalc(tdeskno) = deskalc(pdeskno) deskalc(pdeskno) = tchr wdeskno = tdeskno tdeskno = pdeskno pdeskno = wdeskno tspno = deskalcspno(tdeskno) pspno = deskalcspno(pdeskno) /* deskalcspx(tdeskno) = 80 + ((tdeskno - ((tdeskno / 6) * 6)) * 32) deskalcspy(tdeskno) = 72 + ((tdeskno / 6) * 40) deskalcspx(pdeskno) = 80 + ((pdeskno - ((pdeskno / 6) * 6)) * 32) deskalcspy(pdeskno) = 72 + ((pdeskno / 6) * 40) psitspd = chrspdlst(deskalc(tdeskno) * 17 + 16) psc1 = psc1 + 500 pscreflesh1 = 1 /* vC[Ȃ } else { psitreq = 3 /* ȌsȂ() } } /* ȂȂΌς邾 } else { pdir1 = 0 /* pmvstep1 = 0 /* ړXebv pmvdir1 = 0 /* panimmd1 = 0 /* Ajp^[ } } break case 4 padstickreq = 4 if psitmd = 0 and pcol > 0 then { pdir1 = 1 /* pmvstep1 = 16 /* ړXebv pmvdir1 = 1 /* panimmd1 = 1 pcol = pcol - 1 tdesknod = prow * 6 + pcol / 2 tdesknou = tdesknod - 6 } else { pdir1 = 1 /* pmvstep1 = 0 /* ړXebv pmvdir1 = 1 /* panimmd1 = 0 } break case 6 padstickreq = 6 if psitmd = 0 and pcol < 10 then { pdir1 = 2 /* E pmvstep1 = 16 /* ړXebv pmvdir1 = 2 /* E panimmd1 = 1 pcol = pcol + 1 tdesknod = prow * 6 + pcol / 2 tdesknou = tdesknod - 6 } else { pdir1 = 2 /* E pmvstep1 = 0 /* ړXebv pmvdir1 = 2 /* E panimmd1 = 0 } break default padstickreq = 99 endswitch /* } /* /* vC[s if pmvstep1 > 0 then { switch pmvdir1 case 0 : pmvspy1 = pmvspy1 + 1 : break /* case 1 : pmvspx1 = pmvspx1 - 1 : break /* case 2 : pmvspx1 = pmvspx1 + 1 : break /* E case 3 : pmvspy1 = pmvspy1 - 1 : break /* endswitch pmvstep1 = pmvstep1 - 1 if pmvstep1 = 0 then panimmd1 = 0 if pmvdir1 >= 0 and pmvdir1 <= 3 then psc1 = psc1 + 10 pscreflesh1 = 1 } /* 搶s if smvstep1 > 0 then { switch smvdir1 case 0 : sspy1 = sspy1 + 1 : break /* case 1 : sspx1 = sspx1 - 1 : break /* case 2 : sspx1 = sspx1 + 1 : break /* E case 3 : sspy1 = sspy1 - 1 : break /* case 4 case 5 case 6 case 7 case 8 break endswitch smvstep1 = smvstep1 - 1 if smvstep1 = 0 then sanimmd1 = 0 } /* vC[Aj /* ĂꍇA摜 if psitmd = 1 then { pmvspd = chrspdlst(deskalc(pdeskno) * 17 + 16) /* ĂăAj[hON̏ꍇAAj } else { if panimmd1 = 1 then { if panimwait1 = 0 then if panimcnt1 < 3 then panimcnt1 = panimcnt1 + 1 else panimcnt1 = 0 if panimwait1 < 3 then panimwait1 = panimwait1 + 1 else panimwait1 = 0 } if pdir1 <> 11 then { /* шȊOȂ pmvspd = chrspdlst(deskalc(pdeskno) * 17 + pdir1 * 4 + panimcnt1) } else {/* () pmvspd = chrspdlst(deskalc(pdeskno) * 17 + 16) + 16384 pmvspd2 = chrspdlst(deskalc(pdeskno) * 17 + 16) + 16384 - (2 shl 8) + (15 shl 8) /* } } /* /* 搶Aj if sanimmd1 = 1 then { if sanimwait1 = 0 then if sanimcnt1 < 3 then sanimcnt1 = sanimcnt1 + 1 else sanimcnt1 = 0 if sanimwait1 < 3 then sanimwait1 = sanimwait1 + 1 else sanimwait1 = 0 } sspd = chrspdlst(schrcd * 17 + sdir1 * 4 + sanimcnt1) /* /* hAJIɃ[h() if dmvmd1 > 1 then { if dmvstep1 = 0 and dmvmd1 = 3 then dmvmd1 = 1 /* 3:J->1:J if dmvstep1 = 0 and dmvmd1 = 2 then dmvmd1 = 0 /* 2:‚->0: } /* hAJIɃ[h(E) if dmvmd2 > 1 then { if dmvstep2 = 0 and dmvmd2 = 3 then dmvmd2 = 1 /* 3:J->1:J if dmvstep2 = 0 and dmvmd2 = 2 then dmvmd2 = 0 /* 2:‚->0: } /* hAJ—v() if dmvreq1 <> 0 then { if dmvreq1 = 2 then { /* 2:Jv dmvreq1 = 0 if dmvmd1 = 0 then { /* 0: dmvmd1 = 3 /* 3:J dmvstep1 = 16 dmvdir1 = 2 /* 2:E } } if dmvreq1 = 1 then { /* 1:‚v dmvreq1 = 0 if dmvmd1 = 1 then { /* 1:J dmvmd1 = 2 /* 2:‚ dmvstep1 = 16 dmvdir1 = 1 /* 1: } } } /* hAJ—v(E) if dmvreq2 <> 0 then { if dmvreq2 = 2 then { /* 2:Jv dmvreq2 = 0 if dmvmd2 = 0 then { /* 0: dmvmd2 = 3 /* 3:J dmvstep2 = 16 dmvdir2 = 1 /* 1: } } if dmvreq2 = 1 then { /* 1:‚v dmvreq2 = 0 if dmvmd2 = 1 then { /* 1:J dmvmd2 = 2 /* 2:‚ dmvstep2 = 16 dmvdir2 = 2 /* 2:E } } } /* hAJ() if dmvstep1 > 0 then { switch dmvdir1 case 0 : dspy1 = dspy1 + 1 : break /* case 1 : dspx1 = dspx1 - 1 : break /* case 2 : dspx1 = dspx1 + 1 : break /* E case 3 : dspy1 = dspy1 - 1 : break /* endswitch dmvreflesh1 = 1 dmvstep1 = dmvstep1 - 1 } /* /* hAJ(E) if dmvstep2 > 0 then { switch dmvdir2 case 0 : dspy2 = dspy2 + 1 : break /* case 1 : dspx2 = dspx2 - 1 : break /* case 2 : dspx2 = dspx2 + 1 : break /* E case 3 : dspy2 = dspy2 - 1 : break /* endswitch dmvreflesh2 = 1 dmvstep2 = dmvstep2 - 1 } /* Cxg҂ȊOŐ搶ĎԂŗȂĂ搶Ɍ‚Cxg if evtwaitsec = 0 and swatch = 1 and psitmd = 0 then { eventreq1 = 1 } /* /* [U[ˏ if lsmvmd1 = 1 then { lsspx1 = lsspx1 - 4 lsspx2 = lsspx2 - 4 if lsspx1 < 0 then lsspx1 = lsspinix1 if lsspx2 < 0 then lsspx2 = lsspinix2 /* if lsmvcnt1 > 0 then { lsmvcnt1 = lsmvcnt1 - 1 } else { lsmvmd1 = 0 lsmvreq1 = 2 } } /* /*** evΉ ***/ /* /* Cxgv̎t if eventreq1 <> 0 then { if eventreq1 = 1 then { /* 搶Ɍ‚ tchgcnt1 = 0 /* ȑւJE^ pctrlmd = 1 /* execcmd(CMD_MUSIC, "EDSSEFC", "") msgboxfntcol1 = RED pactlst1(0) = 34 /* MsgBox pactlst1(1) = 5 /* Stop pactlst1(2) = 30 /* StopFrames pactlst1(3) = 34 /* MsgBox pactlst1(4) = 5 /* Stop pactlst1(5) = 60 /* StopFrames pactlst1(6) = 255 /* End pmsgboxptr1 = 0 msgboxstr(0) = "u[iNA@@@@@@@@" msgboxstr(1) = "u[iNAȂɖ߂Ȃv" /* blnreq1 = 1 pactlstptr1 = 0 evtwaitsec = 5 evtstat1 = eventreq1 pfacrefresh = 2 eventreq1 = 0 } if eventreq1 = 2 then { /* uɃ`N tchgcnt1 = 0 /* ȑւJE^ pctrlmd = 1 /* execcmd(CMD_MUSIC, "EDSMOFC", "") msgboxfntcol1 = RED pactlst1(0) = 34 /* MsgBox pactlst1(1) = 5 /* Stop pactlst1(2) = 20 /* StopFrames pactlst1(3) = 34 /* MsgBox pactlst1(4) = 5 /* Stop pactlst1(5) = 14 /* StopFrames pactlst1(6) = 34 /* MsgBox pactlst1(7) = 5 /* Stop pactlst1(8) = 60 /* StopFrames pactlst1(9) = 11 /* Futtobi pactlst1(10) = 255 /* End pmsgboxptr1 = 0 msgboxstr(0) = "uݾ! " msgboxstr(1) = "uݾ! ²ð " msgboxstr(2) = "uݾ! ²ð źĽ!!v" /* tsitreq1 = 1 /* 1:^[QbguNv tspno = deskalcspno(tdeskno) psitspd = chrspdlst(deskalc(tdeskno) * 17 + 4) blnreq1 = 3 pactlstptr1 = 0 evtwaitsec = 7 evtstat1 = eventreq1 pfacrefresh = 2 eventreq1 = 0 } } if lsmvreq1 <> 0 then { /* [U[˗v̎t if lsmvreq1 = 1 then { lsmvmd1 = 1 /* [U[˃[h lsmvcnt1 = 130 /* [U[ˎ lsspinix1 = deskalcspx(tdeskno) - 16 /* [U[SPXW1 lsspiniy1 = deskalcspy(tdeskno) + 8 /* [U[SPYW1 lsspinix2 = deskalcspx(tdeskno) - 16 /* [U[SPXW2 lsspiniy2 = deskalcspy(tdeskno) + 8 /* [U[SPYW2 lsmvreq1 = 0 if lsspinix1 < 0 then lsspinix1 = 0 if lsspinix2 < 0 then lsspinix2 = 0 lsspx1 = lsspinix1 lsspy1 = lsspiniy1 lsspx2 = lsspinix2 - 32 lsspy2 = lsspiniy2 pfacrefresh = 4 pfacbrk = 1 pfacbrkcnt = 140 } if lsmvreq1 = 2 then { lsspx1 = 0 lsspy1 = 0 lsspx2 = 0 lsspy2 = 0 lsmvmd1 = 2 lsmvreq1 = 0 tsitreq1 = 2 /* 2:^[Qbguȗv psitspd = chrspdlst(deskalc(tdeskno) * 17 + 16) } } /* o\v̎t if blnreq1 <> 0 then { /* o\(2l) if blnreq1 = 1 then { blnmd1 = 1 blnreflesh = 1 blnreq1 = 0 } /* o폜 if blnreq1 = 2 then { blnmd1 = 2 blnreflesh = 1 blnreq1 = 0 } /* o\(3l) if blnreq1 = 3 then { blnmd1 = 3 blnreflesh = 1 blnreq1 = 0 } } /* ʒu}[N\v̎t if locmkreq <> 0 then { if locmkreq = 1 then { /* 1:Player locmkstat = locmkreq locmk1x1 = deskalcspx(pdeskno) - 24 locmk1x2 = locmk1x1 + 31 locmk1y1 = deskalcspy(pdeskno) - 16 locmk1y2 = locmk1y1 + 35 locmkcnt = 180 locmkwait = 0 locmkbrk = 1 locmkreq = 0 } if locmkreq = 2 then { /* 2:Friend locmkstat = locmkreq locmk1x1 = deskalcspx(fdeskno1) - 24 locmk1x2 = locmk1x1 + 31 locmk1y1 = deskalcspy(fdeskno1) - 16 locmk1y2 = locmk1y1 + 35 locmk2x1 = deskalcspx(fdeskno2) - 24 locmk2x2 = locmk2x1 + 31 locmk2y1 = deskalcspy(fdeskno2) - 16 locmk2y2 = locmk2y1 + 35 locmk3x1 = deskalcspx(fdeskno3) - 24 locmk3x2 = locmk3x1 + 31 locmk3y1 = deskalcspy(fdeskno3) - 16 locmk3y2 = locmk3y1 + 35 locmkcnt = 180 locmkwait = 0 locmkbrk = 1 locmkreq = 0 } if locmkreq = 3 then { /* 3:DoorDesk locmkstat = locmkreq locmk1x1 = deskalcspx(5) - 24 locmk1x2 = locmk1x1 + 31 locmk1y1 = deskalcspy(5) - 16 locmk1y2 = locmk1y1 + 35 locmkcnt = 180 locmkwait = 0 locmkbrk = 1 locmkreq = 0 } if locmkreq = 4 then { /* 4:Door locmkstat = locmkreq locmk1x1 = dspx2 - 20 locmk1x2 = locmk1x1 + 23 locmk1y1 = dspy2 - 20 locmk1y2 = locmk1y1 + 39 locmkcnt = 180 locmkwait = 0 locmkbrk = 1 locmkreq = 0 } if locmkreq = 5 then { /* 5:Sensei locmkstat = locmkreq locmk1x1 = sspx1 - 24 locmk1x2 = locmk1x1 + 31 locmk1y1 = sspy1 - 20 locmk1y2 = locmk1y1 + 38 locmkcnt = 180 locmkwait = 0 locmkbrk = 1 locmkreq = 0 } } /* bZ[W\v̎t if sysmsgreq1 = 1 then { sysmsgreq1 = 0 sysmsgmd1 = 1 sysmsgwait1 = 180 sysmsgrefresh1 = 1 } if sysmsgmd1 = 1 and sysmsgwait1 = 0 then { sysmsgmd1 = 0 sysmsgrefresh1 = 2 } /* /* bZ[W{bNX\v̎t if msgboxreq1 = 1 then { msgboxreq1 = 0 if msgboxmd1 = 1 then msgboxrefresh1 = 3 else msgboxrefresh1 = 1 : msgboxmd1 = 1 msgboxwait1 = 180 } if msgboxmd1 = 1 and msgboxwait1 = 0 then { msgboxmd1 = 0 msgboxrefresh1 = 2 } /* /* Xe[WNAv if gmdreq1 = 2 then { execcmd(CMD_MUSIC, "EDSRCFC", "") gmdreq1 = 0 pctrlmd = 1 pactlst1 = {23, 5,32,38, 5,32,24, 0, 5,32,255} pactlstptr1 = 0 evtwaitsec = 5 Gsystemmd = 4 } /* /*** ʕ`揈 ***/ /* v_disp(0) /* PadView if padviewreq <> 0 then { execcmd(CMD_PAD, itoa(padviewreq), "") padviewmd = padviewreq padviewreq = 0 } /* PadView if padviewreq <> 0 then { if padviewreq = 99 then padviewreq = 0 execcmd(CMD_PAD, itoa(padviewreq), "") padviewmd = padviewreq padviewreq = 0 } /* PadStick if padstickreq <> 0 then { if padstickreq = 99 then padstickreq = 0 execcmd(CMD_STICKCLICK, itoa(padstickreq), "") padstickmd = padstickreq padstickreq = 0 } /* PadTrigger if padtrigreq <> 0 then { if padtrigreq = 99 then padtrigreq = 0 execcmd(CMD_STRIGCLICK, itoa(padtrigreq), "") padtrigmd = padtrigreq padtrigreq = 0 } /* if ffcsavstatreq = 1 then { /* FB~\v̎t if ffcsavflg1 = 1 then { sp_set(ffcspno1, ffcspx1, ffcspy1, chrspdlst(2 * 17 + 0 * 4 + 0), 3) } if ffcsavflg2 = 1 then { sp_set(ffcspno2, ffcspx2, ffcspy2, chrspdlst(3 * 17 + 0 * 4 + 0), 3) } if ffcsavflg3 = 1 then { sp_set(ffcspno3, ffcspx3, ffcspy3, chrspdlst(4 * 17 + 0 * 4 + 0), 3) } ffcsavstatreq = 0 } /* Xe[WbZ[W if stgmsgreq <> 0 then { if stgmsgreq = 1 then { locate 11, 4 : color 1 : print "GET READY" locate 11, 6 : print "PLAYER ONE" locate 13, 9 : print "ROUND" locate 14, 11 : color 2 : print stgno : color 3 stgmsgreq = 0 } if stgmsgreq = 2 then { locate 11, 4 : color 3 : print " " locate 11, 6 : print " " locate 13, 9 : print " " locate 14, 11 : print " " stgmsgreq = 0 } } /* Xe[Wwi\v̎t if stgviewreq = 1 then { /* BG0\Jn bg_set(0, 1, 1) pfacrefresh = 1 stgviewreq = 0 } /* X^[gkov̎t if stgmappreq = 1 then { for lc2 = 0 to 3 bg_y = lc2 for lc1 = 0 to 5 deskno = lc2 * 6 + lc1 psitspd = chrspdlst(deskalc(deskno) * 17 + 16) mspno = deskalcspno(deskno) sp_set(mspno , deskalcspx(deskno), deskalcspy(deskno), psitspd, 3) sp_set(mspno + 1, deskalcspx(deskno), deskalcspy(deskno) + 16, psitspd + 16, 3) next next stgmappreq = 0 } /* X^[gʒu}[N\ if locmkstat <> 0 then { if locmkwait = 0 then { tbox(locmk1x1, locmk1y1, locmk1x2, locmk1y2, locmkcl1) tbox(locmk1x1 + 1, locmk1y1 + 1, locmk1x2 - 1, locmk1y2 - 1, locmkcl2) tbox(locmk1x1 - 1, locmk1y1 - 1, locmk1x2 + 1, locmk1y2 + 1, locmkcl3) if locmkstat = 2 then { /* 2:Friend tbox(locmk2x1, locmk2y1, locmk2x2, locmk2y2, locmkcl1) tbox(locmk2x1 + 1, locmk2y1 + 1, locmk2x2 - 1, locmk2y2 - 1, locmkcl2) tbox(locmk2x1 - 1, locmk2y1 - 1, locmk2x2 + 1, locmk2y2 + 1, locmkcl3) tbox(locmk3x1, locmk3y1, locmk3x2, locmk3y2, locmkcl1) tbox(locmk3x1 + 1, locmk3y1 + 1, locmk3x2 - 1, locmk3y2 - 1, locmkcl2) tbox(locmk3x1 - 1, locmk3y1 - 1, locmk3x2 + 1, locmk3y2 + 1, locmkcl3) } locmkbrk = 0 } if locmkwait = 30 then { tbox(locmk1x1, locmk1y1, locmk1x2, locmk1y2, 0) tbox(locmk1x1 + 1, locmk1y1 + 1, locmk1x2 - 1, locmk1y2 - 1, 0) tbox(locmk1x1 - 1, locmk1y1 - 1, locmk1x2 + 1, locmk1y2 + 1, 0) if locmkstat = 2 then { /* 2:Friend tbox(locmk2x1, locmk2y1, locmk2x2, locmk2y2, 0) tbox(locmk2x1 + 1, locmk2y1 + 1, locmk2x2 - 1, locmk2y2 - 1, 0) tbox(locmk2x1 - 1, locmk2y1 - 1, locmk2x2 + 1, locmk2y2 + 1, 0) tbox(locmk3x1, locmk3y1, locmk3x2, locmk3y2, 0) tbox(locmk3x1 + 1, locmk3y1 + 1, locmk3x2 - 1, locmk3y2 - 1, 0) tbox(locmk3x1 - 1, locmk3y1 - 1, locmk3x2 + 1, locmk3y2 + 1, 0) } locmkbrk = 1 } if locmkwait < 61 then locmkwait = locmkwait + 1 else locmkwait = 0 locmkcnt = locmkcnt - 1 if locmkcnt = 0 then locmkstat = 0 } /* XRAXVڃtbV if pscbnkcnt1 > 29 then { pscbnkcnt1 = 0 if pscbrk1 = 0 then { color 1 locate 1,0 : print " " color 3 pscbrk1 = 1 } else { color 1 locate 1,0 : print "1P" color 3 pscbrk1 = 0 } } /* XRA\tbV if pscreflesh1 = 1 then { pscstr1 = right$(" " + itoa(psc1), 10) /*vC[XRA1\ locate 3,0 : print pscstr1 pscreflesh1 = 0 } /* ^C}[\(^C}[XVtO<>0) if Gtimerefresh <> 0 then { color 3 /* vC[\(_[W)A^C}[uN\ /* if pfacbrkcnt > 0 then { /* if pfacbrk = 0 then color 13 else color 5 /* } if Gtimecnt < 10 then color 5 /* ^C}[\ locate 14,1 : print Gtimestr color 3 /* Gtimerefresh = 0 } /* ^[QbguȋNv̎t if tsitreq1 <> 0 then { if tsitreq1 = 1 then { sp_set(tspno , deskalcspx(tdeskno), deskalcspy(tdeskno), psitspd, 3) sp_set(tspno + 1, deskalcspx(tdeskno), deskalcspy(tdeskno) + 16, psitspd + 16, 3) tsitreq1 = 0 } else if tsitreq1 = 2 then { sp_set(tspno , deskalcspx(tdeskno), deskalcspy(tdeskno), psitspd, 3) sp_set(tspno + 1, deskalcspx(tdeskno), deskalcspy(tdeskno) + 16, psitspd + 16, 3) tsitreq1 = 0 } } /* [U[\ if lsmvmd1 <> 0 then{ if lsmvmd1 = 1 then { sp_set(lsspno1, lsspx1, lsspy1, lsspd1, 3) sp_set(lsspno2, lsspx2, lsspy2, lsspd2, 3) } if lsmvmd1 = 2 then { sp_set(lsspno1, lsspx1, lsspy1, lsspd1, 0) sp_set(lsspno2, lsspx2, lsspy2, lsspd2, 0) lsmvmd1 = 0 } } /* vC[\[h 1:\ if pvismod1 = 1 then { /* Ȏ̏ if psitreq = 1 then { /* ȗv /* ȒvC[ sp_set(pspoldno , deskalcspx(pdeskno), deskalcspy(pdeskno), pmvspd, 0) sp_set(pspoldno + 1, deskalcspx(pdeskno), deskalcspy(pdeskno) + 16, pmvspd + 16, 0) psitreq = 0 } /* Ȏ̏() if psitreq = 2 then { /* v /* ړ̃vC[ sp_set(pspoldno , pmvspx1, pmvspy1, pmvspd, 0) sp_set(pspoldno + 1, pmvspx1, pmvspy1 + 16, pmvspd + 16, 0) /* Ȍ̃LN^[̈ړ sp_set(tspno , deskalcspx(tdeskno), deskalcspy(tdeskno), psitspd, 3) sp_set(tspno + 1, deskalcspx(tdeskno), deskalcspy(tdeskno) + 16, psitspd + 16, 3) psitreq = 0 } /* Ȏ̏() if psitreq = 3 then { /* ȗv /* ړ̃vC[ sp_set(pspoldno , pmvspx1, pmvspy1, pmvspd, 0) sp_set(pspoldno + 1, pmvspx1, pmvspy1 + 16, pmvspd + 16, 0) psitreq = 0 } /* ړvC[\ if psitmd = 0 then { /* ړ if pfacbrkcnt > 0 then { /* _ if pfacbrk = 0 then { sp_set(pspno , pmvspx1, pmvspy1, pmvspd, 3) sp_set(pspno + 1, pmvspx1, pmvspy1 + 16, pmvspd + 16, 3) } else { sp_set(pspno , pmvspx1, pmvspy1, pmvspd2, 3) /* _ sp_set(pspno + 1, pmvspx1, pmvspy1 + 16, pmvspd2 + 16, 3) /* _ } } else { /* ʏ̈ړ sp_set(pspno , pmvspx1, pmvspy1, pmvspd, 3) sp_set(pspno + 1, pmvspx1, pmvspy1 + 16, pmvspd + 16, 3) } } else { /* Ȓ X^[gvC[ov̎t if stgpappreq = 1 and pfacbrkcnt > 0 then { /* ouN if pfacbrk = 0 then { sp_set(pspno , deskalcspx(pdeskno), deskalcspy(pdeskno), pmvspd, 0) sp_set(pspno + 1, deskalcspx(pdeskno), deskalcspy(pdeskno) + 16, pmvspd + 16, 0) pfacbrk = 1 } else { sp_set(pspno , deskalcspx(pdeskno), deskalcspy(pdeskno), pmvspd, 3) sp_set(pspno + 1, deskalcspx(pdeskno), deskalcspy(pdeskno) + 16, pmvspd + 16, 3) pfacbrk = 0 } pfacbrkcnt = pfacbrkcnt - 1 } else { /* ʏ풅 stgpappreq = 0 /* ȒvC[\ sp_set(pspno , deskalcspx(pdeskno), deskalcspy(pdeskno), pmvspd, 3) sp_set(pspno + 1, deskalcspx(pdeskno), deskalcspy(pdeskno) + 16, pmvspd + 16, 3) } } } else { /* vC[\[h 0:\ /* vC[ if pvismod1 = 0 then { sp_set(pspno , pmvspx1, pmvspy1, pmvspd, 0) sp_set(pspno + 1, pmvspx1, pmvspy1 + 16, pmvspd + 16, 0) } } /* hA1\ if dmvreflesh1 = 1 then { if dvismod1 = 1 then { sp_set(dspno1 , dspx1, dspy1 , dspd1 , 3) sp_set(dspno1 + 1 , dspx1, dspy1 + 16, dspd1 + 16, 3) } else { sp_set(dspno1 , 0, 0, 0, 0) sp_set(dspno1 + 1 , 0, 0, 0, 0) } dmvreflesh1 = 0 } /* hA2\ if dmvreflesh2 = 1 then { if dvismod1 = 1 then { sp_set(dspno2 , dspx2, dspy2 , dspd2 , 3) sp_set(dspno2 + 1 , dspx2, dspy2 + 16, dspd2 + 16, 3) } else { sp_set(dspno2 , 0, 0, 0, 0) sp_set(dspno2 + 1 , 0, 0, 0, 0) } dmvreflesh2 = 0 } /* /* 搶̕\ if svismod1 = 1 then { sp_set(sspno , sspx1, sspy1, sspd, 3) sp_set(sspno + 1, sspx1, sspy1 + 16, sspd + 16, 3) } else { sp_set(sspno , sspx1, sspy1, sspd, 0) sp_set(sspno + 1, sspx1, sspy1 + 16, sspd + 16, 0) } /* o\ if blnmd1 <> 0 then { if blnreflesh = 1 then { /* otbVtO /* o\(2l) if blnmd1 = 1 then { sp_set(pbspno, pmvspx1 + 16, pmvspy1 -16, pbspd, 3) sp_set(sbspno, sspx1 + 16, sspy1 - 16, sbspd, 3) blnreflesh = 0 } /* o폜 if blnmd1 = 2 then { sp_set(pbspno, 0, 0, pbspd, 0) sp_set(sbspno, 0, 0, sbspd, 0) sp_set(tbspno, 0, 0, tbspd, 0) blnmd1 = 0 blnreflesh = 0 } /* o\(3l) if blnmd1 = 3 then { sp_set(pbspno, pmvspx1 + 16, pmvspy1 -16, pbspd, 3) sp_set(sbspno, sspx1 + 16, sspy1 - 16, sbspd, 3) sp_set(tbspno, deskalcspx(tdeskno) + 16, deskalcspy(tdeskno) - 16, tbspd, 3) blnreflesh = 0 } } else if blnmd1 <> 2 then { /* o폜ȊȌꍇAvC[͖t[XV(ړ̂) sp_set(pbspno, pmvspx1 + 16, pmvspy1 -16, pbspd, 3) } } /* bZ[W\tbV if sysmsgrefresh1 <> 0 then { /* bZ[W\ if sysmsgrefresh1 = 1 then { msgprint(sysmsgstr1, 24) sysmsgrefresh1 = 0 } /* bZ[W if sysmsgrefresh1 = 2 then { msgprint("", 24) sysmsgrefresh1 = 0 } } /* /* vC[\\(vC[\XVtO<>0) if pfacrefresh <> 0 then { switch pfacrefresh case 1 /* ʏ execcmd(CMD_FACE, "128", "2") pfacrefresh = 0 break case 2 /* execcmd(CMD_FACE, "131", "2") pfacrefresh = 0 break case 3 /* execcmd(CMD_FACE, "134", "2") pfacrefresh = 0 break case 4 /* vC[\(_[W) if pfacbrkcnt > 0 then { if pfacbrk = 0 then { execcmd(CMD_FACE, "137", "2") pfacbrk = 1 } else { execcmd(CMD_FACE, "137", "15") pfacbrk = 0 } pfacbrkcnt = pfacbrkcnt - 1 } else { execcmd(CMD_FACE, "128", "2") pfacrefresh = 0 } break endswitch } /* bZ[W{bNX\tbV if msgboxrefresh1 <> 0 then { /* bZ[W{bNX if msgboxrefresh1 = 2 or msgboxrefresh1 = 3 then { fill(msgboxx1, msgboxy1, msgboxx2, msgboxy2, 0) } /* bZ[W{bNX\ if msgboxrefresh1 = 1 or msgboxrefresh1 = 3 then { /* msgboxx1 = 0 msgboxx2 = 0 msgboxy1 = 30 msgboxy2 = 0 msgboxlen1 = len(msgboxstr1) msgboxwid = ( msgboxlen1 * 8) + 15 msgboxhei = 31 /* msgboxx2 = msgboxx1 + msgboxwid msgboxy2 = msgboxy1 + msgboxhei if msgboxpos = 1 then { msgboxx1 = (reswid - msgboxwid) / 2 msgboxx2 = msgboxx1 + msgboxwid } /* box(msgboxx1, msgboxy1, msgboxx2, msgboxy2, msgboxbakcol) box(msgboxx1 + 1, msgboxy1 + 1, msgboxx2 - 1, msgboxy2 - 1, msgboxbdrcol) fill(msgboxx1 + 2 , msgboxy1 + 2, msgboxx2 - 2, msgboxy2 - 2, msgboxbakcol) symbol(msgboxx1 + 8, msgboxy1 + 8, msgboxstr1, 1, 1, 1, msgboxfntcol1, 0) } msgboxrefresh1 = 0 } /* /*** Q[[hJڏ ***/ /* Xe[WNA if Gsystemmd = 4 and evtwaitsec = 0 then { break } /* /* Q[I[o[菈(^C}[=0) if Gtimecnt = 0 then { Gstartflg = 2 /* X^[gtO 2:Q[I[o[ break } /* endwhile /* Q[Xe[WI /* /* X^[gtO 2:Q[I[o[ if Gstartflg = 2 then { gameover_screen() /* /* SXvCgBG v_disp(0) sp_off(0,127) bg_set(0, 1, 0) /* return(psc1) break } /* Xe[WNA if Gsystemmd = 4 then { /* /* N~oꂽ switch deskalc(5) case 2 ffcsavreq1 = 1 /* 1:T break case 3 ffcsavreq1 = 2 /* 2:Ni break case 4 ffcsavreq1 = 3 /* 3:VA break default ffcsavreq1 = 0 /* 0:v endswitch /* /* NGXg switch ffcsavreq1 case 1 ffcsavreq1 = 0 ffcsavflg1 = 1 /* 1:T ffcsavcd = 1 /* 1:T fspx1 = 136 fspy1 = 136 break case 2 ffcsavreq1 = 0 ffcsavflg2 = 1 /* Ni ffcsavcd = 2 /* 2:Ni fspx2 = 136 fspy2 = 136 break case 3 ffcsavreq1 = 0 ffcsavflg3 = 1 /* VA ffcsavcd = 3 /* 3:VA fspx3 = 136 fspy3 = 136 break endswitch /* ffcvis1 = 0 /*FB\tO padviewreq = 1 padstickreq = 0 padtrigreq = 0 /* /* bZ[W stclrmsg1 = "ESCAPE SUCCESS!!" stclrmsg2 = "SAVED FRIEND IS " /* /* N~Ă30000_{[iX if ffcsavcd > 0 then { pbnssc1 = 30000 pbnsscstr1 = right$(" " + itoa(pbnssc1), 10) /* {[iXXRA1\ stclrmsg3 = "" stclrmsg4 = "BONUS " + pbnsscstr1 /* S~Ă΃^C{[iX if ffcsavflg1 = 1 and ffcsavflg2 = 1 and ffcsavflg3 = 1 then { Gsystemmd = 5 /* I[NA pbnssc2 = Gtimecnt * 10000 pbnsscstr2 = right$(" " + itoa(pbnssc2), 10) /* {[iXXRA2\ stclrmsg5 = "TIME " + pbnsscstr2 } else { pbnssc2 = 0 pbnsscstr2 = "" stclrmsg5 = "" } /* N~ĂȂ΃m[{[iX } else { pbnssc1 = 0 pbnssc2 = 0 stclrmsg3 = " NOTHING " stclrmsg4 = " NO BONUS " stclrmsg5 = "" } /* /* /* SXvCgBG v_disp(0) sp_off(0,127) bg_set(0, 1, 0) /* /* \[v pbscrnproc = 1 /* {[iXʑJ lc1 = 0 lc2 = -1 while 1 /* {[iXXRAꂼ0̏ꍇA[vJE^Zbg if lc2 = -1 and pbnssc1 = 0 and pbnssc2 = 0 then lc2 = lc1 + 360 /* 270 /* [vJE^ɒBꍇA if lc1 = lc2 then break /* t[JEg pscbnkcnt1 = pscbnkcnt1 + 1 /* if lc1 = 60 then pbscrnproc = 2 if lc1 = 90 then pbscrnproc = 3 if lc1 = 120 then pbscrnproc = 4 : ffcsavreflesh1 = 1 if lc1 = 150 then pbscrnproc = 5 if lc1 = 180 then pbscrnproc = 6 : ffcsavreflesh1 = 0 if lc1 = 210 then pbscrnproc = 7 /* /* XRAJEg if pbscrnproc = 7 then { if pbnssc1 > 0 then { psc1 = psc1 + 1000 pbnssc1 = pbnssc1 - 1000 pbnsscstr1 = right$(" " + itoa(pbnssc1), 10) /* {[iXXRA1\ stclrmsg4 = "BONUS " + pbnsscstr1 pscreflesh1 = 1 } /* if pbnssc1 = 0 and pbnssc2 > 0 then { psc1 = psc1 + 1000 pbnssc2 = pbnssc2 - 1000 pbnsscstr2 = right$(" " + itoa(pbnssc2), 10) /* {[iXXRA2\ stclrmsg5 = "TIME " + pbnsscstr2 pscreflesh1 = 1 } pscstr1 = right$(" " + itoa(psc1), 10) /*vC[XRA1\ } /* v_disp(0) /* /* PadView if padviewreq <> 0 then { if padviewreq = 99 then padviewreq = 0 execcmd(CMD_PAD, itoa(padviewreq), "") padviewmd = padviewreq padviewreq = 0 } /* PadStick if padstickreq <> 0 then { if padstickreq = 99 then padstickreq = 0 execcmd(CMD_STICKCLICK, itoa(padstickreq), "") padstickmd = padstickreq padstickreq = 0 } /* PadTrigger if padtrigreq <> 0 then { if padtrigreq = 99 then padtrigreq = 0 execcmd(CMD_STRIGCLICK, itoa(padtrigreq), "") padtrigmd = padtrigreq padtrigreq = 0 } /* switch pbscrnproc case 1 /* ~oς݊ACR\ if ffcsavcd <> 1 and ffcsavflg1 = 1 then { sp_set(ffcspno1, ffcspx1, ffcspy1, chrspdlst(2 * 17 + 0 * 4 + 0), 3) } if ffcsavcd <> 2 and ffcsavflg2 = 1 then { sp_set(ffcspno2, ffcspx2, ffcspy2, chrspdlst(3 * 17 + 0 * 4 + 0), 3) } if ffcsavcd <> 3 and ffcsavflg3 = 1 then { sp_set(ffcspno3, ffcspx3, ffcspy3, chrspdlst(4 * 17 + 0 * 4 + 0), 3) } pbscrnproc = 0 break case 2 locate 8,4 : print stclrmsg1 pbscrnproc = 0 break case 3 locate 8,6 : print stclrmsg2 pbscrnproc = 0 break case 4 locate 8,8 : print stclrmsg3 /* ~oL\ switch ffcsavcd case 1 sp_set(fspno1 , fspx1, fspy1, chrspdlst(2 * 17 + 0 * 4 + 0), 3) sp_set(fspno1 + 1, fspx1, fspy1 + 16, chrspdlst(2 * 17 + 0 * 4 + 0) + 16, 3) break case 2 sp_set(fspno2 , fspx2, fspy2, chrspdlst(3 * 17 + 0 * 4 + 0), 3) sp_set(fspno2 + 1, fspx2, fspy2 + 16, chrspdlst(3 * 17 + 0 * 4 + 0) + 16, 3) break case 3 sp_set(fspno3 , fspx3, fspy3, chrspdlst(4 * 17 + 0 * 4 + 0), 3) sp_set(fspno3 + 1, fspx3, fspy3 + 16, chrspdlst(4 * 17 + 0 * 4 + 0) + 16, 3) break endswitch pbscrnproc = 0 break case 5 locate 8,10 : print stclrmsg4 pbscrnproc = 0 break case 6 locate 8,12 : print stclrmsg5 pbscrnproc = 0 if ffcsavcd > 0 then { execcmd(CMD_MUSIC, "EDSFAFC", "") } else { execcmd(CMD_MUSIC, "EDSFLFC", "") } break endswitch /* /* ~FB\(_) if ffcsavreflesh1 = 1 then { switch ffcsavcd case 1 if ffcvis1 = 0 then { sp_set(ffcspno1, ffcspx1, ffcspy1, chrspdlst(2 * 17 + 0 * 4 + 0), 0) ffcvis1 = 1 } else { sp_set(ffcspno1, ffcspx1, ffcspy1, chrspdlst(2 * 17 + 0 * 4 + 0), 3) ffcvis1 = 0 } break case 2 if ffcvis1 = 0 then { sp_set(ffcspno2, ffcspx2, ffcspy2, chrspdlst(3 * 17 + 0 * 4 + 0), 0) ffcvis1 = 1 } else { sp_set(ffcspno2, ffcspx2, ffcspy2, chrspdlst(3 * 17 + 0 * 4 + 0), 3) ffcvis1 = 0 } break case 3 if ffcvis1 = 0 then { sp_set(ffcspno3, ffcspx3, ffcspy3, chrspdlst(4 * 17 + 0 * 4 + 0), 0) ffcvis1 = 1 } else { sp_set(ffcspno3, ffcspx3, ffcspy3, chrspdlst(4 * 17 + 0 * 4 + 0), 3) ffcvis1 = 0 } break endswitch } /* /* XRAXV if pscbnkcnt1 > 29 then { pscbnkcnt1 = 0 if pscbrk1 = 0 then { color 1 locate 1,0 : print " " color 3 pscbrk1 = 1 } else { color 1 locate 1,0 : print "1P" color 3 pscbrk1 = 0 } } /* XRAJEg\ if pscreflesh1 = 1 then { locate 3,0 : print pscstr1 locate 8,10 : print stclrmsg4 locate 8,12 : print stclrmsg5 pscreflesh1 = 0 } /* lc1 = lc1 + 1 endwhile /* locate 8, 4 : print " " locate 8, 6 : print " " locate 8, 8 : print " " locate 8,10 : print " " locate 8,12 : print " " /* sp_set(fspno1 , 0, 0, 0, 0) sp_set(fspno1 + 1, 0, 0, 0, 0) sp_set(fspno2 , 0, 0, 0, 0) sp_set(fspno2 + 1, 0, 0, 0, 0) sp_set(fspno3 , 0, 0, 0, 0) sp_set(fspno3 + 1, 0, 0, 0, 0) } /* ffcsavcd = 0 /* /* I[NAȂbreak if Gsystemmd = 5 then { return(psc1) break } /* endwhile /* Q[X^[g[vI /* endfunc /* /* GAME OVERʕ\ func gameover_screen() int strig1 = 0 int strig1o = 0 int lc1 = 0 fill( 72, 104, 183, 135, rgb(1,1,1)) color 3 locate 8,6 : print "" locate 8,7 : print " "; : color 1 : print "GAME OVER"; : color 3 : print " " locate 8,8 : print "" /* execcmd(CMD_MUSIC, "EDSOVFC", "") strig1o = strig(1) for lc1 = 0 to 269 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* fill( 72, 104, 183, 135, 0) color 3 locate 8,6 : print "@@@@@@@@" locate 8,7 : print "@@@@@@@@" locate 8,8 : print "@@@@@@@@" /* endfunc /* func msgprint(msgstr;str, msgcols) /* int msgstrlen int msglen1 int msglen2 msgstrlen = len(msgstr) if msgstrlen > 0 then { if msgstrlen > msgcols then { msglen1 = msgcols msglen2 = msgstrlen - msglen1 if msglen2 > msgcols then msglen2 = msgcols } else { msglen1 = msgstrlen } if msglen1 > 0 then color 3 : locate 8,12 : print mid$(msgstr, 1, msglen1); if msglen2 > 0 then color 3 : locate 8,13 : print mid$(msgstr, msglen1 + 1, msglen2); } else { locate 8,12 : print space$(msgcols); locate 8,13 : print space$(msgcols); } endfunc /* /* bZ[W\o^(1s̕lsʒu) func msgdisp(msgstr;str, msgcols, msgwaitsec) /* int msgprintpos = 1 int msgprintlng = 0 int zenchk_byte = 1 int msgstrlen = 0 int msgchkpos = 1 int msgprintlines = 0 char zenchk = 0 /* /* 1ȉ̏ꍇreturn msgstrlen = len(msgstr) if msgstrlen < 1 then { Gmsgviewmd = 0 /* bZ[W\[h(0:\ 1:\) Gmsgpos = 0 /* bZ[W|C^ Gmsgcrpos(1) = 0 /* bZ[Ws|C^ I0B Gmsgwaitcnt = 0 /* bZ[WEFCgJE^ Gmsgrefresh = 0 /* bZ[W\XVtO(0:XVȂ 1:XV) return(0) } Gmsgviewmd = 1 /* bZ[W\[h(0:\ 1:\) Gmsgpos = 1 /* bZ[W|C^ Gmsgwaitcnt = 0 /* bZ[WEFCgJE^ Gmsgstrcur = msgstr Gmsgwaitcntcur = msgwaitsec /* msgprintpos = 1 msgprintlng = 0 msgchkpos = 1 msgprintlines = 0 /* while 1 zenchk = asc(mid$(msgstr, msgchkpos, 1)) zenchk_byte = 1 /* Sp1oCgڂ̃`FbN if (zenchk>=&H81 and zenchk<=&H9F) or (zenchk>=&HE0 and zenchk<=&HFC) then zenchk_byte = 2 /* SpƂŁA1s̕I[o[ꍇAI[o[Ȃ͈͂ŕ1s\ if (msgprintlng + zenchk_byte) > msgcols then { Gmsgcrpos(msgprintlines + 1) = msgprintpos + msgprintlng - 1 msgprintlines = msgprintlines + 1 msgprintpos = msgprintpos + msgprintlng msgchkpos = msgchkpos + zenchk_byte msgprintlng = zenchk_byte } else { /* 1s̕Ɏ܂Ăꍇ msgchkpos = msgchkpos + zenchk_byte msgprintlng = msgprintlng + zenchk_byte /* 1s̕ɓBꍇA1s\ if msgprintlng >= msgcols then { Gmsgcrpos(msgprintlines + 1) = msgprintpos + msgprintlng - 1 msgprintlines = msgprintlines + 1 msgprintpos = msgprintpos + msgprintlng msgprintlng = 0 } } /* `FbN̍ŌɓBꍇA\̕\break if msgchkpos > msgstrlen then { if msgprintlng > 0 then Gmsgcrpos(msgprintlines + 1) = msgprintpos + msgprintlng - 1 : Gmsgcrpos(msgprintlines + 2) = 0 : msgprintlines = msgprintlines + 1 break } endwhile /* return(msgprintlines) /* endfunc /* /* XNvgR}hs func execcmd(opecd, param1;str, param2;str) int spd = 0 /* if opecd = 0 then return(0) /* switch opecd case 201 /* "music" if len(param1) > 0 then { if param1 = "fadeout" then if m_stat() > 0 then m_fadeout() : break if param1 = "play" then m_play() : break if param1 = "stop" then m_stop() : break if param1 = "cont" then m_cont() : break zmd_play(param1) break } break case 202 /* "sound" break case 303 /* "face" if len(param1) > 0 and len(param2) > 0 then { spd = (atoi(param2) shl 8) + atoi(param1) sp_set(11, 16, 192, spd, 3) sp_set(12, 32, 192, spd + 1, 3) sp_set(13, 48, 192, spd + 2, 3) sp_set(14, 16, 208, spd + 16, 3) sp_set(15, 32, 208, spd + 17, 3) sp_set(16, 48, 208, spd + 18, 3) sp_set(17, 16, 224, spd + 32, 3) sp_set(18, 32, 224, spd + 33, 3) sp_set(19, 48, 224, spd + 34, 3) sp_set(20, 16, 240, spd + 48, 3) sp_set(21, 32, 240, spd + 49, 3) sp_set(22, 48, 240, spd + 50, 3) Gfacemd = 1 } else { sp_set(11, 0, 0, 0, 3) sp_set(12, 0, 0, 0, 3) sp_set(13, 0, 0, 0, 3) sp_set(14, 0, 0, 0, 3) sp_set(15, 0, 0, 0, 3) sp_set(16, 0, 0, 0, 3) sp_set(17, 0, 0, 0, 3) sp_set(18, 0, 0, 0, 3) sp_set(19, 0, 0, 0, 3) sp_set(20, 0, 0, 0, 3) sp_set(21, 0, 0, 0, 3) sp_set(22, 0, 0, 0, 3) Gfacemd = 0 } break case 304 /* "front" if len(param1) > 0 and len(param2) > 0 then { spd = (atoi(param2) shl 8) + atoi(param1) if Gfrontmd = 0 then { box(80, 48, 175, 175, 65534) fill(81, 49, 174, 174, 0) } sp_set(31, 136, 112, spd, 3) sp_set(32, 136, 128, spd + 16, 3) Gfrontmd = 1 } else { sp_set(31, 0, 0, 0, 3) sp_set(32, 0, 0, 0, 3) Gfrontmd = 0 } break case 401 /* "pad" if len(param1) > 0 then { switch atoi(param1) case 1 case 3 spd = (1 shl 8) + 7 break case 2 spd = (1 shl 8) + 10 break case 4 spd = (1 shl 8) + 13 break default spd = 0 endswitch /*192 sp_set(7, 216, 240, spd, 3) sp_set(8, 232, 240, spd + 1, 3) sp_set(9, 248, 240, spd + 2, 3) } else { sp_set(7, 0, 0, 0, 3) sp_set(8, 0, 0, 0, 3) sp_set(9, 0, 0, 0, 3) } break case 402 /* "stickclick" if len(param1) > 0 then { switch atoi(param1) case 8 spd = Gjoy_up break case 2 spd = Gjoy_down break case 4 spd = Gjoy_left break case 6 spd = Gjoy_right break default spd = 0 endswitch /*192 sp_set(5, 216, 240, spd, 3) } else { sp_set(5, 0, 0, 0, 3) } break case 403 /* "strigclick" if len(param1) > 0 then { if atoi(param1) = 1 then { sp_set(6, 248, 240, Gjoy_press, 3) } else { sp_set(6, 0, 0, 0, 3) } } break case 103 /* "menu" /* Gbtlenccnt = Gbtlenccntdef + (rnd() * Gbtlenccntdef) / 2 /* 퓬GJEg^C}[ /* menudisp(getparam(param1, 1, ","), getparam(param1, 2, ","), getparam(param1, 3, ","), getparam(param1, 4, ","), getparam(param1, 5, ","), getparam(param1, 6, ","), getparam(param1, 7, ",")) break case 104 /* "menuref" if Gmenuviewmd = 0 then { if atoi(param1) = Gmenupos then execcmd(atoi(getparam(param2, 1, " ")), getparam(param2, 2, " "), getparam(param2, 3, " ")) } break case 301 /* "spfile" if len(param1) > 0 then { spfile_def(param1, 0) } break case 302 /* "palfile" if len(param1) > 0 then { palfile_def(param1, 1) } break endswitch /* endfunc /* /* p[^擾 func str getparam(sstrline;str, paramno, sep;str) int istrlinespos = 1 int istrlinecsr = 1 int istrlinelen = 0 int iparampos = 1 int zenchk_byte = 1 char zenchk = 0 str sstrchr[2] = "" str sresult[255] = "" /* if len(sep) < 1 then sep = "," istrlinelen = len(sstrline) /* if istrlinelen < 1 then return("") /* while 1 zenchk = asc(mid$(sstrline, istrlinecsr, 1)) zenchk_byte = 1 /* Sp1oCgڂ̃`FbN if (zenchk>=&H81 and zenchk<=&H9F) or (zenchk>=&HE0 and zenchk<=&HFC) then zenchk_byte = 2 sstrchr = mid$(sstrline, istrlinecsr, zenchk_byte) if sstrchr = sep then { if iparampos = paramno then { sresult = mid$(sstrline, istrlinespos, istrlinecsr - istrlinespos) break } else { istrlinecsr = istrlinecsr + 1 istrlinespos = istrlinecsr iparampos = iparampos + 1 } } else { istrlinecsr = istrlinecsr + zenchk_byte } if istrlinecsr > istrlinelen then { if iparampos = paramno then { sresult = mid$(sstrline, istrlinespos, istrlinecsr - istrlinespos) break } else { break } } endwhile return(sresult) endfunc /* /* ʃNA func screen_clear() int lc1 = 0 cls /* bg_set(0, 1, 0) vpage(0) home(0, 0, 0) wipe() vpage(1) /* bg_scroll(0, 0, 0) /* bg_fill(1,0) for lc1 = 0 to 127 sp_set(lc1, 0, 0, 0, 0) next bg_set(0, 1, 0) endfunc /* func tbox(x1,y1,x2,y2,col) tline(x1,y1,x2,y1,col) tline(x1,y1,x1,y2,col) tline(x2,y1,x2,y2,col) tline(x1,y2,x2,y2,col) endfunc /* /* Notice\ func notice_print(x, y, smsg;str, autoskip) int lc1 = 0 int llen1 = 0 int strig1 = 0 int strig1o = 0 int trgflg = 0 llen1 = len(smsg) if autoskip <> 0 then trgflg = 1 locate x, y strig1o = strig(1) for lc1 = 1 to llen1 strig1 = strig(1) if trgflg = 0 and (strig1o = 0 and strig1 <> 0) then trgflg = 1 if trgflg <> 1 then v_disp(0) print mid$(smsg, lc1, 1); strig1o = strig1 next /* return(trgflg) /* endfunc /* /* ʕ\ func init_screen() int lc1 = 0 int strig1 = 0 int strig1o = 0 int autoskip = 0 /* /* NXnb`` vpage(0) for lc1 = 0 to 15 line(lc1 * 16, 0, lc1 * 16, 255, 65535) line(0, lc1 * 16, 255, lc1 * 16, 65535) next /* /* XvbV\ autoskip = 0 autoskip = notice_print( 6, 4, "ESCAPE die SUCCESS", autoskip) autoskip = notice_print( 6, 5, "SHINING STAR GAIDEN", autoskip) autoskip = notice_print(13, 7, "X68000", autoskip) autoskip = notice_print(11, 9, "J A P A N", autoskip) /* strig1o = strig(1) for lc1 = 0 to 239 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next cls /* /* Notice\ /* autoskip = 0 notice_print(11, 0, "- Notice -", autoskip) autoskip = notice_print(0, 2, " This gams is for use", autoskip) autoskip = notice_print(0, 3, "exclusively in JAPAN.", autoskip) autoskip = notice_print(0, 4, " The sale, export, use or", autoskip) autoskip = notice_print(0, 5, "operation of this game outside", autoskip) autoskip = notice_print(0, 6, "of JAPAN", autoskip) autoskip = notice_print(0, 7, "may be a violation of", autoskip) autoskip = notice_print(0, 8, "international copyright,", autoskip) autoskip = notice_print(0, 9, "trademark and or other", autoskip) autoskip = notice_print(0, 10, "related laws subjecting", autoskip) autoskip = notice_print(0, 11, "the violatore to legal", autoskip) autoskip = notice_print(0, 12, "penalties.", autoskip) autoskip = notice_print(6, 14, "Copyright 2023 iroirotei", autoskip) /* strig1o = strig(1) for lc1 = 0 to 239 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next cls /* /* NXnb`\ vpage(1) strig1o = strig(1) for lc1 = 0 to 119 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* vpage(0) /* /* 낢S wipe() home(0, 0,256) apic_load("IROIRO.PIC", 64, 96) /* execcmd(CMD_MUSIC, "EDSIRFC", "") /* vpage(1) home(0, 0, 0) strig1o = strig(1) for lc1 = 0 to 299 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next vpage(0) /* endfunc /* /* fʕ\ func demo_screen() /* int tx = 0, ty = 0 int bg_x int bg_y int bgpb int bgpc int bgpd /* int lc1 = 0 int lc2 int lwc1 = 0 int strig1 = 0 int strig1o = 0 int autoskip = 0 str msg1[255] = "" str msg2[255] = "" str msg3[255] = "" str msg4[255] = "" str msg5[255] = "" str msg6[255] = "" str msg7[255] = "" str msg8[255] = "" str msg9[255] = "" /* int cspno1 = 0 /* XvCgԍ int cspno2 = 0 int cspno3 = 0 int cspno4 = 0 int cspno5 = 0 int cspno6 = 0 int cspno7 = 0 int cspno8 = 0 int cspx1 = 0 /* XvCgXW int cspx2 = 0 int cspx3 = 0 int cspx4 = 0 int cspx5 = 0 int cspx6 = 0 int cspx7 = 0 int cspx8 = 0 int cspy1 = 0 /* XvCgYW int cspy2 = 0 int cspy3 = 0 int cspy4 = 0 int cspy5 = 0 int cspy6 = 0 int cspy7 = 0 int cspy8 = 0 int cspdir1 = 0 /* L 0: 1: 2:E 3: int cspmvstep1 = 0 /* LړXebv int cspmvdir1 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd1 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt1 = 0 /* LAjJE^ 0`3 int cspanmwait1 = 0 /* LAjEFCg 0`3 int cspdir2 = 0 /* L 0: 1: 2:E 3: int cspmvstep2 = 0 /* LړXebv int cspmvdir2 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd2 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt2 = 0 /* LAjJE^ 0`3 int cspanmwait2 = 0 /* LAjEFCg 0`3 int cspdir3 = 0 /* L 0: 1: 2:E 3: int cspmvstep3 = 0 /* LړXebv int cspmvdir3 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd3 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt3 = 0 /* LAjJE^ 0`3 int cspanmwait3 = 0 /* LAjEFCg 0`3 int cspdir4 = 0 /* L 0: 1: 2:E 3: int cspmvstep4 = 0 /* LړXebv int cspmvdir4 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd4 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt4 = 0 /* LAjJE^ 0`3 int cspanmwait4 = 0 /* LAjEFCg 0`3 int cspdir5 = 0 /* L 0: 1: 2:E 3: int cspmvstep5 = 0 /* LړXebv int cspmvdir5 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd5 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt5 = 0 /* LAjJE^ 0`3 int cspanmwait5 = 0 /* LAjEFCg 0`3 int cspdir6 = 0 /* L 0: 1: 2:E 3: int cspmvstep6 = 0 /* LړXebv int cspmvdir6 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd6 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt6 = 0 /* LAjJE^ 0`3 int cspanmwait6 = 0 /* LAjEFCg 0`3 int cspdir7 = 0 /* L 0: 1: 2:E 3: int cspmvstep7 = 0 /* LړXebv int cspmvdir7 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd7 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt7 = 0 /* LAjJE^ 0`3 int cspanmwait7 = 0 /* LAjEFCg 0`3 int cspdir8 = 0 /* L 0: 1: 2:E 3: int cspmvstep8 = 0 /* LړXebv int cspmvdir8 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd8 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt8 = 0 /* LAjJE^ 0`3 int cspanmwait8 = 0 /* LAjEFCg 0`3 int cspd1 = 0 /* XvCgSPD int cspd2 = 0 int cspd3 = 0 int cspd4 = 0 int cspd5 = 0 int cspd6 = 0 int cspd7 = 0 int cspd8 = 0 /* /* LN^[spd dim int chrspdlst(101) /* E] (1 shl 14) = 16384 ㉺] (1 shl 15) = 32768 ㉺E] = 49152 chrspdlst = { + 74+(7 shl 8), 75+(7 shl 8), 74+(7 shl 8), 76+(7 shl 8), 77+(7 shl 8), 78+(7 shl 8), 77+(7 shl 8), 79+(7 shl 8), 16384+ 77+(7 shl 8),16384+ 78+(7 shl 8),16384+ 77+(7 shl 8),16384+ 79+(7 shl 8), +106+(7 shl 8),107+(7 shl 8),106+(7 shl 8),108+(7 shl 8), 109+(7 shl 8), /* u + 32+(2 shl 8), 33+(2 shl 8), 32+(2 shl 8), 34+(2 shl 8), 35+(2 shl 8), 36+(2 shl 8), 35+(2 shl 8), 37+(2 shl 8), 16384+ 35+(2 shl 8),16384+ 36+(2 shl 8),16384+ 35+(2 shl 8),16384+ 37+(2 shl 8), + 38+(2 shl 8), 39+(2 shl 8), 38+(2 shl 8), 40+(2 shl 8), 41+(2 shl 8), /* [i + 64+(3 shl 8), 65+(3 shl 8), 64+(3 shl 8), 66+(3 shl 8), 67+(3 shl 8), 68+(3 shl 8), 67+(3 shl 8), 69+(3 shl 8), 16384+ 67+(3 shl 8),16384+ 68+(3 shl 8),16384+ 67+(3 shl 8),16384+ 69+(3 shl 8), + 70+(3 shl 8), 71+(3 shl 8), 70+(3 shl 8), 72+(3 shl 8), 73+(3 shl 8), /* T + 96+(4 shl 8), 97+(4 shl 8), 96+(4 shl 8), 98+(4 shl 8), 99+(4 shl 8),100+(4 shl 8), 99+(4 shl 8),101+(4 shl 8), 16384+ 99+(4 shl 8),16384+100+(4 shl 8),16384+ 99+(4 shl 8),16384+101+(4 shl 8), +102+(4 shl 8),103+(4 shl 8),102+(4 shl 8),104+(4 shl 8), 105+(4 shl 8), /* Ni + 74+(5 shl 8), 75+(5 shl 8), 74+(5 shl 8), 76+(5 shl 8), 77+(5 shl 8), 78+(5 shl 8), 77+(5 shl 8), 79+(5 shl 8), 16384+ 77+(5 shl 8),16384+ 78+(5 shl 8),16384+ 77+(5 shl 8),16384+ 79+(5 shl 8), +106+(5 shl 8),107+(5 shl 8),106+(5 shl 8),108+(5 shl 8), 109+(5 shl 8), /* VA + 42+(2 shl 8), 43+(2 shl 8), 42+(2 shl 8), 44+(2 shl 8), 110+(2 shl 8),110+(2 shl 8),110+(2 shl 8),110+(2 shl 8), 16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8), + 45+(2 shl 8), 46+(2 shl 8), 45+(2 shl 8), 47+(2 shl 8), 110+(2 shl 8)} /* 搶 /* /* BG}bv dim int bgptdat(895) bgptdat = { + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 7, 7, 7, 7, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 7, 7, 7, 7, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, + 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7} /* bg_set(0, 1, 0) /* /* wi̕` for lc2 = 0 to 27 bg_y = lc2 for lc1 = 0 to 31 bg_x = lc1 bgpb = 1 bgpc = 4 bgpd = (bgpb shl 8) + bgptdat(lc2 * 32 + lc1) bg_put(1, bg_x, bg_y, bgpd) next next /* /* BG0\Jn bg_set(0, 1, 1) /* msg1 = "xŋ}ŊwZ֌" msg2 = "̂ւ̃cCe[B" msg3 = "ꂩ炩AsKɂ" msg4 = "h̍ZɒǓ˂Ă܂B" msg5 = "yȂĂȂĎ" msg6 = "΂ȂcCe[ɑ΂A" msg7 = "wZ̎AZɌnꂽ" msg8 = "k̏Ƃ́EEEB" msg9 = "" vpage(0) home(0,0,256) symbol(0, 16, " [ESCAPE die SUCCESS]", 1, 1, 1, 65502, 0) symbol(0, 36, msg1, 1, 1, 1, 65534, 0) symbol(0, 56, msg2, 1, 1, 1, 65534, 0) symbol(0, 76, msg3, 1, 1, 1, 65534, 0) symbol(0, 96, msg4, 1, 1, 1, 65534, 0) symbol(0,116, msg5, 1, 1, 1, 65534, 0) symbol(0,136, msg6, 1, 1, 1, 65534, 0) symbol(0,156, msg7, 1, 1, 1, 65534, 0) symbol(0,176, msg8, 1, 1, 1, 65534, 0) symbol(0,196, msg9, 1, 1, 1, 65534, 0) /*back_setting(lstage) vpage(1) /* cspno1 = 30 cspno2 = 32 cspno3 = 34 cspno4 = 36 cspno5 = 38 cspno6 = 40 cspno7 = 42 cspno8 = 44 cspx1 = 128 cspx2 = 128 cspx3 = 128 cspx4 = 0 cspx5 = 0 cspx6 = 0 cspx7 = 0 cspx8 = 160 cspy1 = 288 + 12 cspy2 = 288 cspy3 = 128 cspy4 = 0 cspy5 = 0 cspy6 = 0 cspy7 = 0 cspy8 = 80 cspdir1 = 3 /* L 0: 1: 2:E 3: cspmvstep1 = 144/* LړXebv cspmvdir1 = 5 /* Lړ 0: 1: 2:E 3: cspanmmd1 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt1 = 0 /* LAjJE^ 0`3 cspanmwait1 = 0 /* LAjEFCg 0`3 cspdir2 = 3 /* L 0: 1: 2:E 3: cspmvstep2 = 144/* LړXebv cspmvdir2 = 3 /* Lړ 0: 1: 2:E 3: cspanmmd2 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt2 = 0 /* LAjJE^ 0`3 cspanmwait2 = 0 /* LAjEFCg 0`3 cspdir3 = 0 /* L 0: 1: 2:E 3: cspmvstep3 = 0 /* LړXebv cspmvdir3 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd3 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt3 = 0 /* LAjJE^ 0`3 cspanmwait3 = 0 /* LAjEFCg 0`3 cspdir4 = 0 /* L 0: 1: 2:E 3: cspmvstep4 = 0 /* LړXebv cspmvdir4 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd4 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt4 = 0 /* LAjJE^ 0`3 cspanmwait4 = 0 /* LAjEFCg 0`3 cspdir5 = 0 /* L 0: 1: 2:E 3: cspmvstep5 = 0 /* LړXebv cspmvdir5 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd5 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt5 = 0 /* LAjJE^ 0`3 cspanmwait5 = 0 /* LAjEFCg 0`3 cspd1 = (1 shl 8) + 191 cspd2 = chrspdlst(1 * 17 + cspdir2 * 4 + cspanmcnt2) cspd3 = (8 shl 8) + 111 cspd4 = 0 cspd5 = 0 cspd6 = 0 cspd7 = 0 cspd8 = (10 shl 8) + 141 /* sp_set(cspno8 , cspx8, cspy8, cspd8, 3) sp_set(cspno8 + 1, cspx8, cspy8 + 16, cspd8 + 16, 3) /* while 1 strig1o = strig(1) for lc1 = 0 to 271 /* 127 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then autoskip = 1 : break if lc1 = 143 then { cspy1 = 157 cspdir1 = 0 cspmvdir1 = 4 cspmvstep1 = 128 cspanmmd1 = 0 cspdir2 = 0 cspmvdir2 = 4 cspmvstep2 = 128 cspanmmd2 = 0 } if cspmvstep1 > 0 then { switch cspmvdir1 case 0 : cspy1 = cspy1 + 1 : break /* case 1 : cspx1 = cspx1 - 1 : break /* case 2 : cspx1 = cspx1 + 1 : break /* E case 3 : cspy1 = cspy1 - 1 : break /* case 4 : cspx1 = cspx1 - (cspmvstep1 and &B00000001) : cspy1 = cspy1 + 1 : break /* endswitch cspmvstep1 = cspmvstep1 - 1 if cspmvstep1 = 0 then cspanmmd1 = 0 } if cspmvstep2 > 0 then { switch cspmvdir2 case 0 : cspy2 = cspy2 + 1 : break /* case 1 : cspx2 = cspx2 - 1 : break /* case 2 : cspx2 = cspx2 + 1 : break /* E case 3 : cspy2 = cspy2 - 1 : break /* case 4 : cspx2 = cspx2 - 1 : cspy2 = cspy2 + 1 : break /* endswitch cspmvstep2 = cspmvstep2 - 1 if cspmvstep2 = 0 then cspanmmd2 = 0 } /* LAj if cspanmmd2 = 1 then { if cspanmwait2 = 0 then if cspanmcnt2 < 3 then cspanmcnt2 = cspanmcnt2 + 1 else cspanmcnt2 = 0 if cspanmwait2 < 3 then cspanmwait2 = cspanmwait2 + 1 else cspanmwait2 = 0 } cspd2 = chrspdlst(1 * 17 + cspdir2 * 4 + cspanmcnt2) if cspanmmd3 = 1 then { if cspanmwait3 = 0 then if cspanmcnt3 < 3 then cspanmcnt3 = cspanmcnt3 + 1 else cspanmcnt3 = 0 if cspanmwait3 < 3 then cspanmwait3 = cspanmwait3 + 1 else cspanmwait3 = 0 } /* cspd3 = chrspdlst(5 * 17 + cspdir2 * 4 + cspanmcnt2) cspd3 = (8 shl 8) + 111 /* v_disp(0) sp_set(cspno1 , cspx1, cspy1, cspd1, 3) /* sp_set(cspno1 + 1, cspx1, cspy1 + 16, cspd1 + 16, 3) sp_set(cspno2 , cspx2, cspy2, cspd2, 3) sp_set(cspno2 + 1, cspx2, cspy2 + 16, cspd2 + 16, 3) sp_set(cspno3 , cspx3, cspy3, cspd3, 3) sp_set(cspno3 + 1, cspx3, cspy3 + 16, cspd3 + 16, 3) /* strig1o = strig1 next /* if autoskip = 1 then break /* /* ebvXN[ strig1o = strig(1) for lc1 = 0 to 511 strig1 = strig(1) if autoskip = 1 or (strig1o = 0 and strig1 <> 0) then autoskip = 1 : break v_disp(0) home(0,0,256 + lc1 / 2) strig1o = strig1 next home(0,0,0) /* /* if autoskip = 1 then break /* strig1o = strig(1) for lc1 = 0 to 359 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* break endwhile /* endfunc /* /* ^Cgʕ\ func title_screen() int lc1 = 0 int lwc1 = 0 int strig1 = 0 int strig1o = 0 strig1o = strig(1) /* vpage(0) home(0,0,256) apic_load("EDSTTL.PIC") /* vpage(1) strig1o = strig(1) for lc1 = 0 to 127 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) home(0,0,256 + lc1 * 2 ) strig1o = strig1 next home(0,0,0) locate 22,9 : print "Ver." + Gsysver /* execcmd(CMD_MUSIC, "EDSTIFC", "") /* strig1o = strig(1) for lc1 = 0 to 1199 strig1 = strig(1) lwc1 = lwc1 + 1 v_disp(0) if lwc1 = 30 then locate 10,11 : print "PRESS TRIGGER" if lwc1 = 60 then locate 10,11 : print " " : lwc1 = 0 if strig1o = 0 and strig1 <> 0 then { locate 10,10 : print " " Gstartflg = 1 break } strig1o = strig1 next /* execcmd(CMD_MUSIC, "fadeout", "") /* endfunc /* /* X^[gfʕ\ func startdemo_screen() /* int tx = 0 int ty = 0 int bg_x int bg_y int bgpb int bgpc int bgpd /* int lc1 = 0 int lc2 int lwc1 = 0 int strig1 = 0 int strig1o = 0 int autoskip = 0 str msg1[255] = "" str msg2[255] = "" str msg3[255] = "" str msg4[255] = "" str msg5[255] = "" str msg6[255] = "" str msg7[255] = "" str msg8[255] = "" str msg9[255] = "" /* /* bZ[W{bNX str msgboxstr1[255] int pmsgboxptr1 = 0 dim str msgboxstr(30)[255] int reswid = 255 int msgboxx1 = 0 int msgboxx2 = 0 int msgboxwid = 0 int msgboxy1 = 0 int msgboxy2 = 0 int msgboxhei = 0 int msgboxpos = 1 /* 0:Jnʒu 1: int msgboxfntcol1 = 1984 int msgboxbakcol = 10570 /*2114 int msgboxbdrcol = 65534 int msgboxlen1 = 0 int msgboxreq1 = 0 int msgboxmd1 = 0 int msgboxwait1 = 0 int msgboxrefresh1 = 0 /* int cspno1 = 0 /* XvCgԍ int cspno2 = 0 int cspno3 = 0 int cspno4 = 0 int cspno5 = 0 int cspno6 = 0 int cspno7 = 0 int cspno8 = 0 int cspx1 = 0 /* XvCgXW int cspx2 = 0 int cspx3 = 0 int cspx4 = 0 int cspx5 = 0 int cspx6 = 0 int cspx7 = 0 int cspx8 = 0 int cspy1 = 0 /* XvCgYW int cspy2 = 0 int cspy3 = 0 int cspy4 = 0 int cspy5 = 0 int cspy6 = 0 int cspy7 = 0 int cspy8 = 0 int cspdir1 = 0 /* L 0: 1: 2:E 3: int cspmvstep1 = 0 /* LړXebv int cspmvdir1 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd1 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt1 = 0 /* LAjJE^ 0`3 int cspanmwait1 = 0 /* LAjEFCg 0`3 int cspdir2 = 0 /* L 0: 1: 2:E 3: int cspmvstep2 = 0 /* LړXebv int cspmvdir2 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd2 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt2 = 0 /* LAjJE^ 0`3 int cspanmwait2 = 0 /* LAjEFCg 0`3 int cspdir3 = 0 /* L 0: 1: 2:E 3: int cspmvstep3 = 0 /* LړXebv int cspmvdir3 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd3 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt3 = 0 /* LAjJE^ 0`3 int cspanmwait3 = 0 /* LAjEFCg 0`3 int cspdir4 = 0 /* L 0: 1: 2:E 3: int cspmvstep4 = 0 /* LړXebv int cspmvdir4 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd4 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt4 = 0 /* LAjJE^ 0`3 int cspanmwait4 = 0 /* LAjEFCg 0`3 int cspdir5 = 0 /* L 0: 1: 2:E 3: int cspmvstep5 = 0 /* LړXebv int cspmvdir5 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd5 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt5 = 0 /* LAjJE^ 0`3 int cspanmwait5 = 0 /* LAjEFCg 0`3 int cspdir6 = 0 /* L 0: 1: 2:E 3: int cspmvstep6 = 0 /* LړXebv int cspmvdir6 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd6 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt6 = 0 /* LAjJE^ 0`3 int cspanmwait6 = 0 /* LAjEFCg 0`3 int cspdir7 = 0 /* L 0: 1: 2:E 3: int cspmvstep7 = 0 /* LړXebv int cspmvdir7 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd7 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt7 = 0 /* LAjJE^ 0`3 int cspanmwait7 = 0 /* LAjEFCg 0`3 int cspdir8 = 0 /* L 0: 1: 2:E 3: int cspmvstep8 = 0 /* LړXebv int cspmvdir8 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd8 = 0 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt8 = 0 /* LAjJE^ 0`3 int cspanmwait8 = 0 /* LAjEFCg 0`3 int cspd1 = 0 /* XvCgSPD int cspd2 = 0 int cspd3 = 0 int cspd4 = 0 int cspd5 = 0 int cspd6 = 0 int cspd7 = 0 int cspd8 = 0 /* dim int pactlst1(255) int sysmsgmd1 = 0 int sysmsgwait1 = 0 int sysmsgreq1 = 0 int sysmsgrefresh1 = 0 str sysmsgstr1[255] int pactlstptr1 = 0 int pctrlmd = 0 int pmvstep1 = 0 int evtwaitsec = 0 int pmsgptr1 = 0 dim str msgstr(30)[255] int pactexeflg1 = 0 /* /* LN^[spd dim int chrspdlst(101) /* E] (1 shl 14) = 16384 ㉺] (1 shl 15) = 32768 ㉺E] = 49152 chrspdlst = { + 74+(7 shl 8), 75+(7 shl 8), 74+(7 shl 8), 76+(7 shl 8), 77+(7 shl 8), 78+(7 shl 8), 77+(7 shl 8), 79+(7 shl 8), 16384+ 77+(7 shl 8),16384+ 78+(7 shl 8),16384+ 77+(7 shl 8),16384+ 79+(7 shl 8), +106+(7 shl 8),107+(7 shl 8),106+(7 shl 8),108+(7 shl 8), 109+(7 shl 8), /* u + 32+(2 shl 8), 33+(2 shl 8), 32+(2 shl 8), 34+(2 shl 8), 35+(2 shl 8), 36+(2 shl 8), 35+(2 shl 8), 37+(2 shl 8), 16384+ 35+(2 shl 8),16384+ 36+(2 shl 8),16384+ 35+(2 shl 8),16384+ 37+(2 shl 8), + 38+(2 shl 8), 39+(2 shl 8), 38+(2 shl 8), 40+(2 shl 8), 41+(2 shl 8), /* [i + 64+(3 shl 8), 65+(3 shl 8), 64+(3 shl 8), 66+(3 shl 8), 67+(3 shl 8), 68+(3 shl 8), 67+(3 shl 8), 69+(3 shl 8), 16384+ 67+(3 shl 8),16384+ 68+(3 shl 8),16384+ 67+(3 shl 8),16384+ 69+(3 shl 8), + 70+(3 shl 8), 71+(3 shl 8), 70+(3 shl 8), 72+(3 shl 8), 73+(3 shl 8), /* T + 96+(4 shl 8), 97+(4 shl 8), 96+(4 shl 8), 98+(4 shl 8), 99+(4 shl 8),100+(4 shl 8), 99+(4 shl 8),101+(4 shl 8), 16384+ 99+(4 shl 8),16384+100+(4 shl 8),16384+ 99+(4 shl 8),16384+101+(4 shl 8), +102+(4 shl 8),103+(4 shl 8),102+(4 shl 8),104+(4 shl 8), 105+(4 shl 8), /* Ni + 74+(5 shl 8), 75+(5 shl 8), 74+(5 shl 8), 76+(5 shl 8), 77+(5 shl 8), 78+(5 shl 8), 77+(5 shl 8), 79+(5 shl 8), 16384+ 77+(5 shl 8),16384+ 78+(5 shl 8),16384+ 77+(5 shl 8),16384+ 79+(5 shl 8), +106+(5 shl 8),107+(5 shl 8),106+(5 shl 8),108+(5 shl 8), 109+(5 shl 8), /* VA + 42+(2 shl 8), 43+(2 shl 8), 42+(2 shl 8), 44+(2 shl 8), 110+(2 shl 8),110+(2 shl 8),110+(2 shl 8),110+(2 shl 8), 16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8), + 45+(2 shl 8), 46+(2 shl 8), 45+(2 shl 8), 47+(2 shl 8), 110+(2 shl 8)} /* 搶 /* /* BG}bv dim int bgptdat(895) bgptdat = { + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 7, 7, 7, 7, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 5, 5, 5, 5, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 7, 7, 7, 7, 6, 6, 5, 5, 6, 6, 6, 5, 5, 6, 6, 6, 5, 5, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 7, 7, 7, 7, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, + 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, + 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7} /* bg_set(0, 1, 0) /* /* wi̕` for lc2 = 0 to 27 bg_y = lc2 for lc1 = 0 to 31 bg_x = lc1 bgpb = 1 bgpc = 4 bgpd = (bgpb shl 8) + bgptdat(lc2 * 32 + lc1) bg_put(1, bg_x, bg_y, bgpd) next next /* /* BG0\Jn bg_set(0, 1, 1) /* execcmd(CMD_MUSIC, "EDSSTFC", "") execcmd(CMD_PAD, "1", "") /* msg1 = "" msg2 = "" msg3 = "" msg4 = "" msg5 = "" msg6 = "" msg7 = "" msg8 = "" msg9 = "" vpage(0) home(0,0,0) /* symbol(0, 16, " EPILOGUE", 1, 1, 1, 65502, 0) /* symbol(0, 36, msg1, 1, 1, 1, 65534, 0) /* symbol(0, 56, msg2, 1, 1, 1, 65534, 0) /* symbol(0, 76, msg3, 1, 1, 1, 65534, 0) /* symbol(0, 96, msg4, 1, 1, 1, 65534, 0) /* symbol(0,116, msg5, 1, 1, 1, 65534, 0) /* symbol(0,136, msg6, 1, 1, 1, 65534, 0) /* symbol(0,156, msg7, 1, 1, 1, 65534, 0) /* symbol(0,176, msg8, 1, 1, 1, 65534, 0) /* symbol(0,196, msg9, 1, 1, 1, 65534, 0) /*back_setting(lstage) vpage(1) /* cspno1 = 30 cspno2 = 32 cspno3 = 34 cspno4 = 36 cspno5 = 38 cspno6 = 40 cspno7 = 42 cspno8 = 44 cspx1 = 128 cspx2 = 128 cspx3 = 176 cspx4 = 192 cspx5 = 208 cspx6 = 0 cspx7 = 80 cspx8 = 160 cspy1 = 288 cspy2 = 128 cspy3 = 128 cspy4 = 128 cspy5 = 128 cspy6 = 0 cspy7 = 128 cspy8 = 80 cspdir1 = 3 /* L 0: 1: 2:E 3: cspmvstep1 = 144/* LړXebv cspmvdir1 = 3 /* Lړ 0: 1: 2:E 3: cspanmmd1 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt1 = 0 /* LAjJE^ 0`3 cspanmwait1 = 0 /* LAjEFCg 0`3 cspdir2 = 0 /* L 0: 1: 2:E 3: cspmvstep2 = 0 /* LړXebv cspmvdir2 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd2 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt2 = 0 /* LAjJE^ 0`3 cspanmwait2 = 0 /* LAjEFCg 0`3 cspdir3 = 0 /* L 0: 1: 2:E 3: cspmvstep3 = 0 /* LړXebv cspmvdir3 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd3 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt3 = 0 /* LAjJE^ 0`3 cspanmwait3 = 0 /* LAjEFCg 0`3 cspdir4 = 0 /* L 0: 1: 2:E 3: cspmvstep4 = 0 /* LړXebv cspmvdir4 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd4 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt4 = 0 /* LAjJE^ 0`3 cspanmwait4 = 0 /* LAjEFCg 0`3 cspdir5 = 0 /* L 0: 1: 2:E 3: cspmvstep5 = 0 /* LړXebv cspmvdir5 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd5 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt5 = 0 /* LAjJE^ 0`3 cspanmwait5 = 0 /* LAjEFCg 0`3 cspd1 = chrspdlst(1 * 17 + cspdir1 * 4 + cspanmcnt1) cspd2 = (8 shl 8) + 111 cspd3 = chrspdlst(2 * 17 + cspdir3 * 4 + cspanmcnt1) cspd4 = chrspdlst(3 * 17 + cspdir4 * 4 + cspanmcnt1) cspd5 = chrspdlst(4 * 17 + cspdir5 * 4 + cspanmcnt1) cspd6 = 0 cspd7 = (1 shl 8) + 191 cspd8 = (10 shl 8) + 141 /* sp_set(cspno8 , cspx8, cspy8, cspd8, 3) sp_set(cspno8 + 1, cspx8, cspy8 + 16, cspd8 + 16, 3) /* while 1 strig1o = strig(1) /* /* sXg /* 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 pactlst1 = {41,33,90,90,34,90,90,34,90,90,42,33,90,90,41,34,90,90,42,33,90,90,41,34,90,90,42,33,90,90,41,34,90,90,43,33,90,90,41,34,90,90,42,33,90,90,41,34,90,90,43,33,90,90,41,34,90,90,42,33,90,90,41,81,34,90,90,42,33,90,90,41,34,90,90,43,33,90,90,41,34,90,90,42,33,90,90,33,90,90,255} /* pactlst1 = {41,33,90,180,34,90,180,34,90,180,42,33,90,180,41,34,90,180,42,33,90,180,41,34,90,180,42,33,90,180,41,34,90,180,43,33,90,180,41,34,90,180,42,33,90,180,41,34,90,180,43,33,90,180,41,34,90,180,42,33,90,180,41,81,34,90,180,42,33,90,180,41,34,90,180,43,33,90,180,41,34,90,180,42,33,90,180,33,90,180,255} /* pactlst1 = {41,33,33,33,42,33,41,33,42,33,41,33,42,33,41,33,43,33,41,33,42,33,41,33,43,33,41,33,42,33,41,81,33,42,33,41,33,43,33,41,33,42,33,33,255} /* msgstr(0) = "ڂ̑OɁAh̉lۂlĂB" msgstr(1) = "ũcCe[Iv" msgstr(2) = "uk̏nIv" msgstr(3) = "w܂łlEEEx" msgstr(4) = "ulł͂ȂBZłIv" msgstr(5) = "ẃA͂EEEx" msgstr(6) = "uȂɂ莦kłv" msgstr(7) = "wkƂncʂł́EEEx" msgstr(8) = "uˁHv" msgstr(9) = "w........x" msgstr(10) = "uƂGXP[v̂v" msgstr(11) = "wGXP[vHZĂHx" msgstr(12) = "uÂ̌`Ȃ̂Iv" msgstr(13) = "wAꕷOIx" msgstr(14) = "uƂɂGXP[vIv" msgstr(15) = "wR͂ȂłˁHx" msgstr(16) = "uRl̖~̂Iv" msgstr(17) = "w~ĉIHx" msgstr(18) = "uقIv" msgstr(19) = "wi܂ȁEEjx" msgstr(20) = "uGXP[vowIv" msgstr(21) = "w܂‚̃p^[EEEx" msgstr(22) = "cCe[͊wZփGXP[vɕB" /* msgstr(1) = "lũcCe[Iv" /* msgstr(2) = "lu莦k̏nIv" /* msgstr(4) = "lu͉lł͂ȂBZłv" /* msgstr(6) = "ZuȂɂkłv" /* msgstr(8) = "ZuˁHv" /* msgstr(10) = "ZuƂ̃GXP[vĂIv" /* msgstr(12) = "ZuÂ̌`̂Iv" /* msgstr(14) = "ZuƂɂGXP[vIv" /* msgstr(16) = "ZuRl̖~̂Iv" /* msgstr(18) = "ZuقIv" /* msgstr(20) = "ZuƂ킯ŁAGXP[v֏ôIv" /* pctrlmd = 1 pmvstep1 = cspmvstep1 pmsgptr1 = 0 lc2 = 0 Gtimenow_o = time$ /* while 1 /* ^C}[JEg Gtimenow = time$ /* bZ[WJEg if sysmsgwait1 > 0 then sysmsgwait1 = sysmsgwait1 - 1 if msgboxwait1 > 0 then msgboxwait1 = msgboxwait1 - 1 /* /* e^C}[JEg_EɑJ(ݎƌݎ(O)قȂꍇ) if Gtimenow <> Gtimenow_o then { Gtimenow_o = Gtimenow } /* lc2 = lc2 + 1 /* /* XNvg̈ړw if pctrlmd = 1 and pmvstep1 = 0 then { switch pactlst1(pactlstptr1) case 33 /* bZ[W sysmsgreq1 = 1 /* 1:bZ[W\v sysmsgstr1 = msgstr(pmsgptr1) pmsgptr1 = pmsgptr1 + 1 pactlstptr1 = pactlstptr1 + 1 break case 34 /* bZ[W{bNX msgboxfntcol1 = WHITE msgboxreq1 = 1 /* 1:bZ[W{bNX\v msgboxstr1 = msgstr(pmsgptr1) pmsgptr1 = pmsgptr1 + 1 pactlstptr1 = pactlstptr1 + 1 break case 41 execcmd(CMD_FACE, "128", "2") pactlstptr1 = pactlstptr1 + 1 break case 42 execcmd(CMD_FACE, "131", "2") pactlstptr1 = pactlstptr1 + 1 break case 43 execcmd(CMD_FACE, "134", "2") pactlstptr1 = pactlstptr1 + 1 break case 44 execcmd(CMD_FACE, "137", "2") pactlstptr1 = pactlstptr1 + 1 break case 81 sp_set(cspno3 , cspx3, cspy3, cspd3, 3) sp_set(cspno3 + 1, cspx3, cspy3 + 16, cspd3 + 16, 3) sp_set(cspno4 , cspx4, cspy4, cspd4, 3) sp_set(cspno4 + 1, cspx4, cspy4 + 16, cspd4 + 16, 3) sp_set(cspno5 , cspx5, cspy5, cspd5, 3) sp_set(cspno5 + 1, cspx5, cspy5 + 16, cspd5 + 16, 3) locate 18,6 : print "Rl̖" locate 4,6 : print "g[Xg" pactlstptr1 = pactlstptr1 + 1 break case 90 /* Î~(^C}lw) pactlstptr1 = pactlstptr1 + 1 pmvstep1 = pactlst1(pactlstptr1) pactlstptr1 = pactlstptr1 + 1 break case 99 /* [v pactlstptr1 = 0 break case 255 /* I pctrlmd = 0 pactlstptr1 = 0 break endswitch } /* /* LN^[ړ if cspmvstep1 > 0 then { switch cspmvdir1 case 0 : cspy1 = cspy1 + 1 : break /* case 1 : cspx1 = cspx1 - 1 : break /* case 2 : cspx1 = cspx1 + 1 : break /* E case 3 : cspy1 = cspy1 - 1 : break /* case 4 : cspx1 = cspx1 - 1 : cspy1 = cspy1 + 1 : break /* endswitch cspmvstep1 = cspmvstep1 - 1 if cspmvstep1 = 0 then cspanmmd1 = 0 } /* /* LN^[Aj if cspanmmd1 = 1 then { if cspanmwait1 = 0 then if cspanmcnt1 < 3 then cspanmcnt1 = cspanmcnt1 + 1 else cspanmcnt1 = 0 if cspanmwait1 < 3 then cspanmwait1 = cspanmwait1 + 1 else cspanmwait1 = 0 } cspd1 = chrspdlst(1 * 17 + cspdir1 * 4 + cspanmcnt1) /* /* g[Xgӂӂ if lc2 = 30 then { cspy7 = cspy7 - 1 } else if lc2 = 60 then { cspy7 = cspy7 + 1 if lc2 = 60 then lc2 = 0 } /* if pmvstep1 > 0 then pmvstep1 = pmvstep1 - 1 /* /* bZ[W\v̎t if sysmsgreq1 = 1 then { sysmsgreq1 = 0 /* pactexeflg1 = 1 sysmsgmd1 = 1 sysmsgwait1 = 180 sysmsgrefresh1 = 1 } if sysmsgmd1 = 1 and sysmsgwait1 = 0 then { sysmsgmd1 = 0 /* pactexeflg1 = 0 sysmsgrefresh1 = 2 } /* /* bZ[W{bNX\v̎t if msgboxreq1 = 1 then { msgboxreq1 = 0 if msgboxmd1 = 1 then msgboxrefresh1 = 3 else msgboxrefresh1 = 1 : msgboxmd1 = 1 msgboxwait1 = 180 } if msgboxmd1 = 1 and msgboxwait1 = 0 then { msgboxmd1 = 0 msgboxrefresh1 = 2 } /* v_disp(0) /* /* locate 0,0 : print pactlstptr1,pmvstep1 /*,msgboxstr1 /* bZ[W\ if sysmsgrefresh1 = 1 then { msgprint(sysmsgstr1, 24) sysmsgrefresh1 = 0 } /* bZ[W if sysmsgrefresh1 = 2 then { msgprint("", 24) sysmsgrefresh1 = 0 } /* /* bZ[W{bNX\tbV if msgboxrefresh1 <> 0 then { /* bZ[W{bNX if msgboxrefresh1 = 2 or msgboxrefresh1 = 3 then { fill(msgboxx1, msgboxy1, msgboxx2, msgboxy2, 0) } /* bZ[W{bNX\ if msgboxrefresh1 = 1 or msgboxrefresh1 = 3 then { /* msgboxx1 = 0 msgboxx2 = 0 msgboxy1 = 30 msgboxy2 = 0 msgboxlen1 = len(msgboxstr1) msgboxwid = ( msgboxlen1 * 8) + 15 msgboxhei = 31 /* msgboxx2 = msgboxx1 + msgboxwid msgboxy2 = msgboxy1 + msgboxhei if msgboxpos = 1 then { msgboxx1 = (reswid - msgboxwid) / 2 msgboxx2 = msgboxx1 + msgboxwid } /* box(msgboxx1, msgboxy1, msgboxx2, msgboxy2, msgboxbakcol) box(msgboxx1 + 1, msgboxy1 + 1, msgboxx2 - 1, msgboxy2 - 1, msgboxbdrcol) fill(msgboxx1 + 2 , msgboxy1 + 2, msgboxx2 - 2, msgboxy2 - 2, msgboxbakcol) symbol(msgboxx1 + 8, msgboxy1 + 8, msgboxstr1, 1, 1, 1, msgboxfntcol1, 0) } /* msgboxrefresh1 = 0 } sp_set(cspno1 , cspx1, cspy1, cspd1, 3) /* [i sp_set(cspno1 + 1, cspx1, cspy1 + 16, cspd1 + 16, 3) sp_set(cspno2 , cspx2, cspy2, cspd2, 3) /* Z sp_set(cspno2 + 1, cspx2, cspy2 + 16, cspd2 + 16, 3) sp_set(cspno7 , cspx7, cspy7 - 1, cspd7, 3) /* g[Xgӂӂ /* if pactlst1(pactlstptr1) = 255 then break /* endwhile /* if autoskip = 1 then break /* execcmd(CMD_MUSIC, "fadeout", "") /* strig1o = strig(1) for lc1 = 0 to 359 /* strig1 = strig(1) /* if strig1o = 0 and strig1 <> 0 then break v_disp(0) /* strig1o = strig1 next /* break endwhile /* endfunc /* GfBOʕ\ func ending_screen() /* v_priority("tsg") /* int breakflame = 1020 /* int tx = 0 int ty = 0 int gx = 0 int gy = 0 int bg_x = 0 int bg_y = 0 int bgpb = 0 int bgpc = 0 int bgpd = 0 /* int lc1 = 0 int lc2 = 0 int lwc1 = 0 int strig1 = 0 int strig1o = 0 int autoskip = 0 int toprank = 0 str msg1[255] = "" str msg2[255] = "" str msg3[255] = "" str msg4[255] = "" str msg5[255] = "" str msg6[255] = "" str msg7[255] = "" str msg8[255] = "" str msg9[255] = "" /* int cspno1 = 0 /* XvCgԍ int cspno2 = 0 int cspno3 = 0 int cspno4 = 0 int cspno5 = 0 int cspno6 = 0 int cspno7 = 0 int cspx1 = 0 /* XvCgXW int cspx2 = 0 int cspx3 = 0 int cspx4 = 0 int cspx5 = 0 int cspx6 = 0 int cspx7 = 0 int cspy1 = 0 /* XvCgYW int cspy2 = 0 int cspy3 = 0 int cspy4 = 0 int cspy5 = 0 int cspy6 = 0 int cspy7 = 0 int cspdir1 = 0 /* L 0: 1: 2:E 3: int cspmvstep1 = 0 /* LړXebv int cspmvdir1 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd1 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt1 = 0 /* LAjJE^ 0`3 int cspanmwait1 = 0 /* LAjEFCg 0`3 int cspdir2 = 0 /* L 0: 1: 2:E 3: int cspmvstep2 = 0 /* LړXebv int cspmvdir2 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd2 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt2 = 0 /* LAjJE^ 0`3 int cspanmwait2 = 0 /* LAjEFCg 0`3 int cspdir3 = 0 /* L 0: 1: 2:E 3: int cspmvstep3 = 0 /* LړXebv int cspmvdir3 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd3 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt3 = 0 /* LAjJE^ 0`3 int cspanmwait3 = 0 /* LAjEFCg 0`3 int cspdir4 = 0 /* L 0: 1: 2:E 3: int cspmvstep4 = 0 /* LړXebv int cspmvdir4 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd4 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt4 = 0 /* LAjJE^ 0`3 int cspanmwait4 = 0 /* LAjEFCg 0`3 int cspdir5 = 0 /* L 0: 1: 2:E 3: int cspmvstep5 = 0 /* LړXebv int cspmvdir5 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd5 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt5 = 0 /* LAjJE^ 0`3 int cspanmwait5 = 0 /* LAjEFCg 0`3 int cspdir6 = 0 /* L 0: 1: 2:E 3: int cspmvstep6 = 0 /* LړXebv int cspmvdir6 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd6 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt6 = 0 /* LAjJE^ 0`3 int cspanmwait6 = 0 /* LAjEFCg 0`3 int cspdir7 = 0 /* L 0: 1: 2:E 3: int cspmvstep7 = 0 /* LړXebv int cspmvdir7 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd7 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt7 = 0 /* LAjJE^ 0`3 int cspanmwait7 = 0 /* LAjEFCg 0`3 int cspd1 = 0 /* XvCgSPD int cspd2 = 0 int cspd3 = 0 int cspd4 = 0 int cspd5 = 0 int cspd6 = 0 int cspd7 = 0 /* /* GRAPH1 int lc gx = 0 gy = 256 int waitf = 0 /* /* TEXT tx = 0 ty = 768 lc1 = 0 /* /* LN^[spd dim int chrspdlst(101) /* E] (1 shl 14) = 16384 ㉺] (1 shl 15) = 32768 ㉺E] = 49152 chrspdlst = { + 74+(7 shl 8), 75+(7 shl 8), 74+(7 shl 8), 76+(7 shl 8), 77+(7 shl 8), 78+(7 shl 8), 77+(7 shl 8), 79+(7 shl 8), 16384+ 77+(7 shl 8),16384+ 78+(7 shl 8),16384+ 77+(7 shl 8),16384+ 79+(7 shl 8), +106+(7 shl 8),107+(7 shl 8),106+(7 shl 8),108+(7 shl 8), 109+(7 shl 8), /* u + 32+(2 shl 8), 33+(2 shl 8), 32+(2 shl 8), 34+(2 shl 8), 35+(2 shl 8), 36+(2 shl 8), 35+(2 shl 8), 37+(2 shl 8), 16384+ 35+(2 shl 8),16384+ 36+(2 shl 8),16384+ 35+(2 shl 8),16384+ 37+(2 shl 8), + 38+(2 shl 8), 39+(2 shl 8), 38+(2 shl 8), 40+(2 shl 8), 41+(2 shl 8), /* [i + 64+(3 shl 8), 65+(3 shl 8), 64+(3 shl 8), 66+(3 shl 8), 67+(3 shl 8), 68+(3 shl 8), 67+(3 shl 8), 69+(3 shl 8), 16384+ 67+(3 shl 8),16384+ 68+(3 shl 8),16384+ 67+(3 shl 8),16384+ 69+(3 shl 8), + 70+(3 shl 8), 71+(3 shl 8), 70+(3 shl 8), 72+(3 shl 8), 73+(3 shl 8), /* T + 96+(4 shl 8), 97+(4 shl 8), 96+(4 shl 8), 98+(4 shl 8), 99+(4 shl 8),100+(4 shl 8), 99+(4 shl 8),101+(4 shl 8), 16384+ 99+(4 shl 8),16384+100+(4 shl 8),16384+ 99+(4 shl 8),16384+101+(4 shl 8), +102+(4 shl 8),103+(4 shl 8),102+(4 shl 8),104+(4 shl 8), 105+(4 shl 8), /* Ni + 74+(5 shl 8), 75+(5 shl 8), 74+(5 shl 8), 76+(5 shl 8), 77+(5 shl 8), 78+(5 shl 8), 77+(5 shl 8), 79+(5 shl 8), 16384+ 77+(5 shl 8),16384+ 78+(5 shl 8),16384+ 77+(5 shl 8),16384+ 79+(5 shl 8), +106+(5 shl 8),107+(5 shl 8),106+(5 shl 8),108+(5 shl 8), 109+(5 shl 8), /* VA + 42+(2 shl 8), 43+(2 shl 8), 42+(2 shl 8), 44+(2 shl 8), 110+(2 shl 8),110+(2 shl 8),110+(2 shl 8),110+(2 shl 8), 16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8), + 45+(2 shl 8), 46+(2 shl 8), 45+(2 shl 8), 47+(2 shl 8), 110+(2 shl 8)} /* 搶 /* /* ` msg1 = "ɗFB~iHj" msg2 = "GXP[vɃTNZX" msg3 = "cCe[B" msg4 = "AvԂĂ݂ƁA" msg5 = "ȂGXP[vKv̂A" msg6 = "ׂĂ̂܂܁AŝȂ" msg7 = "CōZ𓇗ɂ邱Ƃ" msg8 = "PWt邱ƂoB" msg9 = "ꂾB" thome(tx, ty) locate 0, 2 : color 2 : print " EPILOGUE" locate 0, 4 : color 3 : print msg1 locate 0, 5 : color 3 : print msg2 locate 0, 6 : color 3 : print msg3 locate 0, 7 : color 3 : print msg4 locate 0, 8 : color 3 : print msg5 locate 0, 9 : color 3 : print msg6 locate 0,10 : color 3 : print msg7 locate 0,11 : color 3 : print msg8 locate 0,12 : color 3 : print msg9 /* cspno1 = 6 cspno2 = 8 cspno3 = 10 cspno4 = 12 cspno5 = 14 cspno6 = 16 cspno7 = 5 cspx1 = 128 cspx2 = 272 cspx3 = 272 cspx4 = 112 cspx5 = 144 cspx6 = 160 cspx7 = 272 + 32 cspy1 = 272 cspy2 = 152 cspy3 = 176 cspy4 = 272 cspy5 = 272 cspy6 = 272 cspy7 = 176 cspdir1 = 3 /* L 0: 1: 2:E 3: cspmvstep1 = 80 /* LړXebv cspmvdir1 = 3 /* Lړ 0: 1: 2:E 3: cspanmmd1 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt1 = 0 /* LAjJE^ 0`3 cspanmwait1 = 0 /* LAjEFCg 0`3 cspdir2 = 0 /* L 0: 1: 2:E 3: cspmvstep2 = 0 /* LړXebv cspmvdir2 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd2 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt2 = 0 /* LAjJE^ 0`3 cspanmwait2 = 0 /* LAjEFCg 0`3 cspdir3 = 3 /* L 0: 1: 2:E 3: cspmvstep3 = 0 /* LړXebv cspmvdir3 = 3 /* Lړ 0: 1: 2:E 3: cspanmmd3 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt3 = 0 /* LAjJE^ 0`3 cspanmwait3 = 0 /* LAjEFCg 0`3 cspdir4 = 3 /* L 0: 1: 2:E 3: cspmvstep4 = 80 /* LړXebv cspmvdir4 = 3 /* Lړ 0: 1: 2:E 3: cspanmmd4 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt4 = 0 /* LAjJE^ 0`3 cspanmwait4 = 0 /* LAjEFCg 0`3 cspdir5 = 3 /* L 0: 1: 2:E 3: cspmvstep5 = 80 /* LړXebv cspmvdir5 = 3 /* Lړ 0: 1: 2:E 3: cspanmmd5 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt5 = 0 /* LAjJE^ 0`3 cspanmwait5 = 0 /* LAjEFCg 0`3 cspdir6 = 3 /* L 0: 1: 2:E 3: cspmvstep6 = 80 /* LړXebv cspmvdir6 = 3 /* Lړ 0: 1: 2:E 3: cspanmmd6 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt6 = 0 /* LAjJE^ 0`3 cspanmwait6 = 0 /* LAjEFCg 0`3 cspdir7 = 0 /* L 0: 1: 2:E 3: cspmvstep7 = 0 /* LړXebv cspmvdir7 = 0 /* Lړ 0: 1: 2:E 3: cspanmmd7 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt7 = 0 /* LAjJE^ 0`3 cspanmwait7 = 0 /* LAjEFCg 0`3 cspd1 = chrspdlst(1 * 17 + cspdir1 * 4 + cspanmcnt1) cspd2 = (8 shl 8) + 111 cspd3 = (8 shl 8) + 140 cspd4 = chrspdlst(2 * 17 + cspdir1 * 4 + cspanmcnt1) cspd5 = chrspdlst(3 * 17 + cspdir1 * 4 + cspanmcnt1) cspd6 = chrspdlst(4 * 17 + cspdir1 * 4 + cspanmcnt1) cspd7 = (1 shl 8) + 191 /* /* XRAgbvN̏ꍇ if Gsc1 >= Granksc(1) then toprank = 1 if toprank = 1 then execcmd(CMD_MUSIC, "EDSED2FC", "") else execcmd(CMD_MUSIC, "EDSEDFC", "") /* /* wi` home(0, gx, gy) /* fill( 0, 0,255,127, rgb(29,24,16)) for lc = 0 to 31 fill( 0, 128 + lc, 255, 128 + lc + 1, rgb( 29, 24 + lc/6, 16 + lc/3)) next for lc = 0 to 31 fill( 0, 160 + lc, 255, 160 + lc + 1, rgb( 20 + lc/3, 18 + lc/3, 14 + lc/4)) next for lc = 0 to 31 fill( 0, 192 + lc, 255, 192 + lc + 1, rgb( 14 + lc/2, 14 + lc/2, 4 + lc/2)) next fill( 0,224,255,255, rgb(28,28,18)) circle(128,104, 8, rgb(29,30,24)) circle(128,104, 7, rgb(28,30,23)) paint(128,104, rgb(28,29,22)) /* while 1 if waitf = 0 then gy = gy + 2 if waitf > 0 then waitf = waitf - 1 if gy = 512 then gy = 0 : waitf = 179 v_disp(0) home(0, gx, gy) if gy = 0 then break endwhile /* lc2 = 272 * 3 while asc(inkey$(0)) <> 27 if cspmvstep1 > 0 then { switch cspmvdir1 case 0 : cspy1 = cspy1 + 1 : break /* case 1 : cspx1 = cspx1 - 1 : break /* case 2 : cspx1 = cspx1 + 1 : break /* E case 3 : cspy1 = cspy1 - 1 : break /* case 4 : cspx1 = cspx1 - 1 : cspy1 = cspy1 + 1 : break /* endswitch cspmvstep1 = cspmvstep1 - 1 if cspmvstep1 = 0 then cspanmmd1 = 0 } if cspmvstep4 > 0 then { switch cspmvdir4 case 0 : cspy4 = cspy4 + 1 : break /* case 1 : cspx4 = cspx4 - 1 : break /* case 2 : cspx4 = cspx4 + 1 : break /* E case 3 : cspy4 = cspy4 - 1 : break /* endswitch cspmvstep4 = cspmvstep4 - 1 if cspmvstep4 = 0 then cspanmmd4 = 0 } if cspmvstep5 > 0 then { switch cspmvdir5 case 0 : cspy5 = cspy5 + 1 : break /* case 1 : cspx5 = cspx5 - 1 : break /* case 2 : cspx5 = cspx5 + 1 : break /* E case 3 : cspy5 = cspy5 - 1 : break /* endswitch cspmvstep5 = cspmvstep5 - 1 if cspmvstep5 = 0 then cspanmmd5 = 0 } if cspmvstep6 > 0 then { switch cspmvdir5 case 0 : cspy6 = cspy6 + 1 : break /* case 1 : cspx6 = cspx6 - 1 : break /* case 2 : cspx6 = cspx6 + 1 : break /* E case 3 : cspy6 = cspy6 - 1 : break /* endswitch cspmvstep6 = cspmvstep6 - 1 if cspmvstep6 = 0 then cspanmmd6 = 0 } /* LAj if cspanmmd1 = 1 then { if cspanmwait1 = 0 then if cspanmcnt1 < 3 then cspanmcnt1 = cspanmcnt1 + 1 else cspanmcnt1 = 0 if cspanmwait1 < 3 then cspanmwait1 = cspanmwait1 + 1 else cspanmwait1 = 0 } cspd1 = chrspdlst(1 * 17 + cspdir1 * 4 + cspanmcnt1) if cspanmmd4 = 1 then { if cspanmwait4 = 0 then if cspanmcnt4 < 3 then cspanmcnt4 = cspanmcnt4 + 1 else cspanmcnt4 = 0 if cspanmwait4 < 3 then cspanmwait4 = cspanmwait4 + 1 else cspanmwait4 = 0 } cspd4 = chrspdlst(2 * 17 + cspdir4 * 4 + cspanmcnt4) if cspanmmd5 = 1 then { if cspanmwait5 = 0 then if cspanmcnt5 < 3 then cspanmcnt5 = cspanmcnt5 + 1 else cspanmcnt5 = 0 if cspanmwait5 < 3 then cspanmwait5 = cspanmwait5 + 1 else cspanmwait5 = 0 } cspd5 = chrspdlst(3 * 17 + cspdir5 * 4 + cspanmcnt5) if cspanmmd6 = 1 then { if cspanmwait6 = 0 then if cspanmcnt6 < 3 then cspanmcnt6 = cspanmcnt6 + 1 else cspanmcnt6 = 0 if cspanmwait6 < 3 then cspanmwait6 = cspanmwait6 + 1 else cspanmwait6 = 0 } cspd6 = chrspdlst(4 * 17 + cspdir6 * 4 + cspanmcnt6) cspd7 = (1 shl 8) + 191 /* if lc1 < 511 then lc1 = lc1 + 1 if lc2 > 0 then lc2 = lc2 - 1 /* else lc2 = 272 * 3 cspx2 = lc2 / 3 cspx3 = lc2 / 3 if lc2 <> 0 then { cspx7 = lc2 / 3 + 32 if (lc2 and &B00001111) = 0 and lc2 <> 0 then cspy7 = cspy7 + 1 if (lc2 and &B00001111) = 8 then cspy7 = cspy7 - 1 } else { if cspx7 <> 0 then cspx7 = cspx7 - 1 } if breakflame > 0 then breakflame = breakflame - 1 else break v_disp(0) thome(tx,ty + (lc1 / 2)) sp_set(cspno2 , cspx2, cspy2, cspd2, 3) sp_set(cspno2 + 1, cspx2, cspy2 + 16, cspd2 + 16, 3) sp_set(cspno3 , cspx3, cspy3, cspd3, 3) /* sp_set(cspno1 , cspx1, cspy1, cspd1, 3) sp_set(cspno1 + 1, cspx1, cspy1 + 16, cspd1 + 16, 3) sp_set(cspno4 , cspx4, cspy4, cspd4, 3) sp_set(cspno4 + 1, cspx4, cspy4 + 16, cspd4 + 16, 3) sp_set(cspno5 , cspx5, cspy5, cspd5, 3) sp_set(cspno5 + 1, cspx5, cspy5 + 16, cspd5 + 16, 3) sp_set(cspno6 , cspx6, cspy6, cspd6, 3) sp_set(cspno6 + 1, cspx6, cspy6 + 16, cspd6 + 16, 3) sp_set(cspno7 , cspx7, cspy7, cspd7, 3) /* endwhile /* v_priority("tgs") /* rfIvCIeBύX(TEXT>GRAPHIC>SPRITE) /* endfunc /* /* LXgX^bt\ func cast_screen() int tx = 0, ty = 0 int lc1 = 0 int lwc1 = 0 int strig1 = 0 int strig1o = 0 str msg1[255] = "" str msg2[255] = "" str msg3[255] = "" str msg4[255] = "" str msg5[255] = "" str msg6[255] = "" str msg7[255] = "" str msg8[255] = "" str msg9[255] = "" /* LN^[spd dim int chrspdlst(101) /* E] (1 shl 14) = 16384 ㉺] (1 shl 15) = 32768 ㉺E] = 49152 chrspdlst = { + 74+(7 shl 8), 75+(7 shl 8), 74+(7 shl 8), 76+(7 shl 8), 77+(7 shl 8), 78+(7 shl 8), 77+(7 shl 8), 79+(7 shl 8), 16384+ 77+(7 shl 8),16384+ 78+(7 shl 8),16384+ 77+(7 shl 8),16384+ 79+(7 shl 8), +106+(7 shl 8),107+(7 shl 8),106+(7 shl 8),108+(7 shl 8), 109+(7 shl 8), /* u + 32+(2 shl 8), 33+(2 shl 8), 32+(2 shl 8), 34+(2 shl 8), 35+(2 shl 8), 36+(2 shl 8), 35+(2 shl 8), 37+(2 shl 8), 16384+ 35+(2 shl 8),16384+ 36+(2 shl 8),16384+ 35+(2 shl 8),16384+ 37+(2 shl 8), + 38+(2 shl 8), 39+(2 shl 8), 38+(2 shl 8), 40+(2 shl 8), 41+(2 shl 8), /* [i + 64+(3 shl 8), 65+(3 shl 8), 64+(3 shl 8), 66+(3 shl 8), 67+(3 shl 8), 68+(3 shl 8), 67+(3 shl 8), 69+(3 shl 8), 16384+ 67+(3 shl 8),16384+ 68+(3 shl 8),16384+ 67+(3 shl 8),16384+ 69+(3 shl 8), + 70+(3 shl 8), 71+(3 shl 8), 70+(3 shl 8), 72+(3 shl 8), 73+(3 shl 8), /* T + 96+(4 shl 8), 97+(4 shl 8), 96+(4 shl 8), 98+(4 shl 8), 99+(4 shl 8),100+(4 shl 8), 99+(4 shl 8),101+(4 shl 8), 16384+ 99+(4 shl 8),16384+100+(4 shl 8),16384+ 99+(4 shl 8),16384+101+(4 shl 8), +102+(4 shl 8),103+(4 shl 8),102+(4 shl 8),104+(4 shl 8), 105+(4 shl 8), /* Ni + 74+(5 shl 8), 75+(5 shl 8), 74+(5 shl 8), 76+(5 shl 8), 77+(5 shl 8), 78+(5 shl 8), 77+(5 shl 8), 79+(5 shl 8), 16384+ 77+(5 shl 8),16384+ 78+(5 shl 8),16384+ 77+(5 shl 8),16384+ 79+(5 shl 8), +106+(5 shl 8),107+(5 shl 8),106+(5 shl 8),108+(5 shl 8), 109+(5 shl 8), /* VA + 42+(2 shl 8), 43+(2 shl 8), 42+(2 shl 8), 44+(2 shl 8), 110+(2 shl 8),110+(2 shl 8),110+(2 shl 8),110+(2 shl 8), 16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8),16384+110+(2 shl 8), + 45+(2 shl 8), 46+(2 shl 8), 45+(2 shl 8), 47+(2 shl 8), 110+(2 shl 8)} /* 搶 /* int toprank = 0 int cspno1 = 0 /* XvCgԍ int cspno2 = 0 int cspno3 = 0 int cspno4 = 0 int cspx1 = 0 /* XvCgXW int cspx2 = 0 int cspx3 = 0 int cspx4 = 0 int cspy1 = 0 /* XvCgYW int cspy2 = 0 int cspy3 = 0 int cspy4 = 0 int cspdir1 = 0 /* L 0: 1: 2:E 3: int cspmvstep1 = 0 /* LړXebv int cspmvdir1 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd1 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt1 = 0 /* LAjJE^ 0`3 int cspanmwait1 = 0 /* LAjEFCg 0`3 int cspdir2 = 0 /* L 0: 1: 2:E 3: int cspmvstep2 = 0 /* LړXebv int cspmvdir2 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd2 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt2 = 0 /* LAjJE^ 0`3 int cspanmwait2 = 0 /* LAjEFCg 0`3 int cspdir3 = 0 /* L 0: 1: 2:E 3: int cspmvstep3 = 0 /* LړXebv int cspmvdir3 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd3 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt3 = 0 /* LAjJE^ 0`3 int cspanmwait3 = 0 /* LAjEFCg 0`3 int cspdir4 = 0 /* L 0: 1: 2:E 3: int cspmvstep4 = 0 /* LړXebv int cspmvdir4 = 0 /* Lړ 0: 1: 2:E 3: int cspanmmd4 = 1 /* LAj[h 0:AjȂ 1:Aj int cspanmcnt4 = 0 /* LAjJE^ 0`3 int cspanmwait4 = 0 /* LAjEFCg 0`3 int cspd1 = 0 /* XvCgSPD int cspd2 = 0 int cspd3 = 0 int cspd4 = 0 /* /* /*** CAST 1 ***/ msg1 = "" msg2 = "@@@@[i(LENA)" msg3 = "@@@@̂ւ̃cCe[" msg4 = "@@@@T(SALA)" msg5 = "@@@@Mۂcf" msg6 = "@@@@Ni(CRENA)" msg7 = "@@@@ӂ|jeq" msg8 = "@@@@VA(LESIA)" msg9 = "@@@@AjCȋC" /* /* vpage(0) home(0,0,256) thome(0,32) wipe() cls /* /* symbol(0, 16, " [EPILOGUE]", 1, 1, 1, 65502, 0) symbol(0, 36, msg1, 1, 1, 1, 65534, 0) symbol(0, 56, msg2, 1, 1, 1, 65534, 0) symbol(0, 76, msg3, 1, 1, 1, 65534, 0) symbol(0,106, msg4, 1, 1, 1, 65534, 0) symbol(0,126, msg5, 1, 1, 1, 65534, 0) symbol(0,156, msg6, 1, 1, 1, 65534, 0) symbol(0,176, msg7, 1, 1, 1, 65534, 0) symbol(0,206, msg8, 1, 1, 1, 65534, 0) symbol(0,226, msg9, 1, 1, 1, 65534, 0) vpage(1) /* tx = 0 : ty = 32 cspno1 = 6 cspno2 = 8 cspno3 = 10 cspno4 = 12 cspx1 = 0 cspx2 = 0 cspx3 = 0 cspx4 = 0 cspy1 = 74 cspy2 = 124 cspy3 = 174 cspy4 = 224 cspdir1 = 0 /* L 0: 1: 2:E 3: cspmvstep1 = 48 /* LړXebv cspmvdir1 = 2 /* Lړ 0: 1: 2:E 3: cspanmmd1 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt1 = 0 /* LAjJE^ 0`3 cspanmwait1 = 0 /* LAjEFCg 0`3 cspdir2 = 0 /* L 0: 1: 2:E 3: cspmvstep2 = 48 /* LړXebv cspmvdir2 = 2 /* Lړ 0: 1: 2:E 3: cspanmmd2 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt2 = 0 /* LAjJE^ 0`3 cspanmwait2 = 0 /* LAjEFCg 0`3 cspdir3 = 0 /* L 0: 1: 2:E 3: cspmvstep3 = 48 /* LړXebv cspmvdir3 = 2 /* Lړ 0: 1: 2:E 3: cspanmmd3 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt3 = 0 /* LAjJE^ 0`3 cspanmwait3 = 0 /* LAjEFCg 0`3 cspdir4 = 0 /* L 0: 1: 2:E 3: cspmvstep4 = 48 /* LړXebv cspmvdir4 = 2 /* Lړ 0: 1: 2:E 3: cspanmmd4 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt4 = 0 /* LAjJE^ 0`3 cspanmwait4 = 0 /* LAjEFCg 0`3 cspd1 = chrspdlst(1 * 17 + cspdir1 * 4 + cspanmcnt1) cspd2 = chrspdlst(2 * 17 + cspdir2 * 4 + cspanmcnt2) cspd3 = chrspdlst(3 * 17 + cspdir3 * 4 + cspanmcnt3) cspd4 = chrspdlst(4 * 17 + cspdir4 * 4 + cspanmcnt4) /* color 2 locate 14,1 : print "CAST" color 3 /* for lc1 = 0 to 127 if lc1 > 79 then { /* Ls if cspmvstep1 > 0 then { switch cspmvdir1 case 0 : cspy1 = cspy1 + 1 : break /* case 1 : cspx1 = cspx1 - 1 : break /* case 2 : cspx1 = cspx1 + 1 : break /* E case 3 : cspy1 = cspy1 - 1 : break /* endswitch cspmvstep1 = cspmvstep1 - 1 if cspmvstep1 = 0 then cspanmmd1 = 0 } if cspmvstep2 > 0 then { switch cspmvdir2 case 0 : cspy2 = cspy2 + 1 : break /* case 1 : cspx2 = cspx2 - 1 : break /* case 2 : cspx2 = cspx2 + 1 : break /* E case 3 : cspy2 = cspy2 - 1 : break /* endswitch cspmvstep2 = cspmvstep2 - 1 if cspmvstep2 = 0 then cspanmmd2 = 0 } if cspmvstep3 > 0 then { switch cspmvdir3 case 0 : cspy3 = cspy3 + 1 : break /* case 1 : cspx3 = cspx3 - 1 : break /* case 2 : cspx3 = cspx3 + 1 : break /* E case 3 : cspy3 = cspy3 - 1 : break /* endswitch cspmvstep3 = cspmvstep3 - 1 if cspmvstep3 = 0 then cspanmmd3 = 0 } if cspmvstep4 > 0 then { switch cspmvdir4 case 0 : cspy4 = cspy4 + 1 : break /* case 1 : cspx4 = cspx4 - 1 : break /* case 2 : cspx4 = cspx4 + 1 : break /* E case 3 : cspy4 = cspy4 - 1 : break /* endswitch cspmvstep4 = cspmvstep4 - 1 if cspmvstep4 = 0 then cspanmmd4 = 0 } /* LAj if cspanmmd1 = 1 then { if cspanmwait1 = 0 then if cspanmcnt1 < 3 then cspanmcnt1 = cspanmcnt1 + 1 else cspanmcnt1 = 0 if cspanmwait1 < 3 then cspanmwait1 = cspanmwait1 + 1 else cspanmwait1 = 0 } cspd1 = chrspdlst(1 * 17 + cspdir1 * 4 + cspanmcnt1) if cspanmmd2 = 1 then { if cspanmwait2 = 0 then if cspanmcnt2 < 3 then cspanmcnt2 = cspanmcnt2 + 1 else cspanmcnt2 = 0 if cspanmwait2 < 3 then cspanmwait2 = cspanmwait2 + 1 else cspanmwait2 = 0 } cspd2 = chrspdlst(2 * 17 + cspdir2 * 4 + cspanmcnt2) if cspanmmd3 = 1 then { if cspanmwait3 = 0 then if cspanmcnt3 < 3 then cspanmcnt3 = cspanmcnt3 + 1 else cspanmcnt3 = 0 if cspanmwait3 < 3 then cspanmwait3 = cspanmwait3 + 1 else cspanmwait3 = 0 } cspd3 = chrspdlst(3 * 17 + cspdir3 * 4 + cspanmcnt3) if cspanmmd4 = 1 then { if cspanmwait4 = 0 then if cspanmcnt4 < 3 then cspanmcnt4 = cspanmcnt4 + 1 else cspanmcnt4 = 0 if cspanmwait4 < 3 then cspanmwait4 = cspanmwait4 + 1 else cspanmwait4 = 0 } cspd4 = chrspdlst(4 * 17 + cspdir4 * 4 + cspanmcnt4) /* } if lc1 > 95 then { ty = ty - 1 } v_disp(0) home(0,0,256 + lc1 * 2) thome(tx, ty) sp_set(cspno1 , cspx1, cspy1, cspd1, 3) sp_set(cspno1 + 1, cspx1, cspy1 + 16, cspd1 + 16, 3) sp_set(cspno2 , cspx2, cspy2, cspd2, 3) sp_set(cspno2 + 1, cspx2, cspy2 + 16, cspd2 + 16, 3) sp_set(cspno3 , cspx3, cspy3, cspd3, 3) sp_set(cspno3 + 1, cspx3, cspy3 + 16, cspd3 + 16, 3) sp_set(cspno4 , cspx4, cspy4, cspd4, 3) sp_set(cspno4 + 1, cspx4, cspy4 + 16, cspd4 + 16, 3) next /* home(0,0,0) thome(0,0) /* strig1o = strig(1) for lc1 = 0 to 359 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* /*** CAST 2 ***/ msg1 = "" msg2 = "@@@@uq(MOB)" msg3 = "@@@@uȍ" msg4 = "@@@@搶(GreatTeacherOCCHI)" msg5 = "@@@@ꌒSam()" msg6 = "@@@@Z(KO-CHO)" msg7 = "@@@@h̍Z" msg8 = "@@@@g[Xg(Kari2GORUAToast)" msg9 = "@@@@JJ" /* vpage(0) home(0,0,256) thome(0,32) wipe() cls sp_set(cspno1 , 0, 0, 0, 0) sp_set(cspno1 + 1, 0, 0, 0, 0) sp_set(cspno2 , 0, 0, 0, 0) sp_set(cspno2 + 1, 0, 0, 0, 0) sp_set(cspno3 , 0, 0, 0, 0) sp_set(cspno3 + 1, 0, 0, 0, 0) sp_set(cspno4 , 0, 0, 0, 0) sp_set(cspno4 + 1, 0, 0, 0, 0) /* /* symbol(0, 16, " [EPILOGUE]", 1, 1, 1, 65502, 0) symbol(0, 36, msg1, 1, 1, 1, 65534, 0) symbol(0, 56, msg2, 1, 1, 1, 65534, 0) symbol(0, 76, msg3, 1, 1, 1, 65534, 0) symbol(0,106, msg4, 1, 1, 1, 65534, 0) symbol(0,126, msg5, 1, 1, 1, 65534, 0) symbol(0,156, msg6, 1, 1, 1, 65534, 0) symbol(0,176, msg7, 1, 1, 1, 65534, 0) symbol(0,206, msg8, 1, 1, 1, 65534, 0) symbol(0,226, msg9, 1, 1, 1, 65534, 0) vpage(1) /* tx = 0 : ty = 32 cspno1 = 6 cspno2 = 8 cspno3 = 10 cspno4 = 12 cspx1 = 0 cspx2 = 0 cspx3 = 0 cspx4 = 0 cspy1 = 74 cspy2 = 124 cspy3 = 174 cspy4 = 224 cspdir1 = 0 /* L 0: 1: 2:E 3: cspmvstep1 = 48 /* LړXebv cspmvdir1 = 2 /* Lړ 0: 1: 2:E 3: cspanmmd1 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt1 = 0 /* LAjJE^ 0`3 cspanmwait1 = 0 /* LAjEFCg 0`3 cspdir2 = 0 /* L 0: 1: 2:E 3: cspmvstep2 = 48 /* LړXebv cspmvdir2 = 2 /* Lړ 0: 1: 2:E 3: cspanmmd2 = 1 /* LAj[h 0:AjȂ 1:Aj cspanmcnt2 = 0 /* LAjJE^ 0`3 cspanmwait2 = 0 /* LAjEFCg 0`3 cspdir3 = 0 /* L 0: 1: 2:E 3: cspmvstep3 = 48 /* LړXebv cspmvdir3 = 2 /* Lړ 0: 1: 2:E 3: cspanmmd3 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt3 = 0 /* LAjJE^ 0`3a cspanmwait3 = 0 /* LAjEFCg 0`3 cspdir4 = 0 /* L 0: 1: 2:E 3: cspmvstep4 = 48 /* LړXebv cspmvdir4 = 2 /* Lړ 0: 1: 2:E 3: cspanmmd4 = 0 /* LAj[h 0:AjȂ 1:Aj cspanmcnt4 = 0 /* LAjJE^ 0`3 cspanmwait4 = 0 /* LAjEFCg 0`3 cspd1 = chrspdlst(0 * 17 + cspdir1 * 4 + cspanmcnt1) cspd2 = chrspdlst(5 * 17 + cspdir2 * 4 + cspanmcnt2) cspd3 = (8 shl 8) + 111 cspd4 = (1 shl 8) + 191 /* color 2 locate 14,1 : print "CAST" color 3 /* for lc1 = 0 to 127 if lc1 > 79 then { /* Ls if cspmvstep1 > 0 then { switch cspmvdir1 case 0 : cspy1 = cspy1 + 1 : break /* case 1 : cspx1 = cspx1 - 1 : break /* case 2 : cspx1 = cspx1 + 1 : break /* E case 3 : cspy1 = cspy1 - 1 : break /* endswitch cspmvstep1 = cspmvstep1 - 1 if cspmvstep1 = 0 then cspanmmd1 = 0 } if cspmvstep2 > 0 then { switch cspmvdir2 case 0 : cspy2 = cspy2 + 1 : break /* case 1 : cspx2 = cspx2 - 1 : break /* case 2 : cspx2 = cspx2 + 1 : break /* E case 3 : cspy2 = cspy2 - 1 : break /* endswitch cspmvstep2 = cspmvstep2 - 1 if cspmvstep2 = 0 then cspanmmd2 = 0 } if cspmvstep3 > 0 then { switch cspmvdir3 case 0 : cspy3 = cspy3 + 1 : break /* case 1 : cspx3 = cspx3 - 1 : break /* case 2 : cspx3 = cspx3 + 1 : break /* E case 3 : cspy3 = cspy3 - 1 : break /* endswitch cspmvstep3 = cspmvstep3 - 1 if cspmvstep3 = 0 then cspanmmd3 = 0 } if cspmvstep4 > 0 then { switch cspmvdir4 case 0 : cspy4 = cspy4 + 1 : break /* case 1 : cspx4 = cspx4 - 1 : break /* case 2 : cspx4 = cspx4 + 1 : break /* E case 3 : cspy4 = cspy4 - 1 : break /* endswitch cspmvstep4 = cspmvstep4 - 1 if cspmvstep4 = 0 then cspanmmd4 = 0 } /* LAj if cspanmmd1 = 1 then { if cspanmwait1 = 0 then if cspanmcnt1 < 3 then cspanmcnt1 = cspanmcnt1 + 1 else cspanmcnt1 = 0 if cspanmwait1 < 3 then cspanmwait1 = cspanmwait1 + 1 else cspanmwait1 = 0 } cspd1 = chrspdlst(0 * 17 + cspdir1 * 4 + cspanmcnt1) if cspanmmd2 = 1 then { if cspanmwait2 = 0 then if cspanmcnt2 < 3 then cspanmcnt2 = cspanmcnt2 + 1 else cspanmcnt2 = 0 if cspanmwait2 < 3 then cspanmwait2 = cspanmwait2 + 1 else cspanmwait2 = 0 } cspd2 = chrspdlst(5 * 17 + cspdir2 * 4 + cspanmcnt2) if cspanmmd3 = 1 then { if cspanmwait3 = 0 then if cspanmcnt3 < 3 then cspanmcnt3 = cspanmcnt3 + 1 else cspanmcnt3 = 0 if cspanmwait3 < 3 then cspanmwait3 = cspanmwait3 + 1 else cspanmwait3 = 0 } /* cspd3 = chrspdlst(3 * 17 + cspdir3 * 4 + cspanmcnt3) cspd3 = (8 shl 8) + 111 if cspanmmd4 = 1 then { if cspanmwait4 = 0 then if cspanmcnt4 < 3 then cspanmcnt4 = cspanmcnt4 + 1 else cspanmcnt4 = 0 if cspanmwait4 < 3 then cspanmwait4 = cspanmwait4 + 1 else cspanmwait4 = 0 } /* cspd4 = chrspdlst(4 * 17 + cspdir4 * 4 + cspanmcnt4) cspd4 = (1 shl 8) + 191 /* } if lc1 > 95 then { ty = ty - 1 } v_disp(0) home(0,0,256 + lc1 * 2) thome(tx, ty) sp_set(cspno1 , cspx1, cspy1, cspd1, 3) sp_set(cspno1 + 1, cspx1, cspy1 + 16, cspd1 + 16, 3) sp_set(cspno2 , cspx2, cspy2, cspd2, 3) sp_set(cspno2 + 1, cspx2, cspy2 + 16, cspd2 + 16, 3) sp_set(cspno3 , cspx3, cspy3, cspd3, 3) sp_set(cspno3 + 1, cspx3, cspy3 + 16, cspd3 + 16, 3) sp_set(cspno4 , cspx4, cspy4, cspd4, 3) /* sp_set(cspno4 + 1, cspx4, cspy4 + 16, cspd4 + 16, 3) next /* home(0,0,0) thome(0,0) /* strig1o = strig(1) for lc1 = 0 to 359 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* /*** CREDIT1 ***/ msg1 = "" msg2 = "@@t@t@[" msg3 = "@@uE}[`v Short ver." msg4 = "@@@ FElmer Bernstein" msg5 = "@@@ҋ FJohnnie Vinson" msg6 = "@@@" msg7 = "@@@MML CodedFARX_UHO" msg8 = "@@@" msg9 = "@@@" /* /*sp_set(6, 0, 0, &B100000000 + 0, 3) /*sp_set(7, 0, 0, &B100000000 + 0, 3) /*sp_set(8, 0, 0, &B100000000 + 0, 3) /*sp_set(9, 0, 0, &B100000000 + 0, 3) /*sp_set(10, 0, 0, &B100000000 + 0, 3) /*sp_set(11, 0, 0, &B100000000 + 0, 3) /*sp_set(12, 0, 0, &B100000000 + 0, 3) /*sp_set(13, 0, 0, &B100000000 + 0, 3) /* vpage(0) home(0,0,256) thome(0,32) wipe() cls /* sp_set(cspno1 , 0, 0, 0, 0) sp_set(cspno1 + 1, 0, 0, 0, 0) sp_set(cspno2 , 0, 0, 0, 0) sp_set(cspno2 + 1, 0, 0, 0, 0) sp_set(cspno3 , 0, 0, 0, 0) sp_set(cspno3 + 1, 0, 0, 0, 0) sp_set(cspno4 , 0, 0, 0, 0) sp_set(cspno4 + 1, 0, 0, 0, 0) /* /* symbol(0, 16, " [EPILOGUE]", 1, 1, 1, 65502, 0) symbol(0, 36, msg1, 1, 1, 1, 65534, 0) symbol(0, 56, msg2, 1, 1, 1, 65534, 0) symbol(0, 76, msg3, 1, 1, 1, 65534, 0) symbol(0,106, msg4, 1, 1, 1, 65534, 0) symbol(0,126, msg5, 1, 1, 1, 65534, 0) symbol(0,156, msg6, 1, 1, 1, 65534, 0) symbol(0,176, msg7, 1, 1, 1, 65534, 0) symbol(0,206, msg8, 1, 1, 1, 65534, 0) symbol(0,226, msg9, 1, 1, 1, 65534, 0) vpage(1) /* tx = 0 : ty = 32 color 2 locate 13,1 : print "CREDIT" color 3 /* for lc1 = 0 to 127 if lc1 > 95 then { ty = ty - 1 } v_disp(0) home(0,0,256 + lc1 * 2) thome(tx, ty) next /* home(0,0,0) thome(0,0) /* strig1o = strig(1) for lc1 = 0 to 359 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* /* XRAgbvN̏ꍇ if Gsc1 >= Granksc(1) then toprank = 1 if toprank = 1 then { /*** CREDIT2 ***/ msg1 = "" msg2 = "@@GfBOe[}" msg3 = "@@VśulŁv" msg4 = "@@@쎌 Fxcǎq" msg5 = "@@@쎌F{A" msg6 = "@@@ FcOq" msg7 = "@@@ȁFH琡u" msg8 = "@@@" msg9 = "@@@MML CodedFARX_UHO" /* /*sp_set(6, 0, 0, &B100000000 + 0, 3) /*sp_set(7, 0, 0, &B100000000 + 0, 3) /*sp_set(8, 0, 0, &B100000000 + 0, 3) /*sp_set(9, 0, 0, &B100000000 + 0, 3) /*sp_set(10, 0, 0, &B100000000 + 0, 3) /*sp_set(11, 0, 0, &B100000000 + 0, 3) /*sp_set(12, 0, 0, &B100000000 + 0, 3) /*sp_set(13, 0, 0, &B100000000 + 0, 3) /* vpage(0) home(0,0,256) thome(0,32) wipe() cls /* sp_set(cspno1 , 0, 0, 0, 0) sp_set(cspno1 + 1, 0, 0, 0, 0) sp_set(cspno2 , 0, 0, 0, 0) sp_set(cspno2 + 1, 0, 0, 0, 0) sp_set(cspno3 , 0, 0, 0, 0) sp_set(cspno3 + 1, 0, 0, 0, 0) sp_set(cspno4 , 0, 0, 0, 0) sp_set(cspno4 + 1, 0, 0, 0, 0) /* /* symbol(0, 16, " [EPILOGUE]", 1, 1, 1, 65502, 0) symbol(0, 36, msg1, 1, 1, 1, 65534, 0) symbol(0, 56, msg2, 1, 1, 1, 65534, 0) symbol(0, 76, msg3, 1, 1, 1, 65534, 0) symbol(0,106, msg4, 1, 1, 1, 65534, 0) symbol(0,126, msg5, 1, 1, 1, 65534, 0) symbol(0,156, msg6, 1, 1, 1, 65534, 0) symbol(0,176, msg7, 1, 1, 1, 65534, 0) symbol(0,206, msg8, 1, 1, 1, 65534, 0) symbol(0,226, msg9, 1, 1, 1, 65534, 0) vpage(1) /* tx = 0 : ty = 32 color 2 locate 13,1 : print "CREDIT" color 3 /* for lc1 = 0 to 127 if lc1 > 95 then { ty = ty - 1 } v_disp(0) home(0,0,256 + lc1 * 2) thome(tx, ty) next /* home(0,0,0) thome(0,0) /* strig1o = strig(1) for lc1 = 0 to 359 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next } /* /*** STAFF ***/ msg1 = "" msg2 = "@@PLANNING" msg3 = "@@@@ARX_UHO" msg4 = "@@PROGRAM" msg5 = "@@@@ARX_UHO" msg6 = "@@GRAPHIC & DESIGN" msg7 = "@@@@ARX_UHO" msg8 = "@@MUSIC COMPOSE" msg9 = "@@@@ARX_UHO" /* /*sp_set(6, 0, 0, &B100000000 + 0, 3) /*sp_set(7, 0, 0, &B100000000 + 0, 3) /*sp_set(8, 0, 0, &B100000000 + 0, 3) /*sp_set(9, 0, 0, &B100000000 + 0, 3) /*sp_set(10, 0, 0, &B100000000 + 0, 3) /*sp_set(11, 0, 0, &B100000000 + 0, 3) /*sp_set(12, 0, 0, &B100000000 + 0, 3) /*sp_set(13, 0, 0, &B100000000 + 0, 3) /* vpage(0) home(0,0,256) thome(0,32) wipe() cls /* sp_set(cspno1 , 0, 0, 0, 0) sp_set(cspno1 + 1, 0, 0, 0, 0) sp_set(cspno2 , 0, 0, 0, 0) sp_set(cspno2 + 1, 0, 0, 0, 0) sp_set(cspno3 , 0, 0, 0, 0) sp_set(cspno3 + 1, 0, 0, 0, 0) sp_set(cspno4 , 0, 0, 0, 0) sp_set(cspno4 + 1, 0, 0, 0, 0) /* /* symbol(0, 16, " [EPILOGUE]", 1, 1, 1, 65502, 0) symbol(0, 36, msg1, 1, 1, 1, 65534, 0) symbol(0, 56, msg2, 1, 1, 1, 65534, 0) symbol(0, 76, msg3, 1, 1, 1, 65534, 0) symbol(0,106, msg4, 1, 1, 1, 65534, 0) symbol(0,126, msg5, 1, 1, 1, 65534, 0) symbol(0,156, msg6, 1, 1, 1, 65534, 0) symbol(0,176, msg7, 1, 1, 1, 65534, 0) symbol(0,206, msg8, 1, 1, 1, 65534, 0) symbol(0,226, msg9, 1, 1, 1, 65534, 0) vpage(1) /* tx = 0 : ty = 32 color 2 locate 13,1 : print "STAFF" color 3 /* for lc1 = 0 to 127 if lc1 > 95 then { ty = ty - 1 } v_disp(0) home(0,0,256 + lc1 * 2) thome(tx, ty) next /* home(0,0,0) thome(0,0) /* strig1o = strig(1) for lc1 = 0 to 359 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* /* PRESENTED BY iroirotei msg1 = "" msg2 = "" msg3 = "" msg4 = "" msg5 = "" msg6 = "" msg7 = "" msg8 = "" msg9 = " (c) 2023 iroirotei" vpage(0) cls wipe() /* /* 낢S /* vpage(0) vpage(1) home(0,0,256) thome(0,32) apic_load("IROIRO.PIC", 64, 96) /* symbol(0, 16, " [EPILOGUE]", 1, 1, 1, 65502, 0) symbol(0, 36, msg1, 1, 1, 1, 65534, 0) symbol(0, 56, msg2, 1, 1, 1, 65534, 0) symbol(0, 76, msg3, 1, 1, 1, 65534, 0) symbol(0,106, msg4, 1, 1, 1, 65534, 0) symbol(0,126, msg5, 1, 1, 1, 65534, 0) symbol(0,156, msg6, 1, 1, 1, 65534, 0) symbol(0,176, msg7, 1, 1, 1, 65534, 0) symbol(0,206, msg8, 1, 1, 1, 65534, 0) symbol(0,226, msg9, 1, 1, 1, 65534, 0) /* vpage(1) /* tx = 0 : ty = 32 /* color 2 locate 10,1 : print "PRESENTED BY" color 3 /* for lc1 = 0 to 127 if lc1 > 95 then { ty = ty - 1 } v_disp(0) home(0,0,256 + lc1 * 2) thome(tx, ty) next /* home(0,0,0) thome(0,0) /* execcmd(CMD_MUSIC, "fadeout", "") strig1o = strig(1) for lc1 = 0 to 359 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* endfunc /* /* LO\l[Gg[ func ranking_screen(ranksc, rankname;str) int lc1 = 0 /* [vJE^ int lc2 = 0 /* [vJE^ str timenow[8] /* str timenow_o[8] /* () int timecnt = 40 /* ^C}[ str timestr[3] /* ^C}[\ int timerefresh = 0 /* ^C}[XVtO int timecol = 0 /* ^C}[ int timerow = 0 /* ^C}[s int stick1 = 0 /* XeBbN1 int stick1o = 0 /* XeBbN1() int stick1press = 0 /* XeBbN1(vXJEg) int stick1pressmax = 6 /* XeBbN1(vXJEgő X-BASIC) int stick1pressmax2 = 12 /* XeBbN1(vXJEgő ؂-BASIC,RpC) int strig1 = 0 /* gK1 int strig1o = 0 /* gK1() int ranklists = 5 /* LO str rankstrlin[256] = "" /* LO\s str namechrlst[32] = ". ABCDEFGHIJKLMNOPQRSTUVWXYZ" /* l[Xg int namechrlstnum = 0 /* l[Xg int namechrlstpos = 1 /* l[Xgʒu int namechrselrefresh = 0 /* l[IXVtO int namechrentrefresh = 0 /* l[mXVtO int titlecol = 13 /* ^Cg int titlerow = 3 /* ^Cgs int ranktitlecol = 4 /* LO^Cg int ranktitlerow = 6 /* LO^Cgs int rankstartcol = 6 /* LOJn int rankstartrow = 8 /* LOJns int entrystartcol = 22 /* Gg[Jn int entrystartrow = 8 /* Gg[Jns int entryrow = 0 /* Gg[\s int entryrank = 0 /* Gg[N int entrynamepos = 1 /* l[͈ʒu int entrynamemaxlen = 5 /* l[(ő) str entryname[5] /* l[͕ namechrlstnum = len(namechrlst) /* /* ^C[hɂvXJEg̒` if Gruntimemd = 1 then stick1pressmax = stick1pressmax2 /* /* VXRAGg[ɊY邩̃`FbN if ranksc > 0 then { /* N^Cݒ肳ĂꍇA`FbN for lc1 = 1 to ranklists if ranksc >= Granksc(lc1) then { /* VXRAGg[ɊYꍇ for lc2 = 0 to 4 - lc1 /* LOf[^ړ Granksc(ranklists - lc2) = Granksc(ranklists - lc2 - 1) Grankname(ranklists - lc2) = Grankname(ranklists - lc2 - 1) next Granksc(lc1) = ranksc /* VXRAGg[ Grankname(lc1) = "" entryrank = lc1 /* VXRÃGg[N break } next } /* ^Cg\ locate titlecol, titlerow : color 1 : print "BEST " + itoa(ranklists) : color 3 /* /* LO^Cg\ locate ranktitlecol, ranktitlerow : color 3 : print "RANK SCORE NAME" : color 3 /* /* LO\ for lc1 = 1 to ranklists rankstrlin = itoa(lc1) + " " + right$(" " +itoa(Granksc(lc1)), 10) + " " + Grankname(lc1) if lc1 = entryrank then color 2 else color 3 /* VXRÃGg[s̏ꍇA\FύX locate rankstartcol, rankstartrow + (lc1 - 1) : print rankstrlin next /* /* l[Gg[ entryrow = entrystartrow + (entryrank - 1) /* Gg[\s stick1o = stick(1) strig1o = strig(1) /* /* VXRAGg[ꂽꍇAl[Gg[ if entryrank <> 0 then { if entryrank = 1 then execcmd(CMD_MUSIC, "EDSED2FC", "") else execcmd(CMD_MUSIC, "EDSEDFC", "") namechrselrefresh = 1 /* while 1 stick1 = stick(1) strig1 = strig(1) timenow = time$ if timenow <> timenow_o then { /* ^C}[JEg_E if timecnt <> 0 then timecnt = timecnt - 1 else { entryname = entryname + mid$(namechrlst, namechrlstpos, 1)/*^C}[=0̏ꍇAl[m菈s namechrentrefresh = 1 } timestr = right$(" " + itoa(timecnt), 3) timerefresh = 1 timenow_o = timenow } if stick1 <> 0 and stick1 = stick1o then { /* XeBbNvXĂꍇ́AJEg stick1press = stick1press + 1 } if (stick1o = 0 and stick1 <> 0) or stick1press = stick1pressmax then { /* XeBbNꂽAvXJEgő̏ꍇAl[Is switch stick1 case 4 /* if namechrlstpos <> 1 then namechrlstpos = namechrlstpos - 1 else namechrlstpos = namechrlstnum namechrselrefresh = 1 break case 6 /* E if namechrlstpos <> namechrlstnum then namechrlstpos = namechrlstpos + 1 else namechrlstpos = 1 namechrselrefresh = 1 break endswitch stick1o = stick1 stick1press = 0 } else { stick1o = stick1 } if strig1o = 0 and strig1 <> 0 then { /* gK[ꂽꍇAl[m菈s entryname = entryname + mid$(namechrlst, namechrlstpos, 1) namechrentrefresh = 1 strig1o = strig1 } else { strig1o = strig1 } /* v_disp(0) /* /* l[I̕\ if namechrselrefresh = 1 then { locate entrystartcol + (entrynamepos - 1) , entryrow color 1 : print mid$(namechrlst, namechrlstpos, 1) : color 3 namechrselrefresh = 0 } /* l[m̕\ if namechrentrefresh = 1 then { locate entrystartcol + (entrynamepos - 1) , entryrow color 2 : print mid$(namechrlst, namechrlstpos, 1) : color 3 /* m\ entrynamepos = entrynamepos + 1 if (entrynamepos > entrynamemaxlen) or timecnt = 0 then break /* ő啶𒴂or^C}[=0̏ꍇ́A𔲂 namechrlstpos = 1 locate entrystartcol + (entrynamepos - 1) , entryrow color 1 : print mid$(namechrlst, namechrlstpos, 1) : color 3 /* ̕I\ namechrentrefresh = 0 } /* /* ^C}[\ if timerefresh = 1 then { locate timecol, timerow color 3 : print timestr timerefresh = 0 } endwhile /* execcmd(CMD_MUSIC, "fadeout", "") Grankname(entryrank) = entryname /* l[m /* strig1o = strig(1) for lc1 = 0 to 179 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next /* /* VXRAGg[ȂꍇALO\݂̂ŃEFCg } else { strig1o = strig(1) for lc1 = 0 to 179 strig1 = strig(1) if strig1o = 0 and strig1 <> 0 then break v_disp(0) strig1o = strig1 next } /* endfunc ZmuSiC ESCAPE die SUCCESS Class Room Composed by @arx_uho""  ""  "" "" <.? wr ( ;G;G;G;;G;;;G;G;G;;G;;=I=I=I==I===I=I=I==I== ߠ( 0*B0*B0*B0*B0*B0*B0*B0*B0*D0*D0*D0*D0*D0*D0*D0*D ʠ /6/6/6/6/6/6/6/61818181818181818 ZmuSiC ESCAPE die SUCCESS Class Room Ver.2 Composed by @arx_uho""  ""  "" "" <.?| ( 0*G$ G0*F$G K0*I$G0G F$G F`F D B$D 0*G$ G0*F$G K0*I$G0G F$G F`F D B$D L$ K0*I$GF0* F0*G0*I0*N$ L0*K$IG~G I$K L$ K0*I$GF0* F0*G0*I0*GGGGG$G G$F0*F G$I 0*G$ G0*F$G K0*I$G0G F$G F`F D B$D 0*G$ G0*F$G K0*I$G0G F$G F`F D B$D 0*P$ R$ S$ R$ P$ N$ L0*K$ K$ N$KP~B D$F G`G G I$K F`F F G$I GG (0*;$ 0*;$ ;$; ;$:0*: ;$= 0*;0*;0*;0*;0*80*80*80*80*;0*;0*;0*;0*80*80*80*80*40*40*60*60*;0*;0*80*80*40*40*60*60*;0*;0*;0*;0*80*80*80*80*;0*;0*;0*;0*80*80*80*80*40*40*60*60*;0*;0*80*80*40*40*60*60*;0*;0*;0*; ʠ;/;/;$$8 ;$$:`` ;/;/;/; ;/;;8,8,8,8 8,88;/;/;/; ;/;;8,8,8,8 8,884(4(6*6*;/;/8,8,4(4(6*6 6*66;/;/;$$8 ;$$:`` ;/;/;/; ;/;;8,8,8,8 8,88;/;/;/; ;/;;8,8,8,8 8,884(4(6*6*;/;/8,8,4(4(6*6*;/;/;/;/ 0$$0$$$$ $$$$$$ $$$$$$ $$$$$$$$e$$$$$$    0$$0$$$$$$$$$$ $$$$$$ $$$$$$$$e$$$$$$$$$$$$$$$ ZmuSiC VśulŁv 쎌:xcǎq 쎌:{A :cOq :H琡u MML Coded by @arx_uho""  ""  "" "" <.?vx (GH?JL0*O0*NH?JLH?S0*QOL0*Q0*O0*NJL`TLH?NOQNJL G0*GJLONJLS0*SSQ0*QQVSQOS`TQ0*QQO0*OONONJG`TG0*GJLLSS0*QSQ0*ONOSH?SQ0*OQSH?SX0*VTI XVS0*VQSGH?JL0*O0*NH?JLH?S0*QOL0*Q0*O0*NJL`TLH?NOQNJL (@H?CE0*G0*GH?CE0*L N O Q L0*JGE0*J0*G0*GCE`T LH?NOQNJL @0*@CEGGCEL0*LLJ0*JJOLJGL`TJ0*JJG0*GGGGGC@`T@0*@CEELL0*TVT0*SQSLH?LJ0*GJLH?LQ0*OTI QOL0*OJL`TK`T@H?CE0*G0*GH?CE0*L N O Q L0*JGE0*J0*G0*GCE`T LH?NOQNJL ʠ7`T;0*B0*>`T@H?@>0*>0*@`T;H?>0*>0*@ 7`T;0*>0*@C`T>`TC`TC`T@`T@`T@0*;0*7`T7H?;0*C0*0*;0*;0*;0*;C`T>`TCH?E0*ETI E0*C0*C0*C`TB`T7`T;0*B0*>`T@H?@>0*>0*@`T;H?>0*>0*@ ZmuSiC ESCAPE die SUCCESS ENDING1 Composed by @arx_uho""  ""  "" "" <.?c ( GHHBB00B D G I LHHK I K00G00D`DFGIGHHF D F``GHHBB00B D G I LHHK I K00G00I00D00GFDFGGHHBB00B D G I LHHK I K00G00D`DFGIGHHF D F``GHHBB00B D G I LHHK I K00G00I00D00GFDFGK$$K K``I00I$$I I``K00K$$K I00I$$I IKLMN`NNMLGHHBB00B D G I LHHK I K00G00D`DFGIGHHF D F``GHHBB00B D G I LHHK I K00G00I00D00GFDFGGHHBB00B D G I LHHK I K00G00D`DFGIGHHF D F``GHHBB00B D G I LHHK I K00G00I00D00GFDFG00;; ; ;0000 ߠ( KHHGG``PHHP N P00K00G`GIKLK``I``KHHGG``PHHP N P00K00N``L``NKHHGG``PHHP N P00K00G`GIKLK``I``KHHGG``PHHP N P00K00N``L``NP$$P P``N00N$$N N``P00P$$P N00N$$N NOPQS`SSRQKHHGG``PHHP N P00K00G`GIKLK``I``KHHGG``PHHP N P00K00N``L``NKHHGG``PHHP N P00K00G`GIKLK``I``KHHGG``PHHP N P00K00N``L``N00BB B B0000 ʠ 10$:0$;0$60$@0$@0$?0$?0$=0$=0$=0$80$;0$;0$:0$60$10$:0$;0$60$@0$@0$?0$?0$=0$80$;0$80$;0$60$/0$0$10$:0$;0$60$@0$@0$?0$?0$=0$=0$=0$80$;0$;0$:0$60$10$:0$;0$60$@0$@0$?0$?0$=0$80$;0$80$;0$60$/0$0$?0$?0$=0$=0$=0$=0$?0$?0$=0$=0$=;:860$60$668:10$:0$;0$60$@0$@0$?0$?0$=0$=0$=0$80$;0$;0$:0$60$10$:0$;0$60$@0$@0$?0$?0$=0$80$;0$80$;0$60$/0$0$10$:0$;0$60$@0$@0$?0$?0$=0$=0$=0$80$;0$;0$:0$60$10$:0$;0$60$@0$@0$?0$?0$=0$80$;0$80$;0$;; ; ;0$0$ ZmuSiC ESCAPE die SUCCESS uE}[`v The Great Escape March Short ver. ȁFElmer Bernstein ҋ:Johnnie Vinson MML Coded by @arx_uho""  ""  "" "" <.?x (? B H?B K$I G D ~ I I$ G F$B B I G~0* ߠ(F F H?F N$N K K ~ N N$ K K$F F N K~0*ʠ;060;060@0;0@0;0=080B0:0;060;00       TZmuSiC ESCAPE die SUCCESS Failure Composed by @arx_uho""  ""  "" "" <.?@QUx (C>;72/+& ߠ(ʠZmuSiC ESCAPE die SUCCESS Iroirotei Credit Theme (from SHINING STAR) Composed by @arx_uho""  ""  "" "" <.?O (N`NGKLN0*L0*K0*G0*IIߠ(GH?S0*H?S0*Q0*P0*L0*NM N Pʠ;;0$90$80$40$65ZmuSiC ESCAPE die SUCCESS Tell-tale Composed by @arx_uho""  ""  "" "" <.?arvqn (GG B D B JG D C A B ;$UT ߠ(ʠZmuSiC ESCAPE die SUCCESS GAME OVER Composed by @arx_uho""  ""  "" "" <.?R{ (?0*? ? =$ :=? = ?`?ߠ(C`HA0$A0$C C C`Cʠ3`H10$.0$3 3 3`3ZmuSiC ESCAPE die SUCCESS Round Clear Composed by @arx_uho""  ""  "" "" <.?| (B D F G~G @ G H A H J H J Lߠ(GGGB~CCCEEEGGGGʠ;H?6H?/H?6H?7H?9H?;ZmuSiC ESCAPE die SUCCESS Round Start Composed by @arx_uho""  ""  "" "" <.? (E0*E$E E J L Q O0*N0*L0*J0*E0*E$E Q O N J Lߠ(@`T@`T@`T@EGE@`TL0*I0*Gʠ9`T9`T9`T94949`T<0*<0*9ZmuSiC ESCAPE die SUCCESS Scolded Composed by @arx_uho""  ""  "" "" <.?Ximhx (B; 6 4 0*; 6 ; = B B B B = ߠʠZmuSiC ESCAPE die SUCCESS The journey continues (from SHINING STAR) Composed by @arx_uho""  ""  "" "" <.?X ( ;HH6HHB`B$$ B$$@$$? =HH8 88HH;HH6HHB`B$$ B$$@$$? =@6 = BB$$ B00?00;00=6 6 BB$$ B00?00;00=B =?@00@ @00@$$?$$= ?B=?@00@ @00@$$?$$= ?? =?@00@ @00@$$?$$= ?B=?@00@ @00@$$?$$= ;; ߠ( BH?BH?G`G$ G$G$F DH?@ @@H?BH?BH?G`G$ G$G$F DG GG$ G0*G0*G0*D= = GG$ G0*G0*G0*DI B~DE0*E E0*E$D$B GKB~DE0*E E0*E$D$B GG B~DE0*E E0*E$D$B GKB~DE0*E E0*E$D$B BB ʠ /;/;/;/;/;/;/;/;1=1=1=1=*6*6*68:/;/;/;/;/;/;/;/;1=1=1=1=4@4@4@4@6B6B6B6B6B6B6B6B1=1=1=1=*6*6*68:6B6B6B6B6B6B6B6B1=1=1=1=6B6B6B6B1=1=1=1=4@4@4@4@3?3?3?3?6B6B6B6B1=1=1=1=4@4@4@4@3?3?3?3?3?3?3?3?1=1=1=1=4@4@4@4@3?3?3?3?6B6B6B6B1=1=1=1=4@4@4@4@/;/;/;/;/;/;/;/;                                                                               ZmuSiC ESCAPE die SUCCESS The story of a SHINING STAR Short ver. (from SHINING STAR) Composed by @arx_uho""  ""  "" "" <.?.E~  I KM KNMK KNMK H IKI KM KNPR NPNM N MKI KM KNMK KNMK H IKI KM KNPR NPNM N MKI`I`I`I``I`I`I`I`` ߠ D FI I HF I HF D DF D FI I KM K IH I HF D FI I HF I HF D DF D FI I KM K IH I HF D``:=@=BF@FFI@I:=@==B@BBF@FFI@I ʠ 8`T=`T=`T8`T8`T=`T?`T8`T8`T=`T=`T8`T8`T=`T?`T8`T8`8`8`8`T8`8`8`8`T ZmuSiC REAL DUNGEON TITLE Composed by @arx_uho""  ""  "" "" <.?TO ( ;0066`6;00;00=00B``B@?@``;00=00>0077`7;00;00=00;``;:8:``;00=00>0077`7B00@00>00@HHEHH@>00=00>007700>00@00==00@00B`BHH@?;0066`6;00;00=00B``B@?@``;00=00>0077`7;00;00=00;``;:8:``;00=00>$$= ;HH= > @$$> =HH> @ B@?; = >$$= ;HH= > @$$> =HH> @ BB ߠ( B0B ;; B`TB0*I`I I0*FG`TB`TGG$ B`TB0*BA`TA0*A0*BB$ G`TG0*GH?LH?G~E0*E0*C0C CH?C0*E0*EH?E0*GGGB0B ;; B`TB0*I`I I0*FG`TB`TGG$ B`TB0*BA`TA0*A0*BEEGGGGBEEGGG ʠ /; ; /; ; /; ; /; ; /; ; /; ; /; ; /; ; 6B B 6B B 6B B 6B B 4@ @ 4@ @ 4@ @ 4@ @ 7C C 7C C 7C C 7C C 7C C 7C C 7C C 7C C /; ; /; ; /; ; /; ; 1= = 1= = 1= = 1= = 2> > 2> > 2> > 2> > 2> > 2> > 2> > 2> > 4@ @ 4@ @ 4@ @ 4@ @ 4@ @ 4@ @ 4@ @ 4@ @ 2> > 2> > 2> > 2> > 4@ @ 4@ @ 4@ @ 4@ @ ;G G ;G G ;G G ;G G ;G G ;G G ;G G ;G G /; ; /; ; /; ; /; ; /; ; /; ; /; ; /; ; 6B B 6B B 6B B 6B B 4@ @ 4@ @ 4@ @ 4@ @ 7C C 7C C 7C C 7C C 7C C 7C C 7C C 7C C /; ; /; ; /; ; /; ; 1= = 1= = 1= = 1= = /; ; /; ; /; ; /; ; 6B B 6B B 6B B 6B B ;G G ;G G ;G G ;G G ;G G ;G G ;G G ;G G /; ; /; ; /; ; /; ; 6B B 6B B 6B B 6B B ;G G ;G G ;G G ;G G ;G G ;G G ;G G ;G G  $0$0$$0$0$0$$0$0$0$$$$$$0$0$$0$0$$0$0$$$$$$0$0$$0$0$0$$0$0$0$$$$$$0$0$$0$0$$0$0$$$$$