` MMKsĂ܂B NVH*.HxN(XOrfav&n XK` /aVXORl/Hz/9cxNtO HxNXOJ9c|f/NXOrf/aXOHxNN /GN/N yo!@/N/ yo/(/N yo0cn1ycp1ycv/NO Nl 9c|f| yo0cn1ycp09cnycrS@1@09cpyctS@1@1ycv/N :XOJf yo/( /(/N lO ` Hz~NXONlNlL8N^NuH&oHxN(@& XO /g -g #cx`PRK sg Sfc|RK /o 9n` ,gaB(C/ N3cnRKXO /o 9n` ,gavB(C/ N3cpRKXO /o 9n` ,gaFB(C/ NҐycnR@3crRKXO /o 9n`B(C/ NҐycpR@3ctXO`n lg Lf`B9c|RK /o 9n` ,gaB(C/ N3cnRKXO /o 9n`B(C/ N3cpXO` pg Pf3cvRK 9n /o 0fycv 9n /o 0fycv 9n /o 0fycv 9n /o 0fycv 9nj /ob 0fycv 9nL /oD 0fycv 9n. /o& 0fycv 9n /o 0fycv 9n /o 0fycv 9n /o 0fycv 9n /o 0fycv 9n /o 0fycv 9nz /ot 0fycv 9n` /oZ 0fycv 9nF /o@ 0fycv 9n, /o& 0f ycv` ?g Hg hfaLNul`fǂ` 摜kAWJvO Ver1.00 Programmed by.-= fsm =- gp@Fmm [option] filename.MMK optiinF-sx1,y1,x2,y2 w肳ꂽ͈͂̉摜Z[u܂B (x1,y1)W (x2,y2)EW -lx1,y1 IɎw肳ꂽWɉ摜[h܂B (x1,y1)W -p00011... pbgX^CwBbit15,14,13... rŐ؂ƁAȍ~͑SĂP / Hz"GNHzMNHzgNHzNHzNHzNHz0NHzSNO HzNNlXO&_Nut@CI[vł܂B[%s] //HzNHxNNuWw肪܂B HzNHxNNu`#HUPAIR#LIBCV1Ol/N> /P/@rer /A`pЯ/@r/@//Nf @XOf //N @XOfr#pTp`0Ho/NT @PO"/w /"w! XNu/ $o&o o"JB .fRJfJg .fRf.Jf`Jf.JfB&_Nu$_"O .INNuNVHn/.Nrfp` .N^Nu"/pNONupNONurbNV/Hz/.N&POfp`6/Hx/./. NOrg /Np` /NpXO&.N^NuwbNV/Hz/.N&POfp`6/Hx/./. NOrg /Np` /NpXO&.N^NuH&/&o*//N( DrXO`0R lR‰nHzl/N&POfp`:/Hx//NOJf/NpXO`/N 6/NpPOL8NuNVH(n (./N&&CHz/.N*@/- N Ofp`\e / Hx/`/ Hx//NOJf/ NpXO`(r`8R lR‰n/N 6/ NpPOL8N^NuNVHAC $H XJ$$$$$$$AC $H XJ$$$$$$$B-nHx/.aHxar&n:+=S=k6+SRC4+k=BRn0HlV=@0|O gRnP/.N,*F:TM::::t ծBXO | :TRtl-MXMXB6n-K$ Ԃ-B6n-K`l .Юt м(n~`@0tt |0t|0|0tȂBv Ю-@$nzڎC&n" mz E&J mlҁ-A"t A0P t tfDҮ A0P f, A0P f A0Ppf-C`TTIRtll$.m0P& *././N ,POg*Fچ-E/ /.aPOJgTMTR0nnR0nn$.m0P& *././N ,POg(*Fچ-EHxHxa0POJgTMTHxHxa$ &n&XBPO0.H(؄`4.&nG t м(D~`/.aXOJff$.m.P& *././N ,POgx*Fچ-E/ 6\/ a/ 6\/ az/ 6\/ ar/ 6\/ ajTMTO `PLHxaXOJfTR0nnnR0nn=X Sg=S kg8+60k6g3 `THg3 `THg3 `THg3 `THg3 `THg3 `THg3 `THJl3 `THg3 `TH g3 `TH g3 `TH g3 `TH g3 `TH g3 `THg3 `THJCl3 `TH$+ԐXH0HlV20|gRA(H$Bf0.HЀ2H| Ҽ"@<QF=Fx0G Szʀ,܆*F`|otvG`Jg  I2222`, B@2B@|2 B@2B@|2TKTJp|g I2222`, B@2B@|2 B@2B@|2TKTJRLP0nnbrJg  I2222`. B@2B@|2* B@2B@*|2TJp|g4 I|bp<;N`3h3h3h2`J|bB<;N`0$B@*|3@* B@3@B@|3@ B@2TJRLC, |"F0.HЀR0nnT`0.HЀ2H| Ҽ"@<QF=Fx0G Szʀ,܆*F`|otvG`Jg  I2222`, B@2B@|2 B@2B@|2TKTJp|g I2222`, B@2B@|2 B@2B@|2TKTJRLP0nnbrJg6  I|bp<;N`3h3h3h2`J|bB<;N`0$B@*|3@* B@3@B@|3@ B@2TJC, |"F0.HЀ0nSHgb|otvG`p|g I2222`, B@2B@|2 B@2B@|2TKTJRLJg  I2222`, B@2B@|2 B@2B@|2TKTJP0nnbp|g4 I|bp<;N`3h3h3h2`J|bB<;N`0$B@*|3@* B@3@B@|3@ B@2TJRLC, |"F0.HЀT0nn@L8N^NuNVH&9oS &@o` SNYKSJlJpXgN"/.N""LN^NuHyмHo // N(O Nu optg6  g  g +g -ft 0e :dA@@HA`JgD@Nu?/LNulibc: setblock failed. NV/ .#ltԀ B#lм#l#$m# l#(m (R#Ќ/9m/N/L#Ј/9ЌN/йmtЂt#m #Д/9m//9Ј/9lN0#ЈRйm tЂt#m"@ yl PXHO`fJfBpЉt#m"@#Є#А ym`"JfJft"pЉt#mйdDtЂt#mйdHtЂt#m yl#m".ym 9l$9m//JPOJl&<<Hzj XO?LN1pNO#N2dLN3"N3N3N39[gHx #m&XO9[g9dLN4nt#pTJpXgN"/9А/9Д/9ЈN /Nl&.N^Nu"/ ypPg:c 9pLg,"h h`b `b ` h"iQB@SdpNuH&/ &ypHf&ymXK'| Ѓ"9mYJo/N4pXOJlp`A8#pH  LNuUnknown errorNo errorDomain errorResult too largeArg list too longPermission deniedResource temporarily unavailableBad file descriptorResource busyNo child processResource deadlock would occurFile existsInvalid addressFile too largeInterrupted function callInvalid argumentInput/output errorIs a directoryToo many symbolic linksToo many open filesToo many linksFilename too longToo many files open in systemNo such deviceNo such file or directoryExec format errorNo locks availableNot enough spaceNo space left on a deviceBlock device requiredFunction not implementedNot a directoryDirectory not emptyInappropriate I/O controlNo such device or addressOperation not permittedBroken pipeRead only file systemInvalid seekNo such processText file busyImproper linkRead only device file systemH&o(o"& tm/ N4( XO` &'C LNu ////HxN:^O NuNV/ N;6&@f r#pTp`BHx/. / N;dO JmHx//.NA8Jf ֐/N4XOJ+f +"Ҁ'8 K `'8&/ NBXOLNuNVHv?</8. ?B*PO?</?B&POBg/?BPOJl/NB#pTp` L8N^NuH*/"/Jf/NXO`&EYK wg t #pTp`v&Ƽ Qb `bC8Jf((QA8b/ N4֌ w&'8 XO`2/N(XOg""D E U`"QB@Sd/N 6XO L8NuL "/ oSQBASdNuH6/8/&yl` [f[f[f[f[f [f KXK PNmeLNuHxC+HxJaPONuHxC-HxJaPONuNVHNBNC\N3&9p\S &@p`` SNYKSJlJdgNCJhgNC?. LLN^NuNVH,... (n*n Gltgmtg `&tg`t-B*`t-Bz`t-Bz`B*.Jg.gJgH 5r .lF////NCO,.tv////ND@Otf`r lF////NDO(*SKr lF////NEXOD,.tv////ND@Otf`@(Jg 5$.f`&/ /N?(PO&/ /N=POD5(fpЋ$<l n L8N^NuNVH&.*.(n(. tfv&DHnHn//. /.NFZ @rJo` .SJnR`0Jng.r`fR` SJn`0 SJnJg(g"ft(` #0fRe .fSKRK"n" L8N^Nu0123456789abcdefNVH(n(.*n&.$zf8|&CHnHnHl/. /.NF. @$.SRKOng.`fRL` SLn`0 SLng"fz*` #0fRe .fSKRK#JlD-`+z m0Hz,HnHx Hx/r lF//a @` .SJn"n" L88N^NuNVH,... (n*n*.&n(. &r-ArfvHnHn///NF. .SOrnnJfJgS//Hn/ ///a`JoS/Hk/Hn/ ///a^Jo". L8N^NuNVH(.&n *.(n*n . gR gR" gT.l,.`,p`f&`/Hx NFPORng// `B g@/Hx0IFNPOJl /HxxN` g/HxX`  g/HxbNFPOp`t@f&`/Hx0NFPORn&`/Hx0NFPORm&. `/HH/NFPO SJng&`/Hx NFPORn켍l ` L8N^Nu0123456789ABCDEF(null)(NaN)(Infinity)NVH&n (n~&ּ-C`v%g/./NFRPOH0@fSLf/.NFJg6p`x-Dv-C*DRLHHvxbЀ6;N0xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxx$x\x,xxxxxxxxxxpxpxxxTxxxxxxxx,xxx,xxxxxxx pppDxxLxxx x0xx/.NFJgp` `f:| `v`:|+`v-gJnv@`v`v`v `RL *f"`,rz yf` ЁЀH"@C" 0XfSL-A`L *f-[l>Dv `2rz yf ЁЀH"@C" 0Xf-ASL`fg [0` [ `g "`g XKp0+*`* r*,g tv////ND@Ovg|Hz/.Hx/.///az*/././.Hx`vfv-Cg "`g XKp0+*`* r*,g tv////ND@Ovg|HzP/.Hx/.///a*/././.Hx`g "`g XKp0+*`* r*,g tv////ND@Ovg|Hz/.Hx/.///ap*/././.Hx`g "`g XKp0+*`* r*,g tv////ND@Ovg|HzT/.Hx/.///a*/././.Hx`XKkHx/./.Hx/Hn`>vg "`g XKp0+*`* rHz/.Hx /.///ax*/././.Hx`vg "`gXK0k` [r lF*,tv////ND"Ovo//NFPO*,:|-HzN/.Hx /.///a*/./././ ///.aހO8`p*f*<(Jl /N/XO` /.Hx/NFO Jg` .-@///.Hx`*,HxHx//NHfOJl//NIPO*,:|-//NIPOJg*<( `//NI@POJg*<(v-C`R ffHn/.Hx//.//aj`T eg Ef*HnHH//.Hx//.//a*O `$HnHH//./Hn//a*O/./././ ///.aހO`/.HH/NFRPORL`L8N^Nu#HUPAIRH&o(oxvHxHzHkNIbO JW„#`RK  gJf^BBp`dJft\f 'g "f`8Jgf.v`,t'gt"f&`t fB`RK  gJgR`HHfBB LNu or҈Jf NuH(o*/ *o$&o(vJg*/9ЌN/ @ЌHhHym*NIO `DHlpHym*NIHlHym*NIHym*N/SAm*O 0.fB0 +m*RxI` -f ++f| +-ft hf +:fHkNI#dHXO`\ sf +:fHkNI#dDXO`: pf rX`* ff rX` gf r#pX` +RRLJfRn^ r+ L88Nulibc: this version of human68k is not supported. NV/0n&<<Hz XO?Ln"Hx XO0|@!PXHcJo/ &.N^NuNVpNOjмN^NuHp#mLNsNVHr#mHy2v?%\O@/?% gp` 9mLN^NuNV/Jg aJgv`v?<Hn/<O Jf NIr &.N^NuNV"| pNOrb@Ѐ2;N Hx`HxadM` "| pNOJg dM`dM9dMHHN^Nulimit_coreNVA$ !|"9m"m!A!ydDHzNJXOJg /NI`pAD "9m"l!Ar`!A < "@ @XHpr0"PIPHPlN^NuNuNuHvIp(<dNGdb///NJhr(O IXRrlLNuHv <Иr Ҁ(A&@PK(<И/NKXOJgAd  0`p/ мdv//N;dk(O I$G$r$؁RrlLNuJSTNu/ /&9mJgйm/NK0XOJlp` &Nu o"hf p#pP`pPf#pP h!I#HSpLNuxrNVH*.&n (np,/NK'@,<xXO<fkI /aXOJg|Ip0,H@B@r2,&"|t ԁ ЀЂ瀐瀐Ѐ$BBHBxȂAd$а( @ B@H@|A $Ԁ|†f|mS ЀЂ"| |†Ё"遒 |?Ҁ 逐rƒҁЁмp'@,'@('@$'l |'F'F|'F '| /.NL'@p,/NLHH&POJf/ / /aO `km |'FpLxN^NuNV H&n(. Hxv֎//NOO Jo C` DJg& (:f (/fJ(fHx/ /a`Bg/=(\OmvHx *Hx`&ּ ?TO//N!OJo/ XO ."&'@?>t'B 'B'B'B,'B('B$t'B '|!.! pJf t#pTp`pL8N^NuNV/ .&n Jg"/NL'@&t'B'B '|Am`f/NLRXOHn?2\OJl/NB#pTp`Vp.'@&p.H@B@r2.'@p0.'@ '|At'B'B'B,'B('B$t'B p&nN^NuH&/Hx//NP(POg:Hx./NP&POg(Rd"Gd`//NPPOJfp`XKJfpLNuNVH*.(. &.NQd @f?//`8&hXHx "H? D//,ONO L&XOJo/ L8N^Nu/*.*NV*H&.&n (n +@gHx/ NM2'@lBp`>Hnp,/NLP +POf м?<//O `HxHn/aO Jl/NB#pTp`HzL/&ּ*/NIPO/NIHx/HnNQOJll,.g4p./NLHH&p0.'@ p.H@B@r2.`Lt" м A`ԨPHJfp0.r.//N='@ H@B@".¼'@pLN^NuNVH&. (./HnJNIHx/HnNR>OJfp`.H0@HhNL&XOJ.g$ .:f ./fJ.f//Hnap`TJgHxHnHnNQO `?<HnHnNO Jl Hn/a<`/HnJHn/HnaLN^Nu"<ИAИPHpJf `t$҂A$Ђ \opNuH&o"o*/<rgn<ag`><wg`6v`@vh`t #pT`.gHxHn?@O J.l/. /NRPOJmHx/HnNR>O Jg/. /HnNJhJm LvN^NuL HAof Nu"/ C$&HCH@CHAAH@&NuH(o, f ,rfzl pgTOJlb/NB#pTp`X (ؼp|?TOJl/NB#pT `"Jm?".C|.A`09dLg////a4`////aO$ LNuL$g@NuAr0||f(<<fr NuAr fJfr NuL$ oSprgVfBBSd쐁NupNuL fNuL JfSHfNu optg8  g  g +g -ft 0e :dЀҀЁ`JgDNuHx 3XOJo/ XONuH(//N/&&yЄXO`(///NIbO Jf S 0=8f ГR`XKJfpLNuNVH&. &@pHxHx/ NZLO ?BgDXO'@Hx (Hx`?TO/HkN!OJo/ XOr&r'A'n"+¼'A /.HktNIpLN^NuAp /J gr° gp` r #pTpNuNV/&.ּ| 9mй0meb r#pTp`< ylg( 9l"//JPOJl/NB#pTp`#mp&.N^Nu/$/g <$` <JlIggg"pxv`f|I`g|@I`| &NuNV n (:fp ygr0t҂`Hn/)r. N^NuNVH&.Hx ( x8Hx Ѓ瀐Ѐ/0F/. N!OJo/ XOLN^NuH/6|~Hx $BXOH0Crp3gR<cJo/ XOHHLNuNV>H(ؼ>Hn6. ?2\OJlrf/Bg??< D .?fp`pL6N^NuNVHHnp n(/aPOp.R~ R~*p n(/a*H<H<AG|:B.XOHnHnBg(O n/`r~`fHn?<\OJmZ R n"(&ּHx/?./O~`f>Hx//NR>O ?<`/Hn?<O Jl/NB#pTp` n hfHnHh)POvKxN؍`X  E 0gHHxHmC&E/ IIbNO Jf*HxHmKHkNO JfHx /Hk NO Jg2Rp.r ᩲb` ~ g ~#pTp`tv n6(  E=pB@.HBA.A=@f n(<x<fr` r2.`p0.r2.Ut.Ҁ H@B@¼L8N^NuNV/NQd @fp`2&(@Hx "H/. /. CNPL&XOJo/ XO &.N^NuNVH8.NQd @fp`2&( Hx "H?/. C,ON\L&XOJo/ XO LN^NuNVH&.(.?TOolp` B3/HnNZXO//. N[ LtN^Nu o/ pg f SfJf SNuL$yhprgg22gꐁNuH(/vrү&A/H0@*ڼ`: +f(/N///HsXNIbOJf & ּ`&Sf L8NuLNDR/Jff`r#fHx &HxHz/9lab @#oOg V g V030g V100fr#oJo/ XO 9o&NuNVH,.*. (.NQd @f ?//N`0&(DHx "H?// CNO L&XOJo/ LxN^Nu /"/$/ Hx///N]\ONu/$/ gp`pgvgvgvgv" Ig| fv` @fv fv &NuNVH(..g?<Hx?BPOJlf`&?<Hx?BPOJmRHxHn??O Jn/NB#pTp`. .f$v?</?BPOJl/NB#pT `pLN^NuNVH(.*. Ap &0g gp``/./??O Jl/NB#pTp`<f6 ECp"` fq `  f RHQB@Sd L8N^NuNVH*... Ap &0g gp`/./??O JmNfr&&G(GKp(,S`N@<fuH `D . f.Jf$Hx/??O Jl/NB#pTp`[SQBCSd L8N^NuNVH&.*n (.gx/NKXOJg0?BgDXOJmg// /ad`// /a`Ap 0 g// ??O Jl`Ap 0 gp`// ??O Jm^(&M(M.<`|<fCpqx `r< f^Jg  fTS`N?<r/?BPO*r/Hn??O Jl/NB#pTp`* . f.` Bg/?BPOQBDSdz L8N^NuHv Ѓ*ڼИ Ѓ"<ИP&@ Ѓ(Jg/N@XOJlvt$ڂG$؂ \o L8NuNVH(n(. *./ N^XOJlt`TJfp`Ap &0Jl// NRPOJlp`g&//? @(O l/`fgt#pTp`v,&DAx&*.޼  f RRRSJnzJfo4//? @O "oJl/NB#pTp` Ё` v GJg LN^NuNVH..&n ,.Ap J g p p`v?</8?B*PO?</?B(POrfڋ`rf*ڋ` Jgr`* Jlr`lx/N^XOJlr#pTp`HxHxHnNZLO ,ܼ`6 o <؀//?@O &l/NB#pTp`8n`0Bg/?B&POl/NB#pT `Ap p LN^NuNV/ ."&Ap?+??<D\OtfHktAXOHxHx/ NZLp&nN^Nu /mr_mAprgp`pNuNVH(.&n*.v֎//./ /. /.N_"C EO`Jf`0 SJl`  SJnBHH///N`ѓ L8N^NuNVH(.&n*.v֎//./ /. /.N_"C E$Ol Dm"`"`0 SJn|&"҂`Jf`0 SJl`  SJnBHH///N`ѓ LxN^NuL @JgLgSg@I0HA2d.pSk$HQJgSB "A$AH`Q /NupSk $HQ JSH &(*,"A$AH`QBBSdLx /Nu"/"Ap`  yl*0gRI` \f/RIJf NuL "/ oSWgBASdNuSkBQBASdNu://NVH(n*. / &ּ/NIHx//NP(RHxHzHlN`OJgHz/Na @POf / Na`// NI/ NaO G&ּ`h .f. (.f&J(f Jgg,Hx// NP @POd8B`4 .fJ(fJg$f |//HkNI/ / NIOHzHxNa @POfJ,f Hz/ NIL8N^NuNVH&n / NL<AA|:|/B.RXOHn?G\O /g \f/ Hn` +:f, +/g +\f/ HnNIPO`2|/Hk`|// GHkNI/ HnNIO&ּ/NZ/./a//.NILN^NuNVtH(n*./. Hn|NI-@t"Ҽ-AxvPO.Y(ؼ|,TGx/.tNLXOJm$<A@|:B./.x/BgO Jl/NB#pTp`rPg(mr@g `Fr`g`>//.t/.xatvO `,//.t/a`//.xNIAtO  &`r `$JgZ/.xNa/.xN/POe r#pTp`/.x/ NI/NZ LXN^Nu"/m*t_m$Ap JgAp tİ fp`pNuAC "¼ f"¼ f )NuNVH0.|H|6MkBtm$Ai /0/0/. /.Na`pAi"Cj`@"Dtm"Ah /0/0/. /.Na`@pAhCjGa/1/1/0/0NO/. /.//NO-@-A /. /./& S`/ /NcLPOJf H8@ff r#o` B+#o LNu / @"ygrgfNu"/"A Ap$yl*`"H2gJ)gRHRHJf /g \fd ):gB Nu _ "/NL$kgH@4||H@||?kJ|4kgx| b| C&6HCHC0&`\DB|gb" C&6HCHA2HA&`:2HAB@H@`0| gb2HA|HA2HAB@H@`"p` "p| ANup"Nup"NuNVHLAoBPBBp?x  QQ"nt f Q0`. f0Se 00QBLN^Nu o/ gg fJgpNuSH NuJafar1.1.32"+8I[m $5HWo!;Qjz (6+conconconauxprn !!B!rwwa+bw4h4lppp;Zx0N44   (" "%"&'  ((((( DDDDDDDDDDAAAAAABBBBBB e  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~f  !"#$%&'()*+,-./0123456789:;<=>?@abcdefghijklmnopqrstuvwxyz[\]^_`abcdefghijklmnopqrstuvwxyz{|}~gCv4WؠCmgNCX`=Dx@DKPDMՒD-JDxCyٝE *,(ET24EqE'/E1!F)>Y9F_#FnFȦ"FɜFЛ|G3BarMGhy GCWiG*HJH=c)\Hr]7Hx`HܲxIY}KIFkC\I|T3I'\I1sCv4WؠCAy7C k&4BּB0@BmB7HvB_ AeAׄAcA.@j@È@@@Y@$???zG{?PbM?6C->h>>z򚼯J>Ey0;>. &֖=|׽=yd=q-=<%hIv=+?FnM8O?SubسhZwH04a&%og$nqJRg?9I#ը52D@,^%[ό~{n{?nꄀmF6@@@@@@@@@@@@@@@@@@@@@@k)22      (** (  <8 * 4: $ $&" ,"`lz6  \ R    "*  B p., ",*H(2&:(2.v$ "0N*2 x"0vN~~T: >  > @H   * (  : $(nXhZ,"v 2 N &\D FL*F,~:<**> &(h2 $4 0 LN@.:"  Vx$NVX<\0  ,h&&2N>DD<(>JN>4^:j:  ,.@<<dz :2 `& (22L$ |  8    b@ cn_xcp_ycr_dxct_dycv_palstylecx_filenamec|_mode _main_help_end_an_comlinev_err_end1o_mmptr_err_end2__mainc~__libc_releasec__libc_versionllibstack_malloct_addex__dos_super_fsize__iocs_crtmod __iocs_g_clr_on _betaread l_betawrite _Wbetawrite P_Wbetaread :_mm_cmpD_flagout _flagread_mm_extl_exito__exitnumso__exitprcs_printf_atow__dos_exit2>__startf__ma_search__ma_newpH__ma_lptrpL__ma_fnumpP__ma_flistc_sys_errlistd@_sys_nerrpT_errnoT__ma_recycle_stat_fopen_fread_fclose_fwrite 6_free _filelength _realloc!_memcpypX__cplusplus"__ctors"__dtors""__exitp\__onexnumsp`__onexprcsp__pausep__fddbЄ_environЈ__argcЌ__comlineА__envpД__argvИ__iob(__doprntl__memcpl__procpl__pstal__bstam__dstam__cstam __vstam__estam__fstam__sstam__hstam__lastm"__mmaxl__PSPl__PSTAl__PENDl__BSTAm__BENDm__DSTAm__DENDm__SSTAm__SENDm__HSTAm__HENDm&__SSP/L__dehupair__hupair/_strlen0__enargvdD__stacksizedH__heapsize1__vectormove1_clock__inclockdL__havefpudM__ohavefpu2__iscopro3"__loadrlimits __limits3__siginit3__sigend3__finit3__sinitX__supermand_tznamed_timezoned_timezone_dstd_timezone_std4n_tzset\_daylight4p_sbrk4__ma_remove8__setinodedirsize:^__statsub;6__getemptyiob;d__sopend__fmode___divsi3?(___udivsi3@_fflushA8_closeA__scloseB__swriteB__ma_addB__errcnvB_fcloseallC\_closeallC___display_block_profiled__bluseC___display_function_profileh__fpuseC___lshrdi3D"___cmpdi2D@___ucmpdi2D___udivdi3D^___divdi3EX___umuldi3EX___muldi3F._ecvtFZ_fcvtF_fputcF_feoff__ctypeF___negdi2F_memchrG__f_cmpdf2Gn__fpu_cmpdf2H __fe_cmpdf2Hf___cmpdf2I___negdf2I_isnanI@_isinfIb_strncmpI_strcpyI_strcatI_atoiI_atol_STACK_SIZE_HEAP_SIZEI__fpuinitJ_getenvJh__openK_isattyK0_brkK__mode2unixL__getdrivenoLP__getdpbsrcL__phydrv2drvnoL__iscdromdriveM2__getinodeO__dos_readlinkP_strrchrP_stricmpP_strcmpiP_strcasecmpP__keeppr_searchQd__dos_importlnenvQ__dos_lfilesR>__fullpathR`__mode2dosR__seekeofT_readV,_flushallV_writeW_lseekX__closeY__appfdY4_econvertY_fconvertZL_memsetg__ctype_upperZ__toslash[_strncpyh__ctype_lower]\__pathexpand^__writable___dtos18`__roundl*__mbctype`_memcmpa_strtoka_strupra__dellastsepa___muldf3b___fixunsdfdib__ulltoacL_strchr"""N4HB4"""""""2N4HB4N4HB4N.6HC6(**,(C*C,C$NHp|Hp|Hp|Hp|Hp|Hp|Hp|Hp|Hp|Hp|Hp|Hp|Hp|Hp|Hp|Hp|N"""""""""""HUزQrhAZUSA_main: - `ytr` - Ver0.10 N܂B AZUSA_main:AZUSA_main %s n܂B AZUSA_main:ǂ񂾓eՂ悤ɕϊ܂B AZUSA_main:ϊIB AZUSA_main:ԂĂe\܂B %s AZUSA_main:VXeubN̍쐬Jn܂B AZUSA_main:VXeubN̍쐬I܂B AZUSA_main:HARUNA R[܂B AZUSA_main:HARUNA I܂B AZUSA_main:ɏI܂B / /"o rl. i -g /f i (dg (Df ^T`B9^Trl, i -g /f i (ng (NfB9^V`^VB9^V/aza$XOJ9^Tg HzNXOJ9^Tg/9^XHzNPOJ9^Tg HzNXO/9^XN&XOJ9^Tg HzNXOJ9^Tg HzNXOJ9^Tg/HzNPOJ9^Tg HzNXO/N(&XOJ9^Tg HzNXOJ9^Tg Hz7NXO/N XOJ9^Tg Hz=NXOHzUNHxHxHxNNO&Nu/ B9^\^^HxHxHxGNHxHxHyNHxNPNZN`OHxNj#^`HxHxHxNvHxNټ#^dHxHxNLNZB9^hB9^jO&_NuJ9^\g^^NsrtRtBOt@C̃I[vɎs܂B[%s] vOI܂B SCE_PATHGRP_PATHSTART_SCESCE_PATH=%s GRP_PATH=%s START_SCE=%s H&/ HxGټN*@( HxN(@* HxN,// N`OHH/N?XOJgT` .fBJgRM`.|C|N|FB-Hz/Nn&POf0/HzGNHzNHxHxHxNNOHxGټN#^XHxN#^lHxN#^pO (E/Hx/ NO Jg` %fHlHzN7rPOJg\HH/N?XOJgTL`  g  gRL`HH/N?XOJgTL`  g  fRL`/ /9^p`HlHzDN7rPOJgZHH/N?XOJgTL`  g  gRL`HH/N?XOJgTL`  g  fRL`/ /9^l`nHlHzN7rPOJgHH/N?XOJgTL`  g  gRL`HH/N?XOJgTL`  g  fRL`/ /9^XN`PO`(E/ GtN/NN*y^pPOHH/N?XOJgTM`  g  gJfB`RM`*y^lHH/N?XOJgTM`  g  gJfB`RM`*y^XHH/N?XOJgTM`  g  gJfB`RM`/9^pG^N @Hh/9^pIpN/9^lN @Hh/9^lN/9^XN @Hh/9^XNO$/9^XN@#^t/9^X/9^pN O J9^Vg/9^pHz1NPOJ9^Vg/9^lHz$NPOJ9^Vg/9^XHzNPOJ9^Vg /NNXO/NtXOL8xNumessagewaitselectgotolinkgosubdebugentrysetcalcifelseendifmagface_entryface_setfaceface_freeface_esetptn_entryptn_setptn_esetptnptn_freewin_openwin_drawwin_side_drawwin_closeselwin_entryselwin_freetpaletms_curonms_curoffloopendloopcutloopcontrastfilelinkt_clsg_clssaveloadkeep_paletfadeoutfadeflashfadeset_paletmm_allmm_screenmm_paletmm_pkeepmm_screen_pk     ( 2 : C G P Y b p z    ' 0 9}p^P ( <\.̦L$ѺҼӼ|HARUNA:HARUNA R[܂B HARUNA:HARUNA ́Aݑ %d Kwɂ܂B HARUNA:ƂJn܂B HARUNA:WbNG[BubN‚Gg[Ă܂B HARUNA:vOI܂B HARUNA:WbNG[Bt@CGhɒB܂B HARUNA:m̃R}hR[܂B %s HARUNA:đs܂B HARUNA>%s HARUNA:HARUNA ́Aݑ %d Kwɉ܂B HARUNA:HARUNA 甲܂B NVXH*nHxHy FHn,GNO HxHy HnXNO p//N{lPOJ9^Vg HzNXOJ9^Vg/9^Hz NPOJ9^Vg Hz"NXOr^f>/ a *@XOf.HzGNHzNNHxHxHxNNO/ N'*@XOf.Hz@GNHzNHxHxHxNNO &fRMIXG,Jf"J9^Vg:/ No/HzNO ` / /N7rPOJfXLXK`/ TN*@XOJ9^Vg`NRL "g^JfHzGNHz NHxHxHxNNO` &fJ9^TgHz` :fJ9^TgHz` {fJ9^TgHz:` }fJ9^TgHzW` #fJ9^TgHzt` $fJ9^TgHz`r !fJ9^TglHz`^ @fJ9^TgXHz`J ,fJ9^TgDHz`6 +g$ -g /g *g >g g g fB< gx<:gr<$gl<;gf<=g`<{gZ<@gT<}gN<%gH<&gB<!g<<#g6<,g0<"g*<+g$<-g<*g</g<=g <fBJfJfp`gpL8Nuhr_subs:hr_strcmp2:R[܂B H(o &oJ9^Tg HzNXO< gZ<:gT<$gN<;gH<=gB<{g<<@g6<}g0<%g*<&g$<!g<#g<,g<"g <fB< gZ<:gT<$gN<;gH<=gB<{g<<@g6<}g0<%g*<&g$<!g<#g<,g<"g <fBJfJfp`g(pLNuhr_subs:hr_strcpy:R[܂B hr_subs:hr_strcpy:Rs[I܂B hr_strcpy 𔲂܂B H(o&oJ9^Tg HzNXOHH/aHXOJg`< gx<:gr<$gl<;gf<=g`<{gZ<@gT<}gN<%gH<&gB<!g<<#g6<,g0<"g*<+g$<-g<*g</g<=g <fBfb,HH/aXOJfLJ9^Tg HzNXOLNuhr_subs:hr_strcpy_lf:R[܂B hr_subs:hr_strcpy_lf:Rs[I܂B hr_strcpy_lf 𔲂܂B H(o&oJ9^Tg HzzNXOHH/aXOJg`< g < g< fBf,HH/aXOJfJ9^Tg HzINXOLNuhr_subs:hr_atoi:hr_atoi R[܂B hr_subs:hr_atoi:w肳ꂽ͕̂ϐłB hr_subs:hr_atoi:ϐ̓VXeϐłB hr_subs:hr_atoi:ϐ̓O[oϐłB hr_subs:hr_atoi:ϐ̓[JϐłB hr_subs:hr_atoi:ϐ̓Z~O[oϐłB hr_subs:hr_atoi:ϊIBl%dłB hr_subs:hr_atoi:hr_atoi 𔲂܂B H&oHxNټ(@, BXOJ9^Tg HzNXOHH/aXOJgJ9^Tg HzNXOH0@pЈrbЀ2;N`@J9^Tg HzDNXOHka`bJ9^Tg HzNNXOHka!`BJ9^Tg HzZNXOHk/9^a& PO`J9^Tg Hz\NXOHka#`x< gx<:gr<$gl<;gf<=g`<{gZ<@gT<}gN<%gH<&gB<!g<<#g6<,g0<"g*<+g$<-g<*g</g<=g <fBJfJg&Jf+HH/adXOJgBRoRB(F/ N&XOJ9^Tg/HzNPOJ9^Tg/HzNPO/ Nt XOLxNu/<c<c <c <bp`pNuhr_subs:isvari:isvari R[܂B hr_subs:isvari:ϐƔ肵܂B hr_subs:isvari:ϐł͂ȂƔ肵܂B // J9^Tg HzrNXO<$g<#g <!g<@fJ9^Tg HzrNXOp`J9^Tg HzNXOp&NuNVH nv(HH<c<c <c <bp`pJgTHT`  g :gz $gt ;gn =gh {gb @g\ }gV %gP &gJ !gD #g> ,g8 "g2 +g, -g& *g /g =g gRRH`L/Nټ""A Dp`RnB LN^NuNVH nv(HH<c<c <c <bp`pJgTHT` "gRRH`/Nټ""A Dp`RnB LN^Nuhr_subs:SVB_entry R[܂B hr_subs:SVB_entry:Gg[ꂽϐ %s łB hr_subs:SVB_entry:ĺA%d łB hr_subs:SVB_entry:Gg[́A%d łB hr_subs:SVB_entry:SVB_entry I܂B NVH&. .J9^Tg HzNXO/.a y^"9^!XOJf y^!`p Cv(HH<c<c <c <bp`pJgTHT` "gRRH`/Nټ""A DpXO`RnB y^ 9^! y^ 9^R^ 9^R//9^GpN#^ 9^R//9^N#^$9^R//9^N#^OJ9^Tg 9^ @^/(HzNPOJ9^Tg 9^ @^/(Hz NPOJ9^Tg/9^HzNPOJ9^Tg Hz4NL8N^Nuhr_subs:GVB_entry R[܂B hr_subs:GVB_entry:Gg[ꂽϐ %s łB hr_subs:GVB_entry:ĺA%d łB hr_subs:GVB_entry:Gg[́A%d łB hr_subs:GVB_entry:GVB_entry I܂B NV/ J9^Tg HzNXO/.a y^"9^!"y^t#R^ 9^R//GpN#^ 9^R//9^N#^OJ9^Tg( 9^ @^/(a(/HzNO J9^Tg 9^ @^/(HzNPOJ9^Tg/9^HzNPOJ9^Tg HzNXO&nN^Nuhr_subs:SGVB_entry R[܂B hr_subs:SGVB_entry:Gg[ꂽϐ %s łB hr_subs:SGVB_entry:ĺA%d łB hr_subs:SGVB_entry:Gg[́A%d łB hr_subs:SGVB_entry:SGVB_entry I܂B NV/ J9^Tg Hz NXO/.a y^"9^!"y^t#R^ 9^R//GpN#^ 9^R//9^N#^OJ9^Tg( 9^ @^/(a&/HzNO J9^Tg 9^ @^/(HzNPOJ9^Tg/9^HzNPOJ9^Tg HzNXO&nN^Nuhr_subs:SBB_entry R[܂B hr_subs:SBB_entry:Gg[ꂽBLOCK %s łB hr_subs:SBB_entry:Gg[́A%d łB hr_subs:SBB_entry:SBB_entry I܂B NVJ9^Tg Hz:NXO y^ 9^!R^ 9^R//Np @#^POJ9^Tg 9^/0a%6/HzNO J9^Tg/9^HzNPOJ9^Tg Hz8NXON^Nuhr_subs:LB_entry R[܂B hr_subs:LB_entry:Gg[ꂽ label %s łB hr_subs:LB_entry:Gg[́A%d łB hr_subs:LB_entry:LB_entry I܂B NVJ9^Tg Hz ,g8 "g2 @g, +g& -g *g /g =g fzB &nN^Nuhr_subs2:GPB_entry R[܂B hr_subs:GPB_entry:Gg[ꂽp^[ %s łB hr_subs:GPB_entry:Gg[́A%d łB hr_subs:GPB_entry:GPB_entry I܂B NVH6.8.J9^Tg Hz*NXO/.N@ y^"9^!0HЀ/H/NPO/Nټ y^"9^!R^ 9^R//9^GpN#^ 9^R//9^N#^OJ9^Tg* 9^ @^/(No/HzNO J9^Tg/9^HzNPOJ9^Tg HzNXOLN^Nuhr_subs:GPB_set:R[܂B hr_subs:GPB_set:OtBbNp^[ %s T܂B hr_subs:GPB_set:R[ꂽOtBbNp^[̓Gg[Ă܂B hr_subs:GPB_set:vOI܂B hr_subs:GPB_set:R[ꂽϐ %s łB hr_subs:GPB_set:GPB_set I܂B H*/$8/*8o.>/2:o6vJ9^Tg HzNXOJ9^Tg/No/HzNO y^ /0/N7rPOJf:R^mHzGNHzNHxHxHxNNO` y^ $p2 0MI0D$Ԃ&H`"0H| м"B0`4R@0@nRA0AnJ9^Tg$ y^ /0No/HzNO J9^Tg HzNXOL8Nuhr_subs:GPB_ref:R[܂B hr_subs:GPB_ref:OtBbNp^[ %s QƂ܂B hr_subs:GPB_ref:R[ꂽOtBbNp^[̓Gg[Ă܂B hr_subs:GPB_ref:vOI܂B hr_subs:GPB_ref:R[ꂽp^[ %s łB hr_subs:GPB_ref:GPB_ref I܂B H(/$:/*8o.>/2:o6vJ9^Tg HzNXOJ9^Tg/No/HzNO y^ /0/N7rPOJf:R^mHzGNHzNHxHxHxNNO`J9^Tg$ y^ /0No/HzNO J9^Tg HzNXO y^ $p^\9^^fB9^\^^2 0MI0E$Ԃ&H`"0H| м"B0`2R@0@nRA0AnL8Nuhr_subs:GPB_pop:R[܂B hr_subs:GPB_pop:OtBbNp^[ %s j܂B hr_subs:GPB_pop:R[ꂽOtBbNp^[̓Gg[Ă܂B hr_subs:GPB_pop:vOI܂B hr_subs:GPB_pop:R[ꂽp^[ %s łB hr_subs:GPB_pop:GPB_pop I܂B H&/xJ9^Tg HzNXOJ9^Tg/No/HzNO y^ /0/N7rPOJf:R^mHzGNHzNHxHxHxNNO`J9^Tg$ y^ /0No/HzNO J9^Tg HzNXO y^&/08GtN y^/08NPO y^"y^ G E C A`"&R^mS^LNuH6/&:o*F7G> E7GBk7| ^\XO9^^fB9^\^^2 0EK0C$Ԃ$H`"0H~ м"B0`2R@0@nRA0An Eg4/ N=7@/ N/ N'(@RLRSRkSkSkO `/ NtXOL8NuH6/8/":/&炭AǂɊԈႢ܂B NVH(nHznG^N-@HzgN-@HzfN*-y|HxNټ*@-MHzTN-@HzSN-@HzRN-@|OJ9^Tg Hz?NXOHxe/ G38N(@HxeHlN(@TLHzGG^N>HzCN<=G=F2F/ 2G/ NNO JfJgHz!`Hz#NFXOJgtgF`XHz'N^XOtbFЀ4;N Hz`Hz` Hz`HzNFXO`HzN^/N`POH0@pЈt7b:Ѐ4;N .p...........................P.......z........RLx . vN#QHH/N?XOJgR` fJf R mf` "fnBJgtg`X/.HzNFPO`F/././.2F/ 2G/ /.Nj&G"nHi/.NPOH//NPO@O*n`JQgBJgtg`X/.HzqNFPO`F/././.2F/ 2G/ /.Nj&G"nHi/.NPOH//NPO@O*nr` ^\9^^fB9^\^^RmRo`&Jg tg(`HzNRF2F/ 2n/ NNO `>.t fHzN^@XOtfJgHz`HzN^@XO`RL 0fB`t-BJfJgHz`Hz!NFXO`|RLB.`VRL 3f t-Bt-B 2ft -BB-n 1f t-BBTL`RL/ N="xXO` ^\9^^fB9^\^^Rn`bRLJgtgD`TH0@pЈtbDЀ4;N Hzc`Hzc` Hzc`HzcNFXO`/ N=/N`PO/ N,P(@XO`lNzHzdN^HH/NzRLPOJfF2F/ 2G/ NN`2TLHz=G^N/Hz7NXO/Hz5NXO/Hz2NXO// NuHHx-/ N38(@RLO `RL`RL/ N="xXOo"R^\9^^fB9^\^^`J.g2n/ 2n/ /./ /aO*n/ NtB9^hHx;/ N38(@R`Jg tg`Hz*NHzqG^N/HzoNXO/NNOHzgNXOtb0Ѐ4;N Hz`Hz` Hz`HzNFXOHz0N^XOJgHz`HzNFXO*n/ HzG^NXO/N:l/ NNzHzNHH/NzOJ.g2n/ 2n/ / `HzG^N/N`/ HzNXO/N:lHzN/HzNXO/HzNXO/HzSNXO/HzUNXO// NjO,NzHzNHH/NzPOJ.g2n/ 2n/ /./ /abO*n/ NtB9^h R`RLHz NXO`L8N^NuN gp`pNuMES_LOC_DXMES_LOC_DYNVH .,.8.:.IJg rgh`Hz N(FHzN^&PO` RKnBHzN^&XO8E` Hs0D/NN/HzNFORKn`:BT9D9EHzPG^N9@HzKN9@Bl / G N8/ NLxN^NuH_commands:wait:&wait R[܂B H_commands:wait:%dt[̃EFCg܂B H_commands:wait:%dt[̃EFCg܂B H_commands:wait:&wait I܂B H&/ J9^Tg Hz6NXOHxt/N38&T/N=(O J9^Tg/Hz.NPOr` ^\9^^fB9^\^^RnJ9^Tg/Hz"NPOJ9^Tg HzBNXOHx;/N38&B9^hRPOLNuSELWIN_SIZESELWIN_SELWIN_S{SELCUR_XSELCUR_DXSELCUR_DUSELCUR_DDSELWIN_LOC_YSELWIN_LINESELCUR_PAGESELWIN_TorGH_commands:&select:ERROR>256ˆȏ̑IxLqĂ܂B H_commands:&select:vOI܂B MOUSE_MODESELWIN_USEWIN_SIDEPTNSELWIN_XSELWIN_YSELWIN_DXSELWIN_SPCWIN_COLORMOUSE_AREASELWIN_LOC_XSELWIN_COL%d:%sSTATUSsꂽ̂%d NVH-nB-nHxNټ-@-@-nHzLG^N-@HzHN-@HzJN-@HzLN-@HzKN-@HzKN-@HzKN-@O HzGN-@HzJN-@KHzHN=@|nHxN*Hz4N-@Hx /.N38-@RO$n RfTB. o.HzGNHz4NHxHxHxNNO/.N=XOJgR N| NnHx"/.G38N-@R .A!nRRHx"/.`, NB(Hx"/.G38N-@RHx"$@HjN-@RO$n ,fR`HzN^XOJfN8HzI^NXOJgtHzN.HzN&HzN(HzN*SEHzN,HzN&@/./NPO,$ Ԃ&BKSF/HzhNXOH/H/H/H/H/Ny O0HzLG^NXOtfpHzN&HzHN*HzN(/./NPO@؄DSCH/HzNXO&HzNXO@SCH/HzNXOH/HzNXOH/N>O`HxHxHxHxN>OHzG^N*HzN(POJg tgF`XHzN^XOtbFЀ4;N Hz`Hz` Hz`HzNFXO`HzZN^/N`POv`r Ў"@C Q 0"g$nRJ-JSRo$nBJg tg$`L//NN/./HzNFRO`*/./././//.NjHzN^؀O-nHzPNXORmR-n/.NtNZ:;n;n4.n;B;n;| / NXN8NzPO..<.N"GbN&HCHN2Cm,$.$nA(m6@nI/./.NPO @Axm(./.$ /NhPO&//.NPOЮDl-CNHg<g^\9^^fB9^\^^NZ:;n;nG//.NPOFn;@;nBm / IXN:;n;n/./.NPOFn;@;n;| / NN8PO<fHxHxHxNNO <fTNZ:;n;n/./.NPOFn;@;nBm / NXN8NXXO`NHg*J.g"NZ:;n;n/./.NPOFn;@;nBm / NXN8NXHxHxHz NO`B.OHz}N^XOJfNZHzrG^NXOJgTHzN(HzN&/./NPO @փHp8HzcNXO/HzPNXO/Hz=NXO//9^NuHO(.v`Hx{/N38(/N4(O RmHx;/N38(RvPO`nHx{/.N38-@ N(H0@POf6J.g0Hx/Hz NO`O J9^Tg/HzNPOR`/.N4-@XORmJ.g/HxN{l .` L8N^Nu/ oHx /G38N @HhN[ @Hx;/N @B9^hRO&_NuH_commands:link:&link R[܂B H_commands:link: HARUNA ́A%dKwɂ܂B H_commands:link:wubNփWv܂B H_commands:&link:R[ꂽ̂%s /&/J9^Tg Hz:NXOJ9^Tg/9^HzLNPOr^g /NzXO`J9^Tg HzVNXOHx /N38&RPOJ9^Tg/No/HzVNO /NY&Hx{/N38&B9^hO &NuH_commands:gosub:&gosub R[܂B H_commands:gosub: HARUNA ́A%dKwɂ܂B H_commands:gosub:wubNփWv܂B H_commands:&gosub:R[ꂽ̂%s H&/J9^Tg Hz4NXOJ9^Tg/9^HzHNPOJ9^Tg HziNXOHx /N38&RPOJ9^Tg/No/HzjNO Hx;/G38N(@/NY&Hx{/N&RHlHxN{l OLNuH_commands:&debug:&debug R[܂B H_commands:&debug:݂̃[h %d łB H_commands:&debug:fobO[h %d ɂ܂B H(o HzfGN9^THH/Hz}N\LO  fRL` ;fR9^T9^T` 0fB9^T`^T9^THH/Hz[NB9^h POLNuH_commands:&entry:&entry R[܂B H_commands:&entry:Gg[̂ %s łB H_commands:&entry:ȃwb_LqĂ܂B H_commands:&entry:vOI܂B H_commands:&entry:Gg[I܂B H_commands:&entry:&entry 甲܂B H(o J9^Tg HzNXOHx / N38(@RLPOJ9^TgHlNo/HzNO H0@pЈrbЀ2;NfX@zHxHxRL/ NC$O `^RL/ NEXO`PRL/ /9^NLPO`JhJJJJJJJJJJJJ6RL`J9^Tg HzPNXORL  g/ N=ր`J9^Tg HzHNXORL  g/ N=`J9^Tg Hz@NXORL  g/ N=XOJf.Hz@GNHz[NHxHxHxNNO/ N=//NhPO&`FJ9^Tg HzGNXORL  g/ N=//NPO&`J9^Tg Hz5NXO ;g/ N0(@XO`J9^TgHmNo/Hz$NO H0@pЈrbnЀ2;Nb@bbbbbbbbbbbbbbbbbbbbbbbbbbbJ9^Tg HzNXOHx/& R/NO`O J9^Tg/N^`J9^Tg HzNXO/& R/NRHPOJ9^Tg/N```J9^Tg HzNXO/& R///9^NhPO/NW8O J9^Tg//9^Nd/HzHNO`tJ9^Tg HzNXO/& R/NTPOJ9^TgH/Nb/HzNO `.HzGNHzWNHxHxHxNNOJ9^Tg HzNXOJ9^Tg HzNXOB9^h RL8NuH_commands:&if:&if R[܂B H_commands:&if:ŕA%s %s łB H_commands:&if:rZq́A= łB H_commands:&if:rZq́A<> łB H_commands:&if:rZq́A> łB H_commands:&if:rZq́A>= łB H_commands:&if:rZq́A< łB H_commands:&if:rZq́A<= łB H_commands:&if:`FĆA܂B H_commands:&if:`FĆA%s łB andorH_commands:&if:ʂ %d łB H(o$|J9^Tg Hz&NXOHx / N38(@RLPO( HlN0(@*LRLXO  g =g fRL`,LRLJ9^Tg(HnGoN/ DHhNXO/HzNO =f0J9^Tg HzNXO/G=N&/NPOfv`v f0J9^Tg HzNXO/G=N&/NPOgv`v >f8 -=g0J9^Tg HzNXO/G=N&/NPOlv`v >f8 -=f0J9^Tg HzNXO/G=N&/NPOnv`v NXO/H/H//NrHx;/N,O J9^Tg Hz:NXOB9^h RLxNuH_com2:&face_eset:face_eset R[܂B H_com2:&face_eset:face_eset 𔲂܂B H,/ Hx /N38,RPOJ9^Tg HzNXOHzpG^N/HzZNXO//Np*Hx /I38N,R/K=N&Hx,/N,RO$/N(HzN/Hz NXO/H/H//NrHx;/N,O$J9^Tg HzNXOB9^h RL8xNuH_com2:&face:face R[܂B FACE_YFACE_XH_com2:&face:face 𔲂܂B H&/J9^Tg HzNXOHx /G38N&RHzBI^N/Hz,NXO/HzNXO/HzNXO//NuHO Hx;/N&POJ9^Tg HzdNXOB9^h RLNuH_com2:&face_free:face_free R[܂B H_com2:&face_free:face_free 𔲂܂B /&/Hx /N38&RPOJ9^Tg HzNXO/NwHx;/N38&O J9^Tg HzNXOB9^h R&NuH_com2:&ptn_entry:ptn_entry R[܂B H_com2:&ptn_entry:ptn_entry 𔲂܂B H*/J9^Tg HzNXOHx /G38N*R(Hx /N*R/I=N&Hx,/N*R/NO H/H//NpHx;/N*OJ9^Tg HzRNXOB9^h RL8NuH_com2:&ptn_set:ptn_set R[܂B H_com2:&ptn_set:ptn_set 𔲂܂B H./ J9^Tg HzNXOHx /G38N.R,Hx /N.R/I=N&Hx,/N.R/N(O Hx,/N.R/N*Hx,/N.R/NH/H/H/H//NrO,Hx;/N.POJ9^Tg Hz(NXOB9^h RLNuH_com2:&ptn_eset:ptn_eset R[܂B H_com2:&ptn_eset:ptn_eset 𔲂܂B H,/ J9^Tg HzNXOHx /K38N,R*Hx /N,R/I=N&Hx,/N,R/N(O Hx,/N,R/N&@Hx,/N,R/N(@8L/ 6K/ /NpO$/ / H/H//NrHx;/N,OJ9^Tg HzNXOB9^h RL8xNuH_com2:&ptn:&ptn R[܂B H_com2:&ptn:&ptn 𔲂܂B H./ J9^Tg HzNXOHx /G38N.R,Hx /N.R/I=N&Hx,/N.R/N(O Hx,/N.R/N*Hx,/N.R/NH/H/H/H//NuHO,Hx;/N.POJ9^Tg Hz/NXOB9^h RLNuH_com2:&ptn_free:ptn_free R[܂B H_com2:&ptn_free:ptn_free 𔲂܂B /&/Hx /N38&RPOJ9^Tg HzNXO/NwHx;/N38&O J9^Tg HzNXOB9^h R&NuWIN_SIDEPTNWIN_COLORH*/ Hx /N38*R(Hx /N38*R/M=N&@Hx,/N38*R/N(@O Hx,/N38*R/N*@Hx,/N38*R/N&H/:M/ /NpO$// 8L/ 6K/ /NrHzDM^N/HzBNXO/ CHhHm/ / Ny O0Hx;/N38*B9^hRPOLx8NuH*/ Hx /K38N*R/I=N&Hx,/N*R/N(Hx,/N*RO /N&@Hx,/N*R/N(@HzM^N/HzNXO/8LHl6KHkH/H/Ny O,Hx;/N*B9^hRPOLx8NuH*/Hx /K38N*R/I=N&Hx,/N*R/N(Hx,/N*RO /N&@Hx,/N*R/N(@HzN^/8LHl6KHkH/H/NyO(Hx;/N*B9^hRPOL88NuH./ Hx /G38N.R,Hx /N.R/I=N&Hx,/N.R/N(O Hx,/N.R/N*Hx,/N.R/NH/H/H/H//NuHO,/NwHx;/N.B9^hRO LNuSELWIN_XSELWIN_YSELWIN_DXSELWIN_DYH_com2:&selwin_entry:selwin_entry 𔲂܂B H*/Hx /K38N*R#^HzI^N&HzN(HzN&@HzN(@8L/ 6K/ /9^NpO$/ / H/H//9^NrHx;/N*OJ9^Tg HzBNXOB9^h RL88NuH_com2:&selwin_free:selwin_free 𔲂܂B /&//9^NwHx;/N38&O J9^Tg HzNXOB9^h R&NuH(/Hx /G38N(R/I=N&Hx,/N(R/Nփ |"18Hx;/N(B9^hRO LNu/&/N8Hx;/N38&B9^hRPO&Nu/&/NZHx;/N38&B9^hRPO&Nu /Hx;/N38B9^hRPONuendlooploopHv&oUK( R &f6/HzN7rPOJgR/HzN7rPOJgSB9^hJl `SSK`LNuH&o vHx;/ N38&@PO &fHHkHz|N7rPOJgRHkHz^N7rPOJgSjHx;/ N38&@B9^hRPO`RK`LNu/&/Hx /N38&R/N=/NrO^\9^^fB9^\^^RtlHx;/N38&B9^hRPO&NuH_commands:filelink:&filelink R[܂B H_commands:filelink: HARUNA ́A%dKwɂ܂B H_commands:filelink:wt@CփN܂B HARUNA:WbNG[BubN‚Gg[Ă܂B HARUNA:vOI܂B H(oHxGټN(HxN&POJ9^Tg HzNXOJ9^Tg/9^HzNPONiNjNj(@O f.HzZGNHzNHxHxHxNNOJg$/NY(@Hx{/ N38(@/NtO/NtB9^h XOLNu/&/NXHx;/N38&RPO&NuNV/&.ABPBh1|1|Bh/NHx;/N38&R&.N^NuH_com2:&save:&save R[܂B H_com2:&save:t@Cl[̎w肪܂B H_com2:&save:vOI܂B wbH_com2:&save:t@C̃I[vɎs܂B H_com2:&save:&save 𔲂܂B NVH-nHxNټ-@XOJ9^Tg HzNXOHxe/.N38-@RPO"n ;f.HzGNHzNHxHxHxNNOR/./.N:lHx{/.G38N-@R"nHiI4N*@Hx{/ N*@RMHmN @O HhHxN{lHz/.Nn,Of.HzGNHzvNHxHxHxNNO//9^tNHz/Nb/HxHxHy^GzN^-MO /HxHxHnN/Hx"9^R//9^NO /Hx 9^R//9^NxO&<^x/HxHx/NzOTRrl/HxHxHy^NzxOv`@/ y^/08NHz/Nb/HxHx"ҹ^/NzO XR^m/HxHxHy^NzxOv`@/ y^/08NHzg/Nb/HxHx"ҹ^/NzO XR^m/HxHxHy^NzxOv`/ y^*/0XNHz/Nb/HxHx"ҹ^/GzN y^O J0Hf/HxHxڹ^/N`/ y^/08NHz/NbOXR^mp6|~`~/HxHx"ҹ^/NzxO*v`H/ y^ pX/08NHz9/Nb/HxHx y^"ҰX/NzO XR y^XmXRK^ozN/.NtXOJ9^Tg HzN .L8N^NuH_com2:&load:&load R[܂B H_com2:&load:t@Cl[̎w肪܂B H_com2:&load:vOI܂B H_com2:&load:t@Cl[[%s] H_com2:&load:[h[%s] H_com2:&load:Next - g`qtm` - [%s] H_com2:&load:SGVB H_com2:&load:SBB H_com2:&load:LB H_com2:&load:KwƂ H_com2:&load:HARUNA fname:[%s] H_com2:&load:- HARUNA - jH_com2:&load:&load 𔲂܂B NVH*nHxGټN-@HxN.HxN-@O J9^Tg HzNXOHxd/ N38*@RMPO ;f.Hz#GNHzHNHxHxHxNNORM/./ N:lPOJ9^Tg/.Hz5NPO/.GހN/Nټ(@/.N// /.Nި-LOJ9^Tg/.Hz NPO/./ N;Hx / N38(@RLOJ9^Tg/.HzNPOJ9^Tg HzNXONiJ9^Tg HzNXONjJ9^Tg HzNXONj*@O f.HzGNHzNHxHxHxNNO/ GN-@XL/ N&XL*C^/9^Nt"nHiNټ#^xO @`HRo/9^Nt .R/Nټ#^xPOv`/ a y^!8XLXOXRoxrA^x |00RtlJ^g$xv` y^/08NtXOXR^mt#^Hx/9^GpN#^Hx/9^N#^/ az,XLxO`A8Jf ֐/N XOJ+f +"Ҁ'8 K `'8&/ N *XOLNuHv(I, Ѓ*ڼ ЃGJg/N fXOJlv Є4 gм/N XOJlvPr$ځG$Rr_l LxNu or҈Jf NuH*/"/Jf/NټXO`&EYK wg t #Lp`v&Ƽ Qb `bC8Jf((QA8b/ N ֌ w&'8 XO`2/Nټ(XOg""D E U`"QB@Sd/NtXO L8NuL @JfSHDg"AJfE!Rf SfNuH*//9N XOJg&<`&<&EI`HyN XOJlBp`~o ` (/Hx /9N O Jg.(R&S//9/ NٹO `&//9/ NٹO JnpB L8NuL "/ oSQBASdNu?<#TONuNVHHn /.&ּ/N$(O /?<# LN^NuNVHn/.Nzrfp` .N^NurbNV/Hz/.Nn&POfp`6/Hx/./. NOrg /N p` /N pXO&.N^NuwbNV/Hz/.Nn&POfp`6/Hx/./. NzOrg /N p` /N pXO&.N^NuH&/&o*//Nټ( DrXO`0R lR‰nHzl/Nn&POfp`:/Hx//NzOJf/N pXO`/Nt/N pPOL8NuNVH(n (./Nټ&&CHz/.Nn*@/- N Ofp`\e / Hx/`/ Hx//NOJf/ N pXO`(r`8R lR‰n/Nt/ N pPOL8N^NuL HAof Nu"/ C$&HCH@CHAAH@&Nu optg8  g  g +g -ft 0e :dЀҀЁ`JgDNu"opNONuN`#[:g HxN*XO9[Hz?Ht8NPOJg`(Hz3/NPOJfp`Hz%/NPOJfp`pJffIJf(</ N^XO&Jf/N^&@/N^ @AֈPOc~#L <`/ &ּ/N`POJf&Hz/GfN//NHz/N//NO м"Ҽl/<//?<KO(mvG/N&XOl"S G`/N6XOYKSJl`ZXKR~lJRgHxHnlNPON м&ּlH/<//BgKOLx(NJRg HnlNXOvG~//N/N6O RlJlT/N #L`JgHx/ / HxN 2` Jf(<Hx/// / HxN 2(~gp L8LN^Nu"/pNONu"opNONuH(o&o`r/ N VXOJlp`f+ gHx / N POJg&R` / N^&XOo&// /+N׫pO g / N fXOJfpLNu//Ho//N8O NuH,/./ &o(//$/NPO(fp`Jz`6/ N VXOJm,c&`&///+N܃׫O ڃJf//NPOLNuNVHAC$H XJ$$$$$$$AC$H XJ$$$$$$$B-nHx/.aHxar&n:+=S=k6+SRC4+k=BRn0HlV=@0|O gRnP/.Nټ,*F:TM::::t ծBXO | :TRtl-MXMXB6n-K$ Ԃ-B6n-K`l .Юt м(n~`@0tt |0t|0|0tȂBv Ю-@$nzڎC&n" mz E&J mlҁ-A"t A0P t tfDҮ A0P f, A0P f A0Ppf-C`TTIRtll$.m0P& *././Np,POg*Fچ-E/ /.aPOJgTMTR0nnR0nn$.m0P& *././Np,POg(*Fچ-EHxHxa0POJgTMTHxHxa$ &n&XBPO0.H(؄`4.&nG t м(D~`/.aXOJff$.m.P& *././Np,POgx*Fچ-E/ 6\/ a/ 6\/ az/ 6\/ ar/ 6\/ ajTMTO `PLHxaXOJfTR0nnnR0nn`3[> 9RtbTЀ4;N $8A[><`,A[>`A[?<`A[?<2[>RRpR#Rfp`pNu ofJR fp`p`tft#R p`3[@ 9R tbvЀ4;N 6RRR tŹR 9[@`,RR tŹR p9[@`2RR tŹR 9[A p`RR tŹR p9[AtNu   @@@NVH&nHx@HyHnN k=X8>=X Sg=S kg8+60k6g3 `THg3 `THg3 `THg3 `THg3 `THg3 `THg3 `THJl3 `THg3 `TH g3 `TH g3 `TH g3 `TH g3 `TH g3 `THg3 `THJCl3 `TH$+ԐXH0HlV20|gRA(H$Bf0.HЀ2H| Ҽ"@<QF=Fx0G Szʀ,܆*F`|otvG`Jg  I2222`, B@2B@|2 B@2B@|2TKTJp|g I2222`, B@2B@|2 B@2B@|2TKTJRLP0nnbrJg  I2222`. B@2B@|2* B@2B@*|2TJp|g4 I|bp<;N`3h3h3h2`J|bB<;N`0$B@*|3@* B@3@B@|3@ B@2TJRLC, |"F0.HЀR0nnT`0.HЀ2H| Ҽ"@<QF=Fx0G Szʀ,܆*F`|otvG`Jg  I2222`, B@2B@|2 B@2B@|2TKTJp|g I2222`, B@2B@|2 B@2B@|2TKTJRLP0nnbrJg6  I|bp<;N`3h3h3h2`J|bB<;N`0$B@*|3@* B@3@B@|3@ B@2TJC, |"F0.HЀ0nSHgb|otvG`p|g I2222`, B@2B@|2 B@2B@|2TKTJRLJg  I2222`, B@2B@|2 B@2B@|2TKTJP0nnbp|g4 I|bp<;N`3h3h3h2`J|bB<;N`0$B@*|3@* B@3@B@|3@ B@2TJRLC, |"F0.HЀT0nn@L8N^Nulibc: setblock failed. NV/ .#[tԀ B#[м#[#$[# [#([ (R#/9[/N #/9N^й[tЂt#[#/9[//9/9[N!#Rй[tЂt#["@ y[ PXHO`fJfBpЉt#["@## y[`"JfJft"pЉt#[йSttЂt#[йSxtЂt#[ y[#[.y[ 9[$9[//JPOJl&<<Hzj XO?LN#(pNO#\N$6S|N$NN%6N%v9͛gHx #[XO9͛g9S|N%t#LJgN/9/9/9N/N&.N^NuNVH,... (n*n G[tgmtg `&tg`t-B*`t-Bz`t-Bz`B*.Jg.gJgH 5r .lF////N%O,.tv////N&Otf`r lF////N&O(*SKr lF////N'OD,.tv////N&Otf`@(Jg 5$.f`&/ /NPO&/ /NPOD5(fpЋ$<[B n L8N^NuNVH&.*.(n(. tfv&DHnHn//. /.N( @rJo` .SJnR`0Jng.r`fR` SJn`0 SJnJg(g"ft(` #0fRe .fSKRK"n" L8N^Nu0123456789abcdefNVH(n(.*n&.$zf8|&CHnHnHl/. /.N(| @$.SRKOng.`fRL` SLn`0 SLng"fz*` #0fRe .fSKRK#JlD-`+z m0Hz,HnHx Hx/r lF//a @` .SJn"n" L88N^NuNVH,... (n*n*.&n(. &r-ArfvHnHn///N(| .SOrnnJfJgS//Hn/ ///a`JoS/Hk/Hn/ ///a^Jo". L8N^NuNVH(.&n *.(n*n . gR gR" gT.l,.`,p`f&`/Hx N(PORng// `B g@/Hx0I(NPOJl /HxxN` g/HxX`  g/HxbN(POp`t@f&`/Hx0N(PORn&`/Hx0N(PORm&. `/HH/N(PO SJng&`/Hx N(PORn켍l ` L8N^Nu0123456789ABCDEF(null)(NaN)(Infinity)NVH&n (n~&ּ-C`v%g/./N(RPOH0@fSLf/.N)*Jg6p`x-Dv-C*DRLHHvxbЀ6;N0xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxx$x\x,xxxxxxxxxxpxpxxxTxxxxxxxx,xxx,xxxxxxx pppDxxLxxx x0xx/.N)*Jgp` `f:| `v`:|+`v-gJnv@`v`v`v `RL *f"`,rz yT` ЁЀH"@C" 0XfSL-A`L *f-[l>Dv `2rz yT ЁЀH"@C" 0Xf-ASL`fg [0` [ `g "`g XKp0+*`* r*,g tv////N&Ovg|Hz/.Hx/.///az*/././.Hx`vfv-Cg "`g XKp0+*`* r*,g tv////N&Ovg|HzP/.Hx/.///a*/././.Hx`g "`g XKp0+*`* r*,g tv////N&Ovg|Hz/.Hx/.///ap*/././.Hx`g "`g XKp0+*`* r*,g tv////N&Ovg|HzT/.Hx/.///a*/././.Hx`XKkHx/./.Hx/Hn`>vg "`g XKp0+*`* rHz/.Hx /.///ax*/././.Hx`vg "`gXK0k` [r lF*,tv////N&pOvo//N):PO*,:|-HzN/.Hx /.///a*/./././ ///.aހO8`p*f*<Jl /N^XO` /.Hx/N O Jg` .-@///.Hx`*,HxHx//N*OJl//N+2PO*,:|-//N+DPOJg*<&`//N+jPOJg*<,v-C`R ffHn/.Hx//.//aj`T eg Ef*HnHH//.Hx//.//a*O `$HnHH//./Hn//a*O/./././ ///.aހO`/.HH/N(RPORL`L8N^NuH6/8/&y[` [f[f[f[f[f [f KXK PN[eLNuHxC+HxJaPONuHxC-HxJaPONuNVHNN+N&9S &@ ` SNYKSJlJ͠gN+JͤgN+?. LLN^Nu"/ yHg:c 9Dg,"h h`b `b ` h"iQB@SdpNuH&/ &y@f&y[XK'| Ѓ"9[YJo/N+XOJlp`A8#@  LNuUnknown errorNo errorDomain errorResult too largeArg list too longPermission deniedResource temporarily unavailableBad file descriptorResource busyNo child processResource deadlock would occurFile existsInvalid addressFile too largeInterrupted function callInvalid argumentInput/output errorIs a directoryToo many symbolic linksToo many open filesToo many linksFilename too longToo many files open in systemNo such deviceNo such file or directoryExec format errorNo locks availableNot enough spaceNo space left on a deviceBlock device requiredFunction not implementedNot a directoryDirectory not emptyInappropriate I/O controlNo such device or addressOperation not permittedBroken pipeRead only file systemInvalid seekNo such processText file busyImproper linkRead only device file systemH&o(o"& tm/ N ( XO` &'C LNu"<APHpJf `t$҂A$Ђ \opNuH&o"o*/<rgn<ag`><wg`6v`@vh`t #L`.gHxHn?@O J.l/. /N,POJmHx/HnN-.O Jg/. /HnN-PJm LvN^Nu/ &oJg / N fXOJ m /+ N6XO/ N-XO&_NuH(o, f ,rfzl pgTOJlb/N #Lp`X (ؼ_|?TOJl/N #L `"Jm?/N^///N18OJl/N6/N;TpPO` /N6pXOL8NuNVH&n (nHnHka"POJl/ N POJW&.fn\?9[3TOHn/.//.HxN<(vO?<3TO#[?<3TOJl/N XO#L(`HzNf&@XO 9RtbЀ4;N R HnN POJgHxHz8/ N9O JfJ+gp Ћ` </HnHl/a(Ot-BJRg HnNXOtbb Ѐ4;N VJ?9[3TON/ NtvXOGJm//N/N6O Rtl/.NtXOJgtf/N L8N^NuNVH(n&n f"n6|/ Nټ(@XOfp`8rm r#Lp`&<A|:HkHl @HhN>$ULN^NuNuNuNV/.HnN`/N>O J.g< .:f4p. yW,r0t҂ktl t#Lp`*?TOJm Hn;XOJl/N #Lp`pN^NuNVH(.&. gX/N?XOJm /N6XO??FXOJl/N #Lp`$A_ /0/HptN-PJlp` LN^Nu /nrٲop`DAR 0Nu /"/HxHxHo//NONu/ &o +rf2+ f &k `8Jn4/+/+/+ N18O Jn k p`k 'k&p&_Nu o/ gg fJgpNuSH Nu#HUPAIRH&o(oxvHxHzHkN9O JW„#X`RK  gJf^BBp`dJXft\f 'g "f`8Jgf.v`,t'gt"f&`t fB`RK  gJgR`HHfBB LNuH(o*/ *o$&o(vJXg*/9N^ @HhHy[N`O `DHlpHy[N`HlHy[NfHy[N^SA[O 0.fB0 +[RxI` -f ++f| +-ft hf +:fHkN#SxXO`\ sf +:fHkN#StXO`: pf r͘`* ff r͘` gf r#` +RRLJfRn^ r+ L88Nulibc: this version of human68k is not supported. NV/0n&<<Hz XO?Ln"Hx XO0|@!PXHcJo/ &.N^NuNVpNO\jмN^NuHp#\>LNsNVHr#\>Hy#v?%\O@/?% gp` 9\>LN^NuNV/Jg aJgv`v?<Hn/<O Jf N?(r &.N^NuNV"| pNOrb@Ѐ2;N Hx`HxaS}` "| pNOJg S}`S}9S}HHN^Nulimit_coreNVAd !|"9[[!A!yStHzNfXOJg /N`pÄ́ "9[[!Ar`!A <`"@ @XHpr0"PIPHPlN^NuHvI_(<S~GS///N-Pr(O IXRrlLNuHv <r Ҁ(A&@PK(</N XOJgAS  0`p/ мS//N |k(O I$G$r$؁RrlLNuJSTNuL|bgNuNu|b$g C&6HCH@0H@&`:0H@BAHA`0| b g0H@|H@0H@BAHA` r` r| NuLn mbepNupNupNuLb ebepNupNupNuLLjJjD@JjD@` aD@NuJjD@aD@NuLLj"D(g(gbeegJk$E/|zxRDԂ׃k:b eg4eڅ݆⒐k |Q`ЂӃQ" &( * ,NuRD`rpRD|b &( * ,Nu| &( * ,Nupr&( Nupr&( Nup&( NuL$ fR$b"rNu"C$D"$&HBHBx8BBЂtقHAHAt4BAЁقHC"HA҄( & NuH$A&$(*HDHDr2BDЄxӄHBHBx8BBЂӄHE$HBԁ( *"HAHCAHDDHCԃ&" (*HEHAEHCCHA҂L8NuNVHy\B/./././. /.N?DON^NuNVHy\B/./././. /.N?ON^NuH&/ &o/ N VXOJm0SA"PR+ f+ gr f/ N fXOJlp` LNu o (NuLD@NuNV.T.T(.t .fJfp`. pJgp`pN^NuACE NV4T Pg"" JPk4T Pg""JPk4(JPk4t Pg-Q-Q .fJfp`. pJgp`pN^NuNV/$.&. .". ,-@-A .fJfp`. pJgp`p&.N^NuH,/./(/ */$9S|gN9S|f@ gv` Hx XO&////aO$Jo>".C|.A`09S|g////a4`////aO$ LNuL$g@NuAr0||f(<<fr NuAr fJfr NuHx*&/N@\XOJm/N6XOJl*9LxRr_lJl#L L8NuNuNu/ /&9[Jgй[/N@XOJlp` &Nu/$/ gp`pgvgvgvgv" Ig| fv` @fv fv &NuNVH(..g?<Hx?BPOJlf`&?<Hx?BPOJmRHxHn??O Jn/N #Lp`. .f$v?</?BPOJl/N #L `pLN^Nu /"/$/ Hx///NC ONuNVH&. &@_HxHx/ ND@O ?BgDXO'@Hx (Hx`?TO/HkNOJo/ XOr&r'A'n"+¼'A /.HktN`pLN^Nu/ &oJg+ g /+NtXOr'A'A'A&'Ar'A r'Ap&_NuNVH(.*. A_ &0g gp``/./??O Jl/N #Lp`<f6 EC_"` fq `  f RHQB@Sd L8N^NuNVH*... A_ &0g gp`/./??O JmNfr&&G(GK_(,S`N@<fuH `D . f.Jf$Hx/??O Jl/N #Lp`[SQBCSd L8N^NuNVH&.*n (.gx/N XOJg0?BgDXOJmg// /ad`// /a`A_ 0 g// ??O Jl`A_ 0 gp`// ??O Jm^(&M(M.<`|<fC_qx `r< f^Jg  fTS`N?<r/?BPO*r/Hn??O Jl/N #Lp`* . f.` Bg/?BPOQBDSdz L8N^NuHv Ѓ*ڼ Ѓ"<P&@ Ѓ(Jg/N fXOJlvt$ڂG$؂ \o L8NuNVH(n(. *./ NDXOJlt`TJfp`A_ &0Jl// N,POJlp`g&//? @(O l/`fgt#Lp`v,&DAx&*.޼  f RRRSJnzJfo4//? @O "oJl/N #Lp` Ё` v GJg LN^NuNVH..&n ,.A_ J g p p`v?</8?B*PO?</?B(POrfڋ`rf*ڋ` Jgr`* Jlr`lx/NDXOJlr#Lp`HxHxHnND@O ,ܼ`6 o <؀//?@O &l/N #Lp`8n`0Bg/?B&POl/N #L `A_ p LN^NuxrNVH*.&n (np,/NE'@,<xXO<fkI /aXOJg|Ip0,H@B@r2,&"|t ԁ ЀЂ瀐瀐Ѐ$BBHBxȂAT$а( @ B@H@|A $Ԁ|†f|mS ЀЂ"| |†Ё"遒 |?Ҁ 逐rƒҁЁмp'@,'@('@$'l |'F'F|'F '| /.NE'@p,/NFHH&POJf/ / /aO `km |'FpLxN^NuNV H&n(. Hxv֎//NIdO Jo C` DJg& (:f (/fJ(fHx/ /a`Bg/=(\OmvHx *Hx`&ּ ?TO//NOJo/ XO ."&'@?>t'B 'B'B'B,'B('B$t'B '|!.! pJf t#Lp`pL8N^NuNV/ .&n Jg"/NE'@&t'B'B '|Am`f/NERXOHn?2\OJl/N #Lp`Vp.'@&p.H@B@r2.'@p0.'@ '|At'B'B'B,'B('B$t'B p&nN^NuH&/Hx//NJ (POg:Hx./NJ &POg(Rd"GU`//NPOJfp`XKJfpLNuNVH*.(. &.NJ @f?//`8&hXHx "H? D//,ONO L&XOJo/ L8N^Nu/*.*NV*H&.&n (n +@gHx/ NF'@lBp`>Hnp,/NE +POf м?<//O `HxHn/aO Jl/N #Lp`HzL/&ּ*/N`PO/NfHx/HnNKOJll,.g4p./NFHH&p0.'@ p.H@B@r2.`Lt" м A`ԨPHJfp0.r.//N'@ H@B@".¼'@pLN^NuNVH&. (./HnJN`Hx/HnN-.OJfp`.H0@HhNFP&XOJ.g$ .:f ./fJ.f//Hnap`TJgHxHnHnNKO `?<HnHnNO Jl Hn/a<`/HnJHn/HnaLN^Nu2/HA2/ "o pNONuL$ oSprgVfBBSd쐁NupNuNV/ ."&A_?+??<D\OtfHktAXOHxHx/ ND@p&nN^Nu"/"A Ap$yX6`"H2gJ(gRHRHJf /g \g/B( Nu / @` /f\RHJfNuNVH(n&Lv'(ȼ`RKJf`,Rrm*Hx /NKPO<0Hx /NhPO( #XgJo2vaRK`rzlB`&RHn/ NzPOJl 9Lrgp` LN^NuNVH*nvBg/ =*\Ol&rf/ :XOJm `/ AXOJl `v֎8?BgD.XOHx ,Hx`?TO//NOJo/ XO?>TOJGlr)` .<gr"#Lp`,..(.6.tA_ "<_X(@ G> E C A ြfff Sfr(RIGECAм_oJf/ A*XOl/N #Lp`pL8N^NuNVH n h !|<!O//.t/.xatvO `,//.t/a`//.xNfAtO  &`r `$JgZ/.xN>/.xN^POe r#Lp`/.x/ N`/NMZ LXN^NuL @JgLgSg@I0HA2d.pSk$HQJgSB "A$AH`Q /NupSk $HQ JSH &(*,"A$AH`QBBSdLx /Nu"/m*t_m$A_ JgA_ tİ fp`pNu/$/g <$` <JlIggg"pxv`f|I`g|@I`| &NuNV n (:fp yW,r0t҂`Hn/)r. N^NuNVH&.Hx ( x8Hx Ѓ瀐Ѐ/0F/. NOJo/ XOLN^NuH/6|~Hx $BXOH0Crp3gR<cJo/ XOHHLNuNV>H(ؼ>Hn6. ?2\OJlrf/Bg??< D .?fp`pL6N^NuNVHHnp n(/aPOp.R~ R~*p n(/a*H<H<AG|:B.XOHnHnBg(O n/`r~`fHn?<\OJmZ R n"(&ּHx/?./O~`f>Hx//N-.O ?<`/Hn?<O Jl/N #Lp` n hfHnHh)POvKxN؍`X  E 0gHHxHmC&E/ I9NO Jf*HxHmKHkNO JfHx /Hk NO Jg2Rp.r ᩲb` ~ g ~#Lp`tv n6(  E=pB@.HBA.A=@f n(<x<fr` r2.`p0.r2.Ut.Ҁ H@B@¼L8N^NuNV/NJ @fp`2&(@Hx "H/. /. CNPL&XOJo/ XO &.N^NuNVH8.NJ @fp`2&( Hx "H?/. C,ON\L&XOJo/ XO LN^NuNVH&.(.?TOolp` B3/HnNMZXO//. NPt LtN^Nu o/ pg f SfJf SNuH(/vrү&A/H0@*ڼ`: +f(/N^//HsXN9OJf & ּ`&Sf L8NuLNDR/JW0f`r#W0Hx &HxHz/9[ab @#^BOg V g V030g V100fr#^BJo/ XO 9^B&NuNVH,.*. (.NJ @f ?//N`0&(DHx "H?// CNO L&XOJo/ LxN^Nu <NupNu"/g /0Af0@fH@HNuJk JjPDaLDNuJkD`@DDa:DNu$HBAdB@H@Nu$B@H@0B@H@NuH@HAB@Nu"/g /gbe4Ag"@$Ad$HB; 4`$HBJ; $PB䨀4" HAHABAԁ jЊNu"/"Ap`  yX60gRI` \f/RIJf NuAC "¼ f"¼ f )NuNVH0.|H|6MkBtm$AY: /0/0/. /.NP`pAY:"CZz`@"Dtm"AX: /0/0/. /.NP`@pAX:CZ:GP/1/1/0/0NO/. /.//NO-@-A /. /./& S`/ /N POJf H8@ff r#^F` B+#^F LNu / @"yW,rgfNuL "/ oSWgBASdNuSkBQBASdNu _ "/NL$kgH@4||H@||?kJ|4kgx| b| C&6HCHC0&`\DB|gb" C&6HCHA2HA&`:2HAB@H@`0| gb2HA|HA2HAB@H@`"p` "p| ANup"Nup"NuNVHLA^JBPBBp?x  QQ"nt f Q0`. f0Se 00QBLN^NuJafar1.1.32+L`n-APb(8Lf+   (" "%"&'  conconconauxprn !!B!rwwa+bw%%ppp ((((( DDDDDDDDDDAAAAAABBBBBB S;Zx0N3l3n  !"#$%&'()*+,-./0123456789:;<=>?@abcdefghijklmnopqrstuvwxyz[\]^_`abcdefghijklmnopqrstuvwxyz{|}~U%  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~V+@@@@@@@@@@@@@@@@@@@@@@W5Cv4WؠCmgNCX`=Dx@DKPDMՒD-JDxCyٝE *,(ET24EqE'/E1!F)>Y9F_#FnFȦ"FɜFЛ|G3BarMGhy GCWiG*HJH=c)\Hr]7Hx`HܲxIY}KIFkC\I|T3I'\I1sCv4WؠCAy7C k&4BּB0@BmB7HvB_ AeAׄAcA.@j@È@@@Y@$???zG{?PbM?6C->h>>z򚼯J>Ey0;>. &֖=|׽=yd=q-=<%hIv=+?FnM8O?SubسhZwH04a&%og$nqJRg?9I#ը52D@,^%[ό~{n{?nꄀmF60            "@ ("("(" (((             ,   (          8.   V    (                   $ 68   $8  6 $8  "  P \  n  \ ^ N t  d     r N                                P   (     h   "H   f     x      $   F    ,    `     d     t     6 $    $                             X    J Z          .,*J  *&    &    (z 4 "6H". "00$8ZT   * 0 " @  ( 8 .X      ~2,D> F2.F(6Z" 04,*&>  $. .  $        ( 2  r    f         Z " d      f         .  ( ( ( ( (   6F B       p $ z < n * x r ( l T p N ^ T t 2  "H(HT v * D 0  6*" "   &     6  *  $         "                      $  $     X 6".: .> "B $ <  *68  *4(  "    2  *6&, T, * 4*L2&F $  \,* $ $&" ,"  **& R2  @ "Zlz6  \ n   "*  &v$ "0N*2 x"0vN~~T: &(2B p *F,$ >:r $**2"N "HZ64< & &0   4    $" " " " 6(""& ,&Ft  > @H   & (  0 L  &,.:*>2N>DD<(>JN>4^:j:  <nXhZ,"v 2 N &\D F.. . x&hz LZ<<d ,  2 :2 `& (22L$ Vx$NVXn0  ,:  8    4  _main^T_debug^V_nonwait_read_cfgX_main_init^X_START_SCE^\_red^^_vd_vd_wait^`_SSP^d_test^h_COM_retcode^j_HARUNA_retcode^l_GRP_PATH^p_SCE_PATH^t_HARUNA_FNAME^x_pal_keep^_HARUNA_retadd^_HARUNA_retmode^_GPB_count^_LVB_count^_SVB_count^_SGVB_count^_GVB_count^_LB_count^_SBB_count^_GPB_target^_SVB_isptr^_SVB_target^_SGVB_target^_LVB_target^_GVB_target^_GPB^_SVB^_SGVB^_LVB^_GVB^_LB^_SBB^_HARUNA_TOP^_HARUNA_layer _HARUNA>_block_initset_sce_conv^_SELWIN_buffname(_b_maker!H_system_value_block_preset'_ih_search?_is2byte,P_ih_search20_ih_search338_skipto4_skipnest6B_skipif7r_hr_strcmpo_ch_end9_hr_strcmp2:l_hr_strcpy;_hr_strcpy_lf=_hr_atoi@_isvari^_SVB_ref``_GVB_refd_LVB_refb_SGVB_ref@_hr_lenalloccpyA_hr_lenalloccpy2C$_SVB_entryE_GVB_entryG_SGVB_entryIl_SBB_entryJ_LB_entryL_LVB_entryO`_SVB_setRH_GVB_setT_SGVB_setW8_LVB_setY_SBB_ref[_LB_refh_LVB_layeri_SGVB_freej_SBB_freej<_LB_freek:_LVB_pushm_LVB_popp_GPB_entryr_GPB_setuH_GPB_refw_GPB_freey _win_drawy_win_side_drawz_ms_wait_lcz_ms_wait_unlcz_HARUNA_down{l_HARUNA_up&_H_mes_switch_caps}p_H_messageP_H_mes_clear_H_wait_H_select^_H_gotoP_H_link_H_gosub _H_debug_H_entry_H_set_H_calc_H_if_H_else_H_endif(_H_mag_H_face_entry_H_face_set_H_face_eset _H_face_H_face_free_H_ptn_entry_H_ptn_set_H_ptn_eset_H_ptn_H_ptn_free_H_win_open_H_win_draw<_H_win_side_draw_H_win_close_H_selwin_entry_H_selwin_free_H_tpalet\_H_ms_curon_H_ms_curoff_H_loop_H_endloop._H_cutloop_H_contrast_H_filelink_H_t_cls_H_g_cls_H_save_H_load_readint_H_keep_paleț_H_fadeout_H_fadeflashL_H_fade$_H_set_paletѺ_H_mm_allҼ_H_mm_screenӼ_H_mm_palet_H_mm_pkeep|_H_mm_screen_pkز__mainQ__libc_releaseR__libc_version[:libstack_printf__iocs_vdispst_exit^__exitnums___exitprcsP__iocs_crtmodZ__iocs_g_clr_on`__dos_c_curoffj__dos_superv_scrn_prwټ_mallocL__iocs_tgusemdZ__iocs_ms_curof`_strcpyn_fopen_fgetst_free_fcloseall^_strlenp_realloc _strinsN_gets_memcpy<__dos_c_curonF_cprintfހ_fsizeި_betaread_betawrited_Wbetawrite_Wbetaread___mulsi3___umulsi3_atoi_atol__iocs_box"_key_getH__iocs_ms_getdtN__dos_c_locate`__iocs_tcolorj_t_symbol__iocs_b_sftsns __iocs_txfill*__dos_kflushio8__iocs_ms_curon>__iocs_ms_limitX__iocs_txboxb__iocs_ms_curgth___divsi3___udivsi3X__dos_c_cls_alf_strcat_system__iocs_contrast__iocs_fill_fputsb_fprintfz_fwrite0_mm_cmp:_flagout_flagread_mm_ext|__start___pause___fddb_environ__argc__comline__envp__argv__iob8__doprnt__cplusplus__ctors__dtors__exit__onexnums __onexprcs$__ma_searchr__ma_new@__ma_lptrD__ma_fnumH__ma_flistR_sys_errlistR_sys_nerrL_errno __ma_recycle N__getemptyiob |__sopenR__fmode _openP__umask _fclose __sread _memchr __ma_remove *__ma_add f_fflush _isatty$_vsprintfz_stat_fread _filelength`__iocs_b_keysnsf_EXT_FNTGETZ__iocs_textputf_getenv_stricmp_strcmpi_strcasecmp_dup6_closeR__hugeargR__keep_cwd_on_exec__spawnT__hugearg_indirect_getcwd__siginit__sigend_chdir_dup2 __errcnv 2_spawnlp V__swrite _strchr[__memcp[__procp[__psta[__bsta[__dsta[__csta[__vsta[__esta[__fsta[__ssta[__hsta[__last[__mmax[__PSP[__PSTA[__PEND[__BSTA[__BEND[__DSTA[__DEND[__SSTA[__SEND[__HSTA[__HEND[__SSP __dehupairX__hupair!__enargvSt__stacksizeSx__heapsize#(__vectormove#_clock\__inclockS|__havefpuS}__ohavefpu$6__iscopro$__loadrlimits`__limits%6__finit%v__sinit͘__supermanS_tznameS_timezoneS_timezone_dstS_timezone_std%_tzset͜_daylight%___lshrdi3&p___cmpdi2&___ucmpdi2&___udivdi3&___divdi3'___umuldi3'___muldi3(|_ecvt(_fcvt(_fputc)*_feofT__ctype):___negdi2)F__f_cmpdf2)__fpu_cmpdf2*4__fe_cmpdf2*___cmpdf2+2___negdf2+D_isnan+j_isinf+_closeall+___display_block_profile͠__bluse+___display_function_profileͤ__fpuse+_sbrk,__mode2dos,__seekeof-.__fullpath-P__open-__sclose/_read0_flushall18_write2<_lseek7n__setinodedirsize8__statsub9__iocs_fntget9_strncmpV&__ctype_lower: __close:Z__addlastsep:__tobslash:_mktemp;T_unlink<__noexec_return<__exec=__enhupair> _strcmp>$_getdcwd>__dellastsepW,__ctype_upper?__usedfd_STACK_SIZE_HEAP_SIZE?(__fpuinit?D_econvert?_fconvert@\__appfd@_brkC __pathexpandD@_memsetD__writableE__mode2unixE__getdrivenoE__getdpbsrcF__phydrv2drvnoFP__iscdromdriveF__getinodeId__dos_readlinkJ _strrchrJ0__keeppr_searchJ__dos_importlnenvK__dos_lfilesX6__mbctypeK___modsi3K___umodsi3MZ__toslashM__dtos18O\__roundO_memcmpO_strtokPX_struprPt_strncpyP___muldf3P___fixunsdfdiQp__ulltoa. 2W.. 2WAQUA  FUNNY_BE EZv AQUA CNF V FUNNY_BECNF E5o} . 2W.. 2WMMK  SCE  . 3W.. 3Wreadme txt W#ɂ͉摜t@Czu܂ . 3W.. 3WAQUA_MAISCE N %AQUA_PRESCE SET  '------------------------------------------------------------------------------------ ' ' - `ytr` - Ver0.10 ' ' uFvQb qV̔N By.-= fsm =- ' '------------------------------------------------------------------------------------ '----------------------------------------------- ŏ̃V[ -------------------- &set_block start { &fadeout 2 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; ' ʏ :top; &mm_screen_pk aqua01.mmk; ' ^Cg` &fade 5 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; ' tF[hC &wait 130; ' ΂炭҂ &win_draw 29,293,455,89; ' ^Cg\ &message " uFv" ," Qb qV̔N"; &fadeout 2 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; ' ʂ &mm_screen_pk waku.mmk; ' N` &win_draw 29,293,455,89; ' EB` &win_side_draw 25,7,463,273; &keep_palet 0,0,0,0,0,0,0,0,0,0,n,n,n,n,n,n; &fade 2 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; ' N\ &mm_screen_pk aqua03.mmk; ' GBŕ`āEEE &message "Z~x݂߂āccc"W10 ," ͌ "; &fade 2 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; &message "̒͂‚" ," ˂ڂĂ͂Ȃ̂"; &message "Ȃ" ," ڂo߂Ă܂܂"; &fadeout 2 1,1,1,1,1,1,1,1,1,1,n,n,n,n,n,n; &mm_screen_pk aqua04.mmk; &fade 2 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; &message "΂y݂ɂĂ̂" ," N"; &message "ꂩ痈̂" ," ǂȂƂĂ邩" ," y݂Ȃ́I"; &fadeout 2 1,1,1,1,1,1,1,1,1,1,E; &mm_screen_pk aqua05.mmk; &fade 2 1,1,1,1,1,1,1,1,1,1,E; &message "u````" ," ܂ȂȂ```v"; &message "uȂɂHv"; &message "uNv"; &message "uႻ[" ," ܂Włv"; &message "u10炢ɂȂȂ" ," Ȃv"; &message "u````A‚܂ȁ`v"; &message "``````" ," ҂ǂ```!!"; &message "u肠" ," Ђ܂Ȃ`Ȃˁv"; &message "uقA" ," ̘aŐHׂ邩͂ŁIv"; &message "ú```EEEv"; &fadeout 2 1,1,1,1,1,1,1,1,1,1,E; &mm_screen_pk aqua06.mmk; &fade 2 1,1,1,1,1,1,1,1,1,1,E; &message S24/A0"܂Ă߂łƂ܂"; &fadeout 2 1,1,1,1,1,1,1,1,1,1,E; &mm_screen_pk aqua07.mmk; &fade 2 1,1,1,1,1,1,1,1,1,1,E; &message "u͂ADqv"; &message "u肪Ɓ`v"; &message "" ," qǂ͂Nʂ炦̂" ," gNł"; &message "E"W15"E"W15"E"W15"E"W15"E"W15"LB[[b"W25 ,"KTKTA"W20/S32"oTb"; &message "uv"; &message "uN󂫂݂I" ," ƂĂˁI"; &fadeout 2 1,1,1,1,1,1,1,1,1,1,E; &mm_screen_pk aqua08.mmk; &fade 2 1,1,1,1,1,1,1,1,1,1,E; &message "N͂̈Cxg"; &message "u킨```" ," Ă邫Ă ˁ``"; &message "łقƂ" ," 񂠂Ă̂Ȃ񂾂˄"; &fadeout 2 1,1,1,1,1,1,1,1,1,1,E; &mm_screen_pk aqua09.mmk; &fade 2 1,1,1,1,1,1,1,1,1,1,E; &message "uA"W15"A"W15"A"W15"oA"W15 ," A"W15"E"W10"E"W10"E"W10"E"W10"v"; &message "N̎dƂ" ," N̖"; &message "uÁI" ," g񂩂炾I" ," ԁ`ĂIv"; &message "u`Aׁ`" ," ԁ`ɏoĂȂv"; &message "uŽqɂ" ," ôɗĂȂ`v"; &message "NĂ͖̂N[[Łcc"; &message "ol痈Ȃ" ," oĂȂl痈c"; &message "܂ȂȂ񂾁"; &fadeout 2 1,1,1,1,1,1,1,1,1,1,E; &mm_screen_pk aqua21.mmk; &set_palet 1,1,1,1,1,1,1,1,1,1,E; &message S32"u`v"; &message S32"uoj痈Ă`v"; &message S32"ujj` Ђ`v"; &message S32"uANDqIv"; &message "uȂ񂾃R" ," SC̐搶炾感v"; &message "uAȂ SC̐搶``" ," Ȃ`񂾁v"; &message "uoɂ܂j" ," 킯ȂˁIv"; &message "uȁccȂɂ" ," [[񂽂͂ǁ[Ȃ̂I"; &message "uE"W15"E"W15"E"W15"E"W15"!?"W15"v"; &message S32"u```Iv"; &message "uj``" ," mccv"; &fadeout 2 1,1,1,1,1,1,1,1,1,1,E; &mm_screen_pk aqua10.mmk; &fade 2 1,1,1,1,1,1,1,1,1,1,E; &message "uccāAƂȂ̃qV񂩁c" ," Ȃ񂾂 ‚܂ˁ[v"; &message "u``Iv"; &message "qV" ," ȂďĂ̂ȁ"; &fadeout 2 1,1,1,1,1,1,1,1,1,1,E; &mm_screen_pk aqua11.mmk; &fade 2 1,1,1,1,1,1,1,1,1,1,E; &message S32"HH"; &message S32"```!?"; &message "Ȃɂ" ," ȂɂĂȁ[[I"; &message "qVA{P" ," Yꂽ̂ȁ[["; &message "ĂƁI"; &message S24/A0"uƂƂȂ" ," sĂˁ[[Iv"; &fadeout 2 1,1,1,1,1,1,1,1,1,1; &message S32"s|["; &mm_screen_pk aqua12.mmk; &fade 2 1,1,1,1,1,1,1,1,1,1,E; &message "u͂EEE"W25 ," DqAႢv"; &message "uc ܂" ," ߂łƂ܂v"; &message "u͂A߂łƂv"; &message "uqVȂQKɂ邩" ," ǂāv"; &fadeout 2 1,1,1,1,1,1,1,1,1,1,E; &message S32"q["W20"["W20"V["W20"I"; &mm_screen_pk aqua13.mmk; &fade 2 1,1,1,1,1,1,1,1,1,1,E; &message "uDqv"; &message "uȂɂẮHv"; &message "uN󏑂v"; &message "u`A낧Hv"; &message "u΁[ ܂NĂ̂͂Ƃ" ," ɏȂ񂾂[v"; &message "u[[" ," ɒȂC~Ȃȁ[v"; &message "u121520܂łɏo" ," 茳̒͂" ," 󂪂‚ȂI" ," ĒmȂ́H ܂["; &message "cāAH"W30 ," Ă̔Nc"; &message "uĂ̂" ," óH" ," Ȃށcv"; &message "uɌ܂Ă񂾂v"; &message "u܂񂿂̃|Xg" ," ړꂽ񂾂v"; &message "u[[v"; &message "u[[" ," ȂĂȂ񂾂" ," ǁ`āHv"; &message "u"W20"E"W20"E"W20"E"W20"E"W20"v"; &message "uc͂Ԃ肾Ȃ񂾂c" ," łcԂ肾ď̖Yꂽcv"; &message S32"u΂"S16"ȂH"S32 ,S16" 炩Ă̂Ǝv`v"; &message "uȂ" ," Ԃ肾v"; &fadeout 1 1,1,1,1,1,1,1,1,1,1,E; &mm_screen_pk aqua22a.mmk; &fade 2 1,1,1,1,1,1,1,1,1,1,E; &message "uႱ" ," Ԃ肾Ă݂ĂHv"; &message S32"u!?"; &message "úc΂" ," ł ŁcIv"; &message "uʂɂ[ł" ," Xg[u񂾂焟v"; &fadeout 0 1,1,1,1,1,1,1,1,1,1,E; &mm_screen_pk aqua22b.mmk; &fade 0 1,1,1,1,1,1,1,1,1,1,E; &message S32"uAĂ" ," ͂Iv"; &message S24"u``A" ,S16/A1" Ƅ" , " ԂȂłccc"; &fadeout 0 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; &g_cls; &mm_screen_pk battan1.mmk; ' ΂ &set_palet 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; &wait 75; &mm_all battan2.mmk; ' EEE &wait 30; &mm_all battan3.mmk; ' ߂߂EEE &wait 100; &fadeout 1 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; &mm_screen_pk aqua15.mmk; &set_palet 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; &wait 130; &fadeout 6 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; &mm_screen_pk waku.mmk; ' N` &win_draw 29,293,455,89; ' EB` &win_side_draw 25,7,463,273; &mm_screen_pk aqua23.mmk; ' ̊G &fade 2 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; ' \ &message "uc"W10 ," "W10 ," Ɓcv"W60/N; &message "uNƂȂ" ," ԂȂIv"; &fadeout 2 1,1,1,1,1,1,1,1,1,1,E; &mm_screen_pk aqua24.mmk; &fade 2 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; &message ""W8"`"W8"`"W8"`"W8""W8"E"W8"E"W8"E"W35/S32"..."; &fadeout 2 1,1,1,1,1,1,1,1,1,1,E; &message "uˁ[ˁ[" ," ǂȂďẮ[[Hv"; &message "uc [AȂłIv"; &message "ucق" ," ōs ŁIv"; &message "ucv"; &mm_screen_pk aqua17.mmk; &fade 2 1,1,1,1,1,1,1,1,1,1,E; &message "`"W30 ," 񂩂"W30 ,S32" ςςI"; &message ""; &message "qV̔Nɂ" ," ȂďĂ̂" ," 킩܂ł"; &fadeout 2 1,1,1,1,1,1,1,1,1,1,E; &mm_screen_pk aqua18.mmk; &fade 2 1,1,1,1,1,1,1,1,1,1,E; &message "qVFi[I "W20"I"W35"hWI"W35"܂ʂI"W35 ," ̐SȂƂŁEEE"W20 ," NDqɁcj"; &message " Dq Fiяオ܂悤"W20 ," 킢Ȃ܂悤Ɂc"W20 ," jqɃe܂悤Ɂcj"; &fadeout 5 1,1,1,1,1,1,1,1,1,1,E; &message "ꂼ̖" ," ꂼ̑z"; &message "VN̎n܂脟"; &message "Ƃ肠"W20 ," NN΂낤I"; &fadeout 3 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; &mm_screen_pk aqua19.mmk; &fade 8 1,1,1,1,1,1,1,1,1,1,E; &message ,S32" A Happy New Year! "; &message ," Qb" ," qV̔N | |"; &fadeout 8 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,E; &goto top; } } '------------------------------------------------------------------------------------ ' ' - `ytr` - Ver0.10 ' ' uFvQb qV̔N By.-= fsm =- ' '------------------------------------------------------------------------------------ '------------------------------------------------------------ ŏ̏ ------- &set_block initialize { ' VXeϐ ' Face windiw ̊֌Ŵ &set $FACE_X 0; ' Face-win W &set $FACE_Y 289; &set $FACE_DX 104; ' Face-win L &set $FACE_DY 111; ' Select window ̊֌Ŵ &set $SELWIN_TorG 1; ' Sel-win 0:÷PCG 1:÷GRP &set $SELWIN_USE 1; ' Sel-win I[vAN[Y邩 &set $SELWIN_LINE 19; ' Sel-win Ps̃hbg &set $SELWIN_SIZE 8; ' Sel-win {TCY &set $SELWIN_ 1; ' Sel-win {[h &set $SELWIN_S{ 0; ' Sel-win {S{[h &set $SELWIN_LOC_X 505; ' Sel-win eLXg̃P[V &set $SELWIN_LOC_Y 75; &set $SELWIN_X 495; ' ZNgwin W &set $SELWIN_Y 65; &set $SELWIN_DX 163; ' ZNgwin L &set $SELWIN_DY 152; ' max w肷B &set $SELWIN_SPC 9; ' Sel-win ㉺_~[hbg &set $MOUSE_MODE 0; ' ϳ߲́A0:ڸij޳ݎ̂ݕ\ 1:ɕ\ &set $MOUSE_AREA 1; ' ϳ߲̈ړ͈ 0:ʑS 1:ڸWin &set $SELCUR_X 451; ' ZNgJ[\̍[W &set $SELCUR_DX 132; ' ZNgJ[]̕ &set $SELCUR_DU 1; ' ZNgJ[\̏̃_~[hbg &set $SELCUR_DD 18; ' ZNgJ[\̑ &set $SELCUR_PAGE 2; ' ZNgJ[\Ŏgp÷ڰ ' Windiw ʂ̊֌Ŵ &set $WIN_SIDE 1; ' dEBhD̎w 0:Ȃ 1:^ &set $WIN_SIDEPTN "0,15,14,14,0,E"; ' ^dEBhD̉̃p^[w(O珇) &set $WIN_COLOR 0; ' EBhD̐F ' &message ̊֌Ŵ &set $MES_TorG 1; ' &message 0:÷PCG 1:÷GRP &set $MES_LOC_X 39; ' &message ̍ XW &set $MES_LOC_Y 303; ' AYW &set $MES_x 0; ' үނ̒x\Ӱ 0:CAPS 1`:reserve &set $MES_WAIT 1; ' x\̂Po͂̃t[ &set $MES_SIZE 8; ' {TCY 8 12 &set $MES_ 1; ' {[h 0:m[} 1: &set $MES_S{ 0; ' {S{[h 0:m[} 1:S{ &set $MES_COL 1; ' ÷PCG̊{J[ &set $MES_LINE_16 19; ' ÷GRP̂PsBPUhbg[h &set $MES_LINE_24 27; ' ÷GRP̂PsBQShbg[h &set $MES_LINE_32 35; ' ÷GRP̂PsBRQhbg[h &set $MES_NEXT_KEY 29; ' ֑L[ 255ŖB &set $MES_KWAIT_X 407; ' ҂үނ̕\ XW MES_TorG ɂ &set $MES_KWAIT_Y 360; ' AYW PʂقȂB &set $KW_STRING "[Click]"; ' L[EFCg̃L[͗v &set $KW_ 1; ' L[͗v̕ &set $KW_SIZE 8; &set $KW_S{ 0; &set $KW_COL 1; &tpalet 1,65535; ' eLXg̃pbgw &tpalet 2,1985; ' TCOLOR()ɏ &tpalet 4,65535; ' \tgL[{[hv[(?) &filelink aqua_main.sce; } . 4W.. 4WMAG R SCE "5 O BAT JKh USKCG SYS zh . 4W.. 4Wreadme txt W#ɂ͉摜t@Czu܂ . 5W.. 5WBEE_MAINSCE ; ABEE_PRESSCE ETLYv AZUSA SCE 0rD '------------------------------------------------------------------------------------ ' ' - `ytr` - Ver0.10 ' ' - g`qtm` - eXgt@C ' ' ɈڐA ea(c)ALICE-soft By.-= fsm =- ' '------------------------------------------------------------------------------------ '----------------------------------------------- ŏ̃V[ -------------------- &set_block start { ' eáAŏ̕ӂAڐAĂ݂܂B &mag fba25.mag; ' t[ &keep_palet P,P,P,P,P,P,P,P,P,P,P,P,P,P,P,P; &fadeout 0 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; &win_draw 113,303,526,96; ' bZ[WEBhÉAGg[ɁA` &selwin_entry select_window; ' ڸijީޯ̧Ȱтذ &fade 5 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; &message " DWm[D "; &message "uET"W10"ES"W10"ER"W10"EQ"W10"EP"W10"EO"K ,"WwPSVW@xSVWP@yWVT@cSVWmFB" ,"fBWBʏԂɖ߂܂v"; '&whitein;&set_frame;&fadeout; &mag fbb21.mag; &message F-fba04-"u]ڍWmFB덷AR}ODOOTȉB" ,"@ō̃~bV͏IˁEEv"; &message F-fba22-"ȗOɃ_B̒ɃWm[ȊȎDe" ,"@邩ǂ`FbNāIv"; &message F-fba09-"uււB" ,"@E"W10"E"W10"E"W10"B`FbNIłv"; &message "u͈͂ɂ́ȂD̔сA" ,"@d͔g̘ć݂ASA܂ւv"; &message F-fba00-"u`Bv݂ˁB" ,"@_Bҋ@[hxO[Ɉڍsāv"; &message F-fba04-"uӂEÉAŌ̃cŃ|JāA" ,"@ǂȂ邱ƂƎvǁEEv"; &message F-fba00-"u܂AȂƂȂ񂾂A[񂶂Ȃ́Hv"; &message F-fba04-"uEETeBAς炸AoEgȂ񂾂v"; &message F-fba02-"uՂՂՁ[񂽂IIقƂĂv"; &message F-fba04-"uA{ȂłBkʒfŗՋ@ρAɂ炢" ,"@Ƃ낪TeB̂Ƃ낾ƎvĂ񂾂EEEEv"; &message "u܂EEEӖł́Ayϓōs΂A" ,"@A菟ȖʂEEƂȂȂ񂾂ǁEEv"; &message F-fba22-"uEEEĂӖ悭킩ȂEEE" ,"@łAȂ񂩃PiĂ悤ȋCEEEv"; &message F-fba05-"uEEEׂƂ͋CɂȂv"; &message F-fba02-"uԂ‚Ԃ‚ԂEEE" ,"@ȁ[񂩂܂ꂽ悤ȋC񂾂ǁEEEv"; &message F-fba01-"u܂A[B͂͂͂͂͂v"; &message F-fba07-"uEEEEقƁEEEAoEgȐiv"; &message F-fba00-"uHȂ񂩌Hv"; &message F-fba04-"uAȁ[ɂv"; &message F-fba00-"EE₵EEłANĵ͂߂ƁB"; &message "ǁ[A˂łAtŃPɊ" ,"܂ĂˁB"; &message "EEEE"; &message "u˂AeB[^CɂȂH" ,"@A󂢂v"; &message F-fba04-"uˁB܂傤v"; &message F-fba00-"u_B񂽂D̃Rg[Wm[" ,"@CRs[^[ɔCāAxeȂBv"; &message F-fba09-"ułȁBقȁAĖႢ܂v"; '&fadeout;&fadein; &mm_screen fbb01.mmk; &mm_pkeep fbb01.mmk; &fade 5 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; &link menu1; ' j[ } '-------------------------------------------------------- j[P ------- &set_block menu1 { &entry !m1b; &entry !m1l; &entry !m1; &entry !m1Ȃ񂩈; &entry !m1َqHׂ; &entry !m1VXe; &entry !m1stf; &entry !m1; &entry !gcount; &entry !count; &entry !`count; &entry !endflag; &entry !m1DƘb; &entry !m1_Ƙb; '&debug 1; '&g_cls; :m1loop; &select R 1"b",1"l",1"",1"Ȃ񂩈",1"َqHׂ",1"VXe" {&gosub m1talk;} ,{&gosub m1think;} ,{&gosub m1look;} ,{&gosub m1drink;} ,{&gosub m1eat;} ,{&gosub m1system;}; &goto m1loop; } '--------------------------------------------------------- j[P̓e ------- &set_block m1talk ' b { &if !m1=0; &if !m1stf=0; &message F-fba00-"`EEł̑OɁAňꑧ‚ƂˁEE"; &face fbn00; &calc !m1stf=!m1stf+1; &goto m1talk_skip; &endif; &if !m1stf=1; &message F-fba02-"₾ÍȂOɂł肵̂I"; &face fbn00; &goto m1talk_skip; &endif; &else; :m1talkloop; &select 1"DƘb",1"_Ƙb",1"b̂" { &if !m1DƘb=0; &message F-fba00-"u`΂ȂOʂݑĂȂH" ,W10" E"W10"E"W10"E"W10"ƎvA񂽁A܂ʂݍẮHIv"; &message F-fba04-"uB܂ˁA" ," AT̃{[CthẮv"; &message F-fba00-"uEEEATāAD̍Ȃ̑ɒuĂ" ," ɖڋʂłʂ݂̂ƁHv"; &message F-fba04-"uBATāAƂ傫" ," ƂĂL[gȂ́BEEˆłHv"; &message F-fba02-"û˂EEȏœ_̒܂Ȃ񂾂悤" ," ڂĂʂ݂̂ǂˆā`́Hv"; &message F-fba04-"uHȂɉˆ̂ɁEEv"; &message F-fba00-"uDEEE񂽁A͂‚Hv"; &message F-fba04-"u炵ႤˁBEƂQDOv"; &message F-fba00-"uEEEȂقǁBIoĂ̂ˁv"; &message F-fba31-"uЂǁ```B" ," ATeBɂ悤Ȃ" ," vĂ̂ɁA΂܂񂩂ˁ`IIv"; &message F-fba01-"uւց`񂾁AȂ" ," ΂ɗ~Ȃ炢ł``v"; &message F-fba31-"uEEEETeB̌тĂȂv"; &message F-fba03-"u```A߂Ȃ```B" ," ̔IoĂ܂IIIv"; &face fbn00; &calc !m1DƘb=!m1DƘb+1; &else; &message F-fba00-"uDEEEEEEx́AȂɂẮHv"; &message F-fba04-"uUB" ," TeBAȂɂق‚ꂽΌĂˁv"; &message F-fba00-"u``AʂɂɍĂ킯Ȃ񂾂A" ," UȂĕnR}lAȂĂv"; &message F-fba04-"uBÛ́A̖肶ȂāA" ," ̈ꖇꖇɎvo邩Ȃ́EEE" ," ɁAƂق‚ꂽĒȂ͕̂킢v"; &message F-fba00-"`ȂEEEɂ́A`C" ,"悭ȂB"; &face fbn00; &endif; }, { &if !m1_Ƙb=0; &message F-fba00-"u˂A_BBF|pق" ," EэłԁA͓ɖȂHv"; &message F-fba09-"uSR܂ւŁB" ," ہAaāAɂė]Ă炢v"; &message F-fba00-"uȂ́Hv"; &message F-fba09-"uւB܂ɂȂŁAoBȂԁA" ," ʟ̐Vl^AƍlĂ܂v"; &message F-fba00-"uʟ˂EEEEEv"; &message F-fba09-"uIȂAĂ܂I" ," ̔炪A悶悤ɋC‚Ăv"; &message F-fba02-"uƁEENȂČĂȂIIv"; &message F-fba09-"uEEE邱Ƃ͂ւŁI"K ," قȂAẲؗȂʟRAAԂ܂܂`Iv"; &message F-fba03-"uЁ`````IIIقĂIIIv"; &message F-fba09-"ufɁA覐΂Ă˂I"K ," `A"C2"f"C1"ifjv"; &message "uvāAԂ񂯂ǁAǂȂH"K ," AȂȂƁA"C2"قƂ"C1"iقvjv"; &message "uj^[Af񂯂nj̏ႵĂ񂩂ȁH"K ," Ⴂ܂B́A"C2"[j^"C1"i`Qjv"; &message F-fba00-"u"W10""W10"EEE"W10/F-fba03-"````````````IIIv"; &message F-fba09-"uH󂯂܂ւłHwȂEEEEv"; &message F-fba00-"uEEEEEEEEEEE_B"K ," 񂽁ABȂԁA" ," ``ƁAlẮHv"; &message F-fba09-"uւEEE₯ǁHv"; &message F-fba00-"u񂽂˂EEElHm\ɃJr͂ĂȂH" ," ؂񎩌ȐffvO𑖂点ف`v"; &message F-fba09-"uoEEȂǁAĂ̂`h́A" ," ׂ炯₳AȐffvO" ," 点ĂAG[AłւŁv"; &message F-fba00-"uEEEE悩v"; &face fbn00; &calc !m1_Ƙb=!m1_Ƙb+1; &else; &message F-fba09-"uoBʟ̐Vl^́A܂傤" ," ܂`BǂȂłHPOOAقǁEEv"; &message F-fba00-"u͂͂EEE" ," ̔]ɃoO`牓ƂEEEEv"; &face fbn00; &endif; }, { }; &if $STATUS<>2 and $STATUS<>256; &goto m1talkloop; &endif; &endif; :m1talk_skip; } &set_block m1think ' l遄 { &set !endflag 0; &if !m1=0; &if !m1stf=0; &message F-fba00-"`EEł̑OɁAňꑧ‚ƂˁEE"; &face fbn00; &calc !m1stf=!m1stf+1; &goto m1think_skip; &endif; &if !m1stf=1; &message F-fba02-"₾ÍȂOɂł肵̂I"; &face fbn00; &goto m1think_skip; &endif; &else; :m1thinkloop; &select 1"B̂",1"̔ȓ_",1"l̂" { } ,{ } ,{ }; &if $STATUS<>2 and $STATUS<>256; &goto m1thinkloop; &endif; &endif; :m1think_skip; } &set_block m1look ' 遄 { &if !m1stf=0; &message F-fba00-"`EEł̑OɁAňꑧ‚ƂˁEE"; &face fbn00; &calc !m1stf=!m1stf+1; &goto m1look_skip; &endif; &if !m1stf=1; &message F-fba02-"₾ÍȂOɂł肵̂I"; &face fbn00; &goto m1look_skip; &endif; :m1look_skip; } &set_block m1drink ' Ȃ񂩈ށ { &set !endflag 0; &loop; &select 1"g",1"",1"`EEE",1"ς߂" { ' g &if !gcount=0; &message F-fba00-"u˂ADB͂ǂȂ́Hv"; &message F-fba04-"uƁEEE_[WɁAZCAAbTA" ," vXIuEF[YAIWyRv"; &message F-fba00-"u`EEOĂς蕪ȂB" ," II̍ۂA΂΂``ƑSčĂv"; &message F-fba04-"uʖڂBȂƂ炨̖ڒꒃ" ,"ȂႤȂv"; &message F-fba00-"u`́BʁXɈłA" ," ǂ̒ɓΈꏏB" ," ɁA͍g̖ɂ́AȂ`v"; &message F-fba04-"uEE낢ނ낦Ă̂ɁEEv"; &message F-fba01-"u``́A悫ɂ͂炦I" ," ق񂶂A܁``v"; &message F-fba31-"uEExTeB̕" ," eB[pbN̍gɂ邩ˁEEEv"; &message F-fba02-"u``߁I̓CX^gIv"; &message F-fba00-"uAꂩD́Äׂ" ," ܂XyVuh^ɂ̂Iv"; &message F-fba31-"uEEEgāAƑ@ׂȈݕȂ̂ɁEEEv"; &message F-fba00-"uʂɋƂȂȂ悧EEEv"; &face fbn00; &calc !gcount=!gcount+1; &set !m1 1; &else; &message F-fba00-"uEEEEEB" ," gāAȂƂȂCi邩炢`ˁv"; &message F-fba01-"ułAȏɁAސlԂɋCiā`Ƃ" ," ؂Ȃ񂾂ˁB݂ɂB͂͂͂͂͂͂͂v"; &message F-fba04-"uEEEEEEEEEEEEEEEEEv"; &message F-fba00-"uȂɂ掍DEEẼWgڂ́EEEv"; &message F-fba04-"uȂłȂEEEEˁv"; &message F-fba00-"uHȂɂv"; &message F-fba04-"uȂmEEČtAmĂHv"; &message F-fba00-S24"umȂIIviςj"; &message F-fba07-"uˁEEE킽nłEEEv"; &message F-fba00-"uHv"; &face fbn00; &endif; } ,{ ' &if !count=0; &message F-fba00-"u˂A`v"; &message F-fba04-S24"u@ȁ@@@@v"; &message F-fba17-"u``AȂłII" ," ܂ŁAȂɂςȂv"; &message F-fba21-"ûˁEEEATeBRbNsbgł" ," \ꂵ̂ƊoĂHv"; &message F-fba00-"uւHȂ̂Ɓv"; &message F-fba07-"uEEEEEEEEςoĂȂ̂ˁB"; &message F-fba21-"uEEEEEEEEςoĂȂ̂ˁB" ," Ɓ@Ɂ@@@I@DɂSĂ" ," ́ADOpɂĂ炢܂ˁIv"; &message F-fba02-"uƂIɂȂƂȂāA\ȂIv"; &message F-fba21-"u`B͐ȉFD̉^sׂ̈ɕKvsŒ" ," f́Iv"; &message F-fba00-"uKvsŒ"W10"E"W10"E"W10"E"W10"E"W10"E"W10"E"W10"Ƃ߂ȂH"K ,F-fba02-" ςāAWm[^ss”\" ," Ȃ킯ȂȂIIv"; &message F-fba04-"uEEEEEvȂAĂv"; &message F-fba00-"uāH"W10"E"W10"E"W10"E"W10"E"W10"y[p[zOtBȂB" ,W10/F-fba17-S24" EEEEEIIv"; &message F-fba04-"uHTeB̎qȂ񂾂A" ," ͒p炢v"; &message F-fba22-"u݂EEȂEEȄXԂȂāv"; &message F-fba09-"uEEEEȂɂfĂłH" ," DoBĂɂA݂Ăȁv"; &message F-fba22-"uɑʖڂII" ," L^ASăf[gĂ邩˂Iv"; &face fbn00; &calc !count=!count+1; &else; &message F-fba00-"uDAEEEv"; &message F-fba04-"ũy[p[zOtBHv"; &message F-fba00-"uEEEE\EEv"; &face fbn00; &endif; } ,{ ' ` &if !`count=0; &message F-fba00-"u˂ADEEEA`ā`݂̂ȁv"; &message F-fba04-"uHނ́Hv"; &message F-fba00-"uIv"; &message F-fba04-"uǁEEEEEE"W10"͂A`v"; &message F-fba01-"uTL`B" ," A܁``B"W10"EEEEv"; &message F-fba03-S32"uA܂IIIv"; &message F-fba31-"u猾̂ɁEE܂āEEv"; &message F-fba03-"uAĂȂȂ悧IIv"; &face fbn00; &calc !`count=!`count+1; &else; &message F-fba00-"uDA`IIv"; &message F-fba04-"uEEEE͂v"; &message F-fba00-"EEEEE"; &message F-fba03-"uAς܂IIIIv"; &message F-fba07-"uĂ̂Ȃ܂Ȃ΂̂ɁEEEv"; &face fbn00; &endif; } ,{ ' }; &if $STATUS=3 or $STATUS=256; &cutloop; &endif; &endloop; } &set_block m1eat { } &set_block m1system ' VXe { &face fba09; ' _炾 &select 1"Z[u",1"[h" { ' Z[u &message "ǂɃZ[u܂HH"; &select 1"tOP",1"tOQ",1"tOR" { ' tOP &message "tOPɃZ[u‚"; &save save1.dat ' Z[uȃR}h {&message "Z[uP݂̂̏ł";} ,{ ' [h́A̍sōĊJB(gosub mode) &gosub load_operation; }; ' ';' save ̃^[ʒu } ,{ ' tOQ &message "tOQɃZ[u‚"; &save save2.dat ' Z[uȃR}h {&message "Z[uQ݂̂̏ł";} ,{ ' [h́A̍sōĊJB(gosub mode) &gosub load_operation; }; ' ';' save ̃^[ʒu } ,{ ' tOR &message "tORɃZ[u‚"; &save save3.dat ' Z[uȃR}h {&message "Z[uR݂̂̏ł";} ,{ ' [h́A̍sōĊJB(gosub mode) &gosub load_operation; }; ' ';' save ̃^[ʒu }; } ,{ ' [h &message "ǂ[h܂HH"; &select 1"tOP",1"tOQ",1"tOR" { ' tOP &message "tOP[h‚"; &load save1.dat; } ,{ ' tOQ &message "tOQ[h‚"; &load save2.dat; } ,{ ' tOR &message "tOR[h‚"; &load save3.dat; }; }; &face fbn00; } &set_block load_operation { &message "[h݂̎̂̏łB"; &fadeout 5 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; &fade 5 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1; } '------------------------------------------------------------------------------------ ' ' - `ytr` - Ver0.10 ' ' - g`qtm` - eXgt@C ' ' ɈڐA ea(c)ALICE-soft By.-= fsm =- ' '------------------------------------------------------------------------------------ '------------------------------------------------------------ ŏ̏ ------- &set_block initialize { ' VXeϐ ' Face windiw ̊֌Ŵ &set $FACE_X 0; ' Face-win W &set $FACE_Y 289; &set $FACE_DX 104; ' Face-win L &set $FACE_DY 111; ' Select window ̊֌Ŵ &set $SELWIN_TorG 1; ' Sel-win 0:÷PCG 1:÷GRP &set $SELWIN_USE 1; ' Sel-win I[vAN[Y邩 &set $SELWIN_LINE 19; ' Sel-win Ps̃hbg &set $SELWIN_SIZE 8; ' Sel-win {TCY &set $SELWIN_ 1; ' Sel-win {[h &set $SELWIN_S{ 0; ' Sel-win {S{[h &set $SELWIN_LOC_X 480; ' Sel-win eLXg̃P[V &set $SELWIN_LOC_Y 138; &set $SELWIN_X 464; ' ZNgwin W &set $SELWIN_Y 128; &set $SELWIN_DX 168; ' ZNgwin L &set $SELWIN_DY 152; ' max w肷B &set $SELWIN_SPC 9; ' Sel-win ㉺_~[hbg &set $MOUSE_MODE 0; ' ϳ߲́A0:ڸij޳ݎ̂ݕ\ 1:ɕ\ &set $MOUSE_AREA 1; ' ϳ߲̈ړ͈ 0:ʑS 1:ڸWin &set $SELCUR_X 472; ' ZNgJ[\̍[W &set $SELCUR_DX 150; ' ZNgJ[]̕ &set $SELCUR_DU 1; ' ZNgJ[\̏̃_~[hbg &set $SELCUR_DD 18; ' ZNgJ[\̑ &set $SELCUR_PAGE 2; ' ZNgJ[\Ŏgp÷ڰ ' Windiw ʂ̊֌Ŵ &set $WIN_SIDE 1; ' dEBhD̎w 0:Ȃ 1:^ &set $WIN_SIDEPTN "15,15,3,15,E"; ' ^dEBhD̉̃p^[w(O珇) &set $WIN_COLOR 3; ' EBhD̐F ' &message ̊֌Ŵ &set $MES_TorG 1; ' &message 0:÷PCG 1:÷GRP &set $MES_LOC_X 122; ' &message ̍ XW &set $MES_LOC_Y 314; ' AYW &set $MES_x 0; ' үނ̒x\Ӱ 0:CAPS 1`:reserve &set $MES_WAIT 2; ' x\̂Po͂̃t[ &set $MES_SIZE 8; ' {TCY 8 12 &set $MES_ 1; ' {[h 0:m[} 1: &set $MES_S{ 0; ' {S{[h 0:m[} 1:S{ &set $MES_COL 1; ' ÷PCG̊{J[ &set $MES_LINE_16 19; ' ÷GRP̂PsBPUhbg[h &set $MES_LINE_24 27; ' ÷GRP̂PsBQShbg[h &set $MES_LINE_32 35; ' ÷GRP̂PsBRQhbg[h &set $MES_NEXT_KEY 29; ' ֑L[ 255ŖB &set $MES_KWAIT_X 615; ' ҂үނ̕\ XW MES_TorG ɂ &set $MES_KWAIT_Y 376; ' AYW PʂقȂB &set $KW_STRING ""; ' L[EFCg̃L[͗v &set $KW_ 0; ' L[͗v̕ &set $KW_SIZE 8; &set $KW_S{ 0; &set $KW_COL 1; '&contrast 0; ' tFCXp^[ǂ &mag fba00.mag ; &face_eset fba00 $FACE_X,$FACE_Y; ' TeB m[} &mag fba01.mag ; &face_eset fba01 $FACE_X,$FACE_Y; ' TeB ΂A낱 &mag fba02.mag ; &face_eset fba02 $FACE_X,$FACE_Y; ' TeB { &mag fba03.mag ; &face_eset fba03 $FACE_X,$FACE_Y; ' TeB &mag fba04.mag ; &face_eset fba04 $FACE_X,$FACE_Y; ' D m[} &mag fba05.mag ; &face_eset fba05 $FACE_X,$FACE_Y; ' D ΂ &mag fba06.mag ; &face_eset fba06 $FACE_X,$FACE_Y; ' D { &mag fba07.mag ; &face_eset fba07 $FACE_X,$FACE_Y; ' D &mag fba08.mag ; &face_eset fba08 $FACE_X,$FACE_Y; ' D ۂ &mag fba09.mag ; &face_eset fba09 $FACE_X,$FACE_Y; ' _ &mag fba17.mag ; &face_eset fba17 $FACE_X,$FACE_Y; ' TeB &mag fba21.mag ; &face_eset fba21 $FACE_X,$FACE_Y; ' D ނނI &mag fba22.mag ; &face_eset fba22 $FACE_X,$FACE_Y; ' TeB ނނB`B &mag fba31.mag ; &face_eset fba31 $FACE_X,$FACE_Y; ' D ߂ &mag fbn00.mag ; &face_eset fbn00 $FACE_X,$FACE_Y; ' tFCXEBhD N[Y '&contrast 15; &tpalet 1,65535; ' eLXg̃pbgw &tpalet 2,1985; ' TCOLOR()ɏ &tpalet 4,65535; ' \tgL[{[hv[(?) &filelink bee_main.sce; } '------------------------------------------------------------------------------------- ' ' - g`qtm` - Interpreter... ' - `ytr` - develop peXgViIt@C ' '------------------------------------------------------------------------------------- ' V{ ' ':Rg *:label ' $:VXeϐ &:R}h ' ;: %:‹ϐ(?) ' !:[Jϐ #:O[oϐ ' @:Z~O[oϐ ' ' b ' ' E&goto ߂́AHARUNÅKwщzĎgpȂłB ' ESẴR}h̋Lq́A &set-block ̓ɂĂ݈̂Ӗ܂B ' E[Jϐ̃XR[v́A"{" "}" ̊ԂłAw̃lXg܂B ' El̕\L͂POî݉”\łB ' EOF ɂ̓GhR[h $1A tĂB ' '-------------------------------------------------------------------------------------- '--------------------------------- ݒ ------------------------------ '<< ϐ̑Ƃ >> ' &set-block start { ' ܂ϐ̐錾l '<< VXeϐ >> ' &set $GRP00A_X=30; ' [h`ł̃Cʂ̍wW &set $GRP00A_Y=30; ' [h`ł̃Cʂ̍xW &set $GRP00B_X=0; ' [hał̃Cʂ̍wW &set $GRP00B_Y=0; ' [hał̃Cʂ̍xW ' '<< O[oϐ >> ' &set #i=0; ' Gp &goto scene1; ' ŏ̏ʂɃN } '--------------------------------- ViIX^[g ------------------------------ '<< ŏ̏ >> &set-block scene1 { &fadeout-all; ' ʑŜtF[hAEg &set-mode 1; ' [hPɈڍs &set-frame; ' t[\ &draw-pic 0; ' 0 Ԃ̊G\ &fadein-all; ' ʑŜtF[hC &set !count=0; ' [Jϐ !count *loop; ' x &message "˔! `cu낤!!"!count ' bZ[W\ ,"eXgpViIt@C Ver0.10 by.fsm"; &select "JԂ"," " {&goto loop;},{&goto break;} *break; ' x &effect 1; ' 1 &jump-block second; ' ubN second փWv &goto scene2; ' V[QփN } ' 'Scene2:Q ' &set-block scene2 { &draw-pic 1; ' 1 Ԃ̊G\ &end; ' ViIt@CI } '--------------------------------- ViII ---------------------------------- ' ' - `ytr` - & - g`qtm` - EEEEΊIII ' ' -= fsm =- uskcgm ?USKCG ver 0.1!v  @?>|"v??~<#v<<~~?$v%v$H $ $H$&v'v(v@  0p)v*v+v,v-v.v/v0v1v2v3v4v5v6v0!##!07v8v??????9v:v @@ ;v<@  @~??>v`x|~?v@vAv`x>|~~Bv??CvDvEvFv , L , L , L , LGv????HvA!??!AIv {x{ Jv@Ca'r|ppppp7F@KvLvMv@@@Nv $H$I I $H $Ov8??8PvQv@ 00  Rvfff pSvTvUv??~<Vv8 @@@Wv@ Xv@@@ 8Yv @Zv??[v\v??]v^v yy _v88`v#Ð@  av<0~bv@8cvBdv  @Ò#ev~0<fv8@gvBhv` HH `iv0 ??㟞 0jv8Bkv?`lv~  <mv0 ÉInvB8ov`?pv < ~qvIÉ 0rvH`DXB&!!`sv  $B""BAtv@@@    @uv@B" vv "B 2wv @`xv ```yv @(D  zv   @@@{vLTdBHP0 |v@!!P }v@ B @@~v0HH80!w"w|0@pHH|0#w||$w|%wn!b¢$$&w||'whTTT(w/a¢"$$)w|hTTT*w+w,wp3UUڳ-w"A.w"A/w  0w0 1w 02w`` 3w``, ,c`4w$BB5wBB$6w0 c B x|^~7w~|x @1@8w 0B>`?{?~z9w~u??>` Gc:w4`xssx 4;wp8`wPw(@(p?wPp@(p@wPPp(@(pAwp(@(pBwPPCw2`Dw dEw@``0BAB  @Fw'^z\z}}}}}}XX'Gw'_Q%u}}u%Q_'Hwa>$ <`IwJw G(  Kw|$<`Lw "%Gf44dMw`Df/]X,,@& Nwl N[[,,XXyq1"2Ow6 r0884141! `@@DD((Pw2"1qyXX,,[[ NlQw((L@D@` !114488r06 Rwd44fG%" Sw& ,@,X]/fD`Tw|~??>}891`Uw xCO>~|Vw 0#E"I RL"  0Ww```|{3{Xwx0 8YwZw[w\w1999===]wǀǀǀπ^w_w|`w>>>>>?awbw  ucw?dwsewfwyzgw~@__hw0`0`0`3ffff?000113 >iwjw~~|qq|~~kw|0   ff?f?f?   lw3ss3mwB@B@$ $   @ @   nwXX T R aow`  @@@@@@@@@pw@@ qw@@ rw5TjUV@@UjUV*Xsw  >>"Dtwuwvw8  8wwBxw@@b%5}s1yw q OqgOv= zw158採np{w@ ''''?|w..nvƅBB@@}w #%IIII%# ~wtDwu======================================================= = = = - `ytr` - RtBM[Vt@C = = = = by.-= fsm =- = = = ======================================================= E擪 % łȂśA܂B E擪 % ̍sɂ́ARg܂B ViIt@C x[XfBNg %SCE_PATH aqua\sce\ OtBbNp^[ x[XfBNg %GRP_PATH aqua\mmk\ ŏ - `ytr` - ɓnViIt@C %START_SCE aqua_preset.sce ======================================================= = = = - `ytr` - RtBM[Vt@C = = = = by.-= fsm =- = = = ======================================================= E擪 % łȂśA܂B E擪 % ̍sɂ́ARg܂B ViIt@C x[XfBNg %SCE_PATH FUNNY_BEE\sce\ OtBbNp^[ x[XfBNg %GRP_PATH FUNNY_BEE\mag\ ŏ - `ytr` - ɓnViIt@C %START_SCE BEE_PRESET.sce . 8W.. 8WGTNLIB -WAZUSA ʱW=MM rZ?+. 8W.. 8WADDEX -WADVRL -WARL -WBETA -Wclean bat |:WDATACPY -WDMACPY -WDTOI -WEXT_FNTG -WFSIZE -WGTNLIB H Z"BHKEY_GET -Wmakefile d:W MCMALLOC -WMM -WRL -WSCRN_PRW -WT_CLR -WT_SYMBOL -WVCC -W!V_RANDOM -W3ZM_TREAT -W5. 8W.. 8WADDEX C #include #include /* gqύXiljj֐ Faddex(source,ext,address); char *source; ύXO̕ւ̐擪AhX char *ext; gqւ̐擪AhX char *address; ύX̕i[obt@ւ̐擪AhX jext ɂ́A'.' ͕svł. */ void addex(char*,char*,char*); void addex(source,ext,address) char *source; char *ext; char *address; { char *ser=source; char pe=0; char pe2=0; while(1){ if(*ser++=='.')pe+=1; if(*ser==0)break; } if(pe){ /* source '.'܂܂Ă */ while(1){ *address++=*source++; if(*source=='.'){ pe2+=1; if(pe2==pe){ *address++='.'; while(1){ *address++=*ext++; if(*ext==0){ *address=0; return; } } } } } } else { /* source '.'͊܂܂ĂȂ */ while(1){ *address++=*source++; if(*source==0){ *address++='.'; while(1){ *address++=*ext++; if(*ext==0){ *address=0; return; } } } } } } . 9W.. 9WADVRL C [%v /* AhoXgqkkWJ֐ k Fadvrl_arc(source,dist,size); F char *source; k̃f[^̐擪AhX char *dist; k̃obt@ւ̐擪AhX int size; k錳̃f[^̃oCg ߂lFint k̃f[^TCY WJ Fadvrl_ext(source,dist); F char *source; WJ̃f[^̐擪AhX char *dist; WJ̃obt@ւ̐擪AhX ߂lFint st st= 0:I st=-1:ُI jkꂽf[^̐擪ɁA'ADVRL'Ƃwb_ WJ̃TCYiint^jL^Ă邱Ƃɂ advrl֐ňf[^ł邱ƂF܂B iadvrl_arc();sƁÃwb_͎Idistɕt܂Bj */ #include #include int advrl_arc(char*,char*,int); int advrl_ext(char*,char*); int cmp_data(char*,char*,unsigned char); /*---------------------------------------------------- k --*/ int advrl_arc(source,dist,size) char *source; char *dist; int size; { char *dbuf=(char*)malloc(256); /* rLpobt@ */ char *dbuf_init=dbuf; /* rLpobt@ʒuۑ */ char *ptr1=source; /* rp|C^P */ char *ptr2=source+3; /* rp|C^Q */ char *ptr1_init=ptr1; /* r|C^Aɖ߂|C^P( */ char *ptr2_init=ptr2; /* r|C^Aɖ߂|C^Q( */ unsigned char cmps=3; /* cmps+1 oCgɂ‚Ĕr */ unsigned char cmps_init=cmps; /* cmps oCgɂ‚Ĕrۑ */ unsigned char cmpi=0; /* ptr1 cmpioCg̈ʒur */ int i; while(1){ if(cmp_data(ptr1,ptr2,cmps)==-1){ /* r񂪈vȂ */ if(cmps==3){ /* rRoCg */ ptr1=ptr1_init; /* r{P */ ptr2_init++; ptr2=ptr2_init; if(cmps_init==255){ /* 255oCgȂfo */ break; } cmps_init+=1; cmps=cmps_init; } ptr1++; cmps-=1; cmpi+=1; } else { /* v */ fo(ptr1_init cmpi-1oCg) unnnunn } } } /*----------------------------------------- r --*/ int cmp_data(d1,d2,size) char *d1; char *d2; unsigned char size; { int i; for(i=0;i #include int arl_cmp(unsigned char*,unsigned char*,int); /* k */ int arl_ext(unsigned char*,unsigned char*,int); /* WJ */ int arl_tst(unsigned char*,int); /* eXg */ /*-------------------------------------------------------< Advanced RunLength Compless > */ int arl_cmp(buff,buff2,fsize) unsigned char *buff; /* k */ unsigned char *buff2; /* k */ int fsize; /* \[X̃TCY */ { int size; unsigned char c_size; unsigned char c_buffer[256],*c_buff=&c_buffer[0]; unsigned char *end_buff=buff+fsize-1; unsigned int i; int *temp; size=0; temp=(int*)buff2; *temp++=fsize; /* ̃TCYi[ */ size+=4; buff2+=4; while(1){ /* Ŝ̃[v */ if((*buff) != *(buff+1)){ /* ݂̈ʒuƎ̈ʒúAႤR[h */ c_size=0; c_buff=&c_buffer[0]; while(1){ *c_buff++=*buff++; /* `FbNobt@ɂP“ */ c_size+=1; /* {P */ if(*buff == *(buff+1))break; /* ̈ʒuAȂ甲 */ if(c_size==128)break; /* TCYPQW‚ɂȂ甲 */ if(buff>end_buff)break; /* IȂ甲 */ } *buff2++=c_size-1; /* TCY */ size+=1; for(i=0;iend_buff)break; /* IȂ甲 */ if(c_size==128)break; /* TCYPQW‚ɂȂ甲 */ } *buff2++=128+c_size-1; /*  */ size+=1; *buff2++=*(buff-1); /* F */ size+=1; } if(buff>end_buff)break; /* IȂ甲 */ } return(size); } /*---------------------------------------------------< Advanced RunLength UnCompless > */ int arl_ext(buff,buff2,fsize) unsigned char *buff; /* WJobt@ */ unsigned char *buff2; /* WJobt@ */ int fsize; /* \[X̃TCY */ { unsigned int i; int size=0; /* WJ̃TCY */ int w_size=0; /* `FbNITCY */ buff+=4; /* WJ̃TCYXLbv */ w_size+=4; while(1){ if(*buff >=128){ /* Am */ unsigned char c_size; c_size=(*buff++)-128; /* ̂ */ w_size+=1; for(i=0;i<=c_size;i++){ /* 肩 */ *buff2++=*buff; size+=1; } buff++; w_size+=1; if(w_size>=fsize)break; } else { /* •ʃm */ unsigned char c_size; c_size=*buff++; /* ̂ */ w_size+=1; for(i=0;i<=c_size;i++){ *buff2++=*buff++; size+=1; w_size+=1; } } if(w_size>=fsize)break; } return(size); } /*-------------------------------------------------------< Advanced RunLength Test > */ int arl_tst(buff,fsize) unsigned char *buff; /* k */ int fsize; /* \[X̃TCY */ { int size; unsigned char c_size; unsigned char c_buffer[256],*c_buff=&c_buffer[0]; unsigned char *end_buff=buff+fsize-1; unsigned int i; int *temp; size=0; *temp++=fsize; /* ̃TCYi[ */ size+=4; while(1){ /* Ŝ̃[v */ if((*buff) != *(buff+1)){ /* ݂̈ʒuƎ̈ʒúAႤR[h */ c_size=0; c_buff=&c_buffer[0]; while(1){ *c_buff++=*buff++; /* `FbNobt@ɂP“ */ c_size+=1; /* {P */ if(*buff == *(buff+1))break; /* ̈ʒuAȂ甲 */ if(c_size==128)break; /* TCYPQW‚ɂȂ甲 */ if(buff>end_buff)break; /* IȂ甲 */ } size+=1; for(i=0;iend_buff)break; /* IȂ甲 */ if(c_size==128)break; /* TCYPQW‚ɂȂ甲 */ } size+=1; size+=1; } if(buff>end_buff)break; /* IȂ甲 */ } return(size); } . :W.. :WBETA C n #include #include #include /*--------- x^CgAx^[h֐ ------*/ /* Fbetaread(filename,address,size) address filename size oCgǂ */ /* betawrite(filename,address,size) address filename size oCg */ /* Fchar *filename t@Cl[̐擪AhX char *address ǂݍ݁i݁j̃AhX int size ǂݍ݁i݁joCg ԂlFint st st= 0:I st=-1:ُI */ int betaread(char*,char*,int); int betawrite(char*,char*,int); /*--------- x^CgAx^[h֐i[hPʁj ------*/ /* FWbetaread(filename,address,size) address filename size oCgǂ */ /* Wbetawrite(filename,address,size) address filename size oCg */ /* Fchar *filename t@Cl[̐擪AhX short *address ǂݍ݁i݁j̃AhX int size ǂݍ݁i݁joCg ԂlFint st st= 0:I st=-1:ُI */ int Wbetaread(char*,short*,int); int Wbetawrite(char*,short*,int); /*------------------------------------------------------ ǂݍ --------*/ int betaread(filename,address,size) char *filename; char *address; int size; { FILE *stream; stream=fopen(filename,"rb"); if(stream==0)return(-1); /* t@CI[vs */ if(fread(address,size,1,stream)!=1){ /* ɓǂݍ߂ĂȂ */ fclose(stream); return(-1); } else { /* ɓǂݍ߂ */ fclose(stream); return(0); } } /*------------------------------------------------------ --------*/ int betawrite(filename,address,size) char *filename; char *address; int size; { FILE *stream; stream=fopen(filename,"wb"); if(stream==0)return(-1); /* t@CI[vs */ if(fwrite(address,size,1,stream)!=1){ /* ɏ߂ĂȂ */ fclose(stream); return(-1); } else { /* ɏ߂ */ fclose(stream); return(0); } } /*--------------------------------------------------------- ---*/ int Wbetawrite(fname,add,size) char *fname; short *add; int size; { FILE *stream; char *add_r=(char*)malloc(size); short *add_w; int i; add_w=(short*)add_r; for(i=0;i<(size/2);i++)*add_w++=*add++; stream=fopen(fname,"wb"); if(stream==0)return(-1); if(fwrite(add_r,size,1,stream)==0){ fclose(stream); return(-1); } free(add_r); fclose(stream); return(0); } /*--------------------------------------------------------- ǂݍ ---*/ int Wbetaread(fname,add,size) char *fname; short *add; int size; { FILE *stream; char *add_r=(char*)malloc(size); short *add_w; int i; unsigned int lng; add_w=(short*)add_r; stream=fopen(fname,"rb"); lng=(unsigned int)filelength(fileno(stream)); if(stream==0)return(-1); if(lng<=size){ if(fread(add_r,lng,1,stream)==0){ fclose(stream); return(-1); } } else { if(fread(add_r,size,1,stream)==0){ fclose(stream); return(-1); } } for(i=0;i<(size/2);i++)*add++=*add_w++; free(add_r); fclose(stream); return(0); } del /Y *.o del GTNLIB.a . ;W.. ;WDATACPY C */* f[^Rs[֐ Fdatacpy(add1,add2,cnt); F short *add1; ]AhX short *add2; ]AhX short cnt; Rs[ @\ Fadd1 add2 ցAcnt A32oCgPʂŃf[^Rs[܂B short ^ŃANZX܂B X[p[oCÜɃANZX鎞ɗLpȎ܂B ߂lFȂ */ #include #include void datacpy(short*,short*,short); void datacpy(add1,add2,cnt) short *add1; short *add2; short cnt; { unsigned short i; for(i=0;i struct DMAREG { unsigned char csr; unsigned char cer; unsigned short spare1; unsigned char dcr; unsigned char ocr; unsigned char scr; unsigned char ccr; unsigned short spare2; unsigned short mtc; unsigned char *mar; unsigned long spare3; unsigned char *dar; unsigned short spare4; unsigned short btc; unsigned char *bar; unsigned long spare5; unsigned char spare6; unsigned char niv; unsigned char spare7; unsigned char eiv; unsigned char spare8; unsigned char mfc; unsigned short spare9; unsigned char spare10; unsigned char cpr; unsigned short spare11; unsigned char spare12; unsigned char dfc; unsigned long spare13; unsigned short spare14; unsigned char spare15; unsigned char bfc; unsigned long spare16; unsigned char spare17; unsigned char gcr; }; volatile struct DMAREG *dma; void dmacpy(unsigned short *,unsigned short *,unsigned short); void dmacpy(unsigned short *adr1,unsigned short *adr2,unsigned short cnt) { dma=(struct DMAREG *)0xe84080; dma->csr=0xff; /*clear flag*/ dma->dcr=0x08; dma->ocr=0x21; /*1byte*/ dma->scr=0x05; dma->ccr=0x00; dma->cpr=0x03; dma->mfc=0x05; dma->dfc=0x05; dma->mtc=cnt; /*JE^*/ dma->mar=(unsigned char *)adr1; /*]*/ dma->dar=(unsigned char *)adr2; /*]*/ dma->ccr |= 0x80; /*start*/ while(!(dma->csr & 0x90)); dma->csr=0xff; /*clear flag*/ } . <W.. <WDTOI C P!#include #include #include #include /* double ^̐l݂̐̂肾Aint ŕԂ֐ Fint dtoi(src); double src; ϊ鐔l */ int dtoi(double); int dtoi(src) double src; { double temp; char xstemp[256],*xs=xstemp; int result; modf(src,&temp); /* _ȉ؂̂ */ gcvt(temp,20,xs); /* double ^𕶎ɕϊ */ result=atoi(xs); /* 񂩂 int ɕϊ */ return(result); } . <W.. <WEXT_FNTGC zf l/* gtHgQbg֐ F void EXT_FNTGET(code,size,accent,sq,buff); F unsigned short code; VtgihrR[h or ASCIIR[h int size; TCY(812w) int accent; size12̎0ɌŒ int sq; S{敶 size12̎0ɌŒ EXTBUF *buff; ̃p^[ǂݍ݃obt@ @\ F buff ɁAw肵̃p^[ǂݍ݂܂B p^[́AIOCSR[FNTGET()ƓlłB size 12 w肵́AyтS{敶w肵ȂłB 듮삵܂B */ #include #include typedef struct { short x; short y; char buffer[128]; }EXTBUF; void EXT_FNTGET(unsigned short,int,int,int,EXTBUF*); /*----------------------------------------------------------------------------*/ void EXT_FNTGET(code,size,accent,sq,buff) unsigned short code; int size; int accent; int sq; EXTBUF *buff; { int i; union { unsigned short mixed; struct{ unsigned bitF:1; unsigned bitE:1; unsigned bitD:1; unsigned bitC:1; unsigned bitB:1; unsigned bitA:1; unsigned bit9:1; unsigned bit8:1; unsigned bit7:1; unsigned bit6:1; unsigned bit5:1; unsigned bit4:1; unsigned bit3:1; unsigned bit2:1; unsigned bit1:1; unsigned bit0:1; }bit; }*ptr1; union { unsigned int mixed; struct{ unsigned bitF:2; unsigned bitE:2; unsigned bitD:2; unsigned bitC:2; unsigned bitB:2; unsigned bitA:2; unsigned bit9:2; unsigned bit8:2; unsigned bit7:2; unsigned bit6:2; unsigned bit5:2; unsigned bit4:2; unsigned bit3:2; unsigned bit2:2; unsigned bit1:2; unsigned bit0:2; }bit; }*ptr2; if(((code>=0x8100)&&(code<=0x9FFF))||((code>=0xE000)&&(code<=0xEFFF))) { FNTGET(size,code,(struct FNTBUF*)buff); if(accent){ buff->buffer[0]=buff->buffer[0]|(buff->buffer[0]>>1); for(i=1;i<32;i++)buff->buffer[i]=buff->buffer[i]|(buff->buffer[i]>>1)|((buff->buffer[i-1]<<7)*(i&1)); } if(sq){ (struct EXTBUF*)ptr1=&(buff->buffer[30]); (struct EXTBUF*)ptr2=&(buff->buffer[124]); for(i=15;i>=0;i--){ ptr2->bit.bit0=ptr1->bit.bit0*3; ptr2->bit.bit1=ptr1->bit.bit1*3; ptr2->bit.bit2=ptr1->bit.bit2*3; ptr2->bit.bit3=ptr1->bit.bit3*3; ptr2->bit.bit4=ptr1->bit.bit4*3; ptr2->bit.bit5=ptr1->bit.bit5*3; ptr2->bit.bit6=ptr1->bit.bit6*3; ptr2->bit.bit7=ptr1->bit.bit7*3; ptr2->bit.bit8=ptr1->bit.bit8*3; ptr2->bit.bit9=ptr1->bit.bit9*3; ptr2->bit.bitA=ptr1->bit.bitA*3; ptr2->bit.bitB=ptr1->bit.bitB*3; ptr2->bit.bitC=ptr1->bit.bitC*3; ptr2->bit.bitD=ptr1->bit.bitD*3; ptr2->bit.bitE=ptr1->bit.bitE*3; ptr2->bit.bitF=ptr1->bit.bitF*3; ptr2--; ptr2->bit.bit0=ptr1->bit.bit0*3; ptr2->bit.bit1=ptr1->bit.bit1*3; ptr2->bit.bit2=ptr1->bit.bit2*3; ptr2->bit.bit3=ptr1->bit.bit3*3; ptr2->bit.bit4=ptr1->bit.bit4*3; ptr2->bit.bit5=ptr1->bit.bit5*3; ptr2->bit.bit6=ptr1->bit.bit6*3; ptr2->bit.bit7=ptr1->bit.bit7*3; ptr2->bit.bit8=ptr1->bit.bit8*3; ptr2->bit.bit9=ptr1->bit.bit9*3; ptr2->bit.bitA=ptr1->bit.bitA*3; ptr2->bit.bitB=ptr1->bit.bitB*3; ptr2->bit.bitC=ptr1->bit.bitC*3; ptr2->bit.bitD=ptr1->bit.bitD*3; ptr2->bit.bitE=ptr1->bit.bitE*3; ptr2->bit.bitF=ptr1->bit.bitF*3; ptr2--; ptr1--; } buff->x=32; buff->y=32; } } else { FNTGET(size,code,(struct FNTBUF*)buff); if(accent){ for(i=0;i<16;i++)buff->buffer[i]=buff->buffer[i]|(buff->buffer[i]>>1); } if(sq){ (struct EXTBUF*)ptr1=&(buff->buffer[14]); (struct EXTBUF*)ptr2=&(buff->buffer[60]); for(i=7;i>=0;i--){ ptr2->bit.bit0=ptr1->bit.bit0*3; ptr2->bit.bit1=ptr1->bit.bit1*3; ptr2->bit.bit2=ptr1->bit.bit2*3; ptr2->bit.bit3=ptr1->bit.bit3*3; ptr2->bit.bit4=ptr1->bit.bit4*3; ptr2->bit.bit5=ptr1->bit.bit5*3; ptr2->bit.bit6=ptr1->bit.bit6*3; ptr2->bit.bit7=ptr1->bit.bit7*3; ptr2->bit.bit8=ptr1->bit.bit0*3; ptr2->bit.bit9=ptr1->bit.bit1*3; ptr2->bit.bitA=ptr1->bit.bit2*3; ptr2->bit.bitB=ptr1->bit.bit3*3; ptr2->bit.bitC=ptr1->bit.bit4*3; ptr2->bit.bitD=ptr1->bit.bit5*3; ptr2->bit.bitE=ptr1->bit.bit6*3; ptr2->bit.bitF=ptr1->bit.bit7*3; ptr2--; ptr2->bit.bit0=ptr1->bit.bit8*3; ptr2->bit.bit1=ptr1->bit.bit9*3; ptr2->bit.bit2=ptr1->bit.bitA*3; ptr2->bit.bit3=ptr1->bit.bitB*3; ptr2->bit.bit4=ptr1->bit.bitC*3; ptr2->bit.bit5=ptr1->bit.bitD*3; ptr2->bit.bit6=ptr1->bit.bitE*3; ptr2->bit.bit7=ptr1->bit.bitF*3; ptr2->bit.bit8=ptr1->bit.bit8*3; ptr2->bit.bit9=ptr1->bit.bit9*3; ptr2->bit.bitA=ptr1->bit.bitA*3; ptr2->bit.bitB=ptr1->bit.bitB*3; ptr2->bit.bitC=ptr1->bit.bitC*3; ptr2->bit.bitD=ptr1->bit.bitD*3; ptr2->bit.bitE=ptr1->bit.bitE*3; ptr2->bit.bitF=ptr1->bit.bitF*3; ptr2--; ptr1--; } buff->x=16; buff->y=32; } } } . =W.. =WFSIZE C /* t@CTCY𒲂ׂ֐ Fint fsize(filename); F char *filename; ԂlFt@CTCY i|PňُIj @\ Fw肵t@C̃t@CTCY𒲂ׂāA̒l int ŕԂ܂. */ #include #include #include int fsize(char*); int fsize(fname) char *fname; { struct stat buf; if(stat(fname,&buf)==-1)return(-1); return(buf.st_size); } /* GTNLIB.A Ver1.00 uv}[N̂‚Ă֐́AKX[p[oCU[hŎgpĂB */ /*--------------------------------------------------------------------------*/ /* L[͎󂯕t Fkey_get(); ԂlFchar L[̈ʒuR[h @\FL[obt@PoCgǂݍ݁A̓͏Ԃ܂B sɔAL[obt@NA܂B */ extern char key_get(); /*--------------------------------------------------------------------------*/ /* x^CgAx^[h֐ */ /* Fbetaread(filename,address,size) address filename size oCgǂ betawrite(filename,address,size) address filename size oCg Fchar *filename t@Cl[̐擪AhX char *address ǂݍ݁i݁j̃AhX int size ǂݍ݁i݁joCg ԂlFint st st= 0:I st=-1:ُI @\Fx^ǂݍ݁i݁j܂B */ extern int betaread(char*,char*,int); extern int betawrite(char*,char*,int); /*--------- x^CgAx^[h֐i[hPʁj ------*/ /* FWbetaread(filename,address,size) address filename size oCgǂ */ /* Wbetawrite(filename,address,size) address filename size oCg */ /* Fchar *filename t@Cl[̐擪AhX short *address ǂݍ݁i݁j̃AhX int size ǂݍ݁i݁joCg ԂlFint st st= 0:I st=-1:ُI */ extern int Wbetaread(char*,short*,int); extern int Wbetawrite(char*,short*,int); /*---------------------------------------------------------------------------*/ /* gqύXiljj֐ Faddex(source,ext,address); F char *source; ύXO̕ւ̐擪AhX char *ext; gqւ̐擪AhX char *address; ύX̕i[obt@ւ̐擪AhX ԂlFȂ @\F^ꂽt@Cl[̊gqAw肳ꂽgqɒu܂B jext ɂ́A'.' ͕svł. */ extern void addex(char*,char*,char*); /*---------------------------------------------------------------------------*/ /*WCXeBbN󂯕tp */ /* ȉ̂Q‚̋p̂́AɒڃWCXeBbN|[g̏𔽉fĂ܂B STICK_UNIT *STC1_IO; STICK_UNIT *STC2_IO; iKvȎ̂݁ARgAEgĎgĉj */ typedef union{ char mixed; struct{ unsigned dummy1:1; unsigned trg_b :1; unsigned trg_a :1; unsigned dummy2:1; unsigned right :1; unsigned left :1; unsigned down :1; unsigned up :1; }bit; struct{ unsigned dummy1:1; unsigned trg :2; unsigned dummy2:1; unsigned stc :4; }data; }STICK_UNIT; /* KvȎ́ARgAEgB STICK_UNIT *STC1_IO=(STICK_UNIT*)0xE9A001; STICK_UNIT *STC2_IO=(STICK_UNIT*)0xE9A003; */ /*---------------------------------------------------------------------------*/ /* OXkAWJ֐ k Fint rl_arc_b(source,dist,size); F char *source; k̃f[^̐擪AhX char *dist; kobt@̐擪AhX int size; kf[^̃TCY ߂lFint k̃TCY @\FoCgPʂŃOXks܂B Fint rl_arc_w(source,dist,size); F short *source; k̃f[^̐擪AhX short *dist; kobt@̐擪AhX int size; kf[^̃TCY ߂lFint k̃TCY @\F[hPʂŃOXks܂B Fint rl_arc_l(source,dist,size); F int *source; k̃f[^̐擪AhX int *dist; kobt@̐擪AhX int size; kf[^̃TCY ߂lFint k̃TCY @\FO[hPʂŃOXks܂B WJ Fint rl_ext_b(source,dist,size); F char *source; WJ̃f[^̐擪AhX char *dist; WJobt@̐擪AhX int size; WJ̃f[^̃TCY ߂lFint WJ̃TCY @\FoCgPʂŃOXWJs܂B Fint rl_ext_w(source,dist,size); F short *source; WJ̃f[^̐擪AhX short *dist; WJobt@̐擪AhX int size; WJ̃f[^̃TCY ߂lFint WJ̃TCY @\F[hPʂŃOXWJs܂B Fint rl_ext_l(source,dist,size); F int *source; WJ̃f[^̐擪AhX int *dist; WJobt@̐擪AhX int size; WJ̃f[^̃TCY ߂lFint WJ̃TCY @\FO[hPʂŃOXWJs܂B jsize int ^̂߁At@CTCY͈kAWJ㋤ 2147483648oCg܂ł܂. p.s.wLjk܂(^^;;; EEE ƂA߂ɌTCYȉɂȂ邱ƂȂł(^^;;;;;; قƂǁuOXcA֐v(δȰ( igtnlib.a ̑Over gtn.a Ƃ̃f[^݊ȊOɂ͎gȂ(^^;j */ extern int rl_arc_b(char*,char*,int); extern int rl_ext_b(char*,char*,int); extern int rl_arc_w(short*,short*,int); extern int rl_ext_w(short*,short*,int); extern int rl_arc_l(int*,int*,int); extern int rl_ext_l(int*,int*,int); /*---------------------------------------------------------------------------*/ /* t@CTCY𒲂ׂ֐ Fint fsize(filename); F char *filename; ԂlFt@CTCY i|PňُIj @\ Fw肵t@C̃t@CTCY𒲂ׂāA̒l int ŕԂ܂. */ extern int fsize(char*); /*---------------------------------------------------------------------------*/ /* f[^Rs[֐ Fdatacpy(add1,add2,cnt); F short *add1; ]AhX short *add2; ]AhX short cnt; Rs[ @\ Fadd1 add2 ցAcnt A32oCgPʂŃf[^Rs[܂B short ^ŃANZX܂B X[p[oCÜɃANZX鎞ɗLpȎ܂B ߂lFȂ */ extern void datacpy(short*,short*,short); /*---------------------------------------------------------------------------*/ /* ^z쐬֐ Fint v_random(seed,max,no,address); F int seed; ̃V[h int max; 闐̍ől{P(1`256) int no; 闐̌ unsigned char *address; ʂi[obt@ւ̐擪AhX @\ Fseed ŏ max-1 ܂ł̒lɊւ^ address ̂AhX no “WJ܂B ԂlF0ŐIA-1ňُIB */ extern int v_random(int,int,int,unsigned char*); /*---------------------------------------------------------------------------*/ /*ʊԃvCIeBύX֐ Fvoid scrn_prw(text,sp,grp); F char text; eLXgʂ̃vCIeB char sp; roAaf̃vCIeB char grp; OtBbÑvCIeB @\ FeLXgAroAOtBbNԂ̃vCIeBw̏ԂɕύX܂B X[p[oCU[hŎgpĂB w@́A0:ŗD 1: 2:ʼn 3:֎~ łB ߂lFȂ */ extern void scrn_prw(char,char,char); /*---------------------------------------------------------------------------*/ /* gtHgQbg֐ F void EXT_FNTGET(code,size,accent,sq,buff); F unsigned short code; VtgihrR[h or ASCIIR[h int size; TCY(812w) int accent; size12̎0ɌŒ int sq; S{敶 size12̎0ɌŒ EXTBUF *buff; ̃p^[ǂݍ݃obt@ @\ F buff ɁAw肵̃p^[ǂݍ݂܂B p^[́AIOCSR[FNTGET()ƓlłB size 12 w肵́AyтS{敶w肵ȂłB 듮삵܂B */ typedef struct { short x; short y; char buffer[128]; }EXTBUF; extern void EXT_FNTGET(unsigned short,int,int,int,EXTBUF*); /*---------------------------------------------------------------------------*/ /* eLXgsymbol֐ : int t_symbol(str,px,py,size,accent,sq); : char *str; \镶ւ̃|C^ short px; \ʒûwW short py; \ʒûxW int size; ̃TCY 8 12 w肷B int accent; ̎w int sq; S{敶w @\ : eLXgʂɎw肵\܂B \v[́AIOCSR[TCOLOR()Ŏw肳ꂽv[łB size 12 w肵́AyтS{敶w肵ȂłB 듮삵܂B */ extern int t_symbol(char*,short,short,int,int,int); /*---------------------------------------------------------------------------*/ /*ubb摜k֐ : int vcc_cmp(x,y,dx,dy,palstyle,buff); void vcc_ext(x,y,palstyle,buff); : short x; ̂wW short y; ̂xW short dx; w̕ihbgj short dy; x̕ihbgj unsigned short palstyle; pbgۑX^C char *buff; f[^i[obt@̐擪|C^ kɂ́Aő(dx*dy)+38oCg̗eʂ KvłBk realloc ܂傤B @\ : vcc_cmp:ubb`ʼn摜k܂B vcc_ext:ubb`̃f[^WJ܂B palstyle ɂ́ApbgۑX^Cw肵܂B bit0,bit1,bit2... ̏ɃpbgR[hOAPAQDDDɑΉ vcc_cmp ł́AΉbitPł΁ÃpbgR[hgp邱Ƃ܂B vcc_ext ł́Avcc_cmp Ŏw肳ꂽX^Cɑ΂āAvcc_ext Ŏw肳ꂽl _ςƂ܂B Ⴆ΁Avcc_cmp 0xFFFF w肵f[^ vcc_ext 0x7FFF gēWJ pbgR[hPT̂݌ێȂ̃R[h͕ۑ̃f[^Č܂B vcc_cmp 0x3FFF w肵f[^ vcc_ext 0xFFFF gēWJ pbgR[h15,14 vcc_cmp ŎgpȂƎw肳ꂽ̂ pbgR[h15,14 ͌ێȂ̃R[ĥ݈k̐FČ܂B ߂l: vcc_cmp : kʂ̃TCYԂ܂B vcc_ext : ܂B */ extern int vcc_cmp(short,short,short,short,unsigned short,char*); extern void vcc_ext(short,short,unsigned short,char*); /*---------------------------------------------------------------------------*/ /*l`fǂ摜kWJ֐ F int mm_cmp(mmptr); 摜k void mm_ext(mmptr); 摜WJ F struct MMPTR{ short x1; wW short y1; xW short x2; E wW short y2; E xW unsigned short pal_style; pbgX^C short *buff; 摜f[^i[pobt@ }*mmptr; @\ F vcc_cmp() (x1,y1)-(x2,y2)Ŏw肳ꂽ`̉摜k܂B kꂽf[^̊i[̈ mmptr->buff ɎI mۂAɃf[^i[܂B mmptr->buff ̃obt@́Afree() ֐ʼnł܂B o͂ꂽf[^̃TCÝAmmptr->size ɕԂ܂B mmptr->pal_style ́AubbƓlȂ̂ŁA QƂĂB vcc_ext() kꂽ摜WJ܂B mmptr->x1 mmptr->y1 ɍWw肷ƁAw肵ʒu 摜ǂݍ߂܂B ANbsOĂȂ ̂ŁAʂ͂ݏo悤Ȉʒuw肷ƁA\ ”\܂B ܂AW(-1,-1)w肷 摜ۑ̈ʒuɓǂݍ݂܂B WJɂ́Ammptr->x2 mmptr->y2 mmptr->outsize Ӗ܂B mmptr->pal_style ́AubbƓlȂ̂ŁA QƂĂB ߂lFmm_cmp : słPAIłOԂ܂B mm_ext : ܂B */ typedef struct{ short x1; short y1; short x2; short y2; unsigned short pal_style; int size; short *buff; }MMPTR; extern int mm_cmp(MMPTR*); /* k */ extern void mm_ext(MMPTR*); /* WJ */ /*---------------------------------------------------------------------------*/ /*cl`gf[^Rs[֐ Fdmacpy(add1,add2,cnt); F short *add1; ]AhX short *add2; ]AhX short cnt; Rs[(32bit) @\ Fadd1 add2 ցAcnt A32rbgPʂŃf[^Rs[܂B short ^ŃANZX܂B X[p[oCU[hŎgpĂB ߂lFȂ */ extern void dmacpy(unsigned short *,unsigned short *,unsigned short); /*---------------------------------------------------------------------------*/ /*y|ltrhb߂̊֐ F int zm_sdinit(); @\ F y|ltrhb̏܂B ߂lF I O G[OȊOԂ F Ȃ F int zm_zmdplay(char *zmd); @\ F ylcf[^t܂B ߂lF G[R[hԂ܂B F char *zmd; .zmd t@C̃x^[ḧ̐擪ւ̃|C^ F void zm_pcmplay(char *pcmtop,int size); @\ F ʉobl‚炵܂B ߂lF Ȃ F char *pcmtop; adpcm̃f[^̃x^[ḧ̐擪ւ̃|C^ int size; f[^TCY F int zm_fadeout(int speed); @\ F tF[hAEg܂ ߂lF O:ݒI -1:ݒ莸s F int speed; -85`-1 tF[hCxݒ 0 ݒ 1`85 tF[hAEgxݒ F int zm_offset(char *zmd); @\ F ʉ̂ylcf[^́Af[^{̂܂ł̃ItZbg߂܂ ߂lF ItZbg F char *zmd; ylc̃x^[ḧւ̃|C^ */ extern int zm_sdinit(); extern void zm_zmdplay(char *); extern void zm_fadeout(int); extern void zm_pcmplay(char *,int); extern int zm_offset(char*); /* ȉAzlib.s Ɋ܂܂֐Q */ extern void z_init() ; extern int z_alloc( int track , int size ) ; extern int z_assign( int channel , int track ) ; extern int z_stat( int bitptr ) ; extern int z_play( int d2 , int d3 , int d4 ) ; extern int z_stop( int d2 , int d3 , int d4 ) ; extern int z_cont( int d2 , int d3 , int d4 ) ; extern void z_init_all() ; extern void z_int_stop() ; extern int se_play( int track , void *dataptr ) ; extern int se_adpcm1( char *dataptr , int size , int pan ) ; extern int se_adpcm2( int track , int pan ) ; extern int fade_out( int speed ) ; extern int play_cnv_data( int size , void *dataptr ) ; extern int z_chk_drv( void ) ; extern void *z_get_wk_tbl( void ); /*---------------------------------------------------------------------------*/ /* double ^̐l̐؂o int ŕԂ֐ Fint dtoi(src); F double src; ϊ鐔l @\ Fdouble ^̐l src ̐؂o int ^ŕԂ܂B ߂lFsrc ̐ Ӂjɑg񂾊֐Ȃ̂ŁAQOP^z悤 lɂ͑ΉĂ܂B */ extern int dtoi(double); /*---------------------------------------------------------------------------*/ /* AiU[OXkAWJ֐ k Fint arl_cmp(source,dist,size); F char *source; k̃f[^̐擪AhX char *dist; kobt@̐擪AhX int size; kf[^̃TCY ߂lFint k̃TCY @\FoCgPʂŃOXks܂B eXg Fint arl_tst(source,size); F char *source; k̃f[^̐擪AhX int size; kf[^̃TCY ߂lFint k̃TCY @\FOXk̃TCY\B WJ Fint arl_ext(source,dist,size); F char *source; WJ̃f[^̐擪AhX char *dist; WJobt@̐擪AhX int size; WJ̃f[^̃TCY ߂lFint WJ̃TCY @\FoCgPʂŃOXWJs܂B jsize int ^̂߁At@CTCY͈kAWJ㋤ 2147483648oCg܂ł܂. */ extern int arl_cmp(unsigned char*,unsigned char*,int); /* k */ extern int arl_ext(unsigned char*,unsigned char*,int); /* WJ */ extern int arl_tst(unsigned char*,int); /* eXg */ /*---------------------------------------------------------------------------*/ /*eLXgʂOŏ Fvoid T_CLR(); FȂ @\ FeLXgʂOŏ܂B X[p[oCU[hŎgpĂB ߂lFȂ */ extern void T_CLR(); /*---------------------------------------------------------------------------*/ /* ̋󂫗eʃ`FbN‚ malloc() Fchar *mcmalloc(size); Fint size; mۂobt@̃TCY @\ Fmalloc() Ɠ`Ń̈mۂ܂B malloc() ƓlAobt@ free() ʼnł܂B ̋󂫂́AA荞݁AA荞 AvZXI܂B Q[鎞ȊÓApl͖ł傤(^^; ߂lFchar *buff; mۂ̈ւ̃|C^ */ extern char *mcmalloc(); . @W.. @WKEY_GET C (#include #include static union{ int mixed; struct{ unsigned unuse1 :17; unsigned key_loc:7; unsigned unuse2 :8; }bit; }key_data; /*------------------------------------------------------------ L[ --*/ char key_get() { key_data.mixed=B_KEYSNS(); if(key_data.mixed)KFLUSHIO(0xFF); return((char)key_data.bit.key_loc); } all: GTNLIB.A GTNLIB.A: key_get.o beta.o addex.o rl.o fsize.o datacpy.o v_random.o scrn_prw.o ext_fntg.o t_symbol.o vcc.o mm.o dmacpy.o zlib.o zm_treat.o dtoi.o arl.o T_CLR.o mcmalloc.o ar gtnlib.a key_get.o beta.o addex.o rl.o fsize.o datacpy.o v_random.o scrn_prw.o ext_fntg.o t_symbol.o vcc.o mm.o dmacpy.o zlib.o zm_treat.o dtoi.o arl.o T_CLR.o mcmalloc.o key_get.o: key_get/key_get.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions key_get/key_get.c beta.o: beta/beta.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions beta/beta.c addex.o: addex/addex.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions addex/addex.c rl.o: rl/rl.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions rl/rl.c fsize.o: fsize/fsize.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions fsize/fsize.c datacpy.o: datacpy/datacpy.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions datacpy/datacpy.c v_random.o: v_random/v_random.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions v_random/v_random.c scrn_prw.o: scrn_prw/scrn_prw.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions scrn_prw/scrn_prw.c ext_fntg.o: ext_fntg/ext_fntg.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions ext_fntg/ext_fntg.c t_symbol.o: t_symbol/t_symbol.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions t_symbol/t_symbol.c vcc.o: vcc/vcc.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions vcc/vcc.c mm.o: mm/mm.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions mm/mm.c dmacpy.o: dmacpy/dmacpy.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions dmacpy/dmacpy.c zlib.o: zm_treat/zlib.s gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions zm_treat/zlib.s zm_treat.o: zm_treat/zm_treat.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions zm_treat/zm_treat.c dtoi.o: dtoi/dtoi.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions dtoi/dtoi.c arl.o: arl/arl.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions arl/arl.c T_CLR.o: T_CLR/T_CLR.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions T_CLR/T_CLR.c mcmalloc.o: mcmalloc/mcmalloc.c gcc -O -c -fstrength-reduce -fomit-frame-pointer -finline-functions mcmalloc/mcmalloc.c . AW.. AWMCMALLOCC ]Z"#include #include #include char *mcmalloc(int); /*---------------------------------------------< TCY`FbN‚ malloc >--*/ char *mcmalloc(size) int size; { char *temp; temp=malloc(size); /* TCYԂ̃obt@m */ if(temp==0){ VDISPST(0,0,0); /* uchro */ CRTCRAS(0,0); /* X^荞݉ */ exit(0); /* I */ } return(temp); } . AW.. AWMM C S< F#include #include #define GRP_ADD(GRP_X,GRP_Y) ((short*)(0xC00000+((GRP_X)*2)+((GRP_Y)*0x800))) typedef struct{ short x1; short y1; short x2; short y2; unsigned short pal_style; int size; short *buff; }MMPTR; #define BUFF_SIZE 20480 /* obt@̃TCY Ƃ肠 20kb */ /* RA2 ̔{ŁB */ /* ꂩAŒSUoCg(^^; */ int mm_cmp(MMPTR*); /* k */ void mm_ext(MMPTR*); /* WJ */ int flagout(int,short*); /* ⏕Tu[` */ int flagread(short*); /*---------------------------------------------- l`fǂ ---------*/ int mm_cmp(mmptr) /* \̂Ԃ */ MMPTR *mmptr; { short flag_x[]={0,4,8,16,0,4,0,4,8,0,4,8,0,4,8,0}; short flag_y[]={0,0,0,0,1,1,2,2,2,4,4,4,8,8,8,16}; union{ unsigned short mixed; struct{ unsigned upper :4; unsigned mid_upper:4; unsigned mid_lower:4; unsigned lower :4; }bit; }cast; union{ unsigned short mixed; struct{ unsigned bitF:1; unsigned bitE:1; unsigned bitD:1; unsigned bitC:1; unsigned bitB:1; unsigned bitA:1; unsigned bit9:1; unsigned bit8:1; unsigned bit7:1; unsigned bit6:1; unsigned bit5:1; unsigned bit4:1; unsigned bit3:1; unsigned bit2:1; unsigned bit1:1; unsigned bit0:1; }bit; }pals; /* pbgX^C */ short px,py; /* W */ short dx,dy; /* */ short pdx; /* ̃sNZ */ int outsize=0; /* o͂oCg */ int buffsize=0; /* ݂̊mۂobt@̑TCY */ short *buff; /* o͗pobt@ */ short *buff2; /* sNZf[^ۑɃtOǂݍ݃|C^ƂĎg */ short *buff_init; /* o͗pobt@̏ʒu */ int i,c,d,e,f,g; /* GpJE^ */ short *grpp; /* fuq`lw|C^ */ flagout(0,(short*)-1); /* point */ flagread((short*)-1); pals.mixed=mmptr->pal_style; /* pbgX^Cp̂ */ px=(mmptr->x1); /* w */ py=(mmptr->y1); /* x */ dx=(mmptr->x2)-(mmptr->x1)+1; /* vZ w */ dy=(mmptr->y2)-(mmptr->y1)+1; /* vZ x */ pdx=(dx/4); /* ̃sNŽvZ */ if(dx&0b0000_0011)pdx+=1; buffsize+=BUFF_SIZE; /* ܂ŏ̊mە */ buff=(short*)malloc(buffsize); /* ŏ̊m */ buff_init=buff; /* ʒuۑ */ /* ܂́AWpbg̕ۑ */ *buff++=px; /* W̕ۑ */ *buff++=py; *buff++=dx; /* ̕ۑ */ *buff++=dy; *buff++=pals.mixed; /* pbgX^C̕ۑ */ outsize+=10; for(i=0;i<=15;i++){ /* pbgf[^̕ۑ */ *buff++=*((short*)((0xE82000)+(i*2))); outsize+=2; } buff2=buff; /* ۑɍ킹ďꏊL[v */ buff++; /* sNZf[^ւ̍邽߂ɁA󂯂Ă */ buff++; outsize+=4; for(i=0;i=px)&&(py+i-flag_y[d]>=py)){ /* دݸ */ if( (*GRP_ADD(px+(c*4)-flag_x[d] ,py+i-flag_y[d])==cast.bit.upper ) &&(*GRP_ADD(px+(c*4)-flag_x[d]+1,py+i-flag_y[d])==cast.bit.mid_upper) &&(*GRP_ADD(px+(c*4)-flag_x[d]+2,py+i-flag_y[d])==cast.bit.mid_lower) &&(*GRP_ADD(px+(c*4)-flag_x[d]+3,py+i-flag_y[d])==cast.bit.lower ) ){ e=d; break; } } } /* ŁAe ̓tOf[^ */ if(outsize>=buffsize){ /* łɃobt@tg */ buffsize+=BUFF_SIZE; /* l₷ */ f=((int)buff)-((int)buff_init); /* vZ */ g=((int)buff2)-((int)buff_init); /* vZ */ buff_init=(short*)realloc(buff_init,buffsize); /* obt@g */ if(buff_init==0){ return(1); } (int)buff =((int)buff_init)+((int)f); /* buff ʒu␳ */ (int)buff2=((int)buff_init)+((int)g); /* buff ʒu␳ */ } if(flagout(e,buff)){ buff++; /* buff ͂QoCg“ */ outsize+=2; /* o̓TCY{Q */ } } } /* tOf[^o͂́A܂ */ if(outsize>=buffsize){ /* łɃobt@tg */ buffsize+=BUFF_SIZE; /* l₷ */ f=((int)buff)-((int)buff_init); /* vZ */ g=((int)buff2)-((int)buff_init); /* vZ */ buff_init=(short*)realloc(buff_init,buffsize); /* obt@g */ if(buff_init==0){ return(1); } (int)buff=((int)buff_init)+((int)f); /* buff ʒu␳ */ (int)buff2=((int)buff_init)+((int)g); /* buff ʒu␳ */ } if(flagout(0,0)){ /* ŋo_ */ buff++; outsize+=2; } flagout(0,(short*)-1); /* point */ f=((int)buff)-((int)buff_init); /* ꂪ */ *((int*)buff2)=f; /* L */ buff2++; buff2++; /* sNZf[^ */ for(i=0;i=buffsize){ /* łɃobt@tg */ buffsize+=BUFF_SIZE; /* l₷ */ f=((int)buff)-((int)buff_init); /* vZ */ g=((int)buff2)-((int)buff_init); /* vZ */ buff_init=(short*)realloc(buff_init,buffsize); /* obt@g */ if(buff_init==0){ return(1); } (int)buff=((int)buff_init)+((int)f); /* buff ʒu␳ */ (int)buff2=((int)buff_init)+((int)g); /* buff ʒu␳ */ } flagout(*grpp++,buff); /* sNZo */ flagout(*grpp++,buff); flagout(*grpp++,buff); flagout(*grpp++,buff); buff++; outsize+=2; } else { grpp++; grpp++; grpp++; grpp++; } if(flagread(0)==0)buff2++; } } buff_init=(short*)realloc(buff_init,outsize); if(buff_init==0){ return(1); } mmptr->size=outsize; mmptr->buff=buff_init; return(0); } /*-------------------------------------------- ⏕Tu[` -----------*/ int flagout(e,buff) int e; short *buff; { static int point=0; static union{ unsigned short mixed; struct{ unsigned upper :4; unsigned mid_upper:4; unsigned mid_lower:4; unsigned lower :4; }bit; }cast; if(buff==0){ /* buff=0 point ̏ԒׂB */ if(point==0)return(0); else return(1); } if(buff==(short*)-1){ /* buff=-1 point ̏B */ point=0; return(0); } if(point==0)cast.mixed=0; else cast.mixed=*buff; switch(point){ case 0: cast.bit.upper=e; break; case 1: cast.bit.mid_upper=e; break; case 2: cast.bit.mid_lower=e; break; case 3: cast.bit.lower=e; break; } *buff=cast.mixed; point+=1; /* 0 point 3 */ point&=3; if(point==0)return(1); else return(0); /* CNgvłP */ } int flagread(buff) short *buff; { static int point=0; static union{ unsigned short mixed; struct{ unsigned upper :4; unsigned mid_upper:4; unsigned mid_lower:4; unsigned lower :4; }bit; }cast; if(buff==0){ /* buff=0 point ̏ԒׂB */ if(point==0)return(0); else return(1); } if(buff==(short*)-1){ /* buff=-1 point ̏B */ point=0; return(0); } cast.mixed=*buff; switch(point){ case 0: point+=1; /* 0 point 3 */ point&=3; return(cast.bit.upper); break; case 1: point+=1; /* 0 point 3 */ point&=3; return(cast.bit.mid_upper); break; case 2: point+=1; /* 0 point 3 */ point&=3; return(cast.bit.mid_lower); break; case 3: point+=1; /* 0 point 3 */ point&=3; return(cast.bit.lower); break; } } /*----------------------------------------------------- WJ ---------------*/ void mm_ext(mmptr) MMPTR *mmptr; { int grpp_sub[]={0,0x08,0x10,0x20,0x800,0x808,0x1000,0x1008,0x1010,0x2000,0x2008,0x2010,0x4000,0x4008,0x4010,0x8000}; union{ unsigned short mixed; struct{ unsigned bitF:1; unsigned bitE:1; unsigned bitD:1; unsigned bitC:1; unsigned bitB:1; unsigned bitA:1; unsigned bit9:1; unsigned bit8:1; unsigned bit7:1; unsigned bit6:1; unsigned bit5:1; unsigned bit4:1; unsigned bit3:1; unsigned bit2:1; unsigned bit1:1; unsigned bit0:1; }bit; }pals; /* pbgX^C */ short px,py; /* W */ short dx,dy; /* */ short pdx; /* ̃sNZ */ short ddx; /* ƗpEEE(--; */ short *buff; /* o͗pobt@ */ short *buff2; /* sNZf[^ۑɃtOǂݍ݃|C^ƂĎg */ int i,c,d,e,f; /* GpJE^ */ short *grpp; /* fuq`lw|C^ */ short *grpp2; /* Rs[Ƃfuq`lw|C^ */ union{ unsigned char mixed; struct{ unsigned upper:4; unsigned lower:4; }bit; }*flag; union{ unsigned short mixed; struct{ unsigned upper:4; unsigned mid_upper:4; unsigned mid_lower:4; unsigned lower:4; }bit; }*pixel; buff=mmptr->buff; /* Zbg */ px=*buff++; /* W */ py=*buff++; dx=*buff++; dy=*buff++; if(mmptr->x1!=-1)px=mmptr->x1; /* w肪ύX */ if(mmptr->y1!=-1)py=mmptr->y1; pals.mixed=*buff++; /* pbgX^C */ pals.mixed&=mmptr->pal_style; /* pbgf[^̕ */ if(pals.bit.bit0)*((short*)0xE82000)=*buff++; else buff++; if(pals.bit.bit1)*((short*)0xE82002)=*buff++; else buff++; if(pals.bit.bit2)*((short*)0xE82004)=*buff++; else buff++; if(pals.bit.bit3)*((short*)0xE82006)=*buff++; else buff++; if(pals.bit.bit4)*((short*)0xE82008)=*buff++; else buff++; if(pals.bit.bit5)*((short*)0xE8200A)=*buff++; else buff++; if(pals.bit.bit6)*((short*)0xE8200C)=*buff++; else buff++; if(pals.bit.bit7)*((short*)0xE8200E)=*buff++; else buff++; if(pals.bit.bit8)*((short*)0xE82010)=*buff++; else buff++; if(pals.bit.bit9)*((short*)0xE82012)=*buff++; else buff++; if(pals.bit.bitA)*((short*)0xE82014)=*buff++; else buff++; if(pals.bit.bitB)*((short*)0xE82016)=*buff++; else buff++; if(pals.bit.bitC)*((short*)0xE82018)=*buff++; else buff++; if(pals.bit.bitD)*((short*)0xE8201A)=*buff++; else buff++; if(pals.bit.bitE)*((short*)0xE8201C)=*buff++; else buff++; if(pals.bit.bitF)*((short*)0xE8201E)=*buff++; else buff++; (int)buff2=((int)mmptr->buff)+(*((int*)buff)); /* sNZf[^̐擪 */ buff++; buff++; pdx=(dx/4); /* ̃sNŽvZ */ if(dx&0b0000_0011)pdx+=1; (short*)flag =buff; /* p̂Ńev[g(^^; */ (short*)pixel=buff2; /* 炢悢WJ̃[` */ /* sNZ‚̏ꍇ */ if((pdx&1)==0){ /* sNZ͋‚ */ grpp=GRP_ADD(px,py); /* ʒuփ|C^ړ */ ddx=dx-8; for(i=0;i8){ /* WhbgɖȂƂ́Aꎩ̂np */ for(c=0;cbit.upper){ /* tO͂OłȂ */ (int)grpp2=((int)grpp)-grpp_sub[flag->bit.upper]; *grpp++=*grpp2++; *grpp++=*grpp2++; *grpp++=*grpp2++; *grpp++=*grpp2++; } else { /* tO͂O */ *grpp++=pixel->bit.upper; *grpp++=pixel->bit.mid_upper; *grpp++=pixel->bit.mid_lower; *grpp++=pixel->bit.lower; ((int)pixel)+=2; } /* S */ if(flag->bit.lower){ /* tO͂OłȂ */ (int)grpp2=((int)grpp)-grpp_sub[flag->bit.lower]; *grpp++=*grpp2++; *grpp++=*grpp2++; *grpp++=*grpp2++; *grpp++=*grpp2++; } else { /* tO͂O */ *grpp++=pixel->bit.upper; *grpp++=pixel->bit.mid_upper; *grpp++=pixel->bit.mid_lower; *grpp++=pixel->bit.lower; ((int)pixel)+=2; } ((int)flag)+=1; } } /* AnpԂ̏ł */ /* Sî܂܁j */ if(flag->bit.upper){ /* tO͂OłȂ */ (int)grpp2=((int)grpp)-grpp_sub[flag->bit.upper]; *grpp++=*grpp2++; *grpp++=*grpp2++; *grpp++=*grpp2++; *grpp++=*grpp2++; } else { /* tO͂O */ *grpp++=pixel->bit.upper; *grpp++=pixel->bit.mid_upper; *grpp++=pixel->bit.mid_lower; *grpp++=pixel->bit.lower; ((int)pixel)+=2; } /* S(npԂ) */ if(flag->bit.lower){ /* tO͂OłȂ */ (int)grpp2=((int)grpp)-grpp_sub[flag->bit.lower]; switch((dx-1)&0b11){ case 3: grpp[3]=grpp2[3]; case 2: grpp[2]=grpp2[2]; case 1: grpp[1]=grpp2[1]; case 0: grpp[0]=grpp2[0]; break; } } else { /* tO͂O */ switch((dx-1)&0b11){ case 3: grpp[3]=pixel->bit.lower; case 2: grpp[2]=pixel->bit.mid_lower; case 1: grpp[1]=pixel->bit.mid_upper; case 0: grpp[0]=pixel->bit.upper; break; } ((int)pixel)+=2; } ((int)flag)+=1; (int)grpp+=0x800; /* Ps[ʒuփ|C^ړ */ (int)grpp&=0xFFFFF800; grpp+=px; } } /* sNZ‚̏ꍇ */ else { /* ̃sNZ͊ */ grpp=GRP_ADD(px,py); /* ʒuփ|C^ړ */ ddx=dx-8; for(i=0;i8){ /* WhbgɖȂƂ́Aꎩ̂np */ for(c=0;cbit.upper){ /* tO͂OłȂ */ (int)grpp2=((int)grpp)-grpp_sub[flag->bit.upper]; *grpp++=*grpp2++; *grpp++=*grpp2++; *grpp++=*grpp2++; *grpp++=*grpp2++; } else { /* tO͂O */ *grpp++=pixel->bit.upper; *grpp++=pixel->bit.mid_upper; *grpp++=pixel->bit.mid_lower; *grpp++=pixel->bit.lower; ((int)pixel)+=2; } /* S */ if(flag->bit.lower){ /* tO͂OłȂ */ (int)grpp2=((int)grpp)-grpp_sub[flag->bit.lower]; *grpp++=*grpp2++; *grpp++=*grpp2++; *grpp++=*grpp2++; *grpp++=*grpp2++; } else { /* tO͂O */ *grpp++=pixel->bit.upper; *grpp++=pixel->bit.mid_upper; *grpp++=pixel->bit.mid_lower; *grpp++=pixel->bit.lower; ((int)pixel)+=2; } ((int)flag)+=1; } } /* AnpԂ̏ł */ /* S(npԂ) */ if(flag->bit.upper){ /* tO͂OłȂ */ (int)grpp2=((int)grpp)-grpp_sub[flag->bit.upper]; switch((dx-1)&0b11){ case 3: grpp[3]=grpp2[3]; case 2: grpp[2]=grpp2[2]; case 1: grpp[1]=grpp2[1]; case 0: grpp[0]=grpp2[0]; break; } } else { /* tO͂O */ switch((dx-1)&0b11){ case 3: grpp[3]=pixel->bit.lower; case 2: grpp[2]=pixel->bit.mid_lower; case 1: grpp[1]=pixel->bit.mid_upper; case 0: grpp[0]=pixel->bit.upper; break; } ((int)pixel)+=2; } (int)grpp+=0x800; /* Ps[ʒuփ|C^ړ */ (int)grpp&=0xFFFFF800; grpp+=px; if(i==dy-1)return; /* dy ȂAŌ͂ŏI */ /* WԖ */ if(dx>8){ /* WhbgɖȂƂ́Aꎩ̂np */ for(c=0;cbit.lower){ /* tO͂OłȂ */ (int)grpp2=((int)grpp)-grpp_sub[flag->bit.lower]; *grpp++=*grpp2++; *grpp++=*grpp2++; *grpp++=*grpp2++; *grpp++=*grpp2++; } else { /* tO͂O */ *grpp++=pixel->bit.upper; *grpp++=pixel->bit.mid_upper; *grpp++=pixel->bit.mid_lower; *grpp++=pixel->bit.lower; ((int)pixel)+=2; } ((int)flag)+=1; /* S */ if(flag->bit.upper){ /* tO͂OłȂ */ (int)grpp2=((int)grpp)-grpp_sub[flag->bit.upper]; *grpp++=*grpp2++; *grpp++=*grpp2++; *grpp++=*grpp2++; *grpp++=*grpp2++; } else { /* tO͂O */ *grpp++=pixel->bit.upper; *grpp++=pixel->bit.mid_upper; *grpp++=pixel->bit.mid_lower; *grpp++=pixel->bit.lower; ((int)pixel)+=2; } } } /* AnpԂ̏ł */ /* S(npԂ) */ if(flag->bit.lower){ /* tO͂OłȂ */ (int)grpp2=((int)grpp)-grpp_sub[flag->bit.lower]; switch((dx-1)&0b11){ case 3: grpp[3]=grpp2[3]; case 2: grpp[2]=grpp2[2]; case 1: grpp[1]=grpp2[1]; case 0: grpp[0]=grpp2[0]; break; } } else { /* tO͂O */ switch((dx-1)&0b11){ case 3: grpp[3]=pixel->bit.lower; case 2: grpp[2]=pixel->bit.mid_lower; case 1: grpp[1]=pixel->bit.mid_upper; case 0: grpp[0]=pixel->bit.upper; break; } ((int)pixel)+=2; } ((int)flag)+=1; (int)grpp+=0x800; /* Ps[ʒuփ|C^ړ */ (int)grpp&=0xFFFFF800; grpp+=px; } /* ́AxW for ̃lXg */ } /* ŋAsNZ if ‚ */ } . BW.. BWRL C 4g#include #include /*---------------------------------------------------------------------------*/ /* OXkAWJ֐ k Fint rl_arc_b(source,dist,size); F char *source; k̃f[^̐擪AhX char *dist; kobt@̐擪AhX int size; kf[^̃TCY ߂lFint k̃TCY @\FoCgPʂŃOXks܂B Fint rl_arc_w(source,dist,size); F short *source; k̃f[^̐擪AhX short *dist; kobt@̐擪AhX int size; kf[^̃TCY ߂lFint k̃TCY @\F[hPʂŃOXks܂B Fint rl_arc_l(source,dist,size); F int *source; k̃f[^̐擪AhX int *dist; kobt@̐擪AhX int size; kf[^̃TCY ߂lFint k̃TCY @\FO[hPʂŃOXks܂B WJ Fint rl_ext_b(source,dist,size); F char *source; WJ̃f[^̐擪AhX char *dist; WJobt@̐擪AhX int size; WJ̃f[^̃TCY ߂lFint WJ̃TCY @\FoCgPʂŃOXWJs܂B Fint rl_ext_w(source,dist,size); F short *source; WJ̃f[^̐擪AhX short *dist; WJobt@̐擪AhX int size; WJ̃f[^̃TCY ߂lFint WJ̃TCY @\F[hPʂŃOXWJs܂B Fint rl_ext_l(source,dist,size); F int *source; WJ̃f[^̐擪AhX int *dist; WJobt@̐擪AhX int size; WJ̃f[^̃TCY ߂lFint WJ̃TCY @\FO[hPʂŃOXWJs܂B jsize int ^̂߁At@CTCY͈kAWJ㋤ 2147483648oCg܂ł܂. p.s.wLjk܂(^^;;; EEE ƂA߂ɌTCYȉɂȂ邱ƂȂł(^^;;;;;; قƂǁuOXcA֐v(δȰ( i쎞 gtn.a Ƃ̃f[^݊ȊOɂ͎gȂ(^^;j */ int rl_arc_b(char*,char*,int); int rl_ext_b(char*,char*,int); int rl_arc_w(short*,short*,int); int rl_ext_w(short*,short*,int); int rl_arc_l(int*,int*,int); int rl_ext_l(int*,int*,int); /*--------------------------------------------------------------- oCgPʂ ------*/ /*----------------------------------- k --*/ int rl_arc_b(source,dist,size) char *source; char *dist; int size; { char keep; unsigned char contno=0; int sizecount=0; int sizechk=0; while(1){ keep=*source++; contno=0; sizechk+=1; if(sizechk==size){ *dist++=keep; *dist++=contno; sizecount+=2; return(sizecount); } while(1){ if(*source++==keep){ contno+=1; sizechk+=1; if(contno==255){ *dist++=keep; *dist++=contno; sizecount+=2; break; } if(sizechk==size){ *dist++=keep; *dist++=contno; sizecount+=2; return(sizecount); break; } } else { *dist++=keep; *dist++=contno; source--; sizecount+=2; break; } } } } /*----------------------------------- WJ --*/ int rl_ext_b(source,dist,size) char *source; char *dist; int size; { char keep; unsigned char cont; int i; int sizechk=0; int extsize=0; while(1){ keep=*source++; cont=*source++; for(i=0;i<=cont;i++){ *dist++=keep; extsize+=1; } sizechk+=2; if(size==sizechk)return(extsize); } } /*--------------------------------------------------------------- [hPʂ ------*/ /*----------------------------------- k --*/ int rl_arc_w(source,dist,size) short *source; short *dist; int size; { short keep; unsigned short contno=0; int sizecount=0; int sizechk=0; while(1){ keep=*source++; contno=0; sizechk+=2; if(sizechk>=size){ *dist++=keep; *dist++=contno; sizecount+=4; return(sizecount); } while(1){ if(*source++==keep){ contno+=1; sizechk+=2; if(contno==65535){ *dist++=keep; *dist++=contno; sizecount+=4; break; } if(sizechk>=size){ *dist++=keep; *dist++=contno; sizecount+=4; return(sizecount); break; } } else { *dist++=keep; *dist++=contno; source--; sizecount+=4; break; } } } } /*----------------------------------- WJ --*/ int rl_ext_w(source,dist,size) short *source; short *dist; int size; { short keep; unsigned short cont; int i; int sizechk=0; int extsize=0; while(1){ keep=*source++; cont=*source++; for(i=0;i<=cont;i++){ *dist++=keep; extsize+=2; } sizechk+=4; if(size<=sizechk)return(extsize); } } /*--------------------------------------------------------- O[hPʂ ------*/ /*----------------------------------- k --*/ int rl_arc_l(source,dist,size) int *source; int *dist; int size; { int keep; unsigned int contno=0; int sizecount=0; int sizechk=0; while(1){ keep=*source++; contno=0; sizechk+=4; if(sizechk>=size){ *dist++=keep; *dist++=contno; sizecount+=8; return(sizecount); } while(1){ if(*source++==keep){ contno+=1; sizechk+=4; if(contno==0xFFFFFFFF){ *dist++=keep; *dist++=contno; sizecount+=8; break; } if(sizechk>=size){ *dist++=keep; *dist++=contno; sizecount+=8; return(sizecount); break; } } else { *dist++=keep; *dist++=contno; source--; sizecount+=8; break; } } } } /*----------------------------------- WJ --*/ int rl_ext_l(source,dist,size) int *source; int *dist; int size; { int keep; unsigned int cont; int i; int sizechk=0; int extsize=0; while(1){ keep=*source++; cont=*source++; for(i=0;i<=cont;i++){ *dist++=keep; extsize+=4; } sizechk+=8; if(size<=sizechk)return(extsize); } } . CW.. CWSCRN_PRWC EAl/*ʊԃvCIeBύX֐ Fscrn_prw(text,sp,grp); F char text; eLXgʂ̃vCIeB char sp; roAaf̃vCIeB char grp; OtBbÑvCIeB @\ FeLXgAroAOtBbNԂ̃vCIeBw̏ԂɕύX܂B X[p[oCU[hŎgpĂB w@́A0:ŗD 1: 2:ʼn 3:֎~ łB ߂lFȂ */ #include #include void scrn_prw(char,char,char); void scrn_prw(text,sp,grp) char text; char sp; char grp; { union { short mixed; struct { unsigned reserve:2; unsigned sp :2; unsigned text :2; unsigned grp :2; unsigned dummy :8; }bit; }unit; unit.mixed=*((short*)0xE82500); unit.bit.text=text; unit.bit.sp =sp; unit.bit.grp =grp; *((short*)0xE82500)=unit.mixed; } . CW.. CWT_CLR C Z"#include #include void T_CLR(); /* eLXgʂ */ void T_CLR() { short *t_add=(short*)0xE00000; while(1){ *t_add++=0; if(((int)t_add)>=0xE80000)break; } return; } . DW.. DWT_SYMBOLC 9W #include #include #include "../gtnlib.h" int t_symbol(char*,short,short,int,int,int); /*---------------------------------------------------------------------------*/ int t_symbol(st,px,py,size,accent,sq) char *st; short px; short py; int size; int accent; int sq; { EXTBUF buff,*buf=&buff; short x,y; unsigned short code; int count=0; int d; x=px; y=py; while(1){ if(*st==0)break; if(((*(unsigned char*)st>=0x81)&&(*(unsigned char*)st<=0x9F))||((*(unsigned char*)st>=0xE0)&&(*(unsigned char*)st<=0xEF))) { code=(((unsigned short)(*st++))&0xFF)*0x100; code+=((unsigned short)(*st++))&0xFF; count+=2; d=2; } else { code=((unsigned short)*st)&0xFF; st++; count+=1; d=1; } EXT_FNTGET(code,size,accent,sq,buf); TEXTPUT(px,py,(struct FNTBUF*)buf); px+=d*size*(sq+1); } return(count); } . DW!.. DWVCC C J| "zB#include #include #define GRP_ADD(GRP_X,GRP_Y) ((short*)(0xC00000+((GRP_X)*2)+((GRP_Y)*0x800))) int vcc_cmp(short,short,short,short,unsigned short,char*); /* TCYԂ */ void vcc_ext(short,short,unsigned short,char*); /*--------------------------------------------- ubb k -------------------*/ int vcc_cmp(x,y,dx,dy,palstyle,buff) short x; short y; short dx; short dy; unsigned short palstyle; char *buff; { int c; short lines; /* sJE^ */ unsigned char run; /* AJE^ */ int outsize; /* o̓oCg */ short *grpp; /* fuq`lw|C^ */ char *buff_init=buff; char bit; char lastl; union{ unsigned char mixed; struct{ unsigned bit7:1; unsigned bit6:1; unsigned bit5:1; unsigned bit4:1; unsigned bit3:1; unsigned bit2:1; unsigned bit1:1; unsigned bit0:1; }bit; }src; union{ unsigned char mixed; struct{ unsigned bit7:1; unsigned bit6:1; unsigned bit5:1; unsigned bit4:1; unsigned bit3:1; unsigned bit2:1; unsigned bit1:1; unsigned bit0:1; }bit; }cmpr; union{ unsigned short mixed; struct{ unsigned bitF:1; unsigned bitE:1; unsigned bitD:1; unsigned bitC:1; unsigned bitB:1; unsigned bitA:1; unsigned bit9:1; unsigned bit8:1; unsigned bit7:1; unsigned bit6:1; unsigned bit5:1; unsigned bit4:1; unsigned bit3:1; unsigned bit2:1; unsigned bit1:1; unsigned bit0:1; }bit; }pals; outsize=0; pals.mixed=palstyle; *buff++=(char)((dx>>8)&0xFF); /* w */ *buff++=((char)(dx&0xFF)); *buff++=(char)((dy>>8)&0xFF); /* x */ *buff++=((char)(dy&0xFF)); *buff++=(char)((pals.mixed>>8)&0xFF); /* pbgX^C */ *buff++=((char)(pals.mixed&0xFF)); *buff++=((char)(*((short*)0xE82000)>>8)&0xFF); /* code 0 */ *buff++=((char)((*(short*)0xE82000)&0xFF)); *buff++=((char)(*((short*)0xE82002)>>8)&0xFF); /* code 1 */ *buff++=((char)((*(short*)0xE82002)&0xFF)); *buff++=((char)(*((short*)0xE82004)>>8)&0xFF); /* code 2 */ *buff++=((char)((*(short*)0xE82004)&0xFF)); *buff++=((char)(*((short*)0xE82006)>>8)&0xFF); /* code 3 */ *buff++=((char)((*(short*)0xE82006)&0xFF)); *buff++=((char)(*((short*)0xE82008)>>8)&0xFF); /* code 4 */ *buff++=((char)((*(short*)0xE82008)&0xFF)); *buff++=((char)(*((short*)0xE8200A)>>8)&0xFF); /* code 5 */ *buff++=((char)((*(short*)0xE8200A)&0xFF)); *buff++=((char)(*((short*)0xE8200C)>>8)&0xFF); /* code 6 */ *buff++=((char)((*(short*)0xE8200C)&0xFF)); *buff++=((char)(*((short*)0xE8200E)>>8)&0xFF); /* code 7 */ *buff++=((char)((*(short*)0xE8200E)&0xFF)); *buff++=((char)(*((short*)0xE82010)>>8)&0xFF); /* code 8 */ *buff++=((char)((*(short*)0xE82010)&0xFF)); *buff++=((char)(*((short*)0xE82012)>>8)&0xFF); /* code 9 */ *buff++=((char)((*(short*)0xE82012)&0xFF)); *buff++=((char)(*((short*)0xE82014)>>8)&0xFF); /* code A */ *buff++=((char)((*(short*)0xE82014)&0xFF)); *buff++=((char)(*((short*)0xE82016)>>8)&0xFF); /* code B */ *buff++=((char)((*(short*)0xE82016)&0xFF)); *buff++=((char)(*((short*)0xE82018)>>8)&0xFF); /* code C */ *buff++=((char)((*(short*)0xE82018)&0xFF)); *buff++=((char)(*((short*)0xE8201A)>>8)&0xFF); /* code D */ *buff++=((char)((*(short*)0xE8201A)&0xFF)); *buff++=((char)(*((short*)0xE8201C)>>8)&0xFF); /* code E */ *buff++=((char)((*(short*)0xE8201C)&0xFF)); *buff++=((char)(*((short*)0xE8201E)>>8)&0xFF); /* code F */ *buff++=((char)((*(short*)0xE8201E)&0xFF)); outsize+=38; for(c=0;c=dy){ /* ܂ŒB */ src.bit.bit3=0; src.bit.bit2=0; src.bit.bit1=0; src.bit.bit0=0; *buff++=src.mixed; *buff++=run; outsize+=2; break; } grpp=GRP_ADD(x+c,y+lines); src.bit.bit3=(((*grpp++)&(0b0001<=dy){ /* ܂ŒB */ *buff++=src.mixed; *buff++=run; outsize+=2; break; } while(1){ grpp=GRP_ADD(x+c,y+lines); /* rf[^ */ cmpr.bit.bit7=(((*grpp++)&(0b0001<=dy){ /* ܂ŒB */ cmpr.bit.bit3=0; cmpr.bit.bit2=0; cmpr.bit.bit1=0; cmpr.bit.bit0=0; } else { grpp=GRP_ADD(x+c,y+lines); cmpr.bit.bit3=(((*grpp++)&(0b0001<=dy)break; continue; } else { if(lines>=dy){ /* CȃJWEEE */ *buff++=src.mixed; *buff++=run; outsize+=2; src.mixed=cmpr.mixed; run=0; } break; } } *buff++=src.mixed; *buff++=run; outsize+=2; if(lines>=dy)break; if(run!=255)lines-=2; run=0; } } } c=((dx-1)/4)*4; lastl=dx-c; /* Ō̍sʂȏ */ for(bit=0;bit<4;bit++){ lines=0; run=0; while(1){ grpp=GRP_ADD(x+c,y+lines); /* rƃf[^ */ if(lastl>=1)src.bit.bit7=(((*grpp++)&(0b0001<=2)src.bit.bit6=(((*grpp++)&(0b0001<=3)src.bit.bit5=(((*grpp++)&(0b0001<=4)src.bit.bit4=(((*grpp++)&(0b0001<=dy){ /* ܂ŒB */ src.bit.bit3=0; src.bit.bit2=0; src.bit.bit1=0; src.bit.bit0=0; *buff++=src.mixed; *buff++=run; outsize+=2; break; } grpp=GRP_ADD(x+c,y+lines); if(lastl>=1)src.bit.bit3=(((*grpp++)&(0b0001<=2)src.bit.bit2=(((*grpp++)&(0b0001<=3)src.bit.bit1=(((*grpp++)&(0b0001<=4)src.bit.bit0=(((*grpp++)&(0b0001<=dy){ /* ܂ŒB */ *buff++=src.mixed; *buff++=run; outsize+=2; break; } while(1){ grpp=GRP_ADD(x+c,y+lines); /* rf[^ */ if(lastl>=1)cmpr.bit.bit7=(((*grpp++)&(0b0001<=2)cmpr.bit.bit6=(((*grpp++)&(0b0001<=3)cmpr.bit.bit4=(((*grpp++)&(0b0001<=4)cmpr.bit.bit4=(((*grpp++)&(0b0001<=dy){ /* ܂ŒB */ cmpr.bit.bit3=0; cmpr.bit.bit2=0; cmpr.bit.bit1=0; cmpr.bit.bit0=0; } else { grpp=GRP_ADD(x+c,y+lines); if(lastl>=1)cmpr.bit.bit3=(((*grpp++)&(0b0001<=2)cmpr.bit.bit2=(((*grpp++)&(0b0001<=3)cmpr.bit.bit1=(((*grpp++)&(0b0001<=4)cmpr.bit.bit0=(((*grpp++)&(0b0001<=dy)break; continue; } else { if(lines>=dy){ /* CȃJWEEE */ *buff++=src.mixed; *buff++=run; outsize+=2; src.mixed=cmpr.mixed; run=0; } break; } } *buff++=src.mixed; *buff++=run; outsize+=2; if(lines>=dy)break; if(run!=255)lines-=2; run=0; } } return(outsize); } /*--------------------------------------------- ubb WJ -------------------*/ void vcc_ext(x,y,palstyle,buff) short x; short y; unsigned short palstyle; char *buff; { short dx; short dy; union{ unsigned short mixed; struct{ unsigned upper:8; unsigned lower:8; }bit; }acc; short *grpp; short c,lastl; unsigned short iy; short lines; /* sJE^ */ unsigned char run; /* AJE^ */ union{ unsigned char mixed; struct{ unsigned bit7:1; unsigned bit6:1; unsigned bit5:1; unsigned bit4:1; unsigned bit3:1; unsigned bit2:1; unsigned bit1:1; unsigned bit0:1; }bit; }src; union{ unsigned short mixed; struct{ unsigned dummy:12; unsigned bit3: 1; unsigned bit2: 1; unsigned bit1: 1; unsigned bit0: 1; }bit; }*conf,*conf_init; union{ unsigned short mixed; struct{ unsigned upper:8; unsigned lower:8; }cast; struct{ unsigned bitF:1; unsigned bitE:1; unsigned bitD:1; unsigned bitC:1; unsigned bitB:1; unsigned bitA:1; unsigned bit9:1; unsigned bit8:1; unsigned bit7:1; unsigned bit6:1; unsigned bit5:1; unsigned bit4:1; unsigned bit3:1; unsigned bit2:1; unsigned bit1:1; unsigned bit0:1; }bit; }pals; pals.cast.upper=*buff++; /* w */ pals.cast.lower=*buff++; dx=pals.mixed; pals.cast.upper=*buff++; /* x */ pals.cast.lower=*buff++; dy=pals.mixed; pals.cast.upper=*buff++; /* pbgnmAnee */ pals.cast.lower=*buff++; pals.mixed&=palstyle; /* weʼnH */ if(pals.bit.bit0){ acc.bit.upper=*buff++; acc.bit.lower=*buff++; *((short*)0xE82000)=acc.mixed; } else buff+=2; if(pals.bit.bit1){ acc.bit.upper=*buff++; acc.bit.lower=*buff++; *((short*)0xE82002)=acc.mixed; } else buff+=2; if(pals.bit.bit2){ acc.bit.upper=*buff++; acc.bit.lower=*buff++; *((short*)0xE82004)=acc.mixed; } else buff+=2; if(pals.bit.bit3){ acc.bit.upper=*buff++; acc.bit.lower=*buff++; *((short*)0xE82006)=acc.mixed; } else buff+=2; if(pals.bit.bit4){ acc.bit.upper=*buff++; acc.bit.lower=*buff++; *((short*)0xE82008)=acc.mixed; } else buff+=2; if(pals.bit.bit5){ acc.bit.upper=*buff++; acc.bit.lower=*buff++; *((short*)0xE8200A)=acc.mixed; } else buff+=2; if(pals.bit.bit6){ acc.bit.upper=*buff++; acc.bit.lower=*buff++; *((short*)0xE8200C)=acc.mixed; } else buff+=2; if(pals.bit.bit7){ acc.bit.upper=*buff++; acc.bit.lower=*buff++; *((short*)0xE8200E)=acc.mixed; } else buff+=2; if(pals.bit.bit8){ acc.bit.upper=*buff++; acc.bit.lower=*buff++; *((short*)0xE82010)=acc.mixed; } else buff+=2; if(pals.bit.bit9){ acc.bit.upper=*buff++; acc.bit.lower=*buff++; *((short*)0xE82012)=acc.mixed; } else buff+=2; if(pals.bit.bitA){ acc.bit.upper=*buff++; acc.bit.lower=*buff++; *((short*)0xE82014)=acc.mixed; } else buff+=2; if(pals.bit.bitB){ acc.bit.upper=*buff++; acc.bit.lower=*buff++; *((short*)0xE82016)=acc.mixed; } else buff+=2; if(pals.bit.bitC){ acc.bit.upper=*buff++; acc.bit.lower=*buff++; *((short*)0xE82018)=acc.mixed; } else buff+=2; if(pals.bit.bitD){ acc.bit.upper=*buff++; acc.bit.lower=*buff++; *((short*)0xE8201A)=acc.mixed; } else buff+=2; if(pals.bit.bitE){ acc.bit.upper=*buff++; acc.bit.lower=*buff++; *((short*)0xE8201C)=acc.mixed; } else buff+=2; if(pals.bit.bitF){ acc.bit.upper=*buff++; acc.bit.lower=*buff++; *((short*)0xE8201E)=acc.mixed; } else buff+=2; if(dy==0)return; /* dy=0 ́AȂ */ (short*)conf=(short*)malloc(1024*8); conf_init=conf; for(c=0;cbit.bit0=src.bit.bit7; (conf++)->bit.bit0=src.bit.bit6; (conf++)->bit.bit0=src.bit.bit5; (conf++)->bit.bit0=src.bit.bit4; lines+=1; if(lines>=dy)break; /* ܂ŒB */ (conf++)->bit.bit0=src.bit.bit3; (conf++)->bit.bit0=src.bit.bit2; (conf++)->bit.bit0=src.bit.bit1; (conf++)->bit.bit0=src.bit.bit0; lines+=1; } if(lines>=dy)break; /* ܂ŒB */ } lines=0; /* Prbg */ run=0; conf=conf_init; while(1){ src.mixed=*buff++; run=*buff++; for(iy=0;iy<=run;iy++){ (conf++)->bit.bit1=src.bit.bit7; (conf++)->bit.bit1=src.bit.bit6; (conf++)->bit.bit1=src.bit.bit5; (conf++)->bit.bit1=src.bit.bit4; lines+=1; if(lines>=dy)break; /* ܂ŒB */ (conf++)->bit.bit1=src.bit.bit3; (conf++)->bit.bit1=src.bit.bit2; (conf++)->bit.bit1=src.bit.bit1; (conf++)->bit.bit1=src.bit.bit0; lines+=1; } if(lines>=dy)break; /* ܂ŒB */ } lines=0; /* Qrbg */ run=0; conf=conf_init; while(1){ src.mixed=*buff++; run=*buff++; for(iy=0;iy<=run;iy++){ (conf++)->bit.bit2=src.bit.bit7; (conf++)->bit.bit2=src.bit.bit6; (conf++)->bit.bit2=src.bit.bit5; (conf++)->bit.bit2=src.bit.bit4; lines+=1; if(lines>=dy)break; /* ܂ŒB */ (conf++)->bit.bit2=src.bit.bit3; (conf++)->bit.bit2=src.bit.bit2; (conf++)->bit.bit2=src.bit.bit1; (conf++)->bit.bit2=src.bit.bit0; lines+=1; } if(lines>=dy)break; /* ܂ŒB */ } lines=0; /* Rrbg */ run=0; conf=conf_init; while(1){ src.mixed=*buff++; run=*buff++; for(iy=0;iy<=run;iy++){ (conf++)->bit.bit3=src.bit.bit7; (conf++)->bit.bit3=src.bit.bit6; (conf++)->bit.bit3=src.bit.bit5; (conf++)->bit.bit3=src.bit.bit4; lines+=1; if(lines>=dy)break; /* ܂ŒB */ (conf++)->bit.bit3=src.bit.bit3; (conf++)->bit.bit3=src.bit.bit2; (conf++)->bit.bit3=src.bit.bit1; (conf++)->bit.bit3=src.bit.bit0; lines+=1; } if(lines>=dy)break; /* ܂ŒB */ } grpp=GRP_ADD(x+c,y); /* ŕ` */ conf=conf_init; for(iy=0;iymixed; *grpp++=(conf++)->mixed; *grpp++=(conf++)->mixed; *grpp++=(conf++)->mixed; grpp+=1020; } } c=((dx-1)/4)*4; /* Xg̍s͓Ꮘł */ lastl=dx-c; /* Ƃł邽߂ */ /* _̂R[fBO(--; */ /* 火 */ lines=0; /* Orbg */ run=0; conf=conf_init; while(1){ src.mixed=*buff++; run=*buff++; for(iy=0;iy<=run;iy++){ (conf++)->bit.bit0=src.bit.bit7; (conf++)->bit.bit0=src.bit.bit6; (conf++)->bit.bit0=src.bit.bit5; (conf++)->bit.bit0=src.bit.bit4; lines+=1; if(lines>=dy)break; /* ܂ŒB */ (conf++)->bit.bit0=src.bit.bit3; (conf++)->bit.bit0=src.bit.bit2; (conf++)->bit.bit0=src.bit.bit1; (conf++)->bit.bit0=src.bit.bit0; lines+=1; } if(lines>=dy)break; /* ܂ŒB */ } lines=0; /* Prbg */ run=0; conf=conf_init; while(1){ src.mixed=*buff++; run=*buff++; for(iy=0;iy<=run;iy++){ (conf++)->bit.bit1=src.bit.bit7; (conf++)->bit.bit1=src.bit.bit6; (conf++)->bit.bit1=src.bit.bit5; (conf++)->bit.bit1=src.bit.bit4; lines+=1; if(lines>=dy)break; /* ܂ŒB */ (conf++)->bit.bit1=src.bit.bit3; (conf++)->bit.bit1=src.bit.bit2; (conf++)->bit.bit1=src.bit.bit1; (conf++)->bit.bit1=src.bit.bit0; lines+=1; } if(lines>=dy)break; /* ܂ŒB */ } lines=0; /* Qrbg */ run=0; conf=conf_init; while(1){ src.mixed=*buff++; run=*buff++; for(iy=0;iy<=run;iy++){ (conf++)->bit.bit2=src.bit.bit7; (conf++)->bit.bit2=src.bit.bit6; (conf++)->bit.bit2=src.bit.bit5; (conf++)->bit.bit2=src.bit.bit4; lines+=1; if(lines>=dy)break; /* ܂ŒB */ (conf++)->bit.bit2=src.bit.bit3; (conf++)->bit.bit2=src.bit.bit2; (conf++)->bit.bit2=src.bit.bit1; (conf++)->bit.bit2=src.bit.bit0; lines+=1; } if(lines>=dy)break; /* ܂ŒB */ } lines=0; /* Rrbg */ run=0; conf=conf_init; while(1){ src.mixed=*buff++; run=*buff++; for(iy=0;iy<=run;iy++){ (conf++)->bit.bit3=src.bit.bit7; (conf++)->bit.bit3=src.bit.bit6; (conf++)->bit.bit3=src.bit.bit5; (conf++)->bit.bit3=src.bit.bit4; lines+=1; if(lines>=dy)break; /* ܂ŒB */ (conf++)->bit.bit3=src.bit.bit3; (conf++)->bit.bit3=src.bit.bit2; (conf++)->bit.bit3=src.bit.bit1; (conf++)->bit.bit3=src.bit.bit0; lines+=1; } if(lines>=dy)break; /* ܂ŒB */ } /* ܂Ł́AS */ grpp=GRP_ADD(x+c,y); /* ŕ` */ conf=conf_init; for(iy=0;iy=1)*grpp++=(conf++)->mixed; else grpp++,conf++; if(lastl>=2)*grpp++=(conf++)->mixed; else grpp++,conf++; if(lastl>=3)*grpp++=(conf++)->mixed; else grpp++,conf++; if(lastl>=4)*grpp++=(conf++)->mixed; else grpp++,conf++; grpp+=1020; } conf=conf_init; free(conf); } . EW3.. EWV_RANDOMC 4/* ^֐ Fint v_random(seed,max,no,address); F int seed; ̃V[h int max; 闐̍ől{P(1`256) int no; 闐̌ unsigned char *address; ʂi[obt@ւ̐擪AhX @\ Fseed ŏ max-1 ܂ł̒lɊւ^ address ̂AhX no “WJ܂B ԂlF0ŐIA-1ňُIB */ #include #include #include int v_random(int,int,int,unsigned char*); int v_random(seed,max,no,address) int seed; int max; int no; unsigned char *address; { int no_count=0; if(max>256)return(-1); if(max<1 )return(-1); srand(seed); /* */ while(1){ if(no_count==no-1){ *address++=(char)(rand()/(32768/max)); break; } *address++=(char)(rand()/(32768/max)); no_count+=1; } return(0); } . FW5.. FWZLIB H !67ZLIB S 2>7 ZM_TREATC ;!:void z_init() ; int z_alloc( int track , int size ) ; int z_assign( int channel , int track ) ; int z_stat( int bitptr ) ; int z_play( int d2 , int d3 , int d4 ) ; int z_stop( int d2 , int d3 , int d4 ) ; int z_cont( int d2 , int d3 , int d4 ) ; void z_init_all() ; void z_int_stop() ; int se_play( int track , void *dataptr ) ; int se_adpcm1( char *dataptr , int size , int pan ) ; int se_adpcm2( int track , int pan ) ; int fade_out( int speed ) ; int play_cnv_data( int size , void *dataptr ) ; int z_chk_drv( void ) ; void *z_get_wk_tbl( void ); * * yRg[܂B * * void z_init(); * int z_alloc(track,size); * int z_assign(channel,track); * int z_play(d2,d3,d4); * int z_stat(bitptr); * int z_stop(d2,d3,d4); * int z_cont(d2,d3,d4); * int z_init_all(); * int z_int_stop(); * int play_cnv_data(size,adrs); * int se_play(track,mmlstr); * int se_adpcm1(pcmadr,size,pfw); * int se_adpcm2(NOTE,pfw); * int fade_out(speed); * * programmed by 1991 Dec. xdef _z_init xdef _z_alloc xdef _z_assign xdef _z_play xdef _z_stat xdef _z_stop xdef _z_cont xdef _z_init_all xdef _z_int_stop xdef _play_cnv_data xdef _se_play xdef _se_adpcm1 xdef _se_adpcm2 xdef _fade_out xdef _z_chk_drv xdef _z_get_wk_tbl include iocscall.mac ZTRAP macro no moveq.l #no,d1 trap #3 endm .offset 4 par1 ds.l 1 par2 ds.l 1 par3 ds.l 1 par4 ds.l 1 par5 ds.l 1 par6 ds.l 1 par7 ds.l 1 par8 ds.l 1 .text _z_init: ZTRAP 0 rts _z_init_all: ZTRAP 0 rts _z_int_stop ZTRAP 0 rts _z_alloc: move.l par1(sp),d2 swap d2 move.l par2(sp),d0 beq zalcer0 subq.l #1,d0 cmp.l #$10000,d0 bcc zalcer0 move.w d0,d2 ZTRAP $1 rts zalcer0: moveq.l #-1,d0 rts _z_assign: move.l par1(sp),d2 swap d2 move.l par2(sp),d0 move.w d0,d2 ZTRAP $2 rts _play_cnv_data: move.l par1(sp),d2 move.l par2(sp),a1 addq.l #7,a1 ZTRAP $11 rts _z_play: movem.l d3-d4,-(sp) move.l 12(sp),d2 move.l 16(sp),d3 move.l 20(sp),d4 ZTRAP $08 movem.l (sp)+,d3-d4 rts _z_stop: movem.l d3-d4,-(sp) move.l 12(sp),d2 move.l 16(sp),d3 move.l 20(sp),d4 ZTRAP $0a movem.l (sp)+,d3-d4 rts _z_cont: movem.l d3-d4,-(sp) move.l 12(sp),d2 move.l 16(sp),d3 move.l 20(sp),d4 ZTRAP $11 movem.l (sp)+,d3-d4 rts _se_play: move.l par1(sp),d2 move.l par2(sp),a1 ZTRAP $12 rts _se_adpcm1: movem.l d3,-(sp) move.l 8(sp),a1 move.l 12(sp),d2 move.l 16(sp),d3 ZTRAP $13 movem.l (sp)+,d3 rts _se_adpcm2: move.l d3,-(sp) move.l 8(sp),d2 move.l 12(sp),d3 ZTRAP $14 move.l (sp)+,d3 rts _fade_out: move.l par1(sp),d2 ZTRAP $1a rts _z_stat: move.l par1(sp),d2 ZTRAP $09 rts * > eq=풓mF * > mi=풓ĂȂ _z_chk_drv: move.l $8c.w,a0 subq.w #8,a0 cmpi.l #'ZmuS',(a0)+ bne chk_drv_err cmpi.w #'iC',(a0)+ bne chk_drv_err moveq.l #0,d0 rts chk_drv_err: moveq.l #-1,d0 rts _z_get_wk_tbl: moveq.l #1,d2 ZTRAP $3c move.l a0,d0 rts #include #include #include "zlib.h" /* y|ltrhb߂̊֐ F int zm_sdinit(); @\ F y|ltrhb̏܂B ߂lF I O G[OȊOԂ F Ȃ F int zm_zmdplay(char *zmd); @\ F ylcf[^t܂B ߂lF G[R[hԂ܂B F char *zmd; .zmd t@C̃x^[ḧ̐擪ւ̃|C^ F void zm_pcmplay(char *pcmtop,int size); @\ F ʉobl‚炵܂B ߂lF Ȃ F char *pcmtop; adpcm̃f[^̃x^[ḧ̐擪ւ̃|C^ int size; f[^TCY F int zm_fadeout(int speed); @\ F tF[hAEg܂ ߂lF O:ݒI -1:ݒ莸s F int speed; -85`-1 tF[hCxݒ 0 ݒ 1`85 tF[hAEgxݒ F int zm_offset(char *zmd); @\ F ʉ̂ylcf[^́Af[^{̂܂ł̃ItZbg߂܂ ߂lF ItZbg F char *zmd; ylc̃x^[ḧւ̃|C^ */ /* vg^Cv錾 */ int zm_sdinit(); void zm_zmdplay(char*); void zm_fadeout(int); void zm_pcmplay(char*,int); int zm_offset(char*); /*------------------------ hCȍ ---------------------------*/ int zm_sdinit() { int tst; tst=z_chk_drv(); /* 풓`FbN */ if( tst )return(tst); /* 풓ĂȂ烊^[ */ return(0); } /*----------------------- aflX^[g ---------------------------*/ void zm_zmdplay(zmd) char *zmd; { z_stop( 0b111111111111111 , 0 , 0 ) ; play_cnv_data( 0 , zmd ) ; } /*---------------------- afltF[h -----------------------------*/ void zm_fadeout(speed) int speed; { fade_out( speed ) ; } /*---------------------- `cobl rd ---------------------------*/ void zm_pcmplay(buff,size) char *buff; int size; { se_adpcm1( buff , size , 0x0403 ) ; } /*---------------------- ItZbgl߂ ------------------*/ int zm_offset(zmd) char *zmd; { int i=0; while(1){ if(*zmd==-1)break; zmd++; i+=1; } zmd++; i+=1; if(*zmd==-1){ zmd++; i+=1; } return(i); } . GW=.. GWETC ;5 >makefile ˸Wgtnlib a QW>clean bat aWazusa c WAZUSA_BIDOC BLE, ̸AZUSA H GTNLIB H Z"BHKEY H -( . GW>.. GW=H_COM3 C W?7H_COMMANC DS}WMlB_MAKER C WiHARUNA C Wq'H_COMMANH DSxk {HR_SUBS C W|HR_SUBS2C W6H_COM2 C WcHARUNA H l} H_COM2 H "} DHR_SUBS H P v B_MAKER H I] THR_SUBS2H Sm H_COM3 H J /*----------------------------------- - g`qtm` - [R}h ̂R] --------------*/ #include #include #include #include #include "../key.h" #include "../gtnlib.h" #include "H_com3.h" #include "HARUNA.h" #include "hr_subs.h" #include "hr_subs2.h" #include "b_maker.h" #include "../AZUSA.h" extern char debug; #define VD_MACRO red=1;\ while(vd);\ red=0;\ vd=1 /*------------------------------------------------------- Q -------*/ char *H_keep_palet(s_ptr) char *s_ptr; { int i; s_ptr=skipto(s_ptr,' '); s_ptr++; for(i=0;i<16;i++){ if(*s_ptr=='P'){ pal_keep[i]=*((short*)(0xE82000+(2*i))); /* hnL[v */ s_ptr=ih_search3(s_ptr); if(*s_ptr==';')return(++s_ptr); else { s_ptr++; continue; } } if(*s_ptr=='n'){ s_ptr=ih_search3(s_ptr); /* XLbv */ if(*s_ptr==';')return(++s_ptr); else { s_ptr++; continue; } } if(*s_ptr=='E'){ s_ptr=ih_search3(s_ptr); return(++s_ptr); } pal_keep[i]=hr_atoi(s_ptr); /* lw肩L[v */ s_ptr=ih_search3(s_ptr); if(*s_ptr==';')break; else s_ptr++; } return(++s_ptr); } /*------------------------------------------------------- -------*/ char *H_fadeout(s_ptr) char *s_ptr; { union{ short mixed; struct{ unsigned green:5; unsigned red :5; unsigned blue :5; unsigned I :1; }bit; }*cast; int i,c; int ch_count=0; /* ύXPB */ char *d_ptr; char *ret_ptr; int wait; ret_ptr=skipto(s_ptr,';'); /* ^[ʒu */ s_ptr=skipto(s_ptr,' '); s_ptr++; wait=hr_atoi(s_ptr); /* EFCg */ s_ptr=skipto(s_ptr,' '); s_ptr++; d_ptr=s_ptr; while(1){ s_ptr=d_ptr; for(c=0;cbit.red !=0){ cast->bit.red -=1; ch_count+=1; } if(cast->bit.green!=0){ cast->bit.green-=1; ch_count+=1; } if(cast->bit.blue !=0){ cast->bit.blue -=1; ch_count+=1; } if(cast->bit.I !=0){ cast->bit.I -=1; ch_count+=1; } s_ptr=ih_search3(s_ptr); } if(ch_count==0)break; else ch_count=0; } return(++ret_ptr); } /*------------------------------------------------------- -------*/ char *H_fadeflash(s_ptr) char *s_ptr; { union{ short mixed; struct{ unsigned green:5; unsigned red :5; unsigned blue :5; unsigned I :1; }bit; }*cast; int i,c; int ch_count=0; /* ύXPB */ char *d_ptr; char *ret_ptr; int wait; ret_ptr=skipto(s_ptr,';'); /* ^[ʒu */ s_ptr=skipto(s_ptr,' '); s_ptr++; wait=hr_atoi(s_ptr); /* EFCg */ s_ptr=skipto(s_ptr,' '); d_ptr=s_ptr; while(1){ s_ptr=d_ptr; for(c=0;cbit.red !=31){ cast->bit.red +=1; ch_count+=1; } if(cast->bit.green!=31){ cast->bit.green+=1; ch_count+=1; } if(cast->bit.blue !=31){ cast->bit.blue +=1; ch_count+=1; } if(cast->bit.I !=1){ cast->bit.I +=1; ch_count+=1; } s_ptr=ih_search3(s_ptr); } if(ch_count==0)break; else ch_count=0; } return(++ret_ptr); } /*------------------------------------------------------- -------*/ char *H_fade(s_ptr) char *s_ptr; { union{ short mixed; struct{ unsigned green:5; unsigned red :5; unsigned blue :5; unsigned I :1; }bit; }*cast_s; union{ short mixed; struct{ unsigned green:5; unsigned red :5; unsigned blue :5; unsigned I :1; }bit; }*cast_d; int i,c; int ch_count=0; /* ύXPB */ char *d_ptr; char *ret_ptr; int wait; ret_ptr=skipto(s_ptr,';'); /* ^[ʒu */ s_ptr=skipto(s_ptr,' '); s_ptr++; wait=hr_atoi(s_ptr); /* EFCg */ s_ptr=skipto(s_ptr,' '); d_ptr=s_ptr; while(1){ s_ptr=d_ptr; for(c=0;cbit.red !=cast_d->bit.red ){ if(cast_s->bit.red bit.red ){ cast_s->bit.red +=1; ch_count+=1; } else { cast_s->bit.red -=1; ch_count+=1; } } if(cast_s->bit.green!=cast_d->bit.green){ if(cast_s->bit.greenbit.green){ cast_s->bit.green+=1; ch_count+=1; } else { cast_s->bit.green-=1; ch_count+=1; } } if(cast_s->bit.blue !=cast_d->bit.blue ){ if(cast_s->bit.blue bit.blue ){ cast_s->bit.blue +=1; ch_count+=1; } else { cast_s->bit.blue -=1; ch_count+=1; } } if(cast_s->bit.I!=cast_d->bit.I){ cast_s->bit.I=cast_d->bit.I; ch_count+=1; } s_ptr=ih_search3(s_ptr); } if(ch_count==0)break; else ch_count=0; } return(++ret_ptr); } /*------------------------------------------------------- Q -------*/ char *H_set_palet(s_ptr) char *s_ptr; { int i; char *ret_ptr; ret_ptr=skipto(s_ptr,';'); /* ^[ʒu */ s_ptr=skipto(s_ptr,' '); VD_MACRO; for(i=0;i<16;i++){ if(*s_ptr==';')break; s_ptr++; if(*s_ptr=='n'){ s_ptr=ih_search3(s_ptr); /* XLbv */ continue; } if(*s_ptr=='E'){ s_ptr=ih_search3(s_ptr); break; } *((short*)(0xE82000+(i*2)))=pal_keep[i]; /* F̕ύX */ s_ptr=ih_search3(s_ptr); } return(++ret_ptr); } /*------------------------------------------------------- Q -------*/ char *H_mm_all(s_ptr) char *s_ptr; { char *temp; short *data; short px=-1; short py=-1; MMPTR mmp,*mmptr=&mmp; s_ptr=skipto(s_ptr,' '); s_ptr++; temp=hr_lenalloccpy(s_ptr); /* t@Cl[ԂށB */ strins(GRP_PATH,temp); /* pXt */ data=(short*)malloc(fsize(temp)); /* TCYԂ񂾂mۂ */ betaread(temp,(char*)data,fsize(temp)); /* ǂށB */ while(1){ /* ' ' ';' ܂ŃXLbv */ if(is2byte(*s_ptr)){ s_ptr++; s_ptr++; continue; } if((*s_ptr==' ')||(*s_ptr==';'))break; s_ptr++; } if(*s_ptr==' '){ /* ʒuw肠 */ s_ptr++; px=hr_atoi(s_ptr); /* w */ s_ptr=skipto(s_ptr,','); s_ptr++; py=hr_atoi(s_ptr); /* x */ s_ptr=skipto(s_ptr,';'); } mmptr->x1=px; /* 摜WJ */ mmptr->y1=py; mmptr->pal_style=0xFFFF; mmptr->buff=data; mm_ext(mmptr); free(temp); free(data); return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_mm_screen(s_ptr) char *s_ptr; { char *temp; short *data; short px=-1; short py=-1; MMPTR mmp,*mmptr=&mmp; s_ptr=skipto(s_ptr,' '); s_ptr++; temp=hr_lenalloccpy(s_ptr); /* t@Cl[ԂށB */ strins(GRP_PATH,temp); /* pXt */ data=(short*)malloc(fsize(temp)); /* TCYԂ񂾂mۂ */ betaread(temp,(char*)data,fsize(temp)); /* ǂށB */ while(1){ /* ' ' ';' ܂ŃXLbv */ if(is2byte(*s_ptr)){ s_ptr++; s_ptr++; continue; } if((*s_ptr==' ')||(*s_ptr==';'))break; s_ptr++; } if(*s_ptr==' '){ /* ʒuw肠 */ s_ptr++; px=hr_atoi(s_ptr); /* w */ s_ptr=skipto(s_ptr,','); s_ptr++; py=hr_atoi(s_ptr); /* x */ s_ptr=skipto(s_ptr,';'); } mmptr->x1=px; /* 摜WJ */ mmptr->y1=py; mmptr->pal_style=0x0000; mmptr->buff=data; mm_ext(mmptr); free(temp); free(data); return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_mm_palet(s_ptr) char *s_ptr; { char *temp; short *data; union{ unsigned short mixed; struct{ unsigned bitF:1; unsigned bitE:1; unsigned bitD:1; unsigned bitC:1; unsigned bitB:1; unsigned bitA:1; unsigned bit9:1; unsigned bit8:1; unsigned bit7:1; unsigned bit6:1; unsigned bit5:1; unsigned bit4:1; unsigned bit3:1; unsigned bit2:1; unsigned bit1:1; unsigned bit0:1; }bit; }pals; s_ptr=skipto(s_ptr,' '); s_ptr++; temp=hr_lenalloccpy(s_ptr); /* t@Cl[ԂށB */ strins(GRP_PATH,temp); /* pXt */ data=(short*)malloc(fsize(temp)); /* TCYԂ񂾂mۂ */ betaread(temp,(char*)data,fsize(temp)); /* ǂށB */ pals.mixed=data[4]; /* pbgX^C */ if(pals.bit.bit0)*((short*)0xE82000)=data[ 5]; /* pbgRs[ */ if(pals.bit.bit1)*((short*)0xE82002)=data[ 6]; if(pals.bit.bit2)*((short*)0xE82004)=data[ 7]; if(pals.bit.bit3)*((short*)0xE82006)=data[ 8]; if(pals.bit.bit4)*((short*)0xE82008)=data[ 9]; if(pals.bit.bit5)*((short*)0xE8200A)=data[10]; if(pals.bit.bit6)*((short*)0xE8200C)=data[11]; if(pals.bit.bit7)*((short*)0xE8200E)=data[12]; if(pals.bit.bit8)*((short*)0xE82010)=data[13]; if(pals.bit.bit9)*((short*)0xE82012)=data[14]; if(pals.bit.bitA)*((short*)0xE82014)=data[15]; if(pals.bit.bitB)*((short*)0xE82016)=data[16]; if(pals.bit.bitC)*((short*)0xE82018)=data[17]; if(pals.bit.bitD)*((short*)0xE8201A)=data[18]; if(pals.bit.bitE)*((short*)0xE8201C)=data[19]; if(pals.bit.bitF)*((short*)0xE8201E)=data[20]; free(temp); free(data); s_ptr=skipto(s_ptr,';'); return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_mm_pkeep(s_ptr) char *s_ptr; { char *temp; short *data; union{ unsigned short mixed; struct{ unsigned bitF:1; unsigned bitE:1; unsigned bitD:1; unsigned bitC:1; unsigned bitB:1; unsigned bitA:1; unsigned bit9:1; unsigned bit8:1; unsigned bit7:1; unsigned bit6:1; unsigned bit5:1; unsigned bit4:1; unsigned bit3:1; unsigned bit2:1; unsigned bit1:1; unsigned bit0:1; }bit; }pals; s_ptr=skipto(s_ptr,' '); s_ptr++; temp=hr_lenalloccpy(s_ptr); /* t@Cl[ԂށB */ strins(GRP_PATH,temp); /* pXt */ data=(short*)malloc(fsize(temp)); /* TCYԂ񂾂mۂ */ betaread(temp,(char*)data,fsize(temp)); /* ǂށB */ pals.mixed=data[4]; /* pbgX^C */ if(pals.bit.bit0)pal_keep[ 0]=data[ 5]; /* pbgRs[ */ if(pals.bit.bit1)pal_keep[ 1]=data[ 6]; if(pals.bit.bit2)pal_keep[ 2]=data[ 7]; if(pals.bit.bit3)pal_keep[ 3]=data[ 8]; if(pals.bit.bit4)pal_keep[ 4]=data[ 9]; if(pals.bit.bit5)pal_keep[ 5]=data[10]; if(pals.bit.bit6)pal_keep[ 6]=data[11]; if(pals.bit.bit7)pal_keep[ 7]=data[12]; if(pals.bit.bit8)pal_keep[ 8]=data[13]; if(pals.bit.bit9)pal_keep[ 9]=data[14]; if(pals.bit.bitA)pal_keep[10]=data[15]; if(pals.bit.bitB)pal_keep[11]=data[16]; if(pals.bit.bitC)pal_keep[12]=data[17]; if(pals.bit.bitD)pal_keep[13]=data[18]; if(pals.bit.bitE)pal_keep[14]=data[19]; if(pals.bit.bitF)pal_keep[15]=data[20]; free(temp); free(data); s_ptr=skipto(s_ptr,';'); return(++s_ptr); } /*------------------------------------------------------- QQ --*/ char *H_mm_screen_pk(s_ptr) char *s_ptr; { char *temp; short *data; union{ unsigned short mixed; struct{ unsigned bitF:1; unsigned bitE:1; unsigned bitD:1; unsigned bitC:1; unsigned bitB:1; unsigned bitA:1; unsigned bit9:1; unsigned bit8:1; unsigned bit7:1; unsigned bit6:1; unsigned bit5:1; unsigned bit4:1; unsigned bit3:1; unsigned bit2:1; unsigned bit1:1; unsigned bit0:1; }bit; }pals; short px=-1; short py=-1; MMPTR mmp,*mmptr=&mmp; s_ptr=skipto(s_ptr,' '); s_ptr++; temp=hr_lenalloccpy(s_ptr); /* t@Cl[ԂށB */ strins(GRP_PATH,temp); /* pXt */ data=(short*)malloc(fsize(temp)); /* TCYԂ񂾂mۂ */ betaread(temp,(char*)data,fsize(temp)); /* ǂށB */ while(1){ /* ' ' ';' ܂ŃXLbv */ if(is2byte(*s_ptr)){ s_ptr++; s_ptr++; continue; } if((*s_ptr==' ')||(*s_ptr==';'))break; s_ptr++; } if(*s_ptr==' '){ /* ʒuw肠 */ s_ptr++; px=hr_atoi(s_ptr); /* w */ s_ptr=skipto(s_ptr,','); s_ptr++; py=hr_atoi(s_ptr); /* x */ s_ptr=skipto(s_ptr,';'); } mmptr->x1=px; /* 摜WJ */ mmptr->y1=py; mmptr->pal_style=0x0000; mmptr->buff=data; mm_ext(mmptr); pals.mixed=data[4]; /* pbgWJ */ if(pals.bit.bit0)pal_keep[ 0]=data[ 5]; /* pbgRs[ */ if(pals.bit.bit1)pal_keep[ 1]=data[ 6]; if(pals.bit.bit2)pal_keep[ 2]=data[ 7]; if(pals.bit.bit3)pal_keep[ 3]=data[ 8]; if(pals.bit.bit4)pal_keep[ 4]=data[ 9]; if(pals.bit.bit5)pal_keep[ 5]=data[10]; if(pals.bit.bit6)pal_keep[ 6]=data[11]; if(pals.bit.bit7)pal_keep[ 7]=data[12]; if(pals.bit.bit8)pal_keep[ 8]=data[13]; if(pals.bit.bit9)pal_keep[ 9]=data[14]; if(pals.bit.bitA)pal_keep[10]=data[15]; if(pals.bit.bitB)pal_keep[11]=data[16]; if(pals.bit.bitC)pal_keep[12]=data[17]; if(pals.bit.bitD)pal_keep[13]=data[18]; if(pals.bit.bitE)pal_keep[14]=data[19]; if(pals.bit.bitF)pal_keep[15]=data[20]; free(temp); free(data); s_ptr=skipto(s_ptr,';'); return(++s_ptr); } /*----------------------------------- - g`qtm` - [R}h] --------------*/ #include #include #include "../key.h" #include "../gtnlib.h" #include "H_commands.h" #include "HARUNA.h" #include "hr_subs.h" #include "hr_subs2.h" #include "b_maker.h" #include "../AZUSA.h" extern char debug; #define VD_MACRO red=1;\ while(vd);\ red=0;\ vd=1 /*------------------------------------------------------ ------*/ char *H_message(s_ptr) char *s_ptr; { static int WAIT_ENABLE=0; /* x\Cl[u */ int WAIT_SW =SVB_ref("MES_x"); /* x\[h */ int WAIT_CNT=SVB_ref("MES_WAIT"); /* x\EFCg */ int mode=SVB_ref("MES_TorG"); /* \ */ int (*switching[])()={H_mes_switch_caps}; char *string=(char*)malloc(256); char *str_init=string; int i,count; short lx,ly,px,py; int chr_size=SVB_ref("MES_SIZE"); /* ̫Ă̻ 162432 */ int chr_accent=SVB_ref("MES_"); /* */ int chr_sq=SVB_ref("MES_S{"); /* S{敶 */ char clear=1; if(debug)printf("H_commands:message:&message R[܂B\n"); s_ptr=skipto(s_ptr,'e'); /* ܂ŃXLbv */ s_ptr++; s_ptr=skipto(s_ptr,'e'); s_ptr++; s_ptr++; lx=(short)SVB_ref("MES_LOC_X"); /* W擾 */ ly=(short)SVB_ref("MES_LOC_Y"); px=lx; py=ly; C_LOCATE(lx,ly); if(mode==0){ /* TEXTPCG ł̋ */ if(chr_accent)cprintf(""); else cprintf(""); } switch(mode){ /* F̕ύX */ case 0: switch(SVB_ref("MES_COL")){ case 0: cprintf(""); break; case 1: cprintf(""); break; case 2: cprintf(""); break; case 3: cprintf(""); break; } break; case 1: TCOLOR(SVB_ref("MES_COL")); break; } while(1){ switch(*s_ptr) { case '"': s_ptr++; for(i=0;i<255;i++){ WAIT_ENABLE=switching[WAIT_SW](); /* x\ONOFF */ if(is2byte(*s_ptr)){ *string++=*s_ptr++; *string++=*s_ptr++; i+=1; /* ␳ */ } else { if((*s_ptr==0x1B)&&(mode==0)){ while(1){ *string++=*s_ptr; i+=1; if(*s_ptr++=='m')break; } } else *string++=*s_ptr++; } if(*s_ptr=='"'){ *string++=0x00; switch(mode){ case 0: cprintf("%s",str_init); break; case 1: lx+=chr_size*(chr_sq+1)*((short)t_symbol(str_init,lx,ly,chr_size,chr_accent,chr_sq)); break; } string=str_init; break; } if(WAIT_ENABLE){ int c; *string++=0x00; switch(mode){ case 0: cprintf("%s",str_init); break; case 1: lx+=chr_size*(chr_sq+1)*((short)t_symbol(str_init,lx,ly,chr_size,chr_accent,chr_sq)); break; } string=str_init; for(c=0;c=count)break; i+=1; VD_MACRO; } if(clear)H_mes_clear(mode,string,str_init,px,py); /* EBhẼbZ[W */ string=str_init; free(string); COM_retcode=0; /* R}h́Aʏ̃^[ */ s_ptr=skipto(s_ptr,';'); return(++s_ptr); break; case ';': /* R}hI */ switch(mode){ case 0: printf("\n"); C_LOCATE(SVB_ref("MES_KWAIT_X"),SVB_ref("MES_KWAIT_Y")); switch(SVB_ref("KW_COL")){ case 0: cprintf(""); break; case 1: cprintf(""); break; case 2: cprintf(""); break; case 3: cprintf(""); break; } if(SVB_ref("KW_"))cprintf(""); else cprintf(""); string=str_init; hr_strcpy((char*)SVB_ref("KW_STRING"),string); printf(string); ms_wait_unlc(); ms_wait_lc((char)SVB_ref("MES_NEXT_KEY")); if(clear)H_mes_clear(mode,string,str_init,px,py); break; case 1: TCOLOR(SVB_ref("KW_COL")); hr_strcpy((char*)SVB_ref("KW_STRING"),string); t_symbol(string,SVB_ref("MES_KWAIT_X"),SVB_ref("MES_KWAIT_Y"),SVB_ref("KW_SIZE"),SVB_ref("KW_"),SVB_ref("KW_S{")); ms_wait_unlc(); ms_wait_lc((char)SVB_ref("MES_NEXT_KEY")); if(clear)H_mes_clear(mode,string,str_init,px,py); break; } string=str_init; free(string); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); break; default: s_ptr++; /* ftHg */ printf("H_commands:message:warning>炭AǂɊԈႢ܂B\n"); break; } } } int H_mes_switch_caps() /* x\XCb`O(CAPS) */ { if(B_SFTSNS()&0b00001000_00000000)return(0); else return(1); } void H_mes_clear(mode,string,string_init,px,py) /* EBhẼbZ[W */ int mode; char *string; char *string_init; short px,py; { int i,count; struct TXFILLPTR txf,*txfillptr=&txf; switch(mode){ case 0: printf("\n"); string=string_init; count=SVB_ref("MES_LOC_DX"); for(i=0;ivram_page=0; txfillptr->x=px; txfillptr->y=py; txfillptr->x1=(short)SVB_ref("MES_LOC_DX"); txfillptr->y1=(short)SVB_ref("MES_LOC_DY"); txfillptr->fill_patn=0x0000; TXFILL(txfillptr); txfillptr->vram_page=1; TXFILL(txfillptr); break; } } /*------------------------------------------------------ ------*/ char *H_wait(s_ptr) char *s_ptr; { int i; int count; if(debug)printf("H_commands:wait:&wait R[܂B\n"); s_ptr=skipto(s_ptr,'t'); /* ܂ŃXLbv */ s_ptr++;s_ptr++; count=hr_atoi(s_ptr); /* lϊ */ if(debug)printf("H_commands:wait:%dt[̃EFCg܂B\n",count); for(i=0;i=256){ printf("H_commands:&select:ERROR>256ˆȏ̑IxLqĂ܂B\n"); printf("H_commands:&select:vOI܂B\n"); VDISPST(0,0,0); exit(); } ena=hr_atoi(s_ptr); if(ena){ /* Ix`FbN */ enable[count]=1; exec[exe_count]=count; s_ptr=skipto(s_ptr,'"'); /* Ix܂ŃXLbv */ s_ptr++; string[exe_count]=s_ptr; count+=1; exe_count+=1; s_ptr=skipto(s_ptr,'"'); s_ptr++; if(*s_ptr==',')s_ptr++; else break; } else { enable[count]=0; s_ptr=skipto(s_ptr,'"'); s_ptr++; count+=1; s_ptr=skipto(s_ptr,'"'); s_ptr++; if(*s_ptr==',')s_ptr++; else break; continue; } } /* \ */ if(SVB_ref("MOUSE_MODE")==0)MS_CURON(); /* }EX */ if(SVB_ref("SELWIN_USE")){ /* ÑOtBbN */ short dx,dy; short px,py; char *d_ptr; d_ptr=(char*)SVB_ref("WIN_SIDEPTN"); px=SVB_ref("SELWIN_X"); py=SVB_ref("SELWIN_Y"); dx=SVB_ref("SELWIN_DX")-1; dy=(SVB_ref("SELWIN_LINE")*exe_count)+(2*SVB_ref("SELWIN_SPC"))-1; win_draw(px,py,dx,dy,(short)SVB_ref("WIN_COLOR"),d_ptr); } if(SVB_ref("MOUSE_AREA")==1)MS_LIMIT((short)SVB_ref("SELWIN_X"),(short)SVB_ref("SELWIN_Y"),(short)(SVB_ref("SELWIN_X")+SVB_ref("SELWIN_DX")-1),(short)(SVB_ref("SELWIN_Y")+(SVB_ref("SELWIN_LINE")*exe_count)+(2*SVB_ref("SELWIN_SPC"))-1)); /* }EX͈̔ */ else MS_LIMIT(0,0,767,511); lx=SVB_ref("SELWIN_LOC_X"); /* */ ly=SVB_ref("SELWIN_LOC_Y"); switch(mode){ case 0: switch(SVB_ref("SELWIN_COL")){ case 0: cprintf(""); break; case 1: cprintf(""); break; case 2: cprintf(""); break; case 3: cprintf(""); break; } break; case 1: TCOLOR(SVB_ref("SELWIN_COL")); break; } for(i=0;ivram_page=vram_page; tboxptr->x =cur_x; tboxptr->x1=cur_dx; tboxptr->y =cur_y-cur_du; tboxptr->y1=cur_dd; tboxptr->line_style=0xFFFF; TXBOX(tboxptr); MS_CURON(); ms_wait_unlc(); /* NbNŔ */ while(1){ /* }EXIy[V */ short mx,my; char key_in=key_get(); mx=MS_CURGT()>>16; my=MS_CURGT()&0x0000FFFF; if( (mx>=cur_x)&&(mx<=cur_x+cur_dx-1) && (my>=cur_y-cur_du)&&(my<=cur_y-cur_du+(cur_dy*exe_count)-1) ){ oldselno=selno; if((my-((cur_y+(cur_dy* ((my-(cur_y-cur_du))/cur_dy) ))-cur_du))vram_page=vram_page; tboxptr->x =cur_x; tboxptr->x1=cur_dx; tboxptr->y =cur_y+(cur_dy*oldselno)-cur_du; tboxptr->y1=cur_dd; tboxptr->line_style=0x0000; TXBOX(tboxptr); /* ` */ tboxptr->vram_page=vram_page; tboxptr->x =cur_x; tboxptr->x1=cur_dx; tboxptr->y =cur_y+(cur_dy*selno)-cur_du; tboxptr->y1=cur_dd; tboxptr->line_style=0xFFFF; TXBOX(tboxptr); MS_CURON(); } } if(key_in==KCODE_ESC){ /* I */ VDISPST(0,0,0); exit(); } if(key_in==KCODE_RET){ /* I */ MS_CUROF(); tboxptr->vram_page=vram_page; tboxptr->x =cur_x; tboxptr->x1=cur_dx; tboxptr->y =cur_y+(cur_dy*selno)-cur_du; tboxptr->y1=cur_dd; tboxptr->line_style=0x0000; TXBOX(tboxptr); MS_CURON(); C_CLS_AL(); break; } if((MS_GETDT()&0x000000FF)&&(rclick)){ /* ENbN nop */ MS_CUROF(); tboxptr->vram_page=vram_page; tboxptr->x =cur_x; tboxptr->x1=cur_dx; tboxptr->y =cur_y+(cur_dy*selno)-cur_du; tboxptr->y1=cur_dd; tboxptr->line_style=0x0000; TXBOX(tboxptr); MS_CURON(); C_CLS_AL(); SVB_set("STATUS",256,0); rc=0; /* ENbNŔtO */ break; } } if(SVB_ref("MOUSE_MODE")==0)MS_CUROF(); /* }EX */ if(SVB_ref("SELWIN_USE")){ /* OtBbN */ GPB_ref(SELWIN_buffname,SVB_ref("SELWIN_X"),SVB_ref("SELWIN_Y"),SVB_ref("SELWIN_DX"),(SVB_ref("SELWIN_LINE")*exe_count)+(2*SVB_ref("SELWIN_SPC"))); } ret_ptr=s_ptr; /* s */ for(i=0;i')){ /* rZq I */ if(debug)printf("H_commands:&if:rZq́A<> łB\n"); if(hr_atoi(c_ptr1)!=hr_atoi(c_ptr2))acc=1; else acc=0; /* ʂacc */ } if((*c_mode=='>')&&(*(c_mode+1)!='=')){ /* rZq */ if(debug)printf("H_commands:&if:rZq́A> łB\n"); if(hr_atoi(c_ptr1)>hr_atoi(c_ptr2))acc=1; else acc=0; /* ʂacc */ } if((*c_mode=='>')&&(*(c_mode+1)=='=')){ /* rZq */ if(debug)printf("H_commands:&if:rZq́A>= łB\n"); if(hr_atoi(c_ptr1)>=hr_atoi(c_ptr2))acc=1; else acc=0; /* ʂacc */ } if((*c_mode=='<')&&(*(c_mode+1)!='=')){ /* rZq */ if(debug)printf("H_commands:&if:rZq́A< łB\n"); if(hr_atoi(c_ptr1) #include #include "../key.h" #include "../gtnlib.h" #include "b_maker.h" #include "HARUNA.h" #include "hr_subs.h" void system_value_block_preset(); extern char *test; extern char debug; /*------------------------------------------------------ VXeubN[J[ --*/ char *b_maker(s_ptr) char *s_ptr; { int i; if(debug)printf("b_maker:b_maker R[܂B\n"); if(debug)printf("b_maker:eubN̍\Jn܂B\n"); if(debug)printf("b_maker:ubN̍쐬̏Jn܂B\n"); SBB=(char**)malloc(4); /* VXeubNubNւ̃|C^ */ LB=(char**)malloc(4); /* xubNւ̃|C^ */ GVB=(char**)malloc(4); /* O[oϐubNւ̃|C^ */ SGVB=(char**)malloc(4); /* Z~O[oϐubNւ̃|C^ */ SVB=(char**)malloc(4); /* VXeϐubNւ̃|C^ */ LVB=(char***)malloc(4); /* [JϐubNւ̃|C^ */ GPB=(char**)malloc(4); /* tFCXp^[ubNւ̃|C^ */ if(debug)printf("b_maker:ubN̍쐬̏I܂B\n"); if(debug)printf("b_maker:^[Qbgobt@̍쐬̏Jn܂B\n"); GVB_target=(int*)malloc(4); /* O[oϐ̎ۂ̒l̊i[ꏊ */ SGVB_target=(int*)malloc(4); /* Z~O[oϐ̎ۂ̒l̊i[ꏊ */ SVB_target=(int*)malloc(4); /* VXeϐ̎ۂ̒l̊i[ꏊ */ SVB_isptr=(char*)malloc(1); /* VXeϐ̎ނ̊i[ꏊ */ LVB_target=(int**)malloc(4); /* [Jϐ̎ۂ̒l̊i[ꏊ */ GPB_target=(short**)malloc(4); /* tFCXp^[̊i[ꏊ */ if(debug)printf("b_maker:^[Qbgobt@̍쐬̏I܂B\n"); if(debug)printf("b_maker:ubNJE^̏Jn܂B\n"); SBB_count=0; /* VXeubNubN̗vf */ LB_count=0; /* xubN̗vf */ GVB_count=0; /* O[oϐubN̗vf */ SGVB_count=0; /* Z~O[oϐubN̗vf */ SVB_count=0; /* VXeϐubN̗vf */ LVB_count=(int*)malloc(4); /* [JϐubN̗vf */ GPB_count=0; /* tFCXp^[ubN̗vf */ /* [Jϐɂ‚ẮAʂ̊֐ňꊇ */ if(debug)printf("b_maker:ubNJE^̏I܂B\n"); HARUNA_retmode=(char*)malloc(1); /* g`qtm`̃^[[h */ HARUNA_retadd =(int *)malloc(4); /* g`qtm`̃^[AhX */ if(debug)printf("b_maker:VXeϐubÑvZbgGg[Jn܂B\n"); system_value_block_preset(); if(debug)printf("b_maker:VXeϐ̃Gg[I܂B\n"); if(debug)printf("- g`qtm` - ̊KwJE^܂B\n"); HARUNA_layer=0; if(debug)printf("- g`qtm` - ̊KwJE^܂B\n"); if(debug)printf("b_maker:b_maker 甲܂B\n"); for(i=0;i<15;i++)pal_keep[i]=*((short*)(0xE82000+(2*i))); /* pbgL[v */ return(s_ptr); } /*--------------------------------------------------- VXeϐ̃vZbg ----*/ void system_value_block_preset() { /* VXeϐ̃Gg[ */ if(debug)printf("b_maker:SVBP:system_value_block_preset R[܂B\n"); if(debug)printf("b_maker:SVBP:vZbgJn܂B\n"); SVB_entry("STATUS" , 0,0); /* Xe[^Xϐ */ SVB_entry("MES_TorG" , 0,0); /* &messega 0:eLXgɏo 1:GRPɏo */ SVB_entry("MES_LOC_X" ,16,0); /* &message eLXǵAネP[V X */ SVB_entry("MES_LOC_Y" ,20,0); /* AY */ SVB_entry("MES_LOC_DX",526,0); /* &message GA w̕ */ SVB_entry("MES_LOC_DY" ,96,0); /* Ax */ SVB_entry("MES_KWAIT_X",60,0); /* L[҂bZ[W̃P[V X */ SVB_entry("MES_KWAIT_Y",23,0); /* Y */ SVB_entry("MES_x", 0,0); /* &message x\Ӱ 0:CAPS 1`:reserve */ SVB_entry("MES_WAIT", 2,0); /* x\̂Po͂̃t[ */ SVB_entry("MES_SIZE", 8,0); /* {TCY */ SVB_entry("MES_", 1,0); /* {[h */ SVB_entry("MES_S{", 0,0); /* {S{[h */ SVB_entry("MES_COL" , 3,0); /* ÷PCG̊{J[ */ SVB_entry("MES_LINE_16",19,0); /* ÷PCĜPsBPUhbg[h */ SVB_entry("MES_LINE_24",27,0); /* ÷PCĜPsBQShbg[h */ SVB_entry("MES_LINE_32",35,0); /* ÷PCĜPsBRQhbg[h */ SVB_entry("MES_NEXT_KEY",29,0); /* ֑L[ */ SVB_entry("KW_STRING",(int)"[Push]",1); /* L[͑҂ */ SVB_entry("KW_SIZE", 8,0); /* L[͑҂TCY */ SVB_entry("KW_", 0,0); /* L[͑҂[h */ SVB_entry("KW_S{", 0,0); /* L[͑҂S{[h */ SVB_entry("KW_COL" , 1,0); /* L[͑҂̐F */ SVB_entry("FACE_X" , 0,0); /* tFCXwW */ SVB_entry("FACE_Y" ,289,0); /* tFCXxW */ SVB_entry("FACE_DX",104,0); /* tFCX(dots) */ SVB_entry("FACE_DY",111,0); /* tFCXc(dots) */ SVB_entry("SELWIN_TorG",0,0); /* Sel-win A0:÷PCG 1:÷GRP 2:GRP */ SVB_entry("SELWIN_COL",1,0); /* Sel-win{J[ */ SVB_entry("SELWIN_SIZE",8,0); /* Sel-win{TCY */ SVB_entry("SELWIN_",1,0); /* Sel-win{[h */ SVB_entry("SELWIN_S{",0,0); /* Sel-win{S{[h */ SVB_entry("SELWIN_X" , 0,0); /* Sel-winwW */ SVB_entry("SELWIN_Y" ,289,0); /* Sel-winxW */ SVB_entry("SELWIN_DX",104,0); /* Sel-win(dots) */ SVB_entry("SELWIN_DY",111,0); /* Sel-winc(dots) */ SVB_entry("SELWIN_USE", 1,0); /* Sel-win I[vAN[Y邩 */ SVB_entry("SELWIN_LINE",16,0); /* Sel-win Ps̃hbg */ SVB_entry("SELWIN_SPC",4,0); /* Sel-win ㉺_~[hbg */ SVB_entry("SELWIN_LOC_X",60,0); /* Sel-win eLXgP[VwW */ SVB_entry("SELWIN_LOC_Y",8,0); /* Sel-win eLXgP[VxW */ SVB_entry("MOUSE_MODE",0,0); /* ϳ߲́Aڸij޳ݎ̂ݕ\ */ SVB_entry("MOUSE_AREA",1,0); /* ϳ߲̈ړ͈ 0:ʑS 1:selwin */ SVB_entry("SELCUR_X",472,0); /* ZNgJ[\̍[W */ SVB_entry("SELCUR_DX",150,0); /* ZNgJ[\̕ */ SVB_entry("SELCUR_DU", 1,0); /* ZNgJ[\̏_~[hbg */ SVB_entry("SELCUR_DD",18,0); /* ZNgJ[\̑ */ SVB_entry("SELCUR_PAGE",0,0); /* ZNgJ[\Ŏgp÷ڰ */ SVB_entry("WIN_SIDE",1,0); /* dީw 0:Ȃ 1:^ 2: */ SVB_entry("WIN_SIDEPTN",(int)"15,15,0,15,E",1); /* ^dEBhẼp^[w */ SVB_entry("WIN_COLOR",3,0); /* EBhE̐F */ if(debug)printf("b_maker:SVBP:vZbgI܂B\n"); if(debug)printf("b_maker:SVBP:system_value_block_preset 甲܂B\n"); } #include #include #include "../key.h" #include "../gtnlib.h" #include "HARUNA.h" #include "hr_subs.h" #include "hr_subs2.h" #include "b_maker.h" #include "H_commands.h" #include "H_com2.h" #include "H_com3.h" extern char *test; extern char debug; extern char nonwait; #define PROMPT C_CURON();\ cprintf("HARUNA>");\ gets(test); /* 'Q' ŒEo */\ C_CUROFF();\ if((*test=='q')||(*test=='Q')){\ VDISPST(0,0,0);\ break;\ }\ if(*test=='?')printf("%s\n",s_ptr); /*----------------------------------------------------------- eLXg[_III */ char *HARUNA(s_ptr) char *s_ptr; { char *com_str[] ={"message","wait","select","goto","link","gosub","debug" ,"entry","set","calc","if","else","endif","mag" ,"face_entry","face_set","face","face_free","face_eset" ,"ptn_entry","ptn_set","ptn_eset","ptn","ptn_free" ,"win_open","win_draw","win_side_draw","win_close" ,"selwin_entry","selwin_free","tpalet","ms_curon","ms_curoff" ,"loop","endloop","cutloop","contrast","filelink" ,"t_cls","g_cls","save","load","keep_palet" ,"fadeout","fadeflash","fade","set_palet" ,"mm_all","mm_screen","mm_palet","mm_pkeep","mm_screen_pk", 0 }; char *(*com_ptr[])(char*)={H_message,H_wait,H_select,H_goto,H_link,H_gosub,H_debug ,H_entry,H_set,H_calc,H_if,H_else,H_endif,H_mag ,H_face_entry,H_face_set,H_face,H_face_free,H_face_eset ,H_ptn_entry,H_ptn_set,H_ptn_eset,H_ptn,H_ptn_free ,H_win_open,H_win_draw,H_win_side_draw,H_win_close ,H_selwin_entry,H_selwin_free,H_tpalet,H_ms_curon,H_ms_curoff ,H_loop,H_endloop,H_cutloop,H_contrast,H_filelink ,H_t_cls,H_g_cls,H_save,H_load,H_keep_palet ,H_fadeout,H_fadeflash,H_fade,H_set_palet ,H_mm_all,H_mm_screen,H_mm_palet,H_mm_pkeep,H_mm_screen_pk, 0 }; int counter=0; char *tst; HARUNA_up(0,0); /* ܂͑Kw */ if(nonwait)printf("HARUNA:HARUNA R[܂B\n"); if(nonwait)printf("HARUNA:HARUNA ́Aݑ %d Kwɂ܂B\n",HARUNA_layer); if(nonwait)printf("HARUNA:ƂJn܂B\n"); if(HARUNA_layer==1){ /* ubN⃉x̍\𒲂ׂ */ s_ptr=block_initset(s_ptr); if(s_ptr==0){ printf("HARUNA:WbNG[BubN‚Gg[Ă܂B\n"); printf("HARUNA:vOI܂B\n\n"); VDISPST(0,0,0); exit(); } } while(1){ /* - g`qtm` - { */ s_ptr=ih_search(s_ptr); /* wb_T[` */ if(s_ptr==0){ printf("HARUNA:WbNG[Bt@CGhɒB܂B\n"); printf("HARUNA:vOI܂B\n\n"); VDISPST(0,0,0); exit(); } if(*s_ptr=='&'){ s_ptr++; counter=0; while(1){ if(com_str[counter]==0){ if(nonwait)printf("HARUNA:m̃R}hR[܂B %s\nHARUNA:đs܂B\n",ch_end(s_ptr)); break; } if(hr_strcmp(com_str[counter],s_ptr)){ s_ptr=com_ptr[counter](s_ptr); break; } counter+=1; } if(nonwait){PROMPT}; continue; } if(*s_ptr=='{'){ HARUNA_up(0,0); if(nonwait)printf("HARUNA:HARUNA R[܂B\n"); if(nonwait)printf("HARUNA:HARUNA ́Aݑ %d Kwɂ܂B\n",HARUNA_layer); if(nonwait)printf("HARUNA:ƂJn܂B\n"); s_ptr++; if(nonwait){PROMPT}; continue; } if(*s_ptr=='}'){ s_ptr++; s_ptr=HARUNA_down(s_ptr); if(nonwait)printf("HARUNA:HARUNA ́Aݑ %d Kwɉ܂B\n",HARUNA_layer); if(nonwait){PROMPT}; HARUNA_retcode=0; if(HARUNA_layer==0)return(s_ptr); continue; } s_ptr++; if(nonwait){PROMPT}; } if(nonwait)printf("HARUNA:HARUNA 甲܂B\n"); return; } /*----------------------------------------------------------- .sce t@CRo[^ */ char *sce_conv(s_file) char *s_file; { char *te=(char*)malloc(256); char *s_buffer; /* \[Xt@Ci[ */ char *s_ptr; /* \[X|C^ */ char *d_ptr; /* ިèȰ݃|C^ */ int d_size; /* ϊ̃TCY */ char qt=1; /* NI[e[VtO */ /* 1:O 0: */ if(debug)printf("sce_conv:sce_conv() %s n܂B\n",s_file); if(debug)printf("sce_conv:obt@ɓeǂݍ݂܂B\n"); s_buffer=(char*)malloc(fsize(s_file)); /* obt@m */ HARUNA_TOP=s_buffer; betaread(s_file,s_buffer,fsize(s_file)); /* \[Xǂݍ */ s_ptr=s_buffer; d_ptr=s_buffer; if(debug)printf("sce_conv:ǂݏI܂B\n"); /* Ro[g */ if(debug)printf("sce_conv:eϊ܂B\n"); d_size=0; while(1){ /* ŏ̃R}h܂ŃXLbv */ if(is2byte(*s_ptr)){ s_ptr+=2; continue; } /* SPC or TAB */ if((*s_ptr==0x0D)||(*s_ptr==0x0A)){ /* CR,LF */ s_ptr++; continue; } if(qt&&((*s_ptr==0x20)||(*s_ptr==0x09))){ /* Xy[XA^u΂ */ s_ptr++; continue; } break; } while(1){ if(qt*is2byte(*s_ptr)){ /* Sp */ *d_ptr++=*s_ptr++; /* Rs[ */ *d_ptr++=*s_ptr++; d_size+=2; /* PoCgJEg */ continue; } if(*s_ptr==0x22){ /* " m */ *d_ptr++=*s_ptr++; /* f[^Rs[ */ d_size+=1; qt+=1; qt&=1; continue; } if(*s_ptr==0x1a){ /* EOF m */ if(debug)printf("sce_conv:0x1a mB ƏIB\n"); *d_ptr++=0x00; /* GhR[h */ d_size+=1; break; } if((*s_ptr==0x0D)||(*s_ptr==0x0A)){ /* CR,LFm */ if(qt){ while(1){ s_ptr++; /* |C^fʂ肳B */ if((*s_ptr==0x0D)||(*s_ptr==0x0A))continue; break; } continue; } else { while(1){ s_ptr++; /* |C^fʂ肳B */ if((*s_ptr==0x0D)||(*s_ptr==0x0A))continue; break; } continue; } } if(qt&&(*s_ptr==0x27)){ /* ' m */ while(1){ if(d_ptr==s_buffer)break; if( (*(d_ptr-1)==0x20)||(*(d_ptr-1)==0x09) ||(*(d_ptr-1)==0x0D)||(*(d_ptr-1)==0x0A) ){ d_ptr--; d_size-=1; } else break; } while(1){ s_ptr++; if(*s_ptr==0x1A){ /* EOF m */ s_ptr--; break; } if((*s_ptr==0x0D)||(*s_ptr==0x0A))break; /* CR,LFT */ } while(1){ s_ptr++; if(*s_ptr==0x1A)break; /* EOF m */ /* CR,LF */ /* SPC,TAB */ if((*s_ptr==0x0D)||(*s_ptr==0x0A))continue; if((*s_ptr==0x20)||(*s_ptr==0x09))continue; break; } continue; } if(qt&&((*s_ptr==':')||(*s_ptr=='{')||(*s_ptr=='}'))){ /* { } : m */ *d_ptr++=*s_ptr; /* f[^Rs[ */ d_size+=1; /* PoCgJEg */ while(1){ s_ptr++; /* SPC or TAB */ if((*s_ptr==0x0D)||(*s_ptr==0x0A))continue; /* CR,LF */ if((*s_ptr==0x20)||(*s_ptr==0x09))continue; /* SPC,TAB */ break; } continue; } if(qt&&((*s_ptr=='=')||(*s_ptr==';')||(*s_ptr==','))){ /* ; , = m */ while(1){ if( (*(d_ptr-1)==0x20)||(*(d_ptr-1)==0x09) ||(*(d_ptr-1)==0x0D)||(*(d_ptr-1)==0x0A) ){ d_ptr--; d_size-=1; } else break; } *d_ptr++=*s_ptr; /* f[^Rs[ */ d_size+=1; /* PoCgJEg */ while(1){ s_ptr++; /* SPC or TAB */ if((*s_ptr==0x0D)||(*s_ptr==0x0A))continue; /* CR,LF */ if((*s_ptr==0x20)||(*s_ptr==0x09))continue; /* SPC,TAB */ break; } continue; } if((qt)&&((*s_ptr==0x09)||(*s_ptr==0x20))){ /* \[X|C^SPC or TAB ̎ */ if(*(d_ptr-1)==0x20){ /* SPC dȂ̂h */ s_ptr++; continue; } } if((qt)&&(*s_ptr==0x09))*d_ptr++=0x20; /* f[^Rs[ */ else *d_ptr++=*s_ptr; /* (TAB SPC ɕϊ) */ s_ptr++; d_size+=1; /* PoCgJEg */ } realloc(s_buffer,d_size); /* obt@TCY̍œK */ if(debug)printf("sce_conv:ϊIB\n"); if(debug)printf("sce_conv:ϊ̃TCY %d oCgłB\n",d_size); if(debug)printf("sce_conv:Ō̃R[h %d łB\n",*(s_buffer+d_size-1)); if(debug)printf("sce_conv:̂P‘O %x łB\n",*(s_buffer+d_size-2)); if(debug)printf("sce_conv:̂Q‘O %x łB\n",*(s_buffer+d_size-3)); if(debug)printf("sce_conv:ϊe evZX֓n܂B\n"); return(s_buffer); } /*------------------------------------------------------- ubNAx̍\`FbN */ char *block_initset(s_ptr) char *s_ptr; /* ^ꂽ|C^ȍ~܂B */ { if(debug)printf("HARUNA:block_initset:block_initset R[܂B\n"); if(debug)printf("HARUNA:block_initset:ubNƃx̃Gg[Jn܂B\n"); while(1){ s_ptr=ih_search(s_ptr); if(s_ptr==0){ /* `FbNI */ if(debug)printf("HARUNA:block_initset:Gg[I܂B\n"); if(debug)printf("HARUNA:block_initset:Gg[́AVXeubN%dAx%d‚łB\n",SBB_count,LB_count); if(debug)printf("HARUNA:block_initset:block_initset 甲܂B\n"); if(SBB_count==0)return(0); else { s_ptr=SBB[0]; s_ptr=ih_search(s_ptr); if(*s_ptr=='{')return(s_ptr); else { printf("HARUNA:block_initset:WbNG[łB &set_block ̂Ƃ { ‚܂B\n"); printf("HARUNA:block_initset:vOI܂B\n"); VDISPST(0,0,0); exit(); } } } if(!((*s_ptr=='&')||(*s_ptr==':'))){ s_ptr++; continue; } if(*s_ptr++=='&'){ if(hr_strcmp("set_block",s_ptr)){ /* VXeubNGg[ */ while(1)if(*s_ptr++==' ')break; if(debug)printf("HARUNA:block_initset:VXeubN %s mBGg[܂B\n",ch_end(s_ptr)); SBB_entry(s_ptr); continue; } } else { /* xGg[ */ if(debug)printf("HARUNA:block_initset:x %s mBGg[܂B\n",ch_end(s_ptr)); LB_entry(s_ptr); continue; } } } /*------------------------------------------------ - g`qtm` -̃R}h -----*/ /*------------------------- vg^Cv錾 ---------------------------------------*/ char *H_message(char*); /* &message */ char *H_wait(char*); /* &wait */ char *H_select(char*); /* &select */ char *H_goto(char*); /* &goto */ char *H_link(char*); /* &link */ char *H_gosub(char*); /* &gosub */ char *H_debug(char*); /* &debug */ char *H_entry(char*); /* &entry */ char *H_set(char*); /* &set */ char *H_calc(char*); /* &calc */ char *H_if(char*); /* &if */ char *H_else(char*); /* &else */ char *H_endif(char*); /* &endif */ /*------------------------------------------------------------ ⏕Tu[`Q ----*/ int H_mes_switch_caps(); /* &message ⏕Bx\ݸ(CAPS) */ void H_mes_clear(int,char*,char*,short,short); /* &message ⏕BEBhENA */ /*--------------------------------------------- - g`qtm` - Tu[`S -----*/ #include #include #include "../key.h" #include "../gtnlib.h" #include "hr_subs.h" #include "b_maker.h" extern int HARUNA_layer; extern char debug; extern char nonwait; /*------------------------------------------------ CN^wb_T[`[ --*/ char *ih_search(s_ptr) /* Kȃwb_𔭌Äʒuւ̃|C^Ԃ */ char *s_ptr; /* ViIւ̃|C^ */ { if(debug)printf("ih_search:ih_search R[܂B\n"); while(1){ if(is2byte(*s_ptr)){ s_ptr++; s_ptr++; continue; } if(*s_ptr==0x22){ /* " m */ while(1){ s_ptr++; if(*s_ptr==0x22)break; if(*s_ptr==0x00){ printf("ih_search:WbNG[łB ðݓɴ޺ނ𔭌܂B\n"); printf("ih_search:vOI܂B\n\n"); VDISPST(0,0,0); exit(); } } s_ptr++; continue; } if(*s_ptr=='&'){ if(debug)printf("ih_search: & m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr==':'){ if(debug)printf("ih_search: : m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='{'){ if(debug)printf("ih_search: { m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='}'){ if(debug)printf("ih_search: } m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='#'){ if(debug)printf("ih_search: # m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='$'){ if(debug)printf("ih_search: $ m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='!'){ if(debug)printf("ih_search: ! m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='@'){ if(debug)printf("ih_search: @ m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr==','){ if(debug)printf("ih_search: , m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if((*s_ptr=='+')||(*s_ptr=='-')||(*s_ptr=='/')||(*s_ptr=='*')||(*s_ptr=='>')||(*s_ptr=='<')||(*s_ptr=='=')){ if(debug)printf("ih_search: Zq m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr==0x00){ if(debug)printf("ih_search:wb_oɴ޺ނɂǂ蒅܂B null ԂAih_search I܂B\n"); return(0); } s_ptr++; } } /*------------------------------------------------ CN^wb_T[`[Q --*/ char *ih_search2(s_ptr) /* '"' Awb_ƌȂ */ char *s_ptr; /* ViIւ̃|C^ */ { if(debug)printf("ih_search:ih_search2 R[܂B\n"); while(1){ if(is2byte(*s_ptr)){ s_ptr++; s_ptr++; continue; } if(*s_ptr=='&'){ if(debug)printf("ih_search2: & m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr==':'){ if(debug)printf("ih_search2: : m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='{'){ if(debug)printf("ih_search2: { m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='}'){ if(debug)printf("ih_search2: } m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='"'){ if(debug)printf("ih_search2: \" m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='#'){ if(debug)printf("ih_search2: # m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='$'){ if(debug)printf("ih_search2: $ m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='!'){ if(debug)printf("ih_search2: ! m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='@'){ if(debug)printf("ih_search2: @ m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr==','){ if(debug)printf("ih_search2: , m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if((*s_ptr=='+')||(*s_ptr=='-')||(*s_ptr=='/')||(*s_ptr=='*')||(*s_ptr=='>')||(*s_ptr=='<')||(*s_ptr=='=')){ if(debug)printf("ih_search2: Zq m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr==0x00){ if(debug)printf("ih_search2:wb_oɴ޺ނɂǂ蒅܂B null ԂAih_search I܂B\n"); return(0); } s_ptr++; } } /*------------------------------------------------ CN^wb_T[`[R --*/ char *ih_search3(s_ptr) /* ';' Awb_ƌȂ */ char *s_ptr; /* ViIւ̃|C^ */ { if(debug)printf("ih_search:ih_search3 R[܂B\n"); while(1){ if(is2byte(*s_ptr)){ s_ptr++; s_ptr++; continue; } if(*s_ptr=='&'){ if(debug)printf("ih_search3: & m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr==';'){ if(debug)printf("ih_search3: ; m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr==':'){ if(debug)printf("ih_search3: : m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='{'){ if(debug)printf("ih_search3: { m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='}'){ if(debug)printf("ih_search3: } m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='"'){ if(debug)printf("ih_search3: \" m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='#'){ if(debug)printf("ih_search3: # m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='$'){ if(debug)printf("ih_search3: $ m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='!'){ if(debug)printf("ih_search3: ! m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr=='@'){ if(debug)printf("ih_search3: @ m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr==','){ if(debug)printf("ih_search3: , m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if((*s_ptr=='+')||(*s_ptr=='-')||(*s_ptr=='/')||(*s_ptr=='*')||(*s_ptr=='>')||(*s_ptr=='<')||(*s_ptr=='=')){ if(debug)printf("ih_search3: Zq m܂Bih_search 𔲂܂B\n"); return(s_ptr); } if(*s_ptr==0x00){ if(debug)printf("ih_search3:wb_oɴ޺ނɂǂ蒅܂B null ԂAih_search I܂B\n"); return(0); } s_ptr++; } } /*------------------------------------------------ wLN^܂ŃXLbv --*/ char *skipto(s_ptr,ch) /* w肵LN^𔭌Äʒuւ̃|C^Ԃ */ char *s_ptr; /* ViIւ̃|C^ */ char ch; /* L[LN^ */ { if(debug)printf("hr_subs:skipto:skipto R[܂B\n"); while(1){ if(is2byte(*s_ptr)){ s_ptr++; s_ptr++; continue; } if(*s_ptr==ch){ if(debug)printf("hr_subs:skipto: m܂Bskipto 𔲂܂B\n"); return(s_ptr); } if(*s_ptr==0x00){ if(debug)printf("hr_subs:skipto:wb_oɴ޺ނɂǂ蒅܂B null ԂAskipto I܂B\n"); return(0); } s_ptr++; } } /*------------------------------------------------ { ɑΉ } ܂ŃXLbv --*/ char *skipnest(s_ptr) /* Ή } ܂ŃXLbvÄʒuւ̃|C^Ԃ */ char *s_ptr; /* ViIւ̃|C^ */ { int count=0; int i; char qt=1; if(debug)printf("hr_subs:skipnest:skipnest R[܂B\n"); while(1){ s_ptr++; if(is2byte(*s_ptr)){ s_ptr++; continue; } if(qt&&(*s_ptr=='{')){ count+=1; continue; } if(qt&&(*s_ptr=='}')){ if(count==0)return(s_ptr); else count-=1; continue; } if(*s_ptr==0x00){ if(!(qt)){ printf("hr_subs:skipnest:WbNG[łBðݓ 00 m܂B\n\n"); VDISPST(0,0,0); exit(); } printf("hr_subs:skipnest:Ή } oɴ޺ނɂǂ蒅܂۸тI܂\n"); VDISPST(0,0,0); exit(); } } } /*--------------------------------------------- &else &endif T[` -----*/ char *skipif(s_ptr) char *s_ptr; { int count=0; if(debug)printf("hr_subs:skipif:skipif R[܂B\n"); while(1){ s_ptr=ih_search(s_ptr); /* wb_T[` */ if(s_ptr==0){ printf("hr_subs:skipif:WbNG[B lXeBO‚Ă܂B\n"); printf("hr_subs:skipif:vOI܂B\n"); VDISPST(0,0,0); exit(); } if(hr_strcmp("if",s_ptr+1)){ /* &if ́Acount+1 */ count+=1; s_ptr++; continue; } if(hr_strcmp("endif",s_ptr+1)){ /* &endif ́Acount-1 */ if(count==0)break; /* */ count-=1; s_ptr++; } if(hr_strcmp("else",s_ptr+1)){ /* &else ́AX[ */ if(count==0)break; /* */ } s_ptr++; /* SRʂ̃R}h́AX[ */ } if(debug)printf("hr_subs:skipif:lXeBO̍Ō𔭌ł܂B\n"); if(debug)printf("hr_subs:skipif:skipif 𔲂܂B\n"); return(s_ptr); } /*-------------------------------------------------------- XgORyA ------*/ /* 0x00 ȊOɂA0x20 '"' ȂǂGhR[hƌȂB */ int hr_strcmp(str1,str2) char *str1; char *str2; { char s1,s2; if(debug)printf("hr_subs:hr_strcmp:R[܂B\n"); if(debug)printf("hr_subs:hr_strcmp:r%s%słB\n",ch_end(str1),ch_end(str2)); while(1){ s1=*str1++; s2=*str2++; if( /* GhR[h0x00 ɓꂷ */ (s1==' ')||(s1==':')||(s1=='$')||(s1==';')||(s1=='=')||(s1=='{')||(s1=='@') ||(s1=='}')||(s1=='%')||(s1=='&')||(s1=='!')||(s1=='#')||(s1==',')||(s1=='"') ||(s1=='+')||(s1=='-')||(s1=='*')||(s1=='/')||(s1=='=')||(s1=='<')||(s1=='>') )s1=0; if( (s2==' ')||(s2==':')||(s2=='$')||(s2==';')||(s2=='=')||(s2=='{')||(s2=='@') ||(s2=='}')||(s2=='%')||(s2=='&')||(s2=='!')||(s2=='#')||(s2==',')||(s2=='"') ||(s2=='+')||(s2=='-')||(s2=='*')||(s2=='/')||(s2=='=')||(s2=='<')||(s2=='>') )s2=0; if((s1==0)&&(s2==0)){ /* S */ /*if(is2byte(*(str1-2))||is2byte(*(str2-2)))continue; else*/ return(1); } if(s1!=s2)return(0); /* */ } } /*-------------------------------------------------------- XgORyAQ ------*/ /* 0x00 ȊOɂA0x20 '"' ȂǂGhR[hƌȂB */ /* Zq̓GhR[hƌȂȂB */ int hr_strcmp2(str1,str2) char *str1; char *str2; { char s1,s2; if(debug)printf("hr_subs:hr_strcmp2:R[܂B\n"); /*if(debug)printf("hr_subs:hr_strcmp2:r%s%słB\n",ch_end(str1),ch_end(str2));*/ while(1){ s1=*str1++; s2=*str2++; if( /* GhR[h0x00 ɓꂷ */ (s1==' ')||(s1==':')||(s1=='$')||(s1==';')||(s1=='=')||(s1=='{')||(s1=='@') ||(s1=='}')||(s1=='%')||(s1=='&')||(s1=='!')||(s1=='#')||(s1==',')||(s1=='"') ||(s1=='<')||(s1=='>') )s1=0; if( (s2==' ')||(s2==':')||(s2=='$')||(s2==';')||(s2=='=')||(s2=='{')||(s2=='@') ||(s2=='}')||(s2=='%')||(s2=='&')||(s2=='!')||(s2=='#')||(s2==',')||(s2=='"') ||(s2=='<')||(s2=='>') )s2=0; if((s1==0)&&(s2==0)){ /* S */ /*if(is2byte(*(str1-2))||is2byte(*(str2-2)))continue; else*/ return(1); } if(s1!=s2)return(0); /* */ } } /*-------------------------------------------------------- XgORs[ ------*/ /* 0x00 ȊOɂA0x20 '"' ȂǂGhR[hƌȂB */ void hr_strcpy(s_str,d_str) char *s_str; /* \[XXgOX */ char *d_str; /* fBXeBl[VXgOX */ { char s1,s2; if(debug)printf("hr_subs:hr_strcpy:R[܂B\n"); while(1){ s1=*s_str++; if(is2byte(s1)){ *d_str++=s1; *d_str++=*s_str++; continue; } if( /* GhR[h0x00 ɓꂷ */ (s1==' ')||(s1==':')||(s1=='$')||(s1==';')||(s1=='=')||(s1=='{')||(s1=='@') ||(s1=='}')||(s1=='%')||(s1=='&')||(s1=='!')||(s1=='#')||(s1==',')||(s1=='"') ||(s1=='+')||(s1=='-')||(s1=='*')||(s1=='/')||(s1=='=')||(s1=='<')||(s1=='>') )s1=0; *d_str++=s1; if((s1==0)&&(!is2byte(*(s_str-2)))){ /* GhR[hɂǂ蒅 */ if(debug)printf("hr_subs:hr_strcpy:Rs[I܂B hr_strcpy 𔲂܂B\n"); return; } } } /*-------------------------------------------------------- XgORs[ke ------*/ /* ke ݂̂GhR[hƌȂB */ void hr_strcpy_lf(s_str,d_str) char *s_str; /* \[XXgOX */ char *d_str; /* fBXeBl[VXgOX */ { char s1,s2; if(debug)printf("hr_subs:hr_strcpy_lf:R[܂B\n"); while(1){ s1=*s_str++; if(is2byte(s1)){ *d_str++=s1; *d_str++=*s_str++; continue; } if( /* GhR[h0x00 ɓꂷ */ (s1==' ')||(s1==0x0D)||(s1==0x0A) )s1=0; *d_str++=s1; if((s1==0)&&(!is2byte(*(s_str-2)))){ /* GhR[hɂǂ蒅 */ if(debug)printf("hr_subs:hr_strcpy_lf:Rs[I܂B hr_strcpy_lf 𔲂܂B\n"); return; } } } /*-------------------------------------------------------- 𐔒lɕϊ ------*/ /* 0x00 ȊOɂA0x20 '"' ȂǂGhR[hƌȂB */ int hr_atoi(s_str) char *s_str; /* \[XXgOX */ { char s1; char *d_str=(char*)malloc(256); char *d_str_init=d_str; int i,result; char flag=0; if(debug)printf("hr_subs:hr_atoi:hr_atoi R[܂B\n"); if(isvari(*s_str)){ if(debug)printf("hr_subs:hr_atoi:w肳ꂽ͕̂ϐłB\n"); switch(*s_str){ case '$': if(debug)printf("hr_subs:hr_atoi:ϐ̓VXeϐłB\n"); return(SVB_ref(s_str+1)); break; case '#': if(debug)printf("hr_subs:hr_atoi:ϐ̓O[oϐłB\n"); return(GVB_ref(s_str+1)); break; case '!': if(debug)printf("hr_subs:hr_atoi:ϐ̓[JϐłB\n"); return(LVB_ref(HARUNA_layer,s_str+1)); break; case '@': if(debug)printf("hr_subs:hr_atoi:ϐ̓Z~O[oϐłB\n"); return(SGVB_ref(s_str+1)); break; } } for(i=0;i<255;i++){ s1=*s_str++; if( /* GhR[h0x00 ɓꂷ */ (s1==' ')||(s1==':')||(s1=='$')||(s1==';')||(s1=='=')||(s1=='{')||(s1=='@') ||(s1=='}')||(s1=='%')||(s1=='&')||(s1=='!')||(s1=='#')||(s1==',')||(s1=='"') ||(s1=='+')||(s1=='-')||(s1=='*')||(s1=='/')||(s1=='=')||(s1=='<')||(s1=='>') )s1=0; if((s1==0)&&(flag==0))break; if((s1==0)&&(!is2byte(*(s_str-2))))break; *d_str++=s1; flag+=(flag=0); } *d_str=0; /* GhR[h */ d_str=d_str_init; result=atoi(d_str); if(debug)printf("hr_subs:hr_atoi:ϊIBl%dłB\n",result); if(debug)printf("hr_subs:hr_atoi:hr_atoi 𔲂܂B\n",result); free(d_str); return(result); } /*------------------------------------------------------ Sp ----------*/ char is2byte(ch) char ch; { if( ((unsigned char)ch>=0x81)&&((unsigned char)ch<=0x9F) || ((unsigned char)ch>=0xE0)&&((unsigned char)ch<=0xEF) )return(1); else return(0); } /*------------------------------------------------------ ϐ ----------*/ char isvari(ch) char ch; { if(debug)printf("hr_subs:isvari:isvari R[܂B\n"); if( (ch=='$')||(ch=='#')||(ch=='!')||(ch=='@') ){ if(debug)printf("hr_subs:isvari:ϐƔ肵܂B\n"); return(1); } else { if(debug)printf("hr_subs:isvari:ϐł͂ȂƔ肵܂B\n"); return(0); } } /*------------------------------------------------------ lenalloccpy. ----------*/ char *hr_lenalloccpy(s_ptr) char *s_ptr; { int count=1; /* GhR[hB */ int i; char *retbuf; char *retbuf_init; char *s_ptr_init=s_ptr; while(1){ if(is2byte(*s_ptr)){ s_ptr+=2; count+=2; continue; } if( (*s_ptr==' ')||(*s_ptr==':')||(*s_ptr=='$')||(*s_ptr==';')||(*s_ptr=='=') ||(*s_ptr=='{')||(*s_ptr=='@')||(*s_ptr=='}')||(*s_ptr=='%')||(*s_ptr=='&') ||(*s_ptr=='!')||(*s_ptr=='#')||(*s_ptr==',')||(*s_ptr=='"')||(*s_ptr=='+') ||(*s_ptr=='-')||(*s_ptr=='*')||(*s_ptr=='/')||(*s_ptr=='=')||(*s_ptr=='<') ||(*s_ptr=='>') ){ break; } else { count+=1; s_ptr++; } } retbuf=(char*)malloc(count); retbuf_init=retbuf; s_ptr=s_ptr_init; for(i=1;iSVB_count){ printf("hr_subs:SVB_set:R[ꂽVXeϐ̓Gg[Ă܂B\n"); printf("hr_subs:SVB_set:vOI܂B\n"); VDISPST(0,0,0); exit(); } if(hr_strcmp(name,SVB[srch]))break; srch+=1; } if(mode==0)SVB_target[srch]=data; /* l */ else { free(SVB_ref((char*)name)); SVB_target[srch]=(int)hr_lenalloccpy2((char*)data); } SVB_isptr[srch]=mode; if(debug)printf("hr_subs:SVB_set:R[ꂽϐ %s łB\n",ch_end(SVB[srch])); if(debug)printf("hr_subs:SVB_set:ĺA%d łB\n",SVB_target[srch]); if(debug)printf("hr_subs:SVB_set:SVB_set I܂B\n"); } void GVB_set(name,data) /* O[oϐ */ char *name; /* ϐ */ int data; /* l */ { int srch=0; if(debug)printf("hr_subs:GVB_set:R[܂B\n"); if(debug)printf("hr_subs:GVB_set:O[oϐ %s T܂B\n",ch_end(name)); while(1){ /* Gg[ԍT */ if(srch+1>GVB_count){ printf("hr_subs:GVB_set:R[ꂽO[oϐ̓Gg[Ă܂B\n"); printf("hr_subs:GVB_set:vOI܂B\n"); VDISPST(0,0,0); exit(); } if(hr_strcmp(name,GVB[srch]))break; srch+=1; } GVB_target[srch]=data; /* l */ if(debug)printf("hr_subs:GVB_set:R[ꂽϐ %s łB\n",ch_end(GVB[srch])); if(debug)printf("hr_subs:GVB_set:ĺA%d łB\n",GVB_target[srch]); if(debug)printf("hr_subs:GVB_set:GVB_set I܂B\n"); } void SGVB_set(name,data) /* Z~O[oϐ */ char *name; /* ϐ */ int data; /* l */ { int srch=0; if(debug)printf("hr_subs:SGVB_set:R[܂B\n"); if(debug)printf("hr_subs:SGVB_set:Z~O[oϐ %s T܂B\n",ch_end(name)); while(1){ /* Gg[ԍT */ if(srch+1>SGVB_count){ printf("hr_subs:SGVB_set:R[ꂽZ~O[oϐ̓Gg[Ă܂B\n"); printf("hr_subs:SGVB_set:vOI܂B\n"); VDISPST(0,0,0); exit(); } if(hr_strcmp(name,SGVB[srch]))break; srch+=1; } SGVB_target[srch]=data; /* l */ if(debug)printf("hr_subs:SGVB_set:R[ꂽϐ %s łB\n",ch_end(SGVB[srch])); if(debug)printf("hr_subs:SGVB_set:ĺA%d łB\n",SGVB_target[srch]); if(debug)printf("hr_subs:SGVB_set:SGVB_set I܂B\n"); } void LVB_set(layer,name,data) /* [Jϐ */ int layer; /* Kw */ char *name; /* ϐ */ int data; /* l */ { int srch=0; int layer_count; int ret_val=-1; if(debug)printf("hr_subs:LVB_set:R[܂B\n"); if(debug)printf("hr_subs:LVB_set:[Jϐ %s T܂B\n",ch_end(name)); for(layer_count=layer;layer_count>=2;layer_count--){ if(debug)printf("ݑ%dKw𒲂ׂĂ܂\n",layer_count); srch=0; while(1){ /* Gg[ԍT */ if(LVB_count[layer_count]==0)break; if(hr_strcmp(name,LVB[layer_count][srch])){ ret_val=layer_count; break; } srch+=1; if(debug)printf("srch=%d:LVB_count=%d\n",srch,LVB_count[layer_count]); if(srch>=LVB_count[layer_count]){ if(layer_count>=layer){ printf("hr_subs:LVB_ref:R[ꂽ[Jϐ̓Gg[Ă܂B\n"); printf("hr_subs:LVB_ref:vOI܂B\n"); VDISPST(0,0,0); exit(); } break; } } if(ret_val>0)break; } layer=ret_val; LVB_target[layer][srch]=data; /* l */ if(debug)printf("hr_subs:LVB_set:R[ꂽϐ %s łB\n",ch_end(LVB[layer][srch])); if(debug)printf("hr_subs:LVB_set:ĺA%d łB\n",LVB_target[layer][srch]); if(debug)printf("hr_subs:LVB_set:LVB_set I܂B\n"); } /*------------------------------------------------------ eubNt@X --------*/ char *SBB_ref(name) /* VXeubN */ char *name; /* ubN */ { int srch=0; if(debug)printf("hr_subs:SBB_ref:R[܂B\n"); if(debug)printf("hr_subs:SBB_ref:VXeubN %s QƂ܂B\n",ch_end(name)); while(1){ /* Gg[ԍT */ if(srch+1>SBB_count){ printf("hr_subs:SBB_ref:R[ꂽVXeubN̓Gg[Ă܂B\n"); printf("hr_subs:SBB_ref:vOI܂B\n"); VDISPST(0,0,0); exit(); } if(hr_strcmp(name,SBB[srch]))break; srch+=1; } if(debug)printf("hr_subs:SBB_ref:R[ꂽubN %s łB\n",ch_end(SBB[srch])); if(debug)printf("hr_subs:SBB_ref:SBB_ref I܂B\n"); return(SBB[srch]); } char *LB_ref(name) /* xubN */ char *name; /* ubN */ { int srch=0; if(debug)printf("hr_subs:LB_ref:R[܂B\n"); if(debug)printf("hr_subs:LB_ref:x %s QƂ܂B\n",ch_end(name)); while(1){ /* Gg[ԍT */ if(srch+1>LB_count){ printf("hr_subs:LB_ref:R[ꂽx̓Gg[Ă܂B\n"); printf("hr_subs:LB_ref:vOI܂B\n"); VDISPST(0,0,0); exit(); } if(hr_strcmp(name,LB[srch]))break; srch+=1; } if(debug)printf("hr_subs:LB_ref:R[ꂽx %s łB\n",ch_end(LB[srch])); if(debug)printf("hr_subs:LB_ref:LB_ref I܂B\n"); return(LB[srch]); } int SVB_ref(name) /* VXeϐ */ char *name; /* ϐ */ { int srch=0; if(debug)printf("hr_subs:SVB_ref:R[܂B\n"); if(debug)printf("hr_subs:SVB_ref:VXeϐ %s QƂ܂B\n",ch_end(name)); while(1){ /* Gg[ԍT */ if(srch+1>SVB_count){ printf("hr_subs:SVB_ref:R[ꂽVXeϐ̓Gg[Ă܂B\n"); printf("hr_subs:SVB_ref:vOI܂B\n"); VDISPST(0,0,0); exit(); } if(hr_strcmp(name,SVB[srch]))break; srch+=1; } if(debug)printf("hr_subs:SVB_ref:R[ꂽϐ %s łB\n",ch_end(SVB[srch])); if(debug)printf("hr_subs:SVB_ref:ĺA%d łB\n",SVB_target[srch]); if(debug)printf("hr_subs:SVB_ref:SVB_ref I܂B\n"); return(SVB_target[srch]); } int GVB_ref(name) /* O[oϐ */ char *name; /* ϐ */ { int srch=0; if(debug)printf("hr_subs:GVB_ref:R[܂B\n"); if(debug)printf("hr_subs:GVB_ref:O[oϐ %s QƂ܂B\n",ch_end(name)); while(1){ /* Gg[ԍT */ if(srch+1>GVB_count){ printf("hr_subs:GVB_ref:R[ꂽO[oϐ̓Gg[Ă܂B\n"); printf("hr_subs:GVB_ref:vOI܂B\n"); VDISPST(0,0,0); exit(); } if(hr_strcmp(name,GVB[srch]))break; srch+=1; } if(debug)printf("hr_subs:GVB_ref:R[ꂽϐ %s łB\n",ch_end(GVB[srch])); if(debug)printf("hr_subs:GVB_ref:ĺA%d łB\n",GVB_target[srch]); if(debug)printf("hr_subs:GVB_ref:GVB_ref I܂B\n"); return(GVB_target[srch]); } int SGVB_ref(name) /* Z~O[oϐ */ char *name; /* ϐ */ { int srch=0; if(debug)printf("hr_subs:SGVB_ref:R[܂B\n"); if(debug)printf("hr_subs:SGVB_ref:Z~O[oϐ %s QƂ܂B\n",ch_end(name)); while(1){ /* Gg[ԍT */ if(srch+1>SGVB_count){ printf("hr_subs:SGVB_ref:R[ꂽZ~O[oϐ̓Gg[Ă܂B\n"); printf("hr_subs:SGVB_ref:vOI܂B\n"); VDISPST(0,0,0); exit(); } if(hr_strcmp(name,SGVB[srch]))break; srch+=1; } if(debug)printf("hr_subs:SGVB_ref:R[ꂽϐ %s łB\n",ch_end(SGVB[srch])); if(debug)printf("hr_subs:SGVB_ref:ĺA%d łB\n",SGVB_target[srch]); if(debug)printf("hr_subs:SGVB_ref:SGVB_ref I܂B\n"); return(SGVB_target[srch]); } int LVB_ref(layer,name) /* [Jϐ */ int layer; char *name; /* ϐ */ { int srch=0; int layer_count; int ret_val=-1; if(debug)printf("hr_subs:LVB_ref:R[܂B\n"); if(debug)printf("hr_subs:LVB_ref:[Jϐ %s QƂ܂B\n",ch_end(name)); for(layer_count=layer;layer_count>=2;layer_count--){ if(debug)printf("ݑ%dKw𒲂ׂĂ܂\n",layer_count); srch=0; while(1){ /* Gg[ԍT */ if(LVB_count[layer_count]==0)break; if(hr_strcmp(name,LVB[layer_count][srch])){ ret_val=layer_count; break; } srch+=1; if(debug)printf("srch=%d:LVB_count=%d\n",srch,LVB_count[layer_count]); if(srch>=LVB_count[layer_count]){ if(layer_count>=layer){ printf("hr_subs:LVB_ref:R[ꂽ[Jϐ̓Gg[Ă܂B\n"); printf("hr_subs:LVB_ref:vOI܂B\n"); VDISPST(0,0,0); exit(); } break; } } if(ret_val>0)break; } if(debug)printf("hr_subs:LVB_ref:R[ꂽϐ %s łB\n",ch_end(LVB[ret_val][srch])); if(debug)printf("hr_subs:LVB_ref:R[ꂽϐ %d KwɃGg[Ă܂B\n",ret_val); if(debug)printf("hr_subs:LVB_ref:ĺA%d łB\n",LVB_target[ret_val][srch]); if(debug)printf("hr_subs:LVB_ref:LVB_ref I܂B\n"); return(LVB_target[ret_val][srch]); } int LVB_layer(layer,name) /* [Jϐ */ int layer; char *name; /* ϐ */ { int srch=0; int layer_count; int ret_val=-1; if(debug)printf("hr_subs:LVB_layer:R[܂B\n"); if(debug)printf("hr_subs:LVB_layer:[Jϐ %s ̊Kw𒲂ׂ܂B\n",ch_end(name)); for(layer_count=2;layer_count<=layer;layer_count++){ if(debug)printf("ݑ%dKw𒲂ׂĂ܂\n",layer_count); srch=0; while(1){ /* Gg[ԍT */ if(LVB_count[layer_count]==0)break; if(hr_strcmp(name,LVB[layer_count][srch])){ ret_val=layer_count; break; } srch+=1; if(debug)printf("srch=%d:LVB_count=%d\n",srch,LVB_count[layer_count]); if(srch>=LVB_count[layer_count]){ if(layer_count>=layer){ printf("hr_subs:LVB_layer:R[ꂽ[Jϐ̓Gg[Ă܂B\n"); printf("hr_subs:LVB_layer:vOI܂B\n"); VDISPST(0,0,0); exit(); } break; } } if(ret_val>0)break; } if(debug)printf("hr_subs:LVB_layer:R[ꂽϐ %s łB\n",ch_end(LVB[ret_val][srch])); if(debug)printf("hr_subs:LVB_layer:R[ꂽϐ %d KwɃGg[Ă܂B\n",ret_val); if(debug)printf("hr_subs:LVB_layer:ĺA%d łB\n",LVB_target[ret_val][srch]); if(debug)printf("hr_subs:LVB_layer:LVB_layer I܂B\n"); return(ret_val); } /*------------------------------------------------------ ubN ---*/ void SGVB_free() /* Z~O[oϐ */ { int i=0; if(SGVB_count!=0)for(i=0;i') ){ *d_str=0; return(d_str_init); } *d_str++=*st++; } } /*--------------------------------------------- - g`qtm` - Tu[`S -----*/ #include #include #include "../key.h" #include "../gtnlib.h" #include "hr_subs.h" #include "hr_subs2.h" #include "b_maker.h" #include "HARUNA.h" #include "../AZUSA.h" extern int HARUNA_layer; extern char debug; extern char nonwait; #define GRP_ADD(GRP_X,GRP_Y) (0xC00000+(GRP_X*2)+((GRP_Y)*0x800)) #define VD_MACRO red=1;\ while(vd);\ red=0;\ vd=1 /*------------------------------------------------------ eubNGg[ ----------*/ void GPB_entry(name,dx,dy) /* OtBbNp^[ */ char *name; /* ϐ */ short dx; short dy; { if(debug)printf("hr_subs2:GPB_entry R[܂B\n"); GPB[GPB_count]=hr_lenalloccpy(name); /* ϐւ̃|C^Zbg */ GPB_target[GPB_count]=(short*)malloc(2*dx*dy); /* obt@m */ GPB_count+=1; /* Gg[{P */ GPB =(char**)realloc((char**)GPB,4*(1+GPB_count)); /* ubNg */ GPB_target=(short**)realloc((short**)GPB_target,4*(1+GPB_count)); if(debug)printf("hr_subs:GPB_entry:Gg[ꂽp^[ %s łB\n",ch_end(GPB[GPB_count-1])); if(debug)printf("hr_subs:GPB_entry:Gg[́A%d łB\n",GPB_count); if(debug)printf("hr_subs:GPB_entry:GPB_entry I܂B\n"); } /* V ??B_target ɃGg[ׂԍɁB Vmۂeʂ ݂̃Gg[{PɁB */ /*------------------------------------------------------ eubNZbg --------------*/ void GPB_set(name,px,py,dx,dy) /* OtBbNp^[ */ char *name; /* ϐ */ short px; /* W */ short py; short dx; short dy; { int srch=0; short wx,wy; short *gp; short *work_ptr; if(debug)printf("hr_subs:GPB_set:R[܂B\n"); if(debug)printf("hr_subs:GPB_set:OtBbNp^[ %s T܂B\n",ch_end(name)); while(1){ /* Gg[ԍT */ if(hr_strcmp(name,GPB[srch]))break; srch+=1; if(srch>=GPB_count){ printf("hr_subs:GPB_set:R[ꂽOtBbNp^[̓Gg[Ă܂B\n"); printf("hr_subs:GPB_set:vOI܂B\n"); VDISPST(0,0,0); exit(); } } work_ptr=GPB_target[srch]; /* 擪AhXƗp|C^փRs[ */ for(wy=py;wy=GPB_count){ printf("hr_subs:GPB_ref:R[ꂽOtBbNp^[̓Gg[Ă܂B\n"); printf("hr_subs:GPB_ref:vOI܂B\n"); VDISPST(0,0,0); exit(); } } if(debug)printf("hr_subs:GPB_ref:R[ꂽp^[ %s łB\n",ch_end(GPB[srch])); if(debug)printf("hr_subs:GPB_ref:GPB_ref I܂B\n"); work_ptr=GPB_target[srch]; VD_MACRO; for(wy=py;wy=GPB_count){ printf("hr_subs:GPB_pop:R[ꂽOtBbNp^[̓Gg[Ă܂B\n"); printf("hr_subs:GPB_pop:vOI܂B\n"); VDISPST(0,0,0); exit(); } } if(debug)printf("hr_subs:GPB_pop:R[ꂽp^[ %s łB\n",ch_end(GPB[srch])); if(debug)printf("hr_subs:GPB_pop:GPB_pop I܂B\n"); free(GPB_target[srch]); /* j */ free(GPB[srch]); for(;srchx1=px; boxptr->y1=py; boxptr->x2=px+dx; boxptr->y2=py+dy; boxptr->color=0; boxptr->linestyle=0xFFFF; VD_MACRO; for(wy=py;wycolor=hr_atoi(d_ptr); BOX(boxptr); d_ptr=ih_search(d_ptr); d_ptr++; boxptr->x1+=1; boxptr->y1+=1; boxptr->x2-=1; boxptr->y2-=1; } free(boxptr); } /*------------------------------------------------------ EBhEg` --------*/ void win_side_draw(px,py,dx,dy,d_ptr) short px; short py; short dx; short dy; char *d_ptr; { short wx,wy; short *gp; struct BOXPTR *boxptr=(struct BOXPTR*)malloc(sizeof(struct BOXPTR)); boxptr->x1=px; boxptr->y1=py; boxptr->x2=px+dx; boxptr->y2=py+dy; boxptr->color=0; boxptr->linestyle=0xFFFF; VD_MACRO; while(1){ if(*d_ptr=='E')break; boxptr->color=hr_atoi(d_ptr); BOX(boxptr); d_ptr=ih_search(d_ptr); d_ptr++; boxptr->x1+=1; boxptr->y1+=1; boxptr->x2-=1; boxptr->y2-=1; } free(boxptr); } /*---------------------------- }EXNbNAch L[CƔ --------*/ void ms_wait_lc(ch) char ch; { while((MS_GETDT()&0x0000FF00)==0)if(key_get()==ch)break; return; } /*------------------------------------- }EXAENbNƔ --------*/ void ms_wait_unlc() { while(MS_GETDT()&0x0000FFFF); return; } /*--------------------------------------------------------- g`qtm` Kw|P --------*/ char *HARUNA_down(s_ptr) char *s_ptr; { char *ret_add; if(HARUNA_retmode[HARUNA_layer-1]){ ret_add=(char*)((int)HARUNA_TOP)+((int)(HARUNA_retadd[HARUNA_layer-1])); } else ret_add=0; LVB_pop(HARUNA_layer); HARUNA_retmode=(char*)realloc(HARUNA_retmode,(HARUNA_layer) ); HARUNA_retadd =(int *)realloc(HARUNA_retadd ,(HARUNA_layer)*4); HARUNA_layer-=1; if(ret_add)return(ret_add); else return(s_ptr); } /*--------------------------------------------------------- g`qtm` Kw{P --------*/ void HARUNA_up(mode,add) char mode; char *add; { HARUNA_retmode[HARUNA_layer]=mode; HARUNA_retadd[HARUNA_layer] =((int)add)-((int)HARUNA_TOP); HARUNA_layer+=1; LVB_push(HARUNA_layer); HARUNA_retmode=(char*)realloc(HARUNA_retmode,(HARUNA_layer+1) ); HARUNA_retadd =(int *)realloc(HARUNA_retadd ,(HARUNA_layer+1)*4); } /*----------------------------------- - g`qtm` - [R}h ̂Q] --------------*/ #include #include #include #include #include "../key.h" #include "../gtnlib.h" #include "H_com2.h" #include "HARUNA.h" #include "hr_subs.h" #include "hr_subs2.h" #include "b_maker.h" #include "../AZUSA.h" extern char debug; #define VD_MACRO red=1;\ while(vd);\ red=0;\ vd=1 /*------------------------------------------------------- -------*/ char *H_mag(s_ptr) char *s_ptr; { char *comline=(char*)malloc(256); char *tempbuf=(char*)malloc(256); char *tempbuf2=(char*)malloc(256); if(debug)printf("H_commands:&mag:&mag R[܂B\n"); s_ptr=skipto(s_ptr,' '); s_ptr++; *comline=0; *tempbuf=0; *tempbuf2=0; strcat(comline,"magh.x /F0 "); strcat(comline,GRP_PATH); hr_strcpy(s_ptr,tempbuf2); strcat(comline,tempbuf2); if(debug)printf("H_commands:&mag:qvZX %s s܂B\n",comline); VDISPST(0,0,0); magdummy:SUPER(SSP); system(comline); VDISPST(vd_wait,0,1); C_CUROFF(); magdummy2:SSP=SUPER(0); C_LOCATE(0,0); printf(" \n"); free(tempbuf); free(tempbuf2); free(comline); if(debug)printf("H_commands:&mag:&mag 𔲂܂B\n"); s_ptr=skipto(s_ptr,';'); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_face_entry(s_ptr) char *s_ptr; { short dx,dy; dx=SVB_ref("FACE_DX"); dy=SVB_ref("FACE_DY"); s_ptr=skipto(s_ptr,' '); s_ptr++; if(debug)printf("H_com2:&face_entry:face_entry R[܂B\n"); GPB_entry(s_ptr,dx,dy); s_ptr=skipto(s_ptr,';'); if(debug)printf("H_com2:&face_entry:face_entry 𔲂܂B\n"); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_face_set(s_ptr) char *s_ptr; { short px,py; char *name; if(debug)printf("H_com2:&face_set:face_set R[܂B\n"); s_ptr=skipto(s_ptr,' '); s_ptr++; name=s_ptr; s_ptr=skipto(s_ptr,' '); s_ptr++; px=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; py=(short)hr_atoi(s_ptr); GPB_set(name,px,py,SVB_ref("FACE_DX"),SVB_ref("FACE_DY")); s_ptr=skipto(s_ptr,';'); if(debug)printf("H_com2:&face_set:face_set 𔲂܂B\n"); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_face_eset(s_ptr) char *s_ptr; { short px,py; char *name; s_ptr=skipto(s_ptr,' '); s_ptr++; if(debug)printf("H_com2:&face_eset:face_eset R[܂B\n"); GPB_entry(s_ptr,SVB_ref("FACE_DX"),SVB_ref("FACE_DY")); name=s_ptr; s_ptr=skipto(s_ptr,' '); s_ptr++; px=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; py=(short)hr_atoi(s_ptr); GPB_set(name,px,py,SVB_ref("FACE_DX"),SVB_ref("FACE_DY")); s_ptr=skipto(s_ptr,';'); if(debug)printf("H_com2:&face_eset:face_eset 𔲂܂B\n"); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- -------*/ char *H_face(s_ptr) char *s_ptr; { if(debug)printf("H_com2:&face:face R[܂B\n"); s_ptr=skipto(s_ptr,' '); s_ptr++; GPB_ref(s_ptr,SVB_ref("FACE_X"),SVB_ref("FACE_Y"),SVB_ref("FACE_DX"),SVB_ref("FACE_DY")); s_ptr=skipto(s_ptr,';'); if(debug)printf("H_com2:&face:face 𔲂܂B\n"); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_face_free(s_ptr) char *s_ptr; { s_ptr=skipto(s_ptr,' '); s_ptr++; if(debug)printf("H_com2:&face_free:face_free R[܂B\n"); GPB_free(s_ptr); s_ptr=skipto(s_ptr,';'); if(debug)printf("H_com2:&face_free:face_free 𔲂܂B\n"); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_ptn_entry(s_ptr) char *s_ptr; { short dx,dy; char *name; if(debug)printf("H_com2:&ptn_entry:ptn_entry R[܂B\n"); s_ptr=skipto(s_ptr,' '); s_ptr++; name=s_ptr; s_ptr=skipto(s_ptr,' '); s_ptr++; dx=hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; dy=hr_atoi(s_ptr); GPB_entry(name,dx,dy); s_ptr=skipto(s_ptr,';'); if(debug)printf("H_com2:&ptn_entry:ptn_entry 𔲂܂B\n"); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_ptn_set(s_ptr) char *s_ptr; { short dx,dy; short px,py; char *name; if(debug)printf("H_com2:&ptn_set:ptn_set R[܂B\n"); s_ptr=skipto(s_ptr,' '); s_ptr++; name=s_ptr; s_ptr=skipto(s_ptr,' '); s_ptr++; px=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; py=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; dx=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; dy=(short)hr_atoi(s_ptr); GPB_set(name,px,py,dx,dy); s_ptr=skipto(s_ptr,';'); if(debug)printf("H_com2:&ptn_set:ptn_set 𔲂܂B\n"); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_ptn_eset(s_ptr) char *s_ptr; { short dx,dy; short px,py; char *name; if(debug)printf("H_com2:&ptn_eset:ptn_eset R[܂B\n"); s_ptr=skipto(s_ptr,' '); s_ptr++; name=s_ptr; s_ptr=skipto(s_ptr,' '); s_ptr++; px=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; py=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; dx=hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; dy=hr_atoi(s_ptr); GPB_entry(name,dx,dy); GPB_set(name,px,py,dx,dy); s_ptr=skipto(s_ptr,';'); if(debug)printf("H_com2:&ptn_eset:ptn_eset 𔲂܂B\n"); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- -------*/ char *H_ptn(s_ptr) char *s_ptr; { char *buff; short x,y,dx,dy; if(debug)printf("H_com2:&ptn:&ptn R[܂B\n"); s_ptr=skipto(s_ptr,' '); s_ptr++; buff=s_ptr; s_ptr=skipto(s_ptr,' '); s_ptr++; x=hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; y=hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; dx=hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; dy=hr_atoi(s_ptr); GPB_ref(buff,x,y,dx,dy); s_ptr=skipto(s_ptr,';'); if(debug)printf("H_com2:&ptn:&ptn 𔲂܂B\n"); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_ptn_free(s_ptr) char *s_ptr; { s_ptr=skipto(s_ptr,' '); s_ptr++; if(debug)printf("H_com2:&ptn_free:ptn_free R[܂B\n"); GPB_free(s_ptr); s_ptr=skipto(s_ptr,';'); if(debug)printf("H_com2:&ptn_free:ptn_free 𔲂܂B\n"); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_win_open(s_ptr) char *s_ptr; { short wx,wy; short dx,dy; short px,py; char *name; short *gp; s_ptr=skipto(s_ptr,' '); s_ptr++; name=s_ptr; s_ptr=skipto(s_ptr,' '); s_ptr++; px=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; py=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; dx=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; dy=(short)hr_atoi(s_ptr); GPB_entry(name,dx,dy); GPB_set(name,px,py,dx,dy); win_draw(px,py,dx-1,dy-1,SVB_ref("WIN_COLOR"),(char*)SVB_ref("WIN_SIDEPTN")); s_ptr=skipto(s_ptr,';'); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_win_draw(s_ptr) /* `ŁAGg[ZbgȂ */ char *s_ptr; { short wx,wy; short dx,dy; short px,py; short *gp; s_ptr=skipto(s_ptr,' '); s_ptr++; px=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; py=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; dx=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; dy=(short)hr_atoi(s_ptr); win_draw(px,py,dx-1,dy-1,SVB_ref("WIN_COLOR"),(char*)SVB_ref("WIN_SIDEPTN")); s_ptr=skipto(s_ptr,';'); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- QQ -------*/ char *H_win_side_draw(s_ptr) /* `ŁAGg[ZbgȂ */ char *s_ptr; { short wx,wy; short dx,dy; short px,py; short *gp; s_ptr=skipto(s_ptr,' '); s_ptr++; px=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; py=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; dx=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; dy=(short)hr_atoi(s_ptr); win_side_draw(px,py,dx-1,dy-1,(char*)SVB_ref("WIN_SIDEPTN")); s_ptr=skipto(s_ptr,';'); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_win_close(s_ptr) char *s_ptr; { short wx,wy; short dx,dy; short px,py; char *name; short *gp; s_ptr=skipto(s_ptr,' '); s_ptr++; name=s_ptr; s_ptr=skipto(s_ptr,' '); s_ptr++; px=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; py=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; dx=(short)hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; dy=(short)hr_atoi(s_ptr); GPB_ref(name,px,py,dx,dy); GPB_free(name); s_ptr=skipto(s_ptr,';'); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_selwin_entry(s_ptr) char *s_ptr; { short px,py,dx,dy; s_ptr=skipto(s_ptr,' '); s_ptr++; SELWIN_buffname=s_ptr; /* obt@l[ */ px=SVB_ref("SELWIN_X"); py=SVB_ref("SELWIN_Y"); dx=SVB_ref("SELWIN_DX"); dy=SVB_ref("SELWIN_DY"); GPB_entry(SELWIN_buffname,dx,dy); GPB_set(SELWIN_buffname,px,py,dx,dy); s_ptr=skipto(s_ptr,';'); if(debug)printf("H_com2:&selwin_entry:selwin_entry 𔲂܂B\n"); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_selwin_free(s_ptr) char *s_ptr; { GPB_free(SELWIN_buffname); s_ptr=skipto(s_ptr,';'); if(debug)printf("H_com2:&selwin_free:selwin_free 𔲂܂B\n"); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- -------*/ char *H_tpalet(s_ptr) char *s_ptr; { int code,palet; s_ptr=skipto(s_ptr,' '); s_ptr++; code=hr_atoi(s_ptr); s_ptr=skipto(s_ptr,','); s_ptr++; palet=hr_atoi(s_ptr); *((short*)(0xE82200+(2*code)))=palet; s_ptr=skipto(s_ptr,';'); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_ms_curon(s_ptr) char *s_ptr; { MS_CURON(); s_ptr=skipto(s_ptr,';'); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- Q -------*/ char *H_ms_curoff(s_ptr) char *s_ptr; { MS_CUROF(); s_ptr=skipto(s_ptr,';'); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- -------*/ char *H_loop(s_ptr) char *s_ptr; { s_ptr=skipto(s_ptr,';'); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------- -------*/ char *H_endloop(s_ptr) char *s_ptr; { int count=0; s_ptr-=2; while(1){ if(*s_ptr=='&'){ if(hr_strcmp("endloop",s_ptr+1))count+=1; if(hr_strcmp("loop",s_ptr+1)){ count-=1; COM_retcode=0; /* R}h́Aʏ̃^[ */ if(count<0)return(s_ptr); } } s_ptr--; } } /*------------------------------------------------------- -------*/ char *H_cutloop(s_ptr) char *s_ptr; { int count=0; s_ptr=skipto(s_ptr,';'); while(1){ if(*s_ptr=='&'){ if(hr_strcmp("loop",s_ptr+1))count+=1; if(hr_strcmp("endloop",s_ptr+1)){ count-=1; if(count<0){ s_ptr=skipto(s_ptr,';'); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } } } s_ptr++; } } /*------------------------------------------------------- -------*/ char *H_contrast(s_ptr) char *s_ptr; { int i; s_ptr=skipto(s_ptr,' '); s_ptr++; CONTRAST(hr_atoi(s_ptr)); for(i=0;i<32;i++){ VD_MACRO; } s_ptr=skipto(s_ptr,';'); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(++s_ptr); } /*------------------------------------------------------ ------*/ char *H_filelink(s_ptr) char *s_ptr; { char *filename=(char*)malloc(256); char *linkname=(char*)malloc(256); if(debug)printf("H_commands:filelink:&filelink R[܂B\n"); if(debug)printf("H_commands:filelink: HARUNA ́A%dKwɂ܂B\n",HARUNA_layer); SGVB_free(); /* ubN */ SBB_free(); LB_free(); while(1){ if(HARUNA_layer!=1){ /* ܂AKwP܂ŗƂ */ HARUNA_down(s_ptr); } else break; } if(debug)printf("H_commands:filelink:wt@CփN܂B\n"); s_ptr=skipto(s_ptr,' '); s_ptr++; hr_strcpy(s_ptr,filename); /* t@Cl[Rs[ */ free(HARUNA_FNAME); HARUNA_FNAME=hr_lenalloccpy(filename); /* - g`qtm` - t@Cl[ */ strins(SCE_PATH,filename); while(1){ /* Nl[ */ if((*s_ptr==' ')||(*s_ptr==';'))break; s_ptr++; } if(*s_ptr==' '){ s_ptr++; hr_strcpy(s_ptr,linkname); s_ptr=skipto(s_ptr,';'); } else { free(linkname); linkname=0; } free(HARUNA_TOP); /* - g`qtm` - j.(;_;) */ s_ptr=sce_conv(filename); s_ptr=block_initset(s_ptr); if(s_ptr==0){ printf("HARUNA:WbNG[BubN‚Gg[Ă܂B\n"); printf("HARUNA:vOI܂B\n\n"); VDISPST(0,0,0); exit(); } if(linkname!=0){ s_ptr=SBB_ref(linkname); s_ptr=skipto(s_ptr,'{'); free(linkname); } free(filename); COM_retcode=0; /* R}h́Aʏ̃^[ */ return(s_ptr); } /*------------------------------------------------------ Q ------*/ char *H_t_cls(s_ptr) char *s_ptr; { C_CLS_AL(); s_ptr=skipto(s_ptr,';'); return(++s_ptr); } /*------------------------------------------------------ Q ------*/ char *H_g_cls(s_ptr) char *s_ptr; { struct FILLPTR fp,*fillptr=&fp; fillptr->x1=0; fillptr->y1=0; fillptr->x2=767; fillptr->y2=511; fillptr->color=0; FILL(fillptr); s_ptr=skipto(s_ptr,';'); return(++s_ptr); } /*------------------------------------------------------ ------*/ char *H_save(s_ptr) char *s_ptr; { char *work1=(char*)malloc(256); FILE *stream; int i,c; char *d_ptr; char *r_ptr; int temp; if(debug)printf("H_com2:&save:&save R[܂B\n"); s_ptr=skipto(s_ptr,'e'); s_ptr++; if(*s_ptr==';'){ printf("H_com2:&save:t@Cl[̎w肪܂B\n"); printf("H_com2:&save:vOI܂B\n"); VDISPST(0,0,0); exit(); } s_ptr++; /* Ńt@Cl[̐擪 */ hr_strcpy(s_ptr,work1); /* work1 Ƀt@Cl[B */ s_ptr=skipto(s_ptr,'{'); /* Z[û݂̏̈ʒu */ s_ptr++; d_ptr=skipnest(s_ptr-1); d_ptr=skipto(d_ptr,'{'); /* [ĥ݂̏̈ʒu */ d_ptr++; r_ptr=skipnest(d_ptr-1); r_ptr++; /* ^[ʒu */ /* - g`qtm` - KwAbv */ HARUNA_up(1,r_ptr); stream=fopen(work1,"wb"); if(stream==0){ printf("H_com2:&save:t@C̃I[vɎs܂B\n"); printf("H_com2:&save:vOI܂B\n"); VDISPST(0,0,0); exit(); } fputs(HARUNA_FNAME,stream); /* ܂At@Cl[ */ fprintf(stream,"\n"); /* ؂菑 */ fwrite(&HARUNA_layer,4,1,stream); /* Kw̏ */ temp=((int)d_ptr)-((int)HARUNA_TOP); fwrite(&temp,4,1,stream); /* ĊJʒȕ */ /* ^[[h */ fwrite(HARUNA_retmode,HARUNA_layer+1,1,stream); /* ^[AhX */ fwrite(HARUNA_retadd,4*(HARUNA_layer+1),1,stream); /* L[vpbg */ for(i=0;i<=15;i++)fwrite(&pal_keep[i],2,1,stream); /* O[oϐ̏ */ fwrite(&GVB_count,4,1,stream); /* ̏ */ for(i=0;itextdatabssstack_datacpy =$o"o4/BAp`"2222222222222222RA00BnNuv_random.oPWv_randomtextdatabssstack_v_random_srand_rand___divsi3 )H /*/ ,/$(o(xnJnp``/NB XO Sg(NB&GB//<NPO//NPOR`NB&GB//<NPO//NPOpLxNuscrn_prw.oP%Wscrn_prwFtextdatabssstack_scrn_prw E |%0/Ht‚t |/ Ht‚t |/Ht‚|0Nuext_fntg.oPUWext_fntgtextdatabssstack_EXT_FNTGET__iocs_fntget___mulsi3 ?H2/&$/(&/,*/0,o4|c|c|c|b/p0//NB1O Jg<..xG6HHH|̄//NBPOR|lJgbI"AxKGECp|"ҁҀ<r† ЀЁ<r† ЀЁ<ρr† ЀЁ<? p"ҁҀ<r† ЀЁ<r† ЀЁ<ρr ЀЁ<?p"ҁҀ<r† ЀЁ<r† ЀЁ<ρr† ЀЁ<? p"ҁҀ<r† ЀЁ<r† ЀЁ<ρr ЀЁ<?YKYJYIYHp"ҁҀ<r† ЀЁ<r† ЀЁ<ρr† ЀЁ<? p"ҁҀ<r† ЀЁ<r† ЀЁ<ρr ЀЁ<?p"ҁҀ<r† ЀЁ<r† ЀЁ<ρr† ЀЁ<? p"ҁҀ<r† ЀЁ<r† ЀЁ<ρr ЀЁ<?YKYJYIYHUMULQH< `/p0//NBO JgxAR|lJgIA@xKGECp|"ҁҀ<r† ЀЁ<r† ЀЁ<ρr† ЀЁ<? p"ҁҀ<r† ЀЁ<r† ЀЁ<ρr ЀЁ<?p"ҁҀ<r† ЀЁ<r† ЀЁ<ρr† ЀЁ<? p"ҁҀ<r† ЀЁ<r† ЀЁ<ρr ЀЁ<?YKYJYIYHp"ҁҀ<r† ЀЁ<r† ЀЁ<ρr† ЀЁ<? p"ҁҀ<r† ЀЁ<r† ЀЁ<ρr ЀЁ<?p"ҁҀ<r† ЀЁ<r† ЀЁ<ρr† ЀЁ<? p"ҁҀ<r† ЀЁ<r† ЀЁ<ρr ЀЁ<?YKYJYIYHUMULQH<=| LxxNut_symbol.oFPbWFt_symboltextdatabssstack_t_symbol_EXT_FNTGET__iocs_textput___mulsi3 yNV|H&n:.:n..(n,ܼ|xJgz c c c$ bHr2¼B@@T&փ`BAR&// /./p0/NB /0M/0E/NBHl/NBPO@O ` L8\N^Nuvcc.oPWvcctextdatabssstack_vcc_cmp_vcc_ext_malloc_free NVH=n =n=n6n"n0.2.A=A2 A=A2I=A09 @ 09 @ 09 @ 09 @ 09 @ 09 @ 09 @ 09 @ 09 @ 09 @ 09 @ 09 @ 09 @ 09 @ 09 @ 09 @ 4|&:n-M:n-M`B. .ЌЀ-@BDB.Hz*n r м n0HVrr|0HVrr|0HVrr |0HVrr |RDKm||||`t*n r м n0HVrr |0HVrr |0HVrr |0HVr|RDKm TJ`R*n r м n0HVrr|0HVrr|0HVrr |0HVrr |RDKm||||`p*n r м n0HVrr |0HVrr |0HVrr |0HVr|RD "fR<g(Kl$`Km TJ"p|B TJKl<gUDB`R. .oXL0nYHnn8nSLlVL" ~‡(A.> AB.2.K Ѐ-@8nBDB.Hz*L r м nJ.o0HVrr|`| .o0HVrr|`| .o0HVrr |`| .o0HVrr |`|RDKm||||`*L r м nJ.o0HVrr |`| .o0HVrr |`| .o0HVrr |`| .o0HVr|`|RDKm TJ`*L r м nJ.o0HVrr|`| .o0HVrr|`| .o0HVrr |`| .o0HVrr |`|RDKm||||`*L r м nJ.o0HVrr |`| .o0HVrr |`| .o0HVrr |`| .o0HVr|`|RD "fR<g(Kl$`Km TJ"p|B TJKl<gUDB`R. .o L8N^NuNVH=n =n&np|=Bp*.|$<p*|$0n4gp|3 `TKgp|3 `TKgp|3 `TKgp|3 `TKgp|3 `TKgp|3 `TKgp|3 `TKJlp|3 `TKgp|3 `TK gp|3 `TK gp|3 `TK gp|3 `TK gp|3 `TK gp|3 `TKgp|3 `TKJBlp|3 `TKJFgHx NB$@(JBnXO:F-M`BA$Lp|[BBBD z<@ z<A`.THTH z <TH z <THPJRAAoV z <TH z <TH z <TH <THPJRARB.BdlAn0BA$Lp|[BB z< z< A`THTH z <TH z <THPJRAAo` z <TH z <TH z <TH <THPJRARBB@.BdbAn&BA$Lp|[BB z< z< A`THTH z <TH z <THPJRAAo` z <TH z <TH z <TH <THPJRARBB@.BdbAn&BA$Lp|[BB z< z< A`THTH z <TH z <THPJRAAo` z <TH z <TH z <TH <THPJRARBB@.BdbAn&0n:.KP" ҁ0.Hz м"A$LBBp`2222CRB0mXn2n0nYHn60n SjVz=@:.n=EBA$Lp|[BBBD z<@ z<A`.THTH z <TH z <THPJRAAoV z <TH z <TH z <TH <THPJRARB.BdlAn0BA$Lp|[BB z< z< A`THTH z <TH z <THPJRAAo` z <TH z <TH z <TH <THPJRARBB@.BdbAn&BA$Lp|[BB z< z< A`THTH z <TH z <THPJRAAo` z <TH z <TH z <TH <THPJRARBB@.BdbAn&BA$Lp|[BB z< z< A`THTH z <TH z <THPJRAAo` z <TH z <TH z <TH <THPJRARBB@.BdbAn&0n:.KP Ѐ2.Hz Ҽ"@$LBBp`DJno2`TITJ no2`TITJ no2`TITJ no2`TITJCRB00Fn$L/ NB XOL8N^Numm.o PW mm rtextdatabssstack@_mm_cmpJ_flagout_flagread_malloc_realloc_mm_ext_memcpy MNVHACB$H XJ$$$$$$$ACB $H XJ$$$$$$$B-nHx/.aHxar&n:+=S=k6+SRC4+k=BRn0HlV=@0|O gRnP/.NB,*F:TM::::t ծBXO | :TRtl-MXMXB6n-K$ Ԃ-B6n-K`l .Юt м(n~`@0tt |0t|0|0tȂBv Ю-@$nzڎC&n" mz E&J mlҁ-A"t  A0P t tfDҮ A0P f, A0P f A0Ppf-C`TTIRtll$.m0P& *././NBg,POg*Fچ-E/ /.aPOJgTMTR0nnR0nn$.m0P& *././NB,POg(*Fچ-EHxHxa0POJgTMTHxHxa$ &n&XBPO0.H(؄`4.&nG t м(D~`/.aXOJff$.m.P& *././NBu,POgx*Fچ-E/ 6\/ a/ 6\/ az/ 6\/ ar/ 6\/ ajTMTO `PLHxaXOJfTR0nnnR0nn=X Sg=S kg8+60k6g3 `THg3 `THg3 `THg3 `THg3 `THg3 `THg3 `THJl3 `THg3 `TH g3 `TH g3 `TH g3 `TH g3 `TH g3 `THg3 `THJCl3 `TH$+ԐXH0HlV20|gRA(H$Bf0.HЀ2H| Ҽ"@<QF=Fx0G Szʀ,܆*F`|otvG`Jg  I2222`, B@2B@|2 B@2B@|2TKTJp|g I2222`, B@2B@|2 B@2B@|2TKTJRLP0nnbrJg  I2222`. B@2B@|2* B@2B@*|2TJp|g4 I|bp<;N`3h3h3h2`J|bB<;N`0$B@*|3@* B@3@B@|3@ B@2TJRLC, |"F0.HЀR0nnT`0.HЀ2H| Ҽ"@<QF=Fx0G Szʀ,܆*F`|otvG`Jg  I2222`, B@2B@|2 B@2B@|2TKTJp|g I2222`, B@2B@|2 B@2B@|2TKTJRLP0nnbrJg6  I|bp<;N`3h3h3h2`J|bB<;N`0$B@*|3@* B@3@B@|3@ B@2TJC, |"F0.HЀ0nSHgb|otvG`p|g I2222`, B@2B@|2 B@2B@|2TKTJRLJg  I2222`, B@2B@|2 B@2B@|2TKTJP0nnbp|g4 I|bp<;N`3h3h3h2`J|bB<;N`0$B@*|3@* B@3@B@C|3@ B@2TJRLC, |"F0.HЀT0nn@L8N^Nudmacpy.oPWdmacpytextdatabssstack_dmacpy_dma "/$/0/#@Be |@@!@@@@@@3@#@#@9@<@ yB <g yBNu zlib.ohPWhzlibtextdatabssstack_z_init_z_alloc4_z_assignV_z_play_z_statp_z_stop_z_cont_z_init_all _z_int_stopF_play_cnv_data_se_play_se_adpcm1_se_adpcm2_fade_out_z_chk_drv_z_get_wk_tbl rNCNurNCNurNCNu$/HB /gSd4rNCNupNu$/HB /4rNCNu$/"o^rNCNuH$/ &/(/rNCLNuH$/ &/(/r NCLNuH$/ &/(/rNCLNu$/"orNCNuH"o$/ &/rNCLNu/$/&/ rNC&Nu$/rNCNu$/r NCNu xQH ZmuSf  XiCfpNupNutr #include #include "gtnlib.h" #include #include #include "key.h" #include "AZUSA.h" #include "etc\\HARUNA.h" #include "etc\\b_maker.h" extern char is2byte(char); extern int hr_strcmp(char*,char*); extern char *hr_lenalloccpy(char*); main(argc,argv) int argc; char *argv[]; { char *sce_ptr; /* ViIf[^ւ̃|C^ */ char *sce_ptr_init; if(argc>=2){ /* IvV */ if(( *argv[1] =='-')||( *argv[1] =='/')){ if((*(argv[1]+1)=='d')||(*(argv[1]+1)=='D')){ debug=1; } else debug=0; } else debug=0; } else debug=0; if(argc>=2){ if(( *argv[1] =='-')||( *argv[1] =='/')){ if((*(argv[1]+1)=='n')||(*(argv[1]+1)=='N')){ nonwait=0; } else nonwait=1; } else nonwait=1; } else nonwait=1; // Force nonwait mode. nonwait=0; read_cfg(argv[0]); /* ɁARtBOǂ */ main_init(); /* e평 */ if(debug)printf("AZUSA_main: - `ytr` - Ver0.10 N܂B\n"); /* t@Cǂݍ */ if(debug)printf("AZUSA_main:AZUSA_main %s n܂B\n",START_SCE); if(debug)printf("AZUSA_main:ǂ񂾓eՂ悤ɕϊ܂B\n"); sce_ptr=sce_conv(START_SCE); /* f[^Ro[g */ sce_ptr_init=sce_ptr; if(debug)printf("AZUSA_main:ϊIB\n"); if(debug)printf("AZUSA_main:ԂĂe\܂B\n"); if(debug)printf("%s\n",sce_ptr); if(debug)printf("AZUSA_main:VXeubN̍쐬Jn܂B\n"); sce_ptr=b_maker(sce_ptr); /* VXeubN쐬 */ if(debug)printf("AZUSA_main:VXeubN̍쐬I܂B\n"); if(debug)printf("AZUSA_main:HARUNA R[܂B\n"); HARUNA(sce_ptr); /* eLXg[_[ֽ̧قn */ if(debug)printf("AZUSA_main:HARUNA I܂B\n"); printf("AZUSA_main:ɏI܂B\n\n"); /* SvZXI */ VDISPST(0,0,0); exit(); } /*------------------------------------------------------------ sub. ----*/ void main_init() { int i; red=0; /* uchro荞 */ vd=1; VDISPST(0,0,0); VDISPST(vd_wait,0,1); CRTMOD(16); /* OtBbNʂ̏ */ G_CLR_ON(); C_CUROFF(); dummy:SSP=SUPER(0); scrn_prw(0,3,1); test=(char*)malloc(256); /* Ƒ҂p */ TGUSEMD(1,1); /* eLXgʂ̐ݒB}EX|C^gp”\ɁB*/ MS_CUROF(); COM_retcode=0; HARUNA_retcode=0; } /*------------------------------------------------------------ uchroԏ ---*/ void vd_wait() { if(red){ vd=0; } IRTE(); } /*------------------------------------------------------------ RtBOǂ ------*/ void read_cfg(name) char *name; { FILE *stream; char *cnf_fname=(char*)malloc(256); char *work=cnf_fname; char *buff=(char*)malloc(256); char *buff_init=buff; char *temp=(char*)malloc(20); strcpy(cnf_fname,name); while(1){ /* RtBOt@C̃t@Cl[ */ if(is2byte(*work)){ *work+=2; continue; } if(*work=='.')*work=0; if(*work==0){ work[0]='.'; work[1]='C'; work[2]='N'; work[3]='F'; work[4]=0; break; } work++; } stream=fopen(cnf_fname,"rt"); /* I[v */ if(stream==0){ printf("RtBOt@C̃I[vɎs܂B[%s]\n",cnf_fname); printf("vOI܂B\n"); VDISPST(0,0,0); exit(); } START_SCE=(char*)malloc(256); /* t@Cl[̃obt@m */ GRP_PATH =(char*)malloc(256); SCE_PATH =(char*)malloc(256); while(1){ /* we܂ŃXLbvāARs[ */ buff=buff_init; if(fgets(buff,256,stream)==0)break; if(*buff!='%')continue; if(hr_strcmp("SCE_PATH",buff+1)){ while(1){ if(is2byte(*buff)){ buff+=2; continue; } if((*buff==' ')||(*buff==' '))break; buff++; } while(1){ if(is2byte(*buff)){ buff+=2; continue; } if((*buff==' ')||(*buff==' ')){ buff++; continue; } break; } strcpy(SCE_PATH,buff); continue; } if(hr_strcmp("GRP_PATH",buff+1)){ while(1){ if(is2byte(*buff)){ buff+=2; continue; } if((*buff==' ')||(*buff==' '))break; buff++; } while(1){ if(is2byte(*buff)){ buff+=2; continue; } if((*buff==' ')||(*buff==' ')){ buff++; continue; } break; } strcpy(GRP_PATH,buff); continue; } if(hr_strcmp("START_SCE",buff+1)){ while(1){ if(is2byte(*buff)){ buff+=2; continue; } if((*buff==' ')||(*buff==' '))break; buff++; } while(1){ if(is2byte(*buff)){ buff+=2; continue; } if((*buff==' ')||(*buff==' ')){ buff++; continue; } break; } strcpy(START_SCE,buff); continue; } } buff=buff_init; free(buff); free(cnf_fname); fcloseall(); work=SCE_PATH; while(1){ if(is2byte(*work)){ work+=2; continue; } if((*work==0x0D)||(*work==0x0A)||(*work==0)){ *work=0; break; } work++; } work=GRP_PATH; while(1){ if(is2byte(*work)){ work+=2; continue; } if((*work==0x0D)||(*work==0x0A)||(*work==0)){ *work=0; break; } work++; } work=START_SCE; while(1){ if(is2byte(*work)){ work+=2; continue; } if((*work==0x0D)||(*work==0x0A)||(*work==0)){ *work=0; break; } work++; } realloc(SCE_PATH,strlen(SCE_PATH)+1); realloc(GRP_PATH,strlen(GRP_PATH)+1); realloc(START_SCE,strlen(START_SCE)+1); HARUNA_FNAME=hr_lenalloccpy(START_SCE); /* - g`qtm` - t@Cl[ */ strins(SCE_PATH,START_SCE); if(nonwait)printf("SCE_PATH=%s\n",SCE_PATH); if(nonwait)printf("GRP_PATH=%s\n",GRP_PATH); if(nonwait)printf("START_SCE=%s\n",START_SCE); if(nonwait)gets(temp); free(temp); } 偁 ėp`cu쐬J[l - `ytr` - Ver0.?? Ƃ肠A1996/04/03 ݂ɂĂ̎dl(^^; PD- `ytr` - P|PDAZUSA.C main() ́AN邽߂̂̂ł܂B ܂AIvVw߂āǍ cnf t@Cǂ݁Acnf t@C 瓾ŁAViIt@Cǂݍ݂܂B ܂ASCE_PATH START_SCE Ŏw肳ViIt@C sce_conv() ^AԂl b_maker() ɒʂAɂ̕Ԃl HARUNA() ɓnăC ̏Ɉڂ܂B ʃ[h̏s܂B ڂƂ́A\[XՂ̂ŁAł͓eɂ͐G܂B main() œ argv[0] ɗ^܂B st@CƓOŁAgquCNFṽt@CRtBOt@C Ƃēǂݍ݁A߂܂B ʂ SCE_PATH , GRP_PATH , START_SCE f܂B P|QDAZUSA.CNF AZUSA.x ̃RtBOt@CłB vOl[ƁARtBO ̖OςȂ΂Ȃ܂B Ⴆ΁A AZUSA.x BEE.x AZUSA.CNF BEE.CNF 擪u%v̍śAݒ̋LqƉ߂܂B sɂ̓Rg uȂłB 擪u%vłȂs̓RgƂ݂ȂA܂B ݒéAȉ̂ƂłB SCE_PATH : ViIt@C̃x[XfBNgBŌɕK \ ‚ĂB GRP_PATH : OtBbNf[^̃x[XfBNgBŌɂ͕K \ ‚ĂB START_SCE : ŏ - `ytr` - nViIt@C̃t@CB PATH ͋LqȂłB QDg`qtm` HARUNA.C ViI𒼐ڎ舵AΖ{̂ƂȂ郋[`łB g`qtm`̂́AɊ{IȂƂ܂B ܂AR[ƊKwPグāAKwPɂȂ܂B block_initset() sāAViIt@C̃ubN⃉x \𒲂ׁAGg[܂B block_initset() ́AViI̐擪|C^^Ƃ̓\𒲂 ubNGg[āAŏ̃ubŃu{v̈ʒuւ̃|C^Ԃ 悤Ȋ֐łB Gg[IAViI̎sɈڂ܂B ih_search() Ńwb_ ܂ňړ܂B ‚wb_u&vΉR}hɏڂ܂B u{vKwPグ܂B u}vKw‰܂B - g`qtm` -R}h HARUNA() ̐擪ŁA֐ւ̃|C^z ƂĎĂ܂B &ɑ com_str[] ̒̂ǂꂩƈvꍇ com_ptr[] ɋLqĂΉ֐Ăяo܂B Ăтɂ́A R}h́u&v̎̈ʒuւ̃|C^^AԂlɎɎsׂʒuւ |C^𓾂܂B Ԃl̃|C^V|C^ƂāAƂJ Ԃ܂B ]āAR}h̒ljɂ com_str[] com_ptr[] ɐVvft ΂njłB ViIt@CRo[^łB - g`qtm` - ŋLqViIt@C̃t@C^܂B t@C͂̂܂܎gp܂B cnf t@CŎw肳ꂽ SCE_PATH Ƃ Ȃǂ͍s܂B sce_conv() ́AViIt@C̃Rg SPACE , TAB Ȃǂ̗] 폜ĐA̐擪̃|C^Ԃ܂Bgp̐ߖɂȂ ܂A- g`qtm` - R}h̃vŐLqyɂȂ܂B RDVXeubN[J[ - `ytr` - ł͕ϐ⃉xǗۂɁAϐubN xubNp܂B vO̎sɁAϐ̃Gg[ s΁Aꂼ̃ubN̑傫ωĂ킯łAvO NグɂāA܂ŏɂ̃ubN̊ՂȂ΂Ȃ܂B ́Aŏ̏̍sŜAVXeubN[J[łB b_maker() ɂ́Aϊ̃ViIf[^̐擪ʒuւ̃|C^^܂B sJnƁAeubN̊Ս쐬sAVXeϐ̃vZbg sA- g`qtm` - ̊KwOɂďI܂B Ԃlɂ́AViI̐擪ʒuԂ܂B ‚܂AƓłB VXeϐ̃vZbgs߂̃Tu[`łB vO SVB_entry() 񋓂Ă邾̂̂łB ȉɃVXeϐƁÄӖ܂B STATUS R}h̏IR[h𔽉f܂B MES_TorG &message ̕ 0:TEXT PCG 1:TEXT GRP ŕ\B MES_LOC_X &message ̍̕W MES_LOC_Y MES_LOC_DX &message I̕GA MES_LOC_DY MES_KWAIT_X L[҂bZ[W̕\ʒu MES_KWAIT_Y MES_x &message ̒xLZ[hB0:CAPS 1`:reserve MES_ &message ̕ default ŋ[hɂ邩 MES_S{ &message ̕ default łS{ɂ邩 MES_COL &message ̃̕J[wB MES_LINE_16 &message ̂PUhbĝPC̃hbg MES_LINE_24 &message ̂QShbĝPC̃hbg MES_LINE_32 &message ̂RQhbĝPC̃hbg MES_NEXT_KEY &message ŁANbNƓ̋@\ƒL[code KW_STRING L[҂ւ̐擪|C^ KW_SIZE L[͑҂̊{TCY 8 or 12 or 16 KW_ L[҂ default ŋɂ邩B KW_S{ L[҂ default łS{ɂ邩B KW_COL L[҂̐FB FACE_X tFCXEBhE̍W FACE_Y FACE_DX tFCXEBhE̍L FACE_DY SELWIN_TorG ڸij޳̕TEXT PCGɂ邩TEXT GRPɂ邩. SELWIN_COL ڸij޳̐̕FB SELWIN_SIZE ڸij޳̃̕TCY SELWIN_ ڸij޳̕ default ŋɂ邩B SELWIN_S{ ڸij޳̕ defaukt łS{ɂ邩B SELWIN_X ڸij޳̍TCY SELWIN_Y SELWIN_DX ڸij޳̍LB SELWIN_DY SELWIN_USE &selectقxɾڸij޳ݤ۰ނ邩 SELWIN_LINE ڸij޳ɕ\镶̂Ps̃hbg SELWIN_SPC ڸij޳̏㉺_~[hbg SELWIN_LOC_X ڸij޳̍̕W SELWIN_LOC_Y MOUSE_MODE }EX|C^́Aɕ\邩B MOUSE_AREA }EX|C^̈ړ͈́B SELCUR_X ڸĶق̂wW SELCUR_DX ڸĶق̉ SELCUR_DU ڸĶق́A_~[Xy[X SELCUR_DD ڸĶق́Ãhbg SELCUR_PAGE ڸĶق\eLXgv[ WIN_SIDE dEBhEgp邩B WIN_SIDEPTN ^dEBhẼp^[XgOւ̃|C^ WIN_COLOR EBhE̐F SD⏕Tu[`Q - g`qtm` - R}h肷ۂɕpɂɎgp ⏕ٰ݌QłB ֋XAȍ~ 0x00 ȊO - g`qtm` - ̃wb_ GhR[hƂ݂Ȃ@AgGhR[hƌĂԂƂɂ܂B gGhR[hƂĔF镶R[h΁AꍇɂĈĂ܂B S|PDHR_SUBS.C s_ptr Ŏw肳ꂽViI|C^OɂPŒ wb_𔭌Äʒu|C^Ԃ܂B rɃ_uNH[e[Vu"v𔭌AΉu"v܂ŃXLbv ܂B u"vwb_ƌȂꍇ́Aih_search2() g܂B ŏɗ^|C^Ɋ܂߂̂ŁA^|C^ł wb_ĂA^|C^ƓʒuԂƂɂȂ܂B wb_ƔF镶 & : { } # $ ! @ , + - / * > < = 0x00 {I ih_search() ƓłAu"vwb_ƔF܂B {I ih_search2() ƓłAih_search2() ɉAu;vwb_ F܂B s_ptr ŎViI|C^OɂPŒāAch Ŏw肵 LN^𔭌Äʒu|C^Ԃ܂B ŏɗ^ʒuɊ܂߂܂̂ŁÄʒuł ch wĂ ʒu|C^ԂƂɂȂ܂B ܂A^ViI|C^ s_ptr u{vwĂ邱ƂOłB ^ViI|C^OɂPŒāAΉu}v𔭌 Áu}v|C^Ԃ܂B ŏɗ^ s_ptr ̈ʒuu{vĂȂƁAȓ͖]߂Ȃ ̂ŁAӂĂB ŏɗ^ViI|C^̈ʒuOɌāu&elsevu&endifv 𔭌Áu&v̈ʒu|C^Ԃ܂B rɁu&ifv𔭌ꍇ́AΉu&endifv܂ŃXLbvĂ ĊĴŁAu&ifvlXeBOĂꍇAŏɗ^|C^ ɑΉu&elsevu&endifvւ̃|C^ԂƂɂȂ܂B {Iɂ͂bW strcmp() ƓlłA- g`qtm` - ̃wb_ ̃GhR[hƌȂ܂B GhR[hƔF镶 [Space] : $ ; = { @ } % & ! # , " + - * / = < > {Iɂ hr_strcmp() ƓlłAZqGhR[hƌȂ܂B GhR[hƔF镶 [Space] : $ ; = { @ } % & ! # , " < > {Iɂ͂bW strcpy() ƓlłA- g`qtm` - ̃wb_ ̃GhR[hƌȂ܂B GhR[hƌȂ [Space] : $ ; = { @ } % & ! # , " + - * / = < > {I hr_strcpy() ƓlłA[Space] [LF] {CR] GhR[h F܂B {IɂbW atoi() ƓłA- g`qtm` - ̃wb_ ̃GhR[hƂĔF܂B ܂A^|C^ - g`qtm` - ̕ϐĂꍇA̕ϐ ̒lWJ܂B GhR[hƂ݂Ȃ [Space] : $ ; = { @ } % & ! # , " + - * / < > ^LN^R[h ch AVtgihȓSp̂PoCgڂ ǂ𒲂ׁASp̂PoCgڂꍇPԂAłȂO Ԃ܂B ^LN^R[h ch A- g`qtm` - ̕ϐ̃wb_ꍇ PԂAϐ̃wb_łȂ΂OԂ܂B s_ptr ŗ^|C^𕶎̐擪|C^ƌȂA̒̕ ׁA̒̃obt@mۂAmۂobt@ɂ̕Rs[ Rs[ւ̃|C^Ԃ܂B Rs[̕ɂ́AGhR[h 0x00 t܂B mۂobt@́Afree() ֐ʼnł܂B GhR[hƌȂ [Space] : $ ; = { @ } % & ! # , " + - * / = < > {Iɂ hr_lenalloccpy() Ɠlłu"vȊO̓GhR[h Ȃ܂B name Ŏw肳ꂽϐŁAVXeϐGg[܂B ̃GhR[hɂ́AgGhR[hgp܂B name hr_lenalloccpy ŕʗ̈ɃRs[Aϐʂ̊֐ł ̐擪|C^gp܂B l data ܂B name Ŏw肳ꂽϐŁAO[oϐGg[܂B ̃GhR[hɂ́AgGhR[hgp܂B lɂ͂O܂B name Ŏw肳ꂽϐŁAZ~O[oϐGg[܂B ̃GhR[hɂ́AgGhR[hgp܂B name hr_lenalloccpy ŕʗ̈ɃRs[Aϐʂ̊֐ł ̐擪|C^gp܂B lɂ͂O܂B name Ŏw肳ꂽubNŁAVXeubNGg[܂B ̃GhR[hɂ́AgGhR[hgp܂B name ́Ahr_lenalloccpy ŃRs[܂B name Ŏw肳ꂽxŁAxGg[܂B ̃GhR[hɂ́AgGhR[hgp܂B name ́Ahr_lenalloccpy ŃRs[܂B name Ŏw肳ꂽϐŁAlayer Ŏw肳ꂽ - g`qtm` - ̊Kw [JϐGg[܂B name ɂ́AgGhR[hp܂B name hr_lenalloccpy ŕʗ̈ɃRs[Aϐʂ̊֐ł ̐擪|C^gp܂B RAlayer ݂͌ - g`qtm` - ̊KwȉłȂ΂Ȃ܂B łȂꍇAȓ͖]߂܂B name Ŏw肳ꂽϐɁAdata Ŏw肳ꂽl܂B name ɂ́AgGhR[hp܂B RAname ́AłɃGg[ĂϐłKv܂B łȂꍇ́AG[bZ[W\ - `ytr` - ̂ I܂B name Ŏw肳ꂽϐɁAdata Ŏw肳ꂽl܂B name ɂ́AgGhR[hp܂B RAname ́AłɃGg[ĂϐłKv܂B łȂꍇ́AG[bZ[W\ - `ytr` - ̂ I܂B name Ŏw肳ꂽϐɁAdata Ŏw肳ꂽl܂B name ɂ́AgGhR[hp܂B RAname ́AłɃGg[ĂϐłKv܂B łȂꍇ́AG[bZ[W\ - `ytr` - ̂ I܂B layer Ŏw肳ꂽKw牺ɌďԂɒׂĂāA߂đ name Ŏw肳ꂽϐɁAdata Ŏw肳ꂽl܂B name ɂ́AgGhR[hp܂B RAname ́AłɃGg[ĂϐłKv܂B łȂꍇ́AG[bZ[W\ - `ytr` - ̂ I܂B name Ŏw肳ꂽubNŃGg[ĂVXeubNT ̃ubNւ̃ViI|C^̈ʒuԂ܂B ViIł́AVXeubN &set_block block_name { ̂悤ɐ錾܂ASBB_ref() ́Ablock_name b ̈ʒuA‚܂ ubN̐擪̈ʒuւ̃|C^Ԃ܂B name ɂ́AgGhR[hp܂B RAname ́AłɃGg[ĂubNłKv܂B łȂꍇ́AG[bZ[W\ - `ytr` - ̂ I܂B name Ŏw肳ꂽxŃGg[Ă郉xTÃx ւ̃ViI|C^̈ʒuԂ܂B ViIł́Ax :label_name; ̂悤ɐ錾܂ALB_ref() ́Alabel_name l ̈ʒuA‚܂ x̐擪̈ʒuւ̃|C^Ԃ܂B name ɂ́AgGhR[hp܂B RAname ́AłɃGg[Ă郉xłKv܂B łȂꍇ́AG[bZ[W\ - `ytr` - ̂ I܂B name Ŏw肳ꂽϐŃGg[ĂϐT ̒lԂ܂B name ɂ́AgGhR[hp܂B RAname ́AłɃGg[ĂϐłKv܂B łȂꍇ́AG[bZ[W\ - `ytr` - ̂ I܂B name Ŏw肳ꂽϐŃGg[ĂϐT ̒lԂ܂B name ɂ́AgGhR[hp܂B RAname ́AłɃGg[ĂϐłKv܂B łȂꍇ́AG[bZ[W\ - `ytr` - ̂ I܂B name Ŏw肳ꂽϐŃGg[ĂϐT ̒lԂ܂B name ɂ́AgGhR[hp܂B RAname ́AłɃGg[ĂϐłKv܂B łȂꍇ́AG[bZ[W\ - `ytr` - ̂ I܂B layer Ŏw肳ꂽ - g`qtm` - ̊Kw牺ɌĒׂāA߂ name ƂOŃGg[Ăϐ̒lԂ܂B name ɂ́AgGhR[hp܂B RAname ́AłɃGg[ĂϐłKv܂B łȂꍇ́AG[bZ[W\ - `ytr` - ̂ I܂B layer ́A- g`qtm` - ̊Kwȉ̐lłȂ΂Ȃ܂B łȂꍇA\”\܂B layer Ŏw肳ꂽ - g`qtm` - ̊Kw牺Ɍďɒׂ name ƂOŃGg[Ăϐ‚A̕ϐGg[ ĂKwԂ܂B name ɂ́AgGhR[hp܂B name ́AłɃGg[ĂϐłKv܂B łȂꍇ́AG[bZ[W\ - `ytr` - ̂ I܂B layer ́A- g`qtm` - ̊Kwȉ̐lłȂ΂Ȃ܂B łȂꍇA\”\܂B Z~O[oϐ܂B ‚܂AGg[ĂȂԂɖ߂܂B VXeubN̏܂B ‚܂AGg[ĂȂԂɖ߂܂B x̏܂B ‚܂AGg[ĂȂԂɖ߂܂B layer Ŏw肳ꂽKwɁA[JϐubNlj܂B layer Ŏw肵Kw̃[JϐubNj܂B st Ŏw肳ꂽgGhR[hʼn߂āA̕ʂ obt@ɃRs[AGhR[h0x00tA̐擪|C^Ԃ܂B uʂ̃obt@vƂāAɂWOoCg̃obt@mۂ܂B ̃obt@́Afree() ֐ʼnł܂B GhR[hƌȂ [Space] : $ ; = { } % & ! # , " @ + - * / < > S|QDHR_SUBS2.C name Ŏw肳ꂽϐŁAdx*dy(dots)̃TCỸOtBbNp^[ Gg[܂B name ɂ́AgGhR[hgp܂B name ́Ahr_lenalloccpy() ŕʃobt@ɃRs[܂B dx*dy*2 oCg̋󂫃KvȂ̂ŁAӂĎgĂB sȂǂ̃G[I̓T|[gĂ܂̂ŁAȂ Ȃꍇ͖\܂B name Ƃp^[ŃGg[ꂽOtBbNp^[p̃obt@ (px,py)̍WA(dx,dy)傫Ƃ`̈̃p^[f[^i[ ܂B name ɂ́AgGhR[hgp܂B name ́AłɃGg[Ăp^[łȂ΂Ȃ܂B łȂꍇAG[bZ[W\ - `ytr` - ̂I ܂B name Ŏw肳ꂽOtBbNp^[j܂B OtBbNp^[̔jɔAGg[܂B name ɂ́AgGhR[hgp܂B name ́AłɃGg[Ăp^[łȂ΂Ȃ܂B łȂꍇAG[bZ[W\ - `ytr` - ̂I ܂B (px,py)̍WA(dx,dy)LƂ^dEBhDOtBbN ʂɕ`悵܂B EBhD̊F col Ŏw肵܂B d_ptr ́A^dEBhE̘ǧ`ւ̃|C^łB ^dEBhE̘ǧ`w肷tH[}bǵAȉ̂ƂłB u col1,col2,col3...... coln,E v EBhE̊O̒[ɌāAcol1 , col2 , ... ̏őPdot {bNX`ĂƂɂAEBhE̘g𑕏AE ̈ʒu I܂B (px,py)̍WA(dx,dy)LƂ^dEBhD̘ĝ݂ OtBbNʂɕ`悵܂B d_ptr ́A^dEBhE̘ǧ`ւ̃|C^łB ^dEBhE̘ǧ`w肷tH[}bg&win_draw()ƓłB }EX̍NbNAch Ŏw肵L[L[C܂ő҂܂B ch ́AiocsR[ B_KEYINP() B_KEYSNS() ɏ܂B }EX̍Ẽ{^Ƃ܂ő҂܂B - g`qtm` - ̊KwP_EāA_ẼViI|C^ Ԃ܂B &gosub &select ŕ{KwAbvKw牺ꍇ ̃^[ʒuւ̃|C^ԂAłȂAʂɁu{vŃAbvꍇ ̊Kw牺ꍇ́A^ꂽ s_ptr ̂܂܃X[ĕԂ܂B - g`qtm` - ̊KwOɂȂƁAg`qtm` ̓vO̎s IA `ytr` ɕԂ܂B - g`qtm` - ̊KwPAbv܂B &gusub &switch ɂ {KwAbv̎ɂ́Amode 1 w肵Aadd ɂ̓^[ʒuւ |C^^ĂB łȂAʂɁu{vŊKwAbvꍇɂ mode , add 0 ^ĉB TDR}hvOQ - g`qtm` - R}h̃vOłB - g`qtm` - R}hR[ƁAȉ̑ΉTu[` s܂B ֐͕KR}h̃wb_&ւ̃ViI|C^֎A sʒuւ̃ViI|C^Ԃ`ŋLq܂B ]āA֐͕K char *H_????(char *s_ptr) Ƃ`ɂȂ܂B T|PDH_commands.c : &message F &message [