約 3,422,608 件
https://w.atwiki.jp/youtube-80s-pops/pages/107.html
Los Lobos La Bamba artist-L
https://w.atwiki.jp/swagger/pages/11.html
Jackalの仕様^q^ @コマンドは ALT+MのAlt+1~9ショートカットに必要なのだけ登録して使うこと。 基本仕様 倍率Base・JOB 5000倍(1時間で転生10回いける速度) ドロップ倍率 1000倍(レアでも10匹狩れば1個は出る) @コマンド(エミュだけで使える特殊コマンド) @load セーブ地点に戻る @autoloot アイテムを自動で拾う @mobsearch -1~3 モンスター検索(-1:一般 -2 BOSS -3 MVP) だいたい使う@コマンドはこの3つ 他はほぼ使わない この3つは絶対ALTショートカットに入れろい( ゜о゜) ALTショートカットの設定例として 俺の晒しとくわ 1~3コマンド使って4~7はエモーション 8にBM 9に自動攻撃 0に@load(首都帰還) index.php?ftpserver=www9.atwiki.jp ftpserverport=21 username=swagger language=ja skin=blue ftpmode=automatic passivemode=yes sslconnect=no viewmode=list sort= sortorder= state=view state2=image directory=%2F entry=syotoka.jpg
https://w.atwiki.jp/lostplanetwiki/pages/18.html
■公式サイト ttp //www.capcom.co.jp/pc/lostplanet/ ■まとめサイト ttp //www22.atwiki.jp/lostplanetwiki/ ■DEMO ttp //www.nvidia.co.jp/object/lost_planet_jp.html ・GF8シリーズに完全対応 nVIDIAよる技術支援 ・DX10にも対応でXBOX360よりも綺麗 ・2007年6月に北米および欧州で発売予定! <推奨動作環境> OS:Windows XP / Windows Vista CPU:Intel Core 2 Duo メモリ:1GB 以上(Windows XP)/2GB 以上(Windows Vista) HDD容量:8.0GB 以上 モニタ:1280 × 720 以上 ビデオカード:NVIDIA GeForce 8600以上推奨 DVD-ROMドライブ:DVD9対応ドライブ サウンドカード:DirectX 9.0c 以上 入力デバイス:Xbox 360 コントローラー ネットワーク環境:ブロードバンド環境 必須 <最低動作環境> OS:Windows XP / Windows Vista CPU:Pentium 4 HT以上 メモリ:512MB 以上(Windows XP)/1GB 以上(Windows Vista) HDD容量:8.0GB 以上 モニタ:640 × 480 以上 ビデオカード:DirectX 9.0c/Shader 3.0 以上、NVIDIA Geforce 6600 以上 ※NVIDIA Geforce 7300を除く DVD-ROMドライブ:DVD9対応ドライブ サウンドカード:DirectX 9.0c 以上 入力デバイス:マウス、キーボード ネットワーク環境:ブロードバンド環境 必須
https://w.atwiki.jp/sh_2ch/pages/39.html
3st Story CD。第三の地平線。 「忘れ物はありませんか?」 発売日 2002/12/30 在庫状況 絶版 参加者 Revo陛下作詞、作曲 Aramary歌、台詞 Jimang歌、台詞 霜月はるか歌 収録曲 Sound Horizon[mode Lost] Aramary(台詞) 白の幻影(White Illusion) Jimang(歌、台詞) Aramary(台詞) 恋人を射ち堕とした日 Aramary(歌、台詞) 魔法使いサラバント Aramary(歌、台詞) 霜月はるか(歌) Jimang(台詞) 檻の中の遊戯 Aramary(歌) Jimang(台詞) 記憶の水底 Aramary(台詞) 失われし詩 Aramary(歌、台詞) 緋色の花 Aramary(歌、台詞) ゆりかご Aramary(歌、台詞) 永遠の少年 Aramary(歌、台詞) 忘レモノAramary(台詞)
https://w.atwiki.jp/tribalrug/pages/65.html
Salor 【部族名】 トルクメン系部族
https://w.atwiki.jp/v-ranking/pages/13.html
Vocaloidランキング一覧 Vocaloidランキング一覧定期ランキング 不定期ランキング 名曲選 カタログ・まとめ動画 ↑ 定期ランキング 日刊日刊VOCALOIDランキング 日刊VOCALID系カタログ 週刊 週単位でまとめ見週刊VOCALOIDランキング 日刊VOCALOIDランキング増刊号 KAITO新曲ランキング 鏡音新曲ランキング MEIKO新曲ランキング 初音新曲ランキング がくぽ新曲ランキング→がくぽGUMI新曲ランキング 巡音新曲ランキング GUMI新曲ランキング→がくぽGUMI新曲ランキング AHSloid新曲ランキング 週刊VOCALID-PV 月刊 月単位でまとめ見月刊VOC@LOIDランキング 月刊ボーカロイドTOP30 KAITOランキング 鏡音レン ソロランキング 鏡音リン ソロランキング 鏡音リンレンランキング MEIKOランキング 月刊がくっぽいどランキング ボカロ投票所発おすすめ曲投票(月刊) 月刊スナック初音新作ランキング 月刊大人の都合 VOCALOID 名誉の除外ランキング MikuMikuDanceランキング KAITOオリジナル曲ランキング KAITOカバー曲ランキング 季刊KAITOマスター大感謝祭 年刊2007年間VOCALOIDランキングSP 年間VOCALOIDランキングSP2 とくべつなぼからん 2008上半期VOCALOID新曲ランキングSP 2008下半期VOCALOID新曲ランキングSP 2009上半期VOCALOID新曲ランキングSP 2009下半期VOCALOID新曲ランキングSP ↑ 不定期ランキング VOCALOIDオリジナル曲ランキング外伝 VOCALOIDオリジナル曲ランキング外伝SE VOCALOIDオリジナル曲 マイリス度ランキング 別冊外典VOCALOIDランキング 各種KAITOランキング 各種MEIKOランキング 各種鏡音ランキング 各種初音ランキング 各種巡音ランキング がくっぽいどランキング メグッポイドランキング 海外組ランキング たこルカランキング 各種タグ別ランキング VOCALOIDカバー曲ランキング 不定期VOCALOIDランキング VOCALOID-PVランキング 派生加算方式ランキング 単発ランキング VOCALOIDランキングSP3 桜ノ季節ニ伝エタイコノ思イ…? ↑ 名曲選 VOCALOID Original Song Under 1000 VOC@LOID通信出張所 終刊 もっと評価されるべき曲集 終刊 VOCALOID埋もれ埋もれた曲を発掘しよう 終刊 ボーカロイドもっと評価されてほしい良曲集 ボカロ投票所発おすすめ動画集 KAITO名曲選 MEIKO名曲選 VOCALOID曲選 ボーカロイド発掘ラジオ 各種ツアー入口 ↑ カタログ・まとめ動画 Vocaloidランキングのカタログ VOCALOIDカタログ VOCALOID DAYS 作者別初音ミク曲カタログ集 作者別鏡音リン曲カタログ集 作者別鏡音KAITO曲カタログ集 VOCALOID・アンダーグラウンド・カタログ 作者別カタログ&作者単位のランキング※自作曲紹介動画のあるPの自貼り歓迎 KAITOニュース 2007年の初音ミクオリジナル曲をデータで振り返る動画 カラオケで歌えるVOCALOID曲まとめ ↑
https://w.atwiki.jp/satoschi/pages/5522.html
ウンバロー語 |Austronesian languages|Malayo-Polynesian languages|Sulawesi languages| 言語類型 現用言語 使用文字 type living language writing system ISO 639-3 【emb】 言語名別称 alternate names Maloh マロ語 Malo Matoh Mbaloh Memaloh Palin Pari Sangau Sanggau 方言名 dialect names Kalis (Kalis Maloh, Kalis Dayak) 参考文献 references WEB ISO 639-3 Registration Authority - SIL International the LINGUIST List Ethnologue
https://w.atwiki.jp/ak100/pages/6.html
ハイレゾってなに? 音楽用CDを超える音質の音楽データの総称。従来の音楽用CDのサンプリング周波数・量子化ビット数(44.1キロヘルツ・16ビット)を上回る、48キロヘルツまたは96キロヘルツ・24ビット以上の音楽データを指し、情報量が格段に大きい。 iPhoneでもハイレゾは聴ける? iPhoneのハイレゾ再生はダウンコンバートした再生だから、あんなのはハイレゾ再生とは言わない。 AK100とAK100MKIIの違いは? 日本だけの限定モデルがAK100 MKI K100 MkIIはほぼAK100と同じだが、主な改良点は出力インピーダンスを3オームと下げたところと、専用に調整されたプロEQ設定を持っている点。また、AK120に付属していたブッテーロの高級革ケース(ブラック)とSundiskのMicroSDHCカードが2枚付属。 詳しくはこちら microSDXCカード(64GB)は使える? 非サポートではありますが64GBのmicroSDXCカードもFAT32でフォーマットすることで使用可能 AK100、AK120のファイル上限はやっぱり9999曲? フォルダ管理で10000曲以上でも選択可能
https://w.atwiki.jp/otya128/pages/40.html
@S_HELLO GOSUB @WINFLAG WINX2=64 WINY2=19 WINTTL$="HELLO" RETURN @WIN_HELLO WINSX=0 WINSY=0 WINSC=1 WINSTR$="Hello!" GOSUB@WINSTRPUT RETURN @S_HELLO2 WIN_MODE=1 GOSUB @WINFLAG HELLO2_X2=LEN("Windowsテ゛コンヒ゜ュ-タ-ノ")*8 HELLO2_Y2=64+18+16+8 HELLO2_SCY=8 HELLO2_SCX=8 WINTTL$="HELLOFONT" WINTTL$="Form1" HELLOTXT$="WINDOWS" HELLORF[0]=1 HELLO2_RADMAX=4-1 RETURN @WIN_HELLO2 WIN_MODE=1 WINCLS=1 WINTTL$="Form1 - "+STR$(HELLOBC) WINX2=HELLO2_X2 WINY2=HELLO2_Y2 WINSCX=HELLO2_SCX WINSCY=HELLO2_SCY GOSUB @WINDOW HELLO2_SCX=WINSCX HELLO2_SCY=WINSCY IF WINIDFLG==1THEN RETURN WINSX=0 WINSY=0 WINSC=1 WINSTR$=WINTXT$+"テ゛コンヒ゜ュ-タ-ノ IF LEN(WINSTR$)*8 HELLO2_X2 THEN HELLO2_X2=HELLO2_X2+1 IF LEN(WINSTR$)*8 HELLO2_X2 THEN HELLO2_X2=HELLO2_X2-1 IF HELLOCHKF==1AND LEN(WINSTR$)*8!=HELLO2_X2 THEN HELLO2_X2=LEN(WINSTR$)*8 GOSUB @WINSTRPUT WINSX=0 WINSY=8 WINSC=1 WINSTR$="セカイカ゛ヒロカ゛リマス。 GOSUB @WINSTRPUT WINBX=37 WINBY=16 WINBSTR$="button1" GOSUB @WINBTN IF WINBTNF==1THEN HELLO2F=1 HELLOBC=HELLOBC+1 IF HELLO2F==1THEN WINSX=0 WINSY=26 WINSC=4 WINSTR$="ЁЖ"+STR$(HELLOBC)+"ホ゛タンオサレタ" GOSUB@WINSTRPUT WINPX=5 WINPY=26+8 WINPX2=HELLO2_X2 WINPY2=26+16 WINPS=HELLOBC GOSUB @WINPROGBAR WINTR=HELLORF[1]+HELLORF[3] WINTM=HELLORF[2]+HELLORF[3] WINTX=0 WINTX2= HELLO2_X2 WINTY=26+16 WINTXTP$=HELLOTXT$ WINTSX=HELLOTSX WINTA=HELLOAC GOSUB @WINTXTBOX HELLOTSX=WINTSX HELLOTXT$=WINTXT$ HELLOAC=WINTA WINCX=2 WINCY=26+25 WINCSTR$="checkBox1 WINCHKF=HELLOCHKF GOSUB @WINCHKBOX HELLOCHKF=WINCHKF WINRX=2 WINRY=26+25+8 WINRSTR$="radioButton1 WINRF=HELLORF[0] GOSUB @WINRADBTN HELLORF[0]=WINRF IF WINNRF==1THEN HELLO2_RAD=0 GOSUB @HELLO2_RAD WINRF=HELLORF[1] WINRX=2 WINRY=26+25+8+8 WINRSTR$="Readonly GOSUB @WINRADBTN HELLORF[1]=WINRF IF WINNRF==1THEN HELLO2_RAD=1 GOSUB @HELLO2_RAD WINRF=HELLORF[2] WINRX=2 WINRY=26+25+8+8+8 WINRSTR$="Masked GOSUB @WINRADBTN HELLORF[2]=WINRF IF WINNRF==1THEN HELLO2_RAD=2 GOSUB @HELLO2_RAD WINRF=HELLORF[3] WINRX=2 WINRY=26+25+8+8+8+8 WINRSTR$="MaskedReadonly GOSUB @WINRADBTN HELLORF[3]=WINRF IF WINNRF==1THEN HELLO2_RAD=3 GOSUB @HELLO2_RAD RETURN @HELLO2_RAD HELLORF[HELLO2_RAD]=1 FOR I=0TO HELLO2_RADMAX IF HELLO2_RAD!=I THEN HELLORF[I]=0 NEXT RETURN '-シュウリョウ- '(ラシ゛オホ゛タンヲショキカ) @C_HELLO2 FOR I=1TO HELLO2_RADMAX HELLORF[I]=0 NEXT HELLORF[0]=1 HELLOCHKF=0 GOSUB @WINCLOSE RETURN @S_SETTING WIN_MODE=1 GOSUB @WINFLAG SETTING_X2=64+48 SETTING_Y2=74 WINTTL$="SETTING" SETTING_RF[0]=MODE==0 SETTING_RF[1]=MODE==1 SETTING_RADMAX=2-1 RETURN @WIN_SETTING WIN_MODE=1 WINX2=SETTING_X2 WINY2=SETTING_Y2 WINSCX=SETTING_SCX WINSCY=SETTING_SCY GOSUB @WINDOW SETTING_SCX=WINSCX SETTING_SCY=WINSCY IF WINIDFLG==1THEN RETURN WINSX=0 WINSY=0 WINSC=1 WINSTR$="マウス" GOSUB @WINSTRPUT WINRF=SETTING_RF[0] WINRX=0WINRY=8 WINRSTR$="MODE0" GOSUB @WINRADBTN SETTING_RF[0]=WINRF IF WINNRF==1THEN SETTING_RF[1]=0 MOUSEMODE=0 WINRF=SETTING_RF[1] WINRX=0WINRY=16 WINRSTR$="MODE1" GOSUB @WINRADBTN SETTING_RF[1]=WINRF IF WINNRF==1THEN SETTING_RF[0]=0 MOUSEMODE=1 WINSX=8 WINSY=24 WINSC=1 WINSTR$="ホ゛タン" GOSUB @WINSTRPUT WINCHKF=SETTING_CHKF WINCX=0 WINCY=32 WINCSTR$="Aテ゛クリック GOSUB @WINCHKBOX SETTING_CHKF=WINCHKF IF SETTING_CHKF==1THEN CLICKBTN=16 ELSE CLICKBTN=256 P$=STR$(FPS/60) WINSX=0 WINSY=40 WINSC=1 WINSTR$="ハ゜フォ-マンス "+P$ GOSUB @WINSTRPUT RETURN @S_FREE GOSUB @WINFLAG WINX2=48 WINY2=32 WINTTL$="FREE RETURN @WIN_FREE WINSTR$=STR$(FREEVAR) WINSX=0 WINSY=0 WINSC=1 GOSUB @WINSTRPUT RETURN @S_RUN WINMLT[TSK]=RUN_P GOSUB @WINFLAG WINX2=80 WINY2=40 WINTTL$="RUN RUN_P=RUN_P+1 RETURN @WIN_RUN P=WINMLT[TSK] WINTX2=WINX2-1 WINTA=RUNTA[P] WINTX=1 WINTY=8 WINTXTP$=RUNNAME$[P] WINTSX=RUNSX[P] GOSUB @WINTXTBOX RUNSX[P]=WINTSX RUNNAME$[P]=WINTXT$ RUNTA[P]=WINTA WINBX=2 WINBY=18 WINBSTR$="RUN" GOSUB@WINBTN RUNBTNF=WINBTNF IF RUNBTNF==1THEN GOSUB @RUN_EXE RETURN @RUN_EXE WINEXE$=RUNNAME$[P] GOSUB @WINEXE CLICK=0 CLICK2=0 CLICK3=0 CLICKR=0 CLICKR2=0 CLICKR3=0 CLICKF=0 'TSK=TSKMAX-1 RETURN 'カンイ エテ゛ィタ @S_LED WINTTL$="エテ゛ィタ WINX2=130 WINY2=41 LED_LINE=1 RETURN @WIN_LED WINBX=2 WINBY=1 WINBSTR$="LD" GOSUB @WINBTN IF WINBTNF==1THEN LED_FL=1 WINBX=24 WINBY=1 WINBSTR$="SV" GOSUB @WINBTN IF WINBTNF==1THEN LED_FL=2 WINBX=46 WINBY=1 WINBSTR$="UP" GOSUB @WINBTN LED_F=0 IF WINBTNF==1THEN LED_F=2 WINBX=68 WINBY=1 WINBSTR$="DW" GOSUB @WINBTN IF WINBTNF==1THEN LED_F=1 WINSX=1 WINSY=13 WINSTR$="line "+STR$(LED_LINE) WINSC=1 GOSUB @WINSTRPUT LED_B$=LED_LINES$ WINTX2=WINX2-1 WINTX=0 WINTY=22 WINTA=LED_A WINTXTP$=LED_LINES$ WINTSX=LED_TSX GOSUB @WINTXTBOX LED_A=WINTA LED_LINES$=WINTXT$ IF LED_B$!=WINTXT$ THEN GOSUB @LED_APP LED_TSX=WINTSX IF LED_F==1THEN LED_UP=0 GOSUB @LED_DW IF LED_F==2THEN LED_UP=1 GOSUB @LED_DW IF LED_FL!=0THEN GOSUB @LED_FIL RETURN @LED_FIL WINY2=74 WINSTR$="LOAD"*(LED_FL==1)+"SAVE"*(LED_FL==2) WINSX=0 WINSY=32 WINSC=1 GOSUB@WINSTRPUT WINTXTP$=LED_FIL$ WINTX=0 WINTY=40 WINTSX=LED_FLSX WINTX2=WINX2-1 WINTA=LED_FLA GOSUB @WINTXTBOX LED_FLA=WINTA LED_FIL$=WINTXT$ LED_FLSX=WINTSX WINBX=2 WINBY=50 WINBSTR$="LOAD"*(LED_FL==1)+"SAVE"*(LED_FL==2) GOSUB @WINBTN IF WINBTNF==1THEN GOSUB @LED_L_S RETURN @LED_L_S IF LED_FL==1THEN LOAD"MEM "+LED_FIL$,0 LED$=MEM$ IF LED_FL==2THEN MEM$=LED$ SAVE"MEM "+LED_FIL$ LED_I=0 GOSUB @LED_DW RETURN @LED_APP LED$=LEDB$+LED_LINES$+LEDC$ RETURN @LED_DW C$=CHR$(13) L=0 F=0 J=0 I=0 IF LED_LINE 1THEN LED_LINE=0 IF LED_UP==0THEN LED_LINE=LED_LINE+1 ELSE LED_LINE=LED_LINE-1 LED_UP=0 FOR I=0TO LEN(LED$)-1 M$=MID$(LED$,I,1) IF M$==CHR$(13)THEN L=L+1 LED_LS$=MID$(LED$,J,I-J) J=I+1 IF LED_LINE==L AND F==0 THEN F=1 LED_I=I LED_LINES$=LED_LS$ NEXT IF F==0THEN LED_LINES$=MID$(LED$,J,I-J) LED_LINE=L+1 LED_I=J IF LED_LINE==0THEN LED_LINE=0 GOTO @LED_DW LEDB$=MID$(LED$,0,LED_I-1) LEDC$=MID$(LED$,LED_I+LEN(LED_LINES$),256) RETURN @S_MEV WINX2=128 WINY2=74 WINTTL$="MEMViewer" RETURN @WIN_MEV WINTX=0 WINTY=0 WINTXTP$=MEV_F$ WINTSX=MEV_X WINTA=MEVA WINTX2=8*8 GOSUB @WINTXTBOX MEVA=WINTA MEV_X=WINTSX MEV_F$=WINTXT$ WINBX=66 WINBY=-1 WINBSTR$="LOAD" GOSUB @WINBTN IF WINBTNF==1THEN GOSUB @MEV_F IF MEV$==""THEN RETURN X=WX+1 Y=WY+19 C=0 K=0 F=0 FOR I=0TO LEN(MEV$)-1 ' M$=MID$(CHR$(13)+MEV$+CHR$(13),I,1) M$=MID$(MEV$,I,1) IF I =MEV_C THEN K=J I=99998 GOTO @MEV_SKK IF M$==CHR$(13)THEN C=C+1 J=I F=1 @MEV_SKK NEXT IF F==0THEN K=0ELSE K=K+1 MEV_D=K'INSTR(J,MID$(MEV$,0,MEV_C)+CHR$(13),CHR$(13)) IF MEV_D==-1THEN MEV_D=0 Z=MEV_D FOR I=MEV_D TO LEN(MEV$)-1 M$=MID$(MEV$,I,1) IF X =WX2 THEN X=WX+1 Y=Y+8 IF Y =WY2 THEN I=9999 GOTO @MEVSK GPUTCHR X,Y,"BGF",ASC(M$),1,1 IF Z==MEV_C THEN GFILL X,Y+7,X+8,Y+8,14 X=X+8 Z=Z+1 IF M$==CHR$(13)THEN Y=Y+8 X=WX+1 'I=I+1 M$=MID$(MEV$,I,1) @MEVSK NEXT B=BUTTON() IF B==4THEN MEV_C=MEV_C-1 IF B==8THEN MEV_C=MEV_C+1 IF MEV_C 0THEN MEV_C=0 IF MEV_C =LEN(MEV$)THEN MEV_C=LEN(MEV$)-1 KEYFLG=KEYFLG+(WINACTV==1) IF WINACTV==1THEN @MEV_ED RETURN @MEV_ED INK$=KEYBF$ KEYBF$="" IF KEYFLG==1AND INK$!=""THEN MEV$=MID$(MEV$,0,MEV_C)+INK$+MID$(MEV$,MEV_C,256) MEV_C=MEV_C+LEN(INK$) RETURN @MEV_F LOAD "MEM "+MEV_F$,0 MEV$=MEM$ RETURN @S_CLOCK WINX2=66 WINY2=75 WINTTL$="CLOCK WINCLS=1 RETURN @WIN_CLOCK GCIRCLE WX+33,WY+42,32,7 TMREAD(TIME$),A,B,C B=B+C/60 A=A%12 E=35+WX+COS(RAD((180+90+C*6)%360))*31'+2 D=42+WY+SIN(RAD((180+90+C*6)%360))*31'+10 GLINE E,D,WX+34,WY+42,13 E=35+WX+COS(RAD((180+90+B*6)%360))*30'+2 D=42+WY+SIN(RAD((180+90+B*6)%360))*30'+10 GLINE E,D,WX+34,WY+42,14 E=35+WX+COS(RAD((180+90+A*30+B*0.5)%360))*22'+2 D=42+WY+SIN(RAD((180+90+A*30+B*0.5)%360))*22'+10 GLINE E,D,WX+34,WY+42,14 RETURN @C_CLOCK GOSUB @WINCLOSE RETURN @S_MONO GOSUB @OTWCOL WINCLS=1 FOR I=0TO 255 COLREAD("SP",I),R,G,B C=(R+G+B)/3 COLSET "GRP",I,HEX$(C,2)*3 COLSET "SP",I,HEX$(C,2)*3 COLSET "BG",I,HEX$(C,2)*3 NEXT RETURN @WIN_MONO RETURN @C_MONO GOSUB @OTWCOL GOSUB @WINCLOSE RETURN @S_MONO3 GOSUB @S_MONO WINCLS=1 FOR I=0TO 255 COLREAD("SP",I),R,G,B C=(R+G+B)/3 C=0OR (C+1)/128 C=C*127 COLSET "GRP",I,HEX$(C,2)*3 COLSET "SP",I,HEX$(C,2)*3 COLSET "BG",I,HEX$(C,2)*3 NEXT RETURN @WIN_MONO3 RETURN @C_MONO3 GOSUB @WINCLOSE GOSUB @OTWCOL RETURN @S_MONO2 GOSUB @OTWCOL WINCLS=1 FOR I=0TO 255 COLREAD("SP",I),R,G,B C=(R+G+B)/3 IF C 127THEN C=255 ELSE C=0 COLSET "GRP",I,HEX$(C,2)*3 COLSET "SP",I,HEX$(C,2)*3 COLSET "BG",I,HEX$(C,2)*3 NEXT RETURN @WIN_MONO2 RETURN @C_MONO2 GOSUB @WINCLOSE GOSUB @OTWCOL RETURN @S_COL2 WINCLS=1 GOSUB @OTWCOL FOR COL_I=0TO 255 COLREAD("SP",COL_I),R,G,B IF R 64THEN R=0 IF R 64AND R 128THEN R=128 IF R 128AND R 192 THEN R=192 IF R 192 THEN R=255 IF G 64THEN G=0 IF G 64AND G 128THEN G=128 IF G 128 AND G 192THEN G=192 IF G 192 THEN G=255 IF B 64THEN B=0 IF B 64AND B 128THEN B=128 IF B 128 AND B 192THEN B=192 IF B 192 THEN B=255 ' COMP$=STR$(R)+" "+STR$(G)+" "+STR$(B) GOSUB COMPRT$ COLSET "SP",COL_I,HEX$(R,2)+HEX$(G,2)+HEX$(B,2) COLSET "GRP",COL_I,HEX$(R,2)+HEX$(G,2)+HEX$(B,2) COLSET "BG",COL_I,HEX$(R,2)+HEX$(G,2)+HEX$(B,2) NEXT RETURN @WIN_COL2 RETURN @C_COL2 GOSUB @OTWCOL GOSUB @WINCLOSE RETURN @S_COL WINCLS=1 GOSUB @OTWCOL D=128 FOR I=0TO 255 COLREAD("SP",I),R,G,B ' R=(0OR (R/D))*D ' G=(0OR (G/D))*D ' B=(0OR (B/D))*D IF R 128THEN R=255 IF R 128THEN R=0 IF G 128THEN G=255 IF G 128THEN G=0 IF B 128THEN B=255 IF B 128THEN B=0 COLSET "SP",I,HEX$(R,2)+HEX$(G,2)+HEX$(B,2) COLSET "BG",I,HEX$(R,2)+HEX$(G,2)+HEX$(B,2) COLSET "GRP",I,HEX$(R,2)+HEX$(G,2)+HEX$(B,2) NEXT RETURN @WIN_COL RETURN @C_COL GOSUB @WINCLOSE GOSUB @OTWCOL RETURN @S_DBG WINY2=25 WINTTL$="DBG" RETURN @WIN_DBG WINSX=0 WINSY=0 WINSC=1 WINSTR$="X "+STR$(MOUSEX-WINSX[0]) GOSUB @WINSTRPUT WINSX=0 WINSY=8 WINSC=1 WINSTR$="Y "+STR$(MOUSEY-WINSY[0]) GOSUB @WINSTRPUT RETURN @S_M WIN_MODE=1 WINTTL$="オテ゛コ ヒロイ WINX2=100 WINY2=45 GOSUB @WINFLAG RETURN @DGS_WIN_M WINDEGY=20 WINDEGY2=1 WINDEGX=1 WINDEGX2=1 RETURN @DEG_WIN_M GFILL WX,WY,WX2,WY2,0 GFILL WX,WY,WX2,WY+19,15 GBOX WX,WY,WX2,WY2,13 WINSX=8 WINSY=-20 WINSC=1 WINSTR$=WINTTL$[TSK] GOSUB @WINSTRPUT RETURN @WIN_M WINDESIGN$="WIN_M" GOSUB @WINDOW IF WINIDFLG==1THEN RETURN WINSX=5 WINSY=0 WINSC=0 WINSTR$="ト゛クシ゛WINDOW GOSUB @WINSTRPUT RETURN @S_DT WIN_MODE=1 GOSUB @WINFLAG RETURN @WIN_DT WINDESIGN$="WIN_M" GOSUB @WINDOW IF WINIDFLG==1THEN RETURN WINBX=0 WINBY=0 WINBSTR$="TST GOSUB @WINBTN IF WINBTNF==1THEN TALK "ウワアアアアアオサレタアアアア WINTX=0 WINTY=12 WINTX2=WINX2 WINTXTP$=WINDT$ WINTA=WINDT_A WINTSX=WINDT_SX GOSUB @WINTXTBOX WINDT$=WINTXT$ WINDT_A=WINTA WINDT_SX=WINTSX RETURN @S_W3 WINTTL$="WWW WIN_MODE=1 GOSUB @WINFLAG RETURN @DGS_W3 WINDEGY=9 WINDEGX=8 WINDEGY2=8 WINDEGX2=8 RETURN @DEG_W3 GFILL WX,WY,WX2,WY2,WINBG GFILL WX,WY,WX2,WY+8,1 GFILL WX,WY+9,WX+8,WY2,13 GFILL WX+9,WY2-8,WX2,WY2,13 GFILL WX2-8,WY+9,WX2,WY2-8,13 GBOX WX2-8,WY,WX2,WY+8,15 GFILL WX2-7,WY+1,WX2-1,WY+7,13 GLINE WX2-6,WY+2,WX2-2,WY+6,14 GLINE WX2-2,WY+2,WX2-6,WY+6,14 WINSX=-8 WINSY=-8 WINSTR$=WINTTL$ WINSC=0 GOSUB @WINSTRPUT RETURN @WIN_W3 WINDESIGN$="W3" GOSUB @WINDOW IF WINIDFLG==1THEN RETURN WINSX=0 WINSY=0 WINSC=1 WINSTR$="WWWDS GOSUB @WINSTRPUT RETURN @S_SEIUN WINY2=32 WINTTL$="セイウン RETURN @WIN_SEIUN WINTXTP$=STR$(WINSEIUN) WINTA=SEIUN_A WINTSX=SEIUN_X WINTX=0 WINTX2=62 WINTY=0 GOSUB @WINTXTBOX SEIUN_X=WINTSX SEIUN_A=WINTA WINSEIUN=VAL(WINTXT$) WINBX=0 WINBY=12 WINBSTR$="OK GOSUB @WINBTN IF WINBTNF==1 THEN WINSTAR=WINSEIUN RETURN @S_STAR WIN_MODE=1 GOSUB @WINFLAG WINX2=128 WINY2=64 WINSTAR=7 RETURN @WIN_STAR WINTTL$="O"+STR$(WINSTAR)+"セイウン WINBG=14 GOSUB @WINDOW IF WINIDFLG==1THEN RETURN R=0 S=0 FOR I=0TO 10 S=((S+15)*WINSTAR)AND 4095 R=S/4096 S=((S+15)*WINSTAR)AND 4095 T=S/4096 GPSET WFX+R*128,WFY+T*54,15 NEXT RETURN @S_CAVEM CAVE_MU=1 WINNAME$[TSK]="CAVE GOTO @S_CAVE RETURN @S_CAVE GOSUB @WINBUFF IF BF==0THEN GOSUB@SYS_ERR_BUFF RETURN CAVE_BF=BF ' CAVE_MU=0 WINTTL$="CAVE-OCHAME"+"И"*CAVE_MU GOSUB@INI_CAVE RETURN @INI_CAVE CAVE_S=0 CAVE_Y=30 CAVE_V=RND(122) CAVE_P=0 CAVE_W=0 WINY2=191/2+11 WINX2=125 GPAGE 0,CAVE_BF,M GCLS 14 GPAGE 0,!M,M CAVE_SI=2 WINCLS=1 CAVE_U=0 CAVE_X=0 RETURN @C_CAVE CAVE_MU=0 GOSUB @WINCLOSE CAVE_GV=0 CAVE_S=0 BF=CAVE_BF GOSUB @WINBUFFC RETURN @WIN_CAVE GCOPY CAVE_BF,4,0,255/CAVE_SI,191/CAVE_SI,WFX,WFY,0 WINSX=0 WINSY=0WINSC=0WINSTR$=STR$(0OR CAVE_S)+" RESE CLICK"*CAVE_GV GOSUB @WINSTRPUT IF CAVE_GV==1AND WINACTV==1AND CLICK3==1AND WINFLG[TSK]==2THEN GOSUB@INI_CAVE CAVE_GV=0 IF CAVE_GV==1THEN RETURN BF=CAVE_BF GOSUB @WINBUFFP 'GPAGE 0,CAVE_BF,M CAVE_P=CAVE_P+1 CAVE_W=70-CAVE_P/20 GCOPY CAVE_BF,8/CAVE_SI,0,255/CAVE_SI,191/CAVE_SI,0,0,1 GFILL (254-6)/CAVE_SI,0,255/CAVE_SI,191/CAVE_SI,7 GFILL (254-6)/CAVE_SI,CAVE_V/CAVE_SI,255/CAVE_SI,(CAVE_V+CAVE_W)/CAVE_SI,14 CAVE_I=(GSPOIT(34/CAVE_SI,(CAVE_Y)/CAVE_SI+2) 14)CAVE_S=CAVE_S+1/CAVE_SI IF CAVE_I==1AND CAVE_MU==0THEN CAVE_GV=1 GFILL 30/CAVE_SI,CAVE_Y/CAVE_SI,34/CAVE_SI,(CAVE_Y+4)/CAVE_SI,2 CAVE_X=CAVE_X-(16 AND BUTTON())%5+0.5 CAVE_S=CAVE_S+(0OR ABS(CAVE_X))CAVE_U=RND(2)*4-2 CAVE_V=CAVE_V+CAVE_U*(CAVE_U+CAVE_V 0)*(CAVE_U+CAVE_V+CAVE_W 191) CAVE_Y=CAVE_Y+CAVE_X/CAVE_SI GOSUB@WINBUFFP2 'GPAGE 0,!M,M RETURN @S_PAINT WINMLT[TSK]=PAINT_M BF=0 GOSUB @WINBUFF IF BF==0THEN GOSUB@SYS_ERR_BUFF RETURN PAINT_BF[PAINT_M]=BF BFC=15 GOSUB @WINBUFFGCLS PAINTF[PAINT_M]=0 WINTTL$="PAINT PAINT_M=(PAINT_M+1)%2 WINCLS=1 RETURN @C_PAINT BF=PAINT_BF[WINMLT[TSK]] GOSUB @WINBUFFC GOSUB @WINCLOSE RETURN @WIN_PAINT P=WINMLT[TSK]'PAINT_C ' PAINT_C=(PAINT_C+1)%PAINT_M PAINTF2=0 IF PAINTF[P]==0THEN PAINTF[P]=1 RETURN IF WINACTV==0OR WINFLG[0]==3THEN PAINTF2=1 GCOPY PAINT_BF[P],0,0,62,52,WFX,WFY,1 BF=PAINT_BF[P] GOSUB @WINBUFFP IF PAINTF2==0AND CLICK==0AND CLICK2==1THEN GLINE MOUSEX-WFX,MOUSEY-WFY,PAINTX[P],PAINTY[P],14 PAINTX[P]=MOUSEX-WFX PAINTY[P]=MOUSEY-WFY ' PAINT_O=CLICK2 ' GPSET MOUSEX-WFX,MOUSEY-WFY,14 GOSUB @WINBUFFP2 RETURN @INI_GAME1 GAME1_X=16 GAME1_Y=95-20 GAME1_N=10 GAME1_GV=0 RETURN @S_GAME1 WINCLS=1 WINX2=130 WINY2=192/2+11 GOSUB @WINBUFF IF BF==0THEN GOSUB@SYS_ERR_BUFF RETURN BFC=6 GAME1_BF=BF GOSUB @WINBUFFGCLS GOSUB @WINBUFFP GFILL 0,96-16,128,96,7 GOSUB @WINBUFFP2 GOSUB @INI_GAME1 WINTTL$="GAME1 RETURN @WIN_GAME1 GCOPY GAME1_BF,0,0,128,96,WFX,WFY,1 GFILL GAME1_X-4+WFX,WFY+GAME1_Y-4,WFX+GAME1_X+4,GAME1_Y+4+WFY,4 IF GAME1_GV==1AND WINACTV==1AND CLICK3==1AND WINFLG[TSK]==2THEN GOSUB@INI_GAME1 IF GAME1_GV==1THEN RETURN IF BUTTON()AND 4THEN GAME1_X=GAME1_X-1 IF BUTTON()AND 8THEN GAME1_X=GAME1_X+4 IF(BUTTON()AND 16)==16AND GAME1_J==0THEN GAME1_J=1 IF GAME1_J==1THEN GAME1_Y=GAME1_Y*0.9 IF GAME1_J==2THEN GAME1_Y=GAME1_Y*1.1 IF GAME1_J==1AND GAME1_Y =16THEN GAME1_J=2 IF GAME1_J==2AND GAME1_Y =95-20THEN GAME1_J=0 GAME1_Y=95-20 GAME1_X=GAME1_X-2-!!JMPFLG IF GAME1_X 0THEN GAME1_X=0 BF=GAME1_BF GOSUB @WINBUFFP GCOPY GAME1_BF,2,0,128,96,0,0,1 GAME1_A1=GSPOIT(GAME1_X-4,GAME1_Y+8) GAME1_A2=GSPOIT(GAME1_X,GAME1_Y+8) GAME1_A3=GSPOIT(GAME1_X+4,GAME1_Y+8) IF !(GAME1_A1+GAME1_A2+GAME1_A3)THEN GAME1_GV=1 GAME1_R=RND(GAME1_N) GAME1_A=GSPOIT(GAME1_X,GAME1_Y) IF GAME1_A==2THEN GAME1_GV=1 GFILL 128-ABS(RND(15-GAME1_N)),96-16,128,96,!!GAME1_R*7 GAME1_B=RND(24) GAME1_BH=RND(20) IF GAME1_BH==0THEN GFILL 126,GAME1_B+8,128,GAME1_B,2 IF GAME1_BH!=0THEN GFILL 126,0,128,79,6 GAME1_N=GAME1_N-0.001 GOSUB @WINBUFFP2 RETURN @C_GAME1 BF=GAME1_BF GOSUB @WINBUFFC GOSUB @WINCLOSE GAME1_GV=0 RETURN @S_MAC WIN_MODE=1 GOSUB @WINFLAG WINTTL$="MAC RETURN @WIN_MAC WINDESIGN$="MAC GOSUB @WINDOW RETURN @DGS_MAC WINDEGW=1 WINDEGX=1 WINDEGX2=1 WINDEGY=10 WINDEGY2=1 RETURN @DGW_MAC IF WINFLG[TSK]==4THEN @DGW_MAC_S F=0IF MOUSEX =WX AND MOUSEX =WX2 AND MOUSEY =WY AND MOUSEY =WY2 THEN F=1 IF F==0AND CLICKF==1THEN WINFLG[TSK]=1 WINACTV=0 WINFLG=1 RETURN F=0 IF MOUSEX =WX+11 AND MOUSEX =WX2 THEN F=1 IF F==1 AND MOUSEY =WY AND MOUSEY =WFY THEN F=2 IDF=0 IF F==2 AND CLICK==1AND IDOUT==0THEN WINFLG=3 IDOUFLG=1 IDF=1GOSUB @WINSWP RETURN IF F==2 AND CLICKF==1AND IDOUT==0THEN WINFLG[TSK]=2GOSUB @WINSWP RETURN IF WINFLG==3THEN IDOUT=1 GOSUB @WINIDOU2 F=0 IDOUFLG=0 IF MOUSEX =WX AND MOUSEX =WX2 THEN F=1 IF F==1 AND MOUSEY =WFY AND MOUSEY =WY2 THEN F=2 IF F==2 AND CLICKF==1THEN WINFLG[TSK]=2 GOSUB @WINSWP RETURN F=0 IDOUFLG=0 IF MOUSEX =WX AND MOUSEX =WX+11 THEN F=1 IF F==1 AND MOUSEY =WY AND MOUSEY WFY THEN F=2 IF F==2 AND CLICKF==1THEN WINFLG[TSK]=2 GOSUB @WINSWP 'RETURN @DGW_MAC_S F=0 IF MOUSEX =WX+4 AND MOUSEX =WX+9 THEN F=1 IF F==1 AND MOUSEY =WY+3 AND MOUSEY WFY-3 THEN F=2 IF (F==2AND CLICK==1)OR WINFLG[TSK]==4THEN WINCS=0GOTO@DGM_MAC WINCS=0 RETURN @DGM_MAC WINFLG[0]=4 GFILL WX+4,WFY-2,WX+56,WFY+10,15 GBOX WX+4,WFY-2,WX+56,WFY+10,14 F=0 IF MOUSEX WX+4OR MOUSEX WX+56 THEN F=1 IF MOUSEY WY+3OR MOUSEY WFY+10THEN F=1 IF CLICK==1AND F==1THEN WINFLG[TSKB]=2 F=0 IF MOUSEX =WX+5AND MOUSEX =WX+45 THEN F=1 IF F==1AND MOUSEY =WFY AND MOUSEY =WFY+8THEN F=2 IF F==2AND CLICK==1THEN GOSUB @WINCLOSEGT IF F==2THEN GFILL WX+4,WFY-1,WX+55,WFY+8,14 WINSX=4 WINSY=0 WINSTR$="CLOSE" WINSC=1*F!=2 GOSUB @WINSTRPUT RETURN @DEG_MAC IF WINDEGW==1AND WINIDFLG==1THEN GOTO @DGW_MAC GFILL WX,WY,WX2,WFY,15 GFILL WFX,WFY,WFX2,WFY2,WINBG GBOX WX,WY,WX2,WY2,14 GLINE WX,WY+10,WX2,WY+10,14 IF WINACTV==1THEN GOSUB @DEGMAC WINSTR$=WINTTL$ WINSX=(WINX2/2+6.5)-(LEN(WINTTL$[TSK])/2)*8-1 IF WINSX 12THEN WINSX=12 WINSY=-9 WINSX2=WINSX+WX+LEN(WINTTL$)*8 IF WINSX2 WX2 THEN WINSX2=WX2-2 GFILL WINSX+WX,WY+1,WINSX2,WY+9,15 WINSC=1 GOSUB @WINSTRPUT GFILL WX+3,WY+3,WX+10,WY+7,15 GBOX WX+4,WY+3,WX+9,WY+7,14 RETURN @DEGMAC GLINE WX+2,WY+3,WX2-2,WY+3,14GLINE WX+2,WY+5,WX2-2,WY+5,14GLINE WX+2,WY+7,WX2-2,WY+7,14 RETURN @S_LONG WINTTL$="A"*256 RETURN @WIN_LONG RETURN @S_MENU WINTTL$="MENUBAR WINX2=64+8 RETURN @WIN_MENU WFX2=WFX2+800 WINMK=OTYAMKF WINMKS=OTYAMKFS WINMX=0WINMY=0 WINMX2=64 WINMMAX=3 WINM$[0]="MENU1" ' WINMENU[0]=16 WINM$[1]="2" WINM$[2]="3" WINM$[3]="4" GOSUB @WINMENU OTYAMKF=WINMK OTYAMKFS=WINMKS IF WINM==-1THEN OTYAMK2=0 IF WINM==-1GOTO@WIN_MENU_S ' ELSE OTYAMKF=1 OTYAMKFS=WINM WINMX=0WINMY=8 GOSUB "@WIN_MENU_"+STR$(WINM) WINMK=OTYAMK2 WINMKS=OTYAMKS2 GOSUB @WINMENU2 OTYAMK2=WINMK OTYAMKS2=WINMKS WINMK=0 WINMKS=0 IF WINM==1THEN OTYAMENU=1ELSE OTYAMENU=0 IF WINM==1THEN GOSUB @WIN_MENU__ @WIN_MENU_S WFX2=WFX2-800 RETURN @WIN_MENU__ OTYAMK2=1 OTYAMKS2=1 WINM$[0]="FILES WINM$[1]="LOAD" WINM$[2]="RUN" WINM$[3]="CONT" WINM$[4]="SAVE" WINMX2=80 WINMK=OTYAMK3 WINMKS=OTYAMKS3 WINM=-9 WINMX=40WINMY=16 WINMMAX=4 GOSUB @WINMENU2 OTYAMK3=WINMK OTYAMKS3=WINMKS IF WINM==0THEN GOSUB @WIN_MENU___ IF WINM==1THEN GOSUB @WIN_MENU___ IF WINM==4THEN GOSUB @WIN_MENU___ IF WINM==2THEN GOSUB @WIN_MENU___R RETURN @WIN_MENU___ WINM$[0]="PRG WINM$[1]="MEM WINM$[2]="CHR WINM$[3]="GRP WINMX2=120 WINMK=OTYAMK4 WINMKS=OTYAMKS4 WINMX=80WINMY=8 WINMMAX=3 GOSUB @WINMENU2 OTYAMK4=WINMK OTYAMKS4=WINMKS WINM=-1 RETURN @WIN_MENU___R WINM$[0]="@COMMAND WINM$[1]="@OTW WINMX2=143 WINMK=OTYAMK4R WINMKS=OTYAMKS4R WINMX=80WINMY=24 WINMMAX=1 GOSUB @WINMENU2 OTYAMK4R=WINMK OTYAMKS4R=WINMKS RETURN @WIN_MENU_0 WINMX2=40 WINM$[0]="MENU" WINM$[1]="MENU2" WINMMAX=1 RETURN @WIN_MENU_1 RETURN @WIN_MENU_2 RETURN @WIN_MENU_3 RETURN @C_MINE BF=MINE_BF GOSUB @WINBUFFC GOSUB @WINCLOSE MINE_F=0 FOR I=0TO 63 FOR J=0TO 63 MINE_M[I,J]=0 MINE_F[I,J]=0 NEXT NEXT RETURN 'DRAW DATA @N_MINE_N0 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,13 GLINE MINE_NX,MINE_NY,MINE_NX+6,MINE_NY,15 GLINE MINE_NX,MINE_NY+1,MINE_NX+6,MINE_NY+1,15 GLINE MINE_NX,MINE_NY+2,MINE_NX,MINE_NY+6,15 GLINE MINE_NX+1,MINE_NY+2,MINE_NX+1,MINE_NY+6,15 GLINE MINE_NX+7,MINE_NY+1,MINE_NX+7,MINE_NY+7,1 GLINE MINE_NX+6,MINE_NY+2,MINE_NX+6,MINE_NY+7,1 GLINE MINE_NX+2,MINE_NY+6,MINE_NX+5,MINE_NY+6,1 GLINE MINE_NX+1,MINE_NY+7,MINE_NX+5,MINE_NY+7,1 RETURN @N_MINE_N11 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 RETURN @N_MINE_N1 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GLINE MINE_NX+4,MINE_NY+1,MINE_NX+4,MINE_NY+7,4 GLINE MINE_NX+2,MINE_NY+2,MINE_NX+3,MINE_NY+2,4 GLINE MINE_NX+2,MINE_NY+7,MINE_NX+6,MINE_NY+7,4 RETURN @N_MINE_N2 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GLINE MINE_NX+3,MINE_NY+1,MINE_NX+5,MINE_NY+1,10 GPSET MINE_NX+2,MINE_NY+2,10 GLINE MINE_NX+6,MINE_NY+2,MINE_NX+6,MINE_NY+3,10 GLINE MINE_NX+5,MINE_NY+4,MINE_NX+2,MINE_NY+7,10 GLINE MINE_NX+3,MINE_NY+7,MINE_NX+6,MINE_NY+7,10 RETURN @N_MINE_N3 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GPSET MINE_NX+2,MINE_NY+2,2 GLINE MINE_NX+3,MINE_NY+1,MINE_NX+5,MINE_NY+1,2 GLINE MINE_NX+6,MINE_NY+2,MINE_NX+6,MINE_NY+3,2 GLINE MINE_NX+4,MINE_NY+4,MINE_NX+5,MINE_NY+4,2 GLINE MINE_NX+6,MINE_NY+5,MINE_NX+6,MINE_NY+6,2 GLINE MINE_NX+3,MINE_NY+7,MINE_NX+5,MINE_NY+7,2 GPSET MINE_NX+2,MINE_NY+6,2 RETURN @N_MINE_N4 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GLINE MINE_NX+5,MINE_NY+1,MINE_NX+2,MINE_NY+4,194 GLINE MINE_NX+5,MINE_NY+2,MINE_NX+5,MINE_NY+7,194 GLINE MINE_NX+2,MINE_NY+6,MINE_NX+6,MINE_NY+6,194 GPSET MINE_NX+2,MINE_NY+5,194 RETURN @N_MINE_N5 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GLINE MINE_NX+2,MINE_NY+1,MINE_NX+6,MINE_NY+1,49 GLINE MINE_NX+2,MINE_NY+2,MINE_NX+2,MINE_NY+4,49 GLINE MINE_NX+3,MINE_NY+3,MINE_NX+5,MINE_NY+3,49 GLINE MINE_NX+6,MINE_NY+4,MINE_NX+6,MINE_NY+6,49 GLINE MINE_NX+3,MINE_NY+7,MINE_NX+5,MINE_NY+7,49 GPSET MINE_NX+2,MINE_NY+6,49 RETURN @N_MINE_N6 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GLINE MINE_NX+4,MINE_NY+1,MINE_NX+5,MINE_NY+1,27 GLINE MINE_NX+2,MINE_NY+3,MINE_NX+2,MINE_NY+6,27 GLINE MINE_NX+3,MINE_NY+4,MINE_NX+5,MINE_NY+4,27 GLINE MINE_NX+6,MINE_NY+5,MINE_NX+6,MINE_NY+6,27 GLINE MINE_NX+3,MINE_NY+7,MINE_NX+5,MINE_NY+7,27 GPSET MINE_NX+3,MINE_NY+2,27 RETURN @N_MINE_N7 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GLINE MINE_NX+2,MINE_NY+1,MINE_NX+6,MINE_NY+1,14 GLINE MINE_NX+6,MINE_NY+2,MINE_NX+4,MINE_NY+4,14 GLINE MINE_NX+4,MINE_NY+5,MINE_NX+4,MINE_NY+7,14 GPSET MINE_NX+2,MINE_NY+2,14 RETURN @N_MINE_N8 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GLINE MINE_NX+3,MINE_NY+1,MINE_NX+5,MINE_NY+1,29 GLINE MINE_NX+2,MINE_NY+2,MINE_NX+2,MINE_NY+3,29 GLINE MINE_NX+6,MINE_NY+2,MINE_NX+6,MINE_NY+3,29 GLINE MINE_NX+3,MINE_NY+4,MINE_NX+5,MINE_NY+4,29 GLINE MINE_NX+2,MINE_NY+5,MINE_NX+2,MINE_NY+6,29 GLINE MINE_NX+6,MINE_NY+5,MINE_NX+6,MINE_NY+6,29 GLINE MINE_NX+3,MINE_NY+7,MINE_NX+5,MINE_NY+7,29 RETURN 'BOMB @N_MINE_N9 GFILL MINE_NX,MINE_NY,MINE_NX+7,MINE_NY+7,1 GFILL MINE_NX+1,MINE_NY+1,MINE_NX+7,MINE_NY+7,13 GPSET MINE_NX+2,MINE_NY+2,14 GPSET MINE_NX+3,MINE_NY+3,15 GLINE MINE_NX+2,MINE_NY+4,MINE_NX+6,MINE_NY+4,14 GLINE MINE_NX+4,MINE_NY+2,MINE_NX+4,MINE_NY+6,14 GLINE MINE_NX+3,MINE_NY+5,MINE_NX+2,MINE_NY+6,14 GLINE MINE_NX+5,MINE_NY+5,MINE_NX+6,MINE_NY+6,14 GLINE MINE_NX+6,MINE_NY+2,MINE_NX+5,MINE_NY+3,14 RETURN @N_MINE_N10 '? GOSUB @N_MINE_N0 GLINE MINE_NX+1,MINE_NY+1,MINE_NX+2,MINE_NY+0,14 GLINE MINE_NX+4,MINE_NY+1,MINE_NX+3,MINE_NY+0,14 GLINE MINE_NX+4,MINE_NY+2,MINE_NX+3,MINE_NY+3,14 GPSET MINE_NX+3,MINE_NY+5,14 RETURN @N_MINE_N12 GOSUB @N_MINE_N0 GPSET MINE_NX+2,MINE_NY+2,2 GLINE MINE_NX+3,MINE_NY+1,MINE_NX+3,MINE_NY+3,2 GLINE MINE_NX+4,MINE_NY+1,MINE_NX+4,MINE_NY+3,2 GPSET MINE_NX+4,MINE_NY+4,14 GLINE MINE_NX+3,MINE_NY+5,MINE_NX+5,MINE_NY+5,14 RETURN @N_MINE_N13 GOSUB @N_MINE_N9 GPAINT MINE_NX+1,MINE_NY+1,2 RETURN @N_MINE_N14 GOSUB @N_MINE_N9 GLINE MINE_NX+2,MINE_NY+2,MINE_NX+6,MINE_NY+6,2 GLINE MINE_NX+6,MINE_NY+2,MINE_NX+2,MINE_NY+6,2 RETURN '0=ナシ '1=1 '2=2 '8=8 '9=BOM '10=? '11=FLG '12=OPEN '13ハ゛クハツ '14フセカ゛レタ @N_MINE BF=MINE_BF GOSUB @WINBUFFP FOR I=0TO MINE_X-1 FOR J=0TO MINE_Y-1 MINE_F[I,J]=0 MINE_M[I,J]=(RND(MINE_BOM)==0)*9 MINE_BOMB=MINE_BOMB+(MINE_M[I,J]==9) MINE_NX=I*8 MINE_NY=J*8 GOSUB @N_MINE_N0 NEXT NEXT 'スウシ゛セット FOR I=0TO MINE_X-1 FOR J=0TO MINE_Y-1 IF MINE_M[I,J]==9AND I 0THEN IF MINE_M[I-1,J]!=9THEN MINE_M[I-1,J]=MINE_M[I-1,J]+1 IF MINE_M[I,J]==9AND I MINE_X-1 THEN IF MINE_M[I+1,J]!=9THEN MINE_M[I+1,J]=MINE_M[I+1,J]+1 IF MINE_M[I,J]==9AND J 0THEN IF MINE_M[I,J-1]!=9THEN MINE_M[I,J-1]=MINE_M[I,J-1]+1 IF MINE_M[I,J]==9AND J MINE_Y-1 THEN IF MINE_M[I,J+1]!=9THEN MINE_M[I,J+1]=MINE_M[I,J+1]+1 F=0 IF MINE_M[I,J]==9AND I MINE_X-1AND J 0THEN IF MINE_M[I+1,J-1]!=9THEN F=1 IF F==1THEN MINE_M[I+1,J-1]=MINE_M[I+1,J-1]+1 F=0 IF MINE_M[I,J]==9AND J MINE_Y-1AND I 0THEN IF MINE_M[I-1,J+1]!=9THEN F=1 IF F==1THEN MINE_M[I-1,J+1]=MINE_M[I-1,J+1]+1 F=0 IF MINE_M[I,J]==9AND J 0AND I 0THEN IF MINE_M[I-1,J-1]!=9THEN F=1 IF F==1THEN MINE_M[I-1,J-1]=MINE_M[I-1,J-1]+1 F=0 IF MINE_M[I,J]==9AND J MINE_Y-1AND I MINE_X-1THEN IF MINE_M[I+1,J+1]!=9THEN F=1 IF F==1THEN MINE_M[I+1,J+1]=MINE_M[I+1,J+1]+1 NEXT NEXT RETURN FOR I=0TO MINE_X-1 FOR J=0TO MINE_Y-1 MINE_NX=I*8 MINE_NY=J*8 GOSUB "@N_MINE_N"+STR$(MINE_M[I,J]) NEXT NEXT GOSUB @WINBUFFP2 RETURN @GV_MINE FOR I=0TO MINE_X-1 FOR J=0TO MINE_Y-1 MINE_NX=I*8 MINE_NY=J*8 IF MINE_M[I,J]==9THEN IF MINE_F[I,J]==-1THEN MINE_M[I,J]=14 ELSE MINE_M[I,J]=13 IF MINE_M[I,J]==0THEN MINE_M[I,J]=11 GOSUB "@N_MINE_N"+STR$(MINE_M[I,J]) NEXT NEXT RETURN @P_MINE ' IF MINE_M[MINE_PX,MINE_PY]==3THEN IF MINE_F[MINE_PX,MINE_PY]==-1THEN RETURN MINE_NX=MINE_PX*8 MINE_NY=MINE_PY*8 IF MINE_N==0THEN GOSUB @P_MINE_O RETURN IF MINE_M[MINE_PX,MINE_PY]==9THEN MINE_GV=1 IF MINE_F[MINE_PX,MINE_PY]==0THEN MINE_SPACE=MINE_SPACE-1 IF MINE_F[MINE_PX,MINE_PY]==-2THEN MINE_SPACE=MINE_SPACE-1 MINE_F[MINE_PX,MINE_PY]=1 GOSUB "@N_MINE_N"+STR$(MINE_N) RETURN @P_MINE_O P=0 MINE_OX[0]=MINE_PX MINE_OY[0]=MINE_PY @P_MINE_OL IF P==-1THEN RETURN IF MINE_M[MINE_OX[P],MINE_OY[P]]==0THEN MINE_M[MINE_OX[P],MINE_OY[P]]=11 MINE_NX=MINE_OX[P]*8 MINE_NY=MINE_OY[P]*8 GOSUB "@N_MINE_N11"'+STR$(MINE_M[MINE_OX[P],MINE_OY[P]]) IF MINE_F[MINE_OX[P],MINE_OY[P]]==0THEN MINE_SPACE=MINE_SPACE-1 IF MINE_F[MINE_OX[P],MINE_OY[P]]==-2THEN MINE_SPACE=MINE_SPACE-1 MINE_F[MINE_OX[P],MINE_OY[P]]=1 IF MINE_OX[P] 1THEN @P_MINE_OL2 G=MINE_M[MINE_OX[P]-1,MINE_OY[P]] IF MINE_F[MINE_OX[P]-1,MINE_OY[P]]==-1THEN @P_MINE_OL2 IF G==0 OR G==0 THEN MINE_OX[P+1]=MINE_OX[P]-1 MINE_OY[P+1]=MINE_OY[P]P=P+1 GOTO @P_MINE_OL F=0 IF G 0AND G 9AND MINE_F[MINE_OX[P],MINE_OY[P]]==0 THEN MINE_SPACE=MINE_SPACE-1 IF G 0AND G 9AND MINE_F[MINE_OX[P],MINE_OY[P]]==-2THEN MINE_SPACE=MINE_SPACE-1 IF G 0AND G 9 THEN MINE_NX=MINE_NX-8 GOSUB "@N_MINE_N"+STR$(G) MINE_F[MINE_OX[P]-1,MINE_OY[P]]=1 MINE_NX=MINE_OX[P]*8 MINE_NY=MINE_OY[P]*8 @P_MINE_OL2 IF MINE_OY[P] 1THEN @P_MINE_OL3 G=MINE_M[MINE_OX[P],MINE_OY[P]-1] IF MINE_F[MINE_OX[P],MINE_OY[P]-1]==-1THEN @P_MINE_OL3 IF G==0 OR G==0 THEN MINE_OX[P+1]=MINE_OX[P] MINE_OY[P+1]=MINE_OY[P]-1P=P+1 GOTO @P_MINE_OL IF G 0AND G 9AND MINE_F[MINE_OX[P],MINE_OY[P]]==0 THEN MINE_SPACE=MINE_SPACE-1 IF G 0AND G 9AND MINE_F[MINE_OX[P],MINE_OY[P]]==-2THEN MINE_SPACE=MINE_SPACE-1 IF G 0AND G 9 THEN MINE_NY=MINE_NY-8 GOSUB"@N_MINE_N"+STR$(G) MINE_F[MINE_OX[P],MINE_OY[P]-1]=1 MINE_NX=MINE_OX[P]*8 MINE_NY=MINE_OY[P]*8 @P_MINE_OL3 IF MINE_OX[P] =MINE_X-1THEN @P_MINE_OL4 G=MINE_M[MINE_OX[P]+1,MINE_OY[P]] IF MINE_F[MINE_OX[P]+1,MINE_OY[P]]==-1THEN @P_MINE_OL4 IF G==00OR G==0 THEN MINE_OX[P+1]=MINE_OX[P]+1 MINE_OY[P+1]=MINE_OY[P]P=P+1 GOTO @P_MINE_OL IF G 0AND G 9AND MINE_F[MINE_OX[P],MINE_OY[P]]==0 THEN MINE_SPACE=MINE_SPACE-1 IF G 0AND G 9AND MINE_F[MINE_OX[P],MINE_OY[P]]==-2THEN MINE_SPACE=MINE_SPACE-1 IF G 0AND G 9 THEN MINE_NX=MINE_NX+8GOSUB"@N_MINE_N"+STR$(G) MINE_F[MINE_OX[P]+1,MINE_OY[P]]=1 MINE_NX=MINE_OX[P]*8 MINE_NY=MINE_OY[P]*8 @P_MINE_OL4 IF MINE_OY[P] =MINE_Y-1THEN @P_MINE_OL5 IF MINE_F[MINE_OX[P],MINE_OY[P]+1]==-1THEN @P_MINE_OL5 G=MINE_M[MINE_OX[P],MINE_OY[P]+1] IF G==00OR G==0 THEN MINE_OX[P+1]=MINE_OX[P] MINE_OY[P+1]=MINE_OY[P]+1P=P+1 GOTO @P_MINE_OL IF G 0AND G 9AND MINE_F[MINE_OX[P],MINE_OY[P]]==0 THEN MINE_SPACE=MINE_SPACE-1 IF G 0AND G 9AND MINE_F[MINE_OX[P],MINE_OY[P]]==-2THEN MINE_SPACE=MINE_SPACE-1 IF G 0AND G 9 THEN MINE_NY=MINE_NY+8GOSUB "@N_MINE_N"+STR$(G) MINE_F[MINE_OX[P],MINE_OY[P]+1]=1 MINE_NX=MINE_OX[P]*8 MINE_NY=MINE_OY[P]*8 @P_MINE_OL5 P=P-1 GOTO @P_MINE_OL RETURN @MINEKEY KEY 1,"MINE_ END @A_MINE MINE_X=16 MINE_Y=16 MINE_SPACE=MINE_X*MINE_Y MINE_BOM=32'カクリツ DIM MINE_M[64,64] 'フラク゛マッフ゜ DIM MINE_F[64,64] DIM MINE_DX[64] DIM MINE_DY[64] DIM MINE_OX[64*64] DIM MINE_OY[64*64] MINE_=1 RETURN @SB_MINE GOSUB @WINBUFF IF BF==0THEN RETURN MINE_BF=BF RETURN @S_MINE WINCLS=1 IF MINE_F==1THEN GOSUB@WINCLOSE RETURN IF MINE_==0THEN GOSUB @A_MINE IF MINE_B==0THEN GOSUB@SB_MINE MINE_B=0 BF=MINE_BF BFC=13 GOSUB @WINBUFFGCLS GOSUB @N_MINE MINE_F=1 WINCLS=1 WINY2=MINE_Y*8+11 WINX2=MINE_X*8+3 GOSUB @WINBUFFP GBOX 0,0,MINE_X*8,MINE_Y*8,255 GOSUB @WINBUFFP2 MINE_GV=0 MINE_GV2=0 MINE_CL=0 WINTTL$="MINE RETURN @WIN_MINE GCOPY MINE_BF,0,0,MINE_X*8-1,MINE_Y*8-1,WFX,WFY,1 'GAMEOVER IF MINE_GV+MINE_CL THEN WINSX=0WINSY=0 WINSTR$="А TO RESTART"WINSC=1GOSUB@WINSTRPUT BF=MINE_BF GOSUB @WINBUFFP IF MINE_CL AND WINACTV AND BUTTON()==16AND WINFLG[TSK]==2THEN MINE_B=1MINE_F=0GOSUB@S_MINE IF MINE_CL GOTO @SKP_MINE IF MINE_GV==1 THEN BGMPLAY 6 MINE_GV=2 GOTO @SKP_MINE IF MINE_GV==100AND !MINE_GV2 THEN GOSUB@GV_MINE MINE_GV=2 MINE_GV2=1 GOTO @SKP_MINE IF MINE_GV AND WINACTV AND BUTTON()==16 AND WINFLG[TSK]==2THEN MINE_B=1MINE_F=0GOSUB@S_MINE IF MINE_GV THEN MINE_GV=MINE_GV+1 GOTO @SKP_MINE ' IF MINE_CL==1THEN BGMPLAY 5 MINE_CL=2GOTO @SKP_MINE ' IF MINE_CL THEN MINE_CL=2GOTO @SKP_MINE MINE_MX=0OR(MOUSEX-WFX)/8 MINE_MY=0OR(MOUSEY-WFY)/8 F=0 IF MINE_MX =0AND MINE_MY =0THEN F=1 IF F AND MINE_MX =MINE_X-1 AND MINE_MX =MINE_Y-1THEN MINE_MF=1 ELSE MINE_MF=0 'IF MINE_MF THEN ?MINE_M[MINE_MX,MINE_MY] IF CLICK*MINE_MF THEN MINE_PX=MINE_MX MINE_PY=MINE_MY MINE_N=MINE_M[MINE_MX,MINE_MY]GOSUB@P_MINE 'モト゛ス オエ- F=0S=0 IF CLICKR*MINE_MF THEN IF(MINE_F[MINE_MX,MINE_MY]==-2)THEN F=1 IF F==1THEN MINE_F[MINE_MX,MINE_MY]=0 MINE_NX=MINE_MX*8 MINE_NY=MINE_MY*8 GOSUB @N_MINE_N0 S=1 '? F=0 IF CLICKR*MINE_MF THEN IF(MINE_F[MINE_MX,MINE_MY]==-1)THEN F=1 IF F==1THEN GOSUB @HTN_MINE 'FLAG F=0 IF CLICKR*MINE_MF THEN IF(MINE_F[MINE_MX,MINE_MY]==0)THEN F=1 IF !S*F THEN GOSUB @FLG_MINE IF MINE_BOMB =0THEN MINE_CL=1BEEP 34 @SKP_MINE F=0 GOSUB @WINBUFFP2 RETURN @HTN_MINE IF MINE_M[MINE_MX,MINE_MY]==9THEN MINE_BOMB=MINE_BOMB+1 IF MINE_M[MINE_MX,MINE_MY]!=9THEN MINE_BOMB=MINE_BOMB-1 MINE_F[MINE_MX,MINE_MY]=-2 MINE_NX=MINE_MX*8 MINE_NY=MINE_MY*8 GOSUB @N_MINE_N10 RETURN @FLG_MINE MINE_F[MINE_MX,MINE_MY]=-1 MINE_NX=MINE_MX*8 MINE_NY=MINE_MY*8 GOSUB @N_MINE_N12 IF MINE_M[MINE_MX,MINE_MY]==9THEN MINE_BOMB=MINE_BOMB-1 IF MINE_M[MINE_MX,MINE_MY]!=9THEN MINE_BOMB=MINE_BOMB+1 RETURN @C_INV BF=INV_BF GOSUB @WINBUFFC GOSUB @WINCLOSE INV_F=0 INV_GV=0 INV_CL=0 INV_ME=0 RETURN @ST_INV BF=INV_BF GOSUB @WINBUFFP FOR I=0TO INV_EM-1 FOR J=0TO INV_EM2-1 INV_F[I,J]=0 INV_E[I,J]=1 GPUTCHR I*8+32,J*8,"BGF",ASC("Е"),0,1 NEXT NEXT GOSUB @WINBUFFP2 RETURN @A_INV INV_MX=8*8 INV_MY=4*8 INV_EM=8 INV_EM2=4 DIM INV_E[INV_EM,INV_EM2] DIM INV_F[INV_EM,INV_EM2] DIM INV_TEX[INV_EM,INV_EM2] DIM INV_TEY[INV_EM,INV_EM2] INV_A=1 RETURN @S_INV IF INV_F==1THEN RETURN INV_F=1 WINCLS=1 GOSUB @WINBUFF IF !BF THEN RETURN INV_BF=BF BFC=14 GOSUB @WINBUFFGCLS IF INV_A==0THEN GOSUB @A_INV WINX2=130 WINY2=96+10+1 @INV_INI GOSUB @ST_INV INV_SCO=0 INV_SX=32 INV_SY=0 INV_SF=0 INV_SP=1 INV_GV=0 INV_CF=0 INV_PX=64 INV_PY=96 INV_ME=INV_EM*INV_EM2 WINTTL$="INV RETURN @GV_INV IF INV_GV==1 THEN BGMPLAY 6 INV_GV=2 F=0 IF CLICK3 AND WINACTV AND WINFLG[TSK]==2THEN F=1 IF F THEN BF=INV_BF BFC=14 GOSUB@WINBUFFGCLS GOSUB@INV_INI WINSX=0WINSY=8WINSC=RND(16)WINSTR$="CLICK TO REPLAY"GOSUB @WINSTRPUT GPUTCHR INV_PX+WFX,WFY+96-8,"BGF",42,0,1 RETURN @CL_INV WINSX=0WINSY=8WINSC=0WINSTR$="CLICK TO REPLAY"GOSUB @WINSTRPUT F=0 IF CLICK3 AND WINACTV AND WINFLG[TSK]==2THEN F=1 IF F THEN BF=INV_BF BFC=14 GOSUB@WINBUFFGCLS GOSUB@INV_INI RETURN @WIN_INV GCOPY INV_BF,0,0,128,96,WFX,WFY,1 WINSX=0WINSY=0WINSC=0WINSTR$="SCORE "+STR$(INV_SCO)+"0"GOSUB@WINSTRPUT IF INV_GV THEN @GV_INV IF INV_ME =0AND !INV_CF THEN INV_CF=1BGMPLAY 4 IF INV_CF THEN @CL_INV BF=INV_BF GOSUB @WINBUFFP INV_OSX=INV_SX INV_OSY=INV_SY INV_OSF=INV_SF F=0 IF !INV_SF THEN INV_SX=INV_SX-INV_SP IF INV_SF THEN INV_SX=INV_SX+INV_SP IF INV_SX =1THEN INV_SX=1INV_SF=1 INV_SY=INV_SY+4F=1 BGMPLAY"@151Q1C8" INV_SP=INV_SP*1.2 IF INV_SX =128-64 THEN INV_SX=64INV_SF=0 INV_SY=INV_SY+4F=1 BGMPLAY"@151Q1C8" INV_SP=INV_SP*1.2 GCOPY INV_OSX,INV_OSY,INV_OSX+64,INV_OSY+INV_MY*8,INV_SX,INV_SY,1 IF INV_SF*INV_OSF THEN GFILL INV_OSX-INV_SP,INV_OSY,INV_OSX,INV_SY+INV_MX*8,14 IF (!INV_SF*!INV_OSF) THEN GFILL INV_OSX+64,INV_OSY,128,INV_SY+INV_MX*8,14 IF F THEN GFILL 0,INV_OSY,127,INV_OSY+3,14 IF INV_SY 128THEN INV_GV=1 GOSUB @WINBUFFP2 'GFILL INV_PX+WFX,WFY+96-8,WFX+INV_PX+8,WFY+96,6 GPUTCHR INV_PX+WFX,WFY+96-8,"BGF",5,0,1 B=BUTTON() IF B AND 4THEN INV_PX=INV_PX-2 IF B AND 8THEN INV_PX=INV_PX+2 TP=INV_TP F=0 G=(B AND 16)==16AND (INV_B AND 16)!=16 IF G AND !INV_TF[TP]THEN INV_TF[TP]=1 BGMPLAY"@151Q1 C" F=1 IF F THEN INV_TX[TP]=INV_PX INV_TY[TP]=96-8 INV_TP=(INV_TP+1)%5 FOR I=0TO INV_EM-1 FOR J=0TO INV_EM2-1 IF INV_E[I,J]==2OR INV_F[I,J]==1THEN @INV_SKPP IF INV_E[I,J]==0THEN @INV_SKPPP F=0 IF !RND(100)AND INV_E[I,J]==1THEN BGMPLAY"@151Q1 C"F=1INV_F[I,J]=1 IF F THEN INV_TEX[I,J]=INV_SX+I*8 INV_TEY[I,J]=INV_SY+J*8 ELSE @INV_SKPPP @INV_SKPP INV_TEY[I,J]=INV_TEY[I,J]+3 GFILL WFX+INV_TEX[I,J],WFY+INV_TEY[I,J],WFX+INV_TEX[I,J]+1,WFY+INV_TEY[I,J]+2,15 IF INV_TEY[I,J] 94THEN INV_F[I,J]=0 F=0 IF INV_TEY[I,J] =96-8AND INV_TEY[I,J] =96THEN F=1 IF F AND INV_TEX[I,J] =INV_PX AND INV_TEX[I,J] =INV_PX+8THEN INV_GV=1 @INV_SKPPP NEXT NEXT FOR I=0TO 5'INV_TP TP=I F=0 IF !INV_TF[TP]THEN @INV_SKP IF INV_TF[TP] THEN INV_TY[TP]=INV_TY[TP]-2 F=1 IF F THEN GFILL WFX+INV_TX[TP],INV_TY[TP]+WFY,INV_TX[TP]+2+WFX,INV_TY[TP]-4+WFY,15 IF INV_TF[TP]*(INV_TY[TP] 0)THEN INV_TF[TP]=0 F=0 IF INV_TX[I] =INV_SX AND INV_TX[I] =INV_SX+64AND INV_TY[I] =INV_SY AND INV_TY[I] =INV_SY+42THEN F=1 A=0OR (INV_TX[TP]-INV_SX)/8 C=0OR (INV_TY[TP]-INV_SY)/8 IF F AND A =0AND A INV_MX/8 AND C =0AND C INV_MY/8 THEN IF INV_E[A,C] 0THEN F=2 IF F==2THEN INV_ECX=A INV_ECY=C GOSUB@INV_EC INV_TF[TP]=0 INV_SCO=INV_SCO+1+(0OR INV_SP) @INV_SKP NEXT INV_B=B RETURN @INV_EC GOSUB @WINBUFFP GFILL 0OR INV_ECX*8+INV_SX,0OR INV_ECY*8+INV_SY,0OR INV_ECX*8+INV_SX+7,0OR INV_ECY*8+INV_SY+7,14 INV_E[INV_ECX,INV_ECY]=0 GOSUB @WINBUFFP2 INV_ME=INV_ME-1 RETURN @C_REV BF=REV_BF GOSUB@WINBUFFC GOSUB@WINCLOSE RETURN @D_REV GCIRCLE X*8+3,Y*8+3,3,C GCIRCLE X*8+3,Y*8+3,2,C GCIRCLE X*8+3,Y*8+3,1,C GPSET X*8+3,Y*8+3,C RETURN @P_REV GOSUB@WINBUFFP GCLS 29 FOR I=0TO 7 GLINE I*8-1,0,I*8-1,64,14 GLINE 0,I*8-1,64,I*8-1,14 NEXT FOR I=0TO 7 FOR J=0TO 7 REV_M[I,J]=0 NEXT NEXT REV_M[3,3]=1 REV_M[4,4]=1 REV_M[4,3]=2 REV_M[3,4]=2 C=2X=3Y=3GOSUB @D_REV C=2X=4Y=4GOSUB @D_REV C=4X=4Y=3GOSUB @D_REV C=4X=3Y=4GOSUB @D_REV GOSUB@WINBUFFP2 RETURN ' ('・w・`) マント゛クセ ' FOR,ハイレツナト゛ヲモチイタラ ラクニナルカモタ゛カ゛ @O_8REV X=REV_MX Y=REV_MY @OL_8REV X=X-1Y=Y+1 IF X 0 THEN RETURN IF Y 7THEN RETURN IF REV_M[X,Y]==0 THEN RETURN IF REV_M[X,Y]==REV_J THEN GOSUB@OS_8REV RETURN GOTO@OL_8REV @OS_8REV F=1 K=0 IF REV_OF==1THEN RETURN K=REV_MY D=REV_MX Z=X FOR I=Z+1 TO REV_MX-1 K=K+1 D=D-1 Y=K X=D C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J NEXT RETURN @O_7REV X=REV_MX Y=REV_MY @OL_7REV X=X+1Y=Y-1 IF X 7THEN RETURN IF Y 0 THEN RETURN IF REV_M[X,Y]==0 THEN RETURN IF REV_M[X,Y]==REV_J THEN GOSUB@OS_7REV RETURN GOTO@OL_7REV @OS_7REV F=1 K=0 IF REV_OF==1THEN RETURN K=REV_MY Z=X FOR I=REV_MX+1 TO Z-1 K=K-1 Y=K X=I C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J NEXT RETURN @O_6REV X=REV_MX Y=REV_MY @OL_6REV X=X+1Y=Y+1 IF X 7THEN RETURN IF Y 7THEN RETURN IF REV_M[X,Y]==0 THEN RETURN IF REV_M[X,Y]==REV_J THEN GOSUB@OS_6REV RETURN GOTO@OL_6REV @OS_6REV F=1 K=0 IF REV_OF==1THEN RETURN K=REV_MY Z=X FOR I=REV_MX+1 TO Z-1 K=K+1 Y=K X=I C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J NEXT RETURN @O_5REV X=REV_MX Y=REV_MY @OL_5REV X=X-1Y=Y-1 IF X 0 THEN RETURN IF Y 0 THEN RETURN IF REV_M[X,Y]==0 THEN RETURN IF REV_M[X,Y]==REV_J THEN GOSUB@OS_5REV RETURN GOTO@OL_5REV @OS_5REV F=1 K=0 IF REV_OF==1THEN RETURN K=REV_MY Z=X FOR I=REV_MX-1 TO Z+1 STEP -1 K=K-1 Y=K X=I C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J NEXT RETURN @O_4REV X=REV_MX Y=REV_MY @OL_4REV Y=Y+1IF Y 7THEN RETURN IF REV_M[X,Y]==0 THEN RETURN IF REV_M[X,Y]==REV_J THEN GOSUB@OS_4REV RETURN GOTO@OL_4REV @OS_4REV F=1 Z=Y IF REV_OF==1THEN RETURN FOR I=REV_MY+1 TO Z-1 X=REV_MX Y=I C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J NEXT RETURN @O_3REV X=REV_MX Y=REV_MY @OL_3REV X=X+1IF X 7THEN RETURN IF REV_M[X,Y]==0 THEN RETURN IF REV_M[X,Y]==REV_J THEN GOSUB@OS_3REV RETURN GOTO@OL_3REV @OS_3REV F=1 Z=X IF REV_OF==1THEN RETURN FOR I=REV_MX+1 TO Z-1 Y=REV_MY X=I C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J NEXT RETURN @O_2REV X=REV_MX Y=REV_MY @OL_2REV Y=Y-1IF Y 0 THEN RETURN IF REV_M[X,Y]==0 THEN RETURN IF REV_M[X,Y]==REV_J THEN GOSUB@OS_2REV RETURN GOTO @OL_2REV @OS_2REV F=1 Z=Y IF REV_OF==1THEN RETURN FOR I=Z+1 TO REV_MY-1 X=REV_MX Y=I C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J NEXT RETURN @O_1REV X=REV_MX Y=REV_MY @OL_1REV X=X-1 IF X 0 THEN RETURN IF REV_M[X,Y]==0 THEN RETURN IF REV_M[X,Y]==REV_J THEN GOSUB@OS_1REV RETURN GOTO @OL_1REV @OS_1REV F=1 IF REV_OF==1THEN RETURN Z=X FOR I=Z+1 TO REV_MX-1 X=I Y=REV_MY C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J NEXT RETURN @O_REV F=0 IF REV_M[REV_MX,REV_MY]!=0THEN RETURN IF REV_MX==0THEN @O_REV2 IF REV_M[REV_MX-1,REV_MY]==REV_C THEN GOSUB@O_1REV @O_REV2 IF REV_MY==0THEN @O_REV3 IF REV_M[REV_MX,REV_MY-1]==REV_C THEN GOSUB@O_2REV @O_REV3 IF REV_MX==7THEN @O_REV4 IF REV_M[REV_MX+1,REV_MY]==REV_C THEN GOSUB@O_3REV @O_REV4 IF REV_MY==7THEN @O_REV5 IF REV_M[REV_MX,REV_MY+1]==REV_C THEN GOSUB@O_4REV 'л ' ○ ' @O_REV5 IF REV_MX==0THEN @O_REV6 IF REV_MY==0THEN @O_REV6 IF REV_M[REV_MX-1,REV_MY-1]==REV_C THEN GOSUB@O_5REV @O_REV6 IF REV_MX==7THEN @O_REV7 IF REV_MY==7THEN @O_REV7 IF REV_M[REV_MX+1,REV_MY+1]==REV_C THEN GOSUB@O_6REV @O_REV7 IF REV_MX==7THEN @O_REV8 IF REV_MY==0THEN @O_REV8 IF REV_M[REV_MX+1,REV_MY-1]==REV_C THEN GOSUB@O_7REV @O_REV8 IF REV_MX==0THEN @O_REV9 IF REV_MY==7THEN @O_REV9 IF REV_M[REV_MX-1,REV_MY+1]==REV_C THEN GOSUB@O_8REV @O_REV9 REV_OF=0 RETURN @A_REV DIM REV_M[8,8] 'ハイレツセンケ゛ン DIM REV_J[8,8] 'ハイレツセンケ゛ン DIM REV_C[8,8] 'ハイレツセンケ゛ン DIM REV_D[8,8] 'ハイレツセンケ゛ン RETURN @S_REV GOSUB@WINBUFF 'ハ゛ッファカクホ IF BF==0 THEN RETURN 'エラ-ショリ REV_BF=BF BFC=29 'GCLSスルイロ GOSUB@WINBUFFGCLS WINCLS=1 '@C_ハソンサ゛イシテイマス IF REV_A==0 THEN GOSUB@A_REV REV_A=1 REV_END=0 REV_PASS=0 REV_CPASS=0 WINX2=64 WINY2=74 REV_J=1REV_JC=2REV_C=2REV_CC=4 GOSUB@P_REV WINTTL$="REV RETURN @WIN_REV BF=REV_BF GCOPY REV_BF,0,0,62,62,WFX,WFY,1 GOSUB@WINBUFFP REV_MX=0OR(MOUSEX-WFX)/8 REV_MY=0OR(MOUSEY-WFY)/8 IF REV_MX 0OR REV_MX 7OR REV_MY 0OR REV_MY 7THEN @SKP_REV F=0 ' IF REV_PASS THEN GOSUB @REV_COM REV_OKEN=0 REV_PASS=0 ' IF REV_CPASS THEN REV_CPASS=0 REV_COKEN=0 G=0 ' IF CLICKR AND REV_M[X,Y]==REV_J THEN X=REV_MX Y=REV_MY C=29 GOSUB @D_REV REV_M[X,Y]=0G=1 ' IF CLICKR AND REV_M[X,Y]==REV_C THEN X=REV_MX Y=REV_MY C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J G=1 X=REV_MX Y=REV_Y IF CLICKR AND REV_M[X,Y]==0 THEN X=REV_MX Y=REV_MY C=REV_CC GOSUB @D_REV REV_M[X,Y]=REV_C G=1 REV_J=1REV_JC=2REV_C=2REV_CC=4 IF CLICK THEN GOSUB@O_REV IF G GOTO @SKP_REV IF F THEN X=REV_MX Y=REV_MY C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J IF F THEN GOSUB@REV_COM @SKP_REV GOSUB@WINBUFFP2 RETURN @OKC_REV KKK=0 FOR I=0TO 7 FOR J=0TO 7 REV_MX=I REV_OF=1 F=0 GOSUB @O_REV REV_J[I,J]=F KKK=KKK+F NEXT NEXT REV_OKEN=!KKK RETURN @REV_COM GPAGE 0,M,M GCOPY REV_BF,0,0,62,62,WFX,WFY,1 GOSUB @OKC_REV KKK=0 KKD=0 SWAP REV_J,REV_C SWAP REV_JC,REV_CC FOR I=0TO 7 FOR J=0TO 7 REV_MX=I REV_MY=J REV_OF=1 F=0 GOSUB @O_REV REV_C[I,J]=F REV_D[I,J]=F==1AND REV_J[I,J]==1 KKK=KKK+F KKD=KKD+REV_D[I,J] NEXT NEXT REV_COKEN=!KKK GOSUB@WINBUFFP 'IF REV_COKEN THEN REV_CPASS=1 ELSE REV_CPASS=0 'IF REV_COKEN THEN SWAP REV_J,REV_C SWAP REV_JC,REV_CC RETURN @REV_COML 'GPAGE 0,M,M 'GCOPY REV_BF,0,0,62,62,WFX,WFY,1 REV_OF=0 RX=RND(8) RY=RND(8) REV_MX=RX REV_MY=RY F=0 GOSUB@O_REV IF F THEN X=REV_MX Y=REV_MY C=REV_JC GOSUB @D_REV REV_M[X,Y]=REV_J IF F THEN @REV_COM2 GOTO @REV_COML @REV_COM2 SWAP REV_J,REV_C SWAP REV_JC,REV_CC 'GPAGE 0,M,M 'GFILL WFX+X*8,WFY+Y*8,WFX+X*8+2,Y*8+2+WFY,REV_CC 'WAIT 50 GOSUB @OKC_REV IF REV_OKEN THEN REV_PASS=1ELSE REV_PASS=0 GOSUB@WINBUFFP FOR I=0TO 7 FOR J=0TO 7 X=I Y=J C=29 IF REV_M[I,J]==REV_C THEN C=REV_CC IF REV_M[I,J]==REV_J THEN C=REV_JC GOSUB @D_REV NEXT NEXT RETURN '-------SYSTEM APPLICATION----- @S_ABOUT WINX2=130 WINY2=48 WINCLS=1 WINTTL$="ABOUT @C_ABOUT RETURN @WIN_ABOUT WINSY=0 WINSX=0 WINSC=1 WINSTR$=MID$(VERSION$,0,16) GOSUB @WINSTRPUT WINSC=1 WINSY=8 WINSTR$=MID$(VERSION$,16,15) GOSUB @WINSTRPUT WINBY=16 WINBX=62-8 WINBSTR$="OK" GOSUB @WINBTN IF WINBTNF==1THEN GOSUB @WINCLOSE WINSC=1 WINSY=27 WINSX=0 WINSTR$="(C)2011-2013otya" GOSUB @WINSTRPUT RETURN 'SYSTEM ERROR @SYS_ERR_BUFF WINNAME$[TSK]="BUFF WINTTL$[TSK]="BUFF RETURN @WIN_BUFF ' WINNAME$[TSK]="SYS_ERR ' WINM[TSK]=-1 ERRN$="Out of buffer ERRT$="ハ゛ッファフ゛ソク GOSUB @WIN_SYS_ERR RETURN @C_SYS_ERR GOSUB @WINCLOSE RETURN 'ARRAY SET @A_SYS_ERR DIM OTWERRT$[TSKMAX] DIM OTWERRN$[TSKMAX] RETURN @S_SYS_ERR IF OTWERR==0THEN GOSUB @A_SYS_ERR OTWERR=1 OTWERRT$[OTWERR_M]=ERRT$ OTWERRN$[OTWERR_M]=ERRN$ WINMLT[TSK]=OTWERR_M OTWERR_M=OTWERR_M RETURN @WIN_SYS_ERR ' P=WINMLT[TSK] ' WINM[TSK]=1 WINTTL$[TSK]=ERRT$'="ハ゛ッファフ゛ソク WINY2=26+WINDEGY2+WINDEGY WINX2=LEN("Sorry, a system error")*8+WINDEGX+WINDEGX2 WINSX=0 WINSY=0 WINSC=1 WINSTR$="Sorry, a system error" GOSUB @WINSTRPUT WINSC=1 WINSY=8 WINSTR$="type "+ERRN$'Out of buff" GOSUB @WINSTRPUT WINBX=0 WINBY=16 WINBSTR$="OK" GOSUB @WINBTN IF WINBTNF==1THEN GOSUB @WINCLOSE RETURN '---コンソ-ルアフ゜リ @S_COMDBG RETURN @WIN_COMDBG WINSC=1 WINSTR$="A" GOSUB @WINSTRPUT RETURN @S_COM WINTTL$="COMMAND" COMINPUT$="@WIN_COM_INPUT WINMODE=1 WIN_MODE=1 GOSUB @WINFLAG WINCOMF=1 WINCOMX2=128+8 WINCOMY2=191-8 WINX2=128+8 WINY2=192-8 GOSUB @COMWINDOW 'WINCOMSCY=19 RETURN @WIN_COM WINDESIGN$="NORMAL WINBG=14 GOSUB @WINDOW IF !WINEND THEN WINSCX=(0OR WINSCX/8)*8 WINSCY=(0OR WINSCY/8)*8 WINCOMSX=0OR WINSCX/8WINCOMSY=0OR WINSCY/8 WFX=(0OR WFX/8)*8 WFY=(0OR WFY/8)*8 BGOFS 0,511-WFX+WINCOMSCX*8,511-WFY+WINCOM ' BGOFS WINCOMR,511-WINCOMSX*8+WINCOMSCX*8,511-WINCOMSY*8+WINCOM GOTO @COMSKP ' WX=WINCOMSX WY=WINCOMSY ' WX2=WINCOMSX+WINCOMX2 WY2=WINCOMSY+WINCOMY2 ' F=0 IF MOUSEX =WX AND MOUSEX =WX2 THEN F=1 IF F==1AND MOUSEY =WY AND MOUSEY =WY2 THEN F=2 IF F==2AND CLICK==1THEN GOSUB @WINSWP F=0 IF MOUSEX =WX AND MOUSEX =WX2 THEN F=1 IF F==1AND MOUSEY =WY AND MOUSEY =WY+8THEN F=2 IF F==2AND CLICK==1THEN WINCOMMVF=1 IF WINCOMF==0THEN @S_COM @COMSKP IF WINIDFLG==1THEN RETURN WINCOMX22=0OR WINCOMX2/8 WINCOMY22=0OR WINCOMY2/8-1 B=BUTTON() IF B==1THEN WINCOMSCY=WINCOMSCY-1 IF B==2THEN WINCOMSCY=WINCOMSCY+1 GOSUB @WINCOMSCRY IF B==4THEN WINCOMSCX=WINCOMSCX-1' GOSUB @WIN_COM_ECHO IF B==8THEN WINCOMSCX=WINCOMSCX+1' GOSUB @WIN_COM_ECHO 'IF WINCOMSCY -(SCY+FLOOR(WINCOMY2/8))THEN WINCOMSCY=-(SCY+FLOOR(WINCOMY2/8)) ' IF WINCOMSCY 63-(SCY+FLOOR(WINCOMY2/8)) THEN WINCOMSCY=63-(SCY+FLOOR(WINCOMY2/8)) ' IF WINCOMSCY -SY THEN WINCOMSCY= ' IF WINCOMSCY 21-CY THEN WINCOMSCY=21-CY ' IF SCYY =0 THEN WINCOMSCY=0 ' IF WINCOMSCY+CY 0THEN WINCOMSCY=0 ' IF WINCOMSCY 63-WINCOMY22-6 THEN WINCOMSCY=63-WINCOMY22-6 IF WINCOMSCX 0THEN WINCOMSCX=0 IF WINCOMSCX 63-WINCOMX22 THEN WINCOMSCX=63-WINCOMX22 ' IF CY (FLOOR(WINCOMY2/8))THEN WINCOMSCY=21-CY IF WINCOMMVF==1THEN GOSUB @WIN_COM_MOV ' COMCOM=COMCOM+1 ' COMP$="TST"+STR$(COMCOM) GOSUB COMPRT$ ' GFILL WINCOMSX,WINCOMSY,WINCOMX2+WINCOMSX,WINCOMY2+WINCOMSY,14 KEYFLG=KEYFLG+(WINACTV==1) I$="" IF KEYBF$!=""AND WINACTV==1THEN I$=KEYBF$ KEYBF$="" GOSUB @WIN_COM_IN RETURN @WINCOMSCRY IF WINCOMSCY CY THEN COM$[WINCOMSCY]="" RETURN @WIN_COM_INPR WIN_COM_IN$="" COMP$=COMDIR$+" " COMKF=0 GOSUB COMPRT$ RETURN @WIN_COM_IN F=0 IF INSTR(I$,CHR$(13))!=-1THEN GOSUB @WINCMDRUN WIN_COM_IN$=WIN_COM_IN$+I$ COMCOM=RND(524287)'SCY COMP$=I$'STR$(COMCOM)+","+STR$(CYY) COMKF=0 GOSUB COMPRT$ 'CY=CY-1 IF F==1THEN GOSUB COMPRT$ GOSUB @WIN_COM_INPR RETURN @WINCMDRUN I$=MID$(I$,0,INSTR(I$,CHR$(13))) F=1 ' CY=CY+1 GOSUB COMPRT$ CMD$=WIN_COM_IN$ GOSUB @CMDRUN IF CMD$[0]=="TITLE"THEN WINTTL$=CMD$[1] IF NOCMD==0THEN GOSUB CMDL$ RETURN @WIN_COM_MOV WINCOMSX=(0OR MOUSEX/8)*8 WINCOMSY=(0OR MOUSEY/8)*8 ' BGOFS 1,511-WINCOMSX,511-WINCOMSY-SCYY*8 ' BGOFS 1,511-WINCOMSX,511-WINCOMSY+SCYY*8 ' BGOFS 1,511-WINCOMSX,511-WINCOMSY+SCYY*8+WINCOMSCY*8-8 ' BGFILL 1,0,0,WINCOMX2/8,WINCOMY2/8,255,0,0,0 '?MOUSEX,MOUSEY 'GFILL 0,0,WINCOMX2,WINCOMY2,OTWBGCL IF CLICK2==0THEN WINCOMMVF=0 RETURN @COMWINDOW OTW=1 BGFILL WINCOMR,0,0,WINCOMX2/8,WINCOMY2/8,0,0,0,0 COMPRT$="@COM_ECHO ' COMP$="OTYAX-COMMAND ' GOSUB COMPRT$ ' COMP$="alpha" ' GOSUB COMPRT$ GOSUB @COM_COM ' GFILL 0,0,255,191,OTWBGCL GOSUB @WIN_COM_INPR RETURN @WIN_COM_INPUT COM_IN_B$=COM$[CY] COM_I_INK$="" COMI$="" @WIN_COM_INPUTL COM_I_INK$=INKEY$() IF COM_I_INK$==CHR$(13)THEN RETURN IF COM_I_INK$!=""THEN COMI$=COMI$+COM_I_INK$ COM$[CY]=COM_IN_B$+COMI$ COMKF=0COMP$=""GOSUB COMPRT$ GOTO @WIN_COM_INPUTL RETURN WIN_COM_IN_MX=LEN(COM$[CY]) WIN_COM_IN_X=0 WIN_COM_IN_I$="" GPAGE 0,M,M FOR WIN_COM_IN_I=0TO 1 WIN_COM_IN_I=0 WY=WINCOMSY+8+WINCOMZY*8 'GFILL WIN_COM_IN_X*8,WY,WIN_COM_IN_X*8+8,WY-1,0 IF BUTTON()==4AND WIN_COM_IN_X WIN_COM_IN_MX THEN WIN_COM_IN_X=WIN_COM_IN_X-1 IF BUTTON()==8AND WIN_COM_IN_X 32THEN WIN_COM_IN_X=WIN_COM_IN_X+1 'GFILL WIN_COM_IN_X*8,WY,WIN_COM_IN_X*8+8,WY-1,15 FOR WIN_COM_IN_J=0TO 3 WIN_COM_IN_KEY=KEYBOARD WIN_COM_IN_K$=INKEY$() IF LEN(WIN_COM_IN_K$)THEN GOSUB @WIN_COM_IN_K '?WIN_COM_IN_I$ VSYNC 1 NEXT NEXT GPAGE 0,M,!M RETURN @WIN_COM_IN_K GFILL WIN_COM_IN_X*8,WY,WIN_COM_IN_X*8+8,WY-1,0 WIN_COM_IN_I$=MID$(WIN_COM_IN_I$,0,WIN_COM_IN_X)+WIN_COM_IN_K$+MID$(WIN_COM_IN_I$,WIN_COM_IN_X,256) IF WIN_COM_IN_X 32THEN WIN_COM_IN_X=WIN_COM_IN_X+1 RETURN @WIN_COM_ECHO A=FLOOR(WINCOMX2/8+WINCOMSX/8)-1 B=FLOOR(WINCOMY2/8+WINCOMSY/8) IF A =32THEN A=31 IF B =24THEN B=23 'BGCLIP 0OR(WINCOMSX/8),0OR(WINCOMSY/8)+1,A,B A=FLOOR(WFX2/8)-1 B=FLOOR(WFY2/8) C=0OR(WFX/8) D=0OR(WFY/8) IF A 0THEN A=0 IF B 0THEN B=0 IF C 0THEN C=0 IF D 0THEN D=0 IF A 31THEN A=31 IF B 23THEN B=23 IF C 31THEN C=31 IF D 23THEN D=23 BGCLIP C,D,A,B ' CY=CY%65 SCY=CY-(0OR (WINCOMY22)) IF SCY 0THEN SCY=0 SCYY=CY-(0OR (WINCOMY22)) ' SCY=SCY%(65-FLOOR(WINCOMY22)) IF CY (FLOOR(WINCOMY22))THEN SCY=0 SCYY=0 WINCMDF=0 IF CY =63THEN WINCMDF=1 CY=63 SCY=64-WINCOMY22 'GOSUB @WIN_COM_ECHO_S SCYYY=SCYY WINCOM=(SCYY*8)+WINCOMSCY*8 IF WINCMDF==1THEN WINCOM=WINCOM+8 IF WINCMDF THEN IF COMKF==1THEN GOSUB@WINCOMBGC SCYYY=63 ELSE SCYYY=63 ' WINCOMZY=(*1)*(!WINCMDF))+(63*WINCMDF) ' COM$[(*2)+1)%64]="" FOR I=SCY TO ((SCY+FLOOR(WINCOMY22))*(!WINCMDF))+(63*WINCMDF) K=0 ' IF I =64THEN I=99999 GOTO @WIN_COM_ECHO_SKP M$=COM$[I] IF I==CY THEN WINCOMZY=I-FLOOR(((WINCOMSY+WINCOM)/8)) J=0 FOR J=0 TO 63'(WINCOMX2/8)+WINCOMSCX-1 IF MID$(M$,J,1)==""THEN BGFILL WINCOMR,J,I,63,I,32 A=0 J=64 GOTO@WINCOMECHOSKP A=ASC(MID$(M$,J,1)) BGPUT WINCOMR,J,I,A ' IF ((J+1)%32)==0THEN K=K+1 @WINCOMECHOSKP NEXT 'I=I+3 @WIN_COM_ECHO_SKP NEXT ' BGOFS WINCOMR,511-WINCOMSX*8+WINCOMSCX*8,511-WINCOMSY*8+WINCOM 'IF CY =64THEN CY=0 ' IF WINCOM =0 THEN WINCOM=0 ' GFILL WINCOMSX,WINCOMSY,WINCOMX2+WINCOMSX,WINCOMY2+WINCOMSY,14 RETURN 0 - 0=1 1 - 1=2 2 - 3 - 4 - 5 - 6 - 6=7 7 - 7 @WIN_COM_ECHO_S FOR I=0TO 62 COM$[I]=COM$[I+1] NEXT COM$[63]="" RETURN @WINCOMBGC BGCOPY WINCOMR,0,1,63,63,0,0 'COMKF=1 RETURN FOR COM_Y=1TO 63 FOR COM_X=0TO 63 BGREAD(WINCOMR,COM_X,COM_Y),S BGPUT WINCOMR,COM_X,COM_Y-1,S NEXT NEXT RETURN @COM_ECHO K=0 IF CX+LEN(COMP$) 31THEN K=1 IF CY =63AND OTW==1AND COMKF==1 THEN GOSUB @WIN_COM_ECHO_S IF CY 63THEN CY=63 CX=LEN(COM$[CY]) COM$[CY]=MID$(COM$[CY],0,CX)+COMP$ '(32*(0OR(CX/32))),(32*(0OR(CX/32))))+COMP$ ' CX=CX+LEN(COMP$) 'CX=CX+LEN(COM$[CY]) CY=CY+(COMKF==1) ' IF CY =62 THEN ELSE COM$[CY+1]="" 'CX=CX CYY=CYY+(COMKF==1) IF OTW==1THEN GOSUB @WIN_COM_ECHO COMKF=1 ' IF WINCMDF==1 AND COM_IF==0 THEN COM_IF=2 COMP$="" GOSUB COMPRT$ COM_IF=0 ' IF COM_IF==2 THEN COM_IF=1 RETURN COMP$="" RETURN 'OTYAXWINDOWMANUAL @MANUAL アフ゜リ '------------- '@S_NAME WINX2= WINY2= RETURN '@WIN_NAME RETURN '------------- '------------- '@S_NAME WIN_MODE=1GOSUB @WINFLAG WINX2= WINY2= RETURN '@WIN_NAME 'WINDESIGN$="VISUAL GOSUB @WINDOW IF WINIDFLG==1THEN RETURN RETURN '------------- @M_SAMPLE HELLO,WORLD!! @S_S_HL RETURN @WIN_S_HL WINSX=0 WINSY=0 WINSC=1 WINSTR$="Hello" GOSUB @WINSTRPUT RETURN 1LINE EDITOR @S_S_1LINE WINX2=128 WINY2=20 WINTTL$="1LINE EDITOR RETURN @WIN_S_1LINE WINTX=0 WINTY=0 WINTX2=116 WINTSX=WIN1LINEX WINTA=WIN1LINEA WINTXTP$=WIN1LINE$ GOSUB @WINTXTBOX WIN1LINE$=WINTXT$ WIN1LINEX=WINTSX WIN1LINEA=WINTA RETURN ハッカッタッノッシオ @S_S_HKT WINX2=52 WINY2=20 RETURN @WIN_S_HKT WINBX=0 WINBY=0 WINBSTR$="CLICK!" GOSUB @WINBTN IF WINBTNF THEN TALK"@T50ハ!/カ!/タ!/ノ!/@T50シ./オ! RETURN @S_S_V WIN_MODE=1 WINTTL$="ウイテル... GOSUB @WINFLAG WINX2=116 WINY2=24 RETURN @WIN_S_V WINDESIGN$="VISUAL WINBG=1 GOSUB @WINDOW IF WINIDFLG==1THEN RETURN WINSX=0 WINSY=0 WINSC=0 WINSTR$="タタ゛シNORMALニカキ゛ル GOSUB @WINSTRPUT RETURN @M_API @MWINSTRPUT WINSX=サ゛ヒョウ WINSY=サ゛ヒョウ WINSC=ハ゜レット WINSTR$=モシ゛ -ナシ @MWINBTN WINBX=サ゛ WINBY=サ WINBSTR$=モシ゛ - WINBTNF=オサレタカ @MWINPROGBAR WINPX,WINPY,WINPX2,WINPY2 WINPS=サイタ゛イ @MWINCHKBOX WINCX,WINCY WINCSTR$= WINCHKF=オサレテイルカ WINCHKF=オサレタカ @T @TEMPLATE DATA"@C_{N} DATA" GOSUB@WINCLOSE DATA"RETURN DATA"@S_{N} DATA" WINX2={X2} DATA" WINY2={Y2} DATA"RETURN DATA"@WIN_{N} DATA"RETURN DATA END @TEMPLATE2 ACLS CLEAR DATA"@C_{N} DATA" BF={N}_BF DATA" GOSUB@WINBUFFC DATA" GOSUB@WINCLOSE DATA"RETURN DATA"@A_{N} DATA" {DIM} DATA"'DIM 'ハイレツセンケ゛ン DATA"RETURN DATA"@S_{N} DATA" GOSUB@WINBUFF 'ハ゛ッファカクホ DATA" IF BF==0 THEN RETURN 'エラ-ショリ DATA" {N}_BF=BF DATA" BFC=15 'GCLSスルイロ DATA" GOSUB@WINBUFFGCLS DATA" WINCLS=1 '@C_ハソンサ゛イシテイマス DATA" IF {N}_A==0 THEN GOSUB@A_{N} DATA" {N}_A=1 DATA" WINX2={X2} DATA" WINY2={Y2} DATA"RETURN DATA"@WIN_{N} DATA" GCOPY {N}_BF,0,0,WFX-WINSCX,WFY-WINSCY,WFX,WFY DATA" GOSUB@WINBUFFP DATA" GOSUB@WINBUFFP2 DATA"RETURN DATA END DIM VARN$[256] DIM VAR$[256] LBL$="@TEMPLATE2 @TEMPLATECOM INPUT"NAME?(VARSET→V,PREV→P,LABEL→@)";N$ IF N$=="V"THEN GOTO@TEMPLATEVARSET IF N$=="P"THEN GOTO@TEMPLATEP IF N$=="@"THEN INPUT"LABEL(NOT @)";L$ LBL$="@"+L$ GOTO@TEMPLATECOM RESTORE LBL$ VARN$[0]="N" VAR$[0]=N$ J=0 FOR I=0TO 1 READ R$ IF R$!="END"THEN I=0 GOSUB@TEMPLATECHK NEXT FOR I=1TO F+1 KEY I,F$[I-1] NEXT END @TEMPLATECHK GOSUB @TEMPLATEVAR IF LEN(R$)+1+LEN(F$[F]) 255THEN F=F+1 L=L+1 ?L*10" "R$ F$[F]=F$[F]+R$+CHR$(13) RETURN @TEMPLATEVAR SX=-1 FOR J=0TO LEN(R$)-1 IF MID$(R$,J,1)=="{"AND SX==-1THEN SX=J+1 IF MID$(R$,J,1)=="}"AND SX -1THEN EX=J-1 GOSUB@TEMPLATEVAR2 SX=-1 EX=-1 NEXT RETURN @TEMPLATEVAR2 VN$=MID$(R$,SX,EX-SX+1) FOR K=0TO 255 IF VARN$[K]==VN$THEN R$=MID$(R$,0,(SX-1 =0)*(SX-1))+VAR$[K]+MID$(R$,EX+2,256) NEXT RETURN @TEMPLATEVARSET LINPUT"VARNAME?(RETURN→RT)";VN$ IF VN$=="RT"THEN GOTO @TEMPLATECOM LINPUT"VALUE?";VL$ V=V+1 VARN$[V]=VN$ VAR$[V]=VL$ GOTO @TEMPLATEVARSET @TEMPLATEP RESTORE LBL$ FOR I=0TO 1 READ R$ IF R$!="END"THEN I=0GOSUB@TEMPLATEVAR ?R$ NEXT RESTORE LBL$ GOTO@TEMPLATECOM @C_HTN GOSUB@WINCLOSE TALK "ウワアアアトシ゛ルナアアア RETURN @S_HTN WINCLS=1 WINX2=128 WINY2=128 WINTTL$="Hello,[[OTYAX]]" HTN_F=0 HTN_X=0 WINMLT[TSK]=HTN_I HTN_I=(HTN_I+1)%10 RETURN @WIN_HTN I=WINMLT[TSK] WINSX=HTN_X[I] WINSY=0 WINSC=1 WINSTR$="Hello,World!!"*!HTN_F[I]+"hatenahageta"*HTN_F[I] GOSUB @WINSTRPUT HTN_X[I]=(HTN_X[I]+1)%128 WINBX=8 WINBY=8 WINBSTR$="hatena" GOSUB @WINBTN IF WINBTNF THEN HTN_F[I]=1 WINEXE$="HTN" GOSUB @WINEXE RETURN @C_HTNP BF=HTNP_BF GOSUB@WINBUFFC GOSUB @WINCLOSE RETURN @S_HTNP WINX2=130 WINY2=107+8 WINCLS=1 GOSUB @WINBUFF IF !BF THEN RETURN HTNP_BF=BF HTNP_C=0 HTNP_P=0 BFC=15 GOSUB @WINBUFFGCLS WINTTL$="HNPAINT" RETURN @WIN_HTNP7 IF CLICK3 THEN GCLS HTNP_CL RETURN @WIN_HTNP6 IF CLICK THEN HTNP_X=MOUSEX-WFX HTNP_Y=MOUSEY-WFY F=0 IF CLICK2 THEN GOSUB@WINBUFFP2 GCIRCLE HTNP_X+WFX,HTNP_Y+WFY,MOUSEX-HTNP_X-WFX,HTNP_CL IF F THEN GOSUB@WINBUFFP IF CLICK3 THEN GCIRCLE HTNP_X,HTNP_Y,MOUSEX-HTNP_X-WFX,HTNP_CL RETURN @WIN_HTNP5 IF CLICK THEN HTNP_X=MOUSEX-WFX HTNP_Y=MOUSEY-WFY F=0IF CLICK2 THEN GOSUB@WINBUFFP2 GFILL HTNP_X+WFX,HTNP_Y+WFY,MOUSEX,MOUSEY,HTNP_C+HTNP_P*16 IF F THEN GOSUB@WINBUFFP IF CLICK3 THEN GFILL HTNP_X,HTNP_Y,MOUSEX-WFX,MOUSEY-WFY,HTNP_C+HTNP_P*16 RETURN @WIN_HTNP4 IF CLICK THEN HTNP_X=MOUSEX-WFX HTNP_Y=MOUSEY-WFY F=0IF CLICK2 THEN GOSUB@WINBUFFP2 GBOX HTNP_X+WFX,HTNP_Y+WFY,MOUSEX,MOUSEY,HTNP_C+HTNP_P*16 IF F THEN GOSUB@WINBUFFP IF CLICK3 THEN GBOX HTNP_X,HTNP_Y,MOUSEX-WFX,MOUSEY-WFY,HTNP_C+HTNP_P*16 RETURN @WIN_HTNP3 IF CLICK3 THEN GPAINT MOUSEX-WFX,MOUSEY-WFY,HTNP_CL RETURN @WIN_HTNP2 IF CLICK THEN HTNP_X=MOUSEX-WFX HTNP_Y=MOUSEY-WFY F=0IF CLICK2 THEN GOSUB@WINBUFFP2 GLINE HTNP_X+WFX,HTNP_Y+WFY,MOUSEX,MOUSEY,HTNP_C+HTNP_P*16 IF F THEN GOSUB@WINBUFFP IF CLICK3 THEN GLINE HTNP_X,HTNP_Y,MOUSEX-WFX,MOUSEY-WFY,HTNP_C+HTNP_P*16 RETURN @WIN_HTNP1 IF CLICK THEN HTNP_X=MOUSEX-WFX HTNP_Y=MOUSEY-WFY FOR I=1TO CLICK2==1 GLINE HTNP_X,HTNP_Y,MOUSEX-WFX,MOUSEY-WFY,HTNP_C+HTNP_P*16 NEXT IF CLICK2 THEN HTNP_X=MOUSEX-WFX HTNP_Y=MOUSEY-WFY RETURN @WIN_HTNP BF=HTNP_BF HTNP_CL=HTNP_C+HTNP_P*16 GCOPY BF,0,0,120,88,WFX,WFY,1 GOSUB@WINBUFFP F=0 IF MOUSEX =WFX AND MOUSEX =WFX+120 THEN F=1 IF F==1AND MOUSEY =WFY AND MOUSEY =WFY+88THEN F=2 IF F!=2 THEN @HTNP_S ON HTNP_M GOSUB @WIN_HTNP1,@WIN_HTNP2,@WIN_HTNP3,@WIN_HTNP4,@WIN_HTNP5,@WIN_HTNP6,@WIN_HTNP7 @HTNP_S GOSUB@WINBUFFP2 FOR I=0TO 15 GFILL WFX+I*8,WFY+88,WFX+I*8+8,WFY+96,I+16*HTNP_P NEXT GBOX WFX-1,WFY-1,WFX+120,WFY+88,14 GBOX WFX+HTNP_C*8,WFY+88,WFX+HTNP_C*8+8,WFY+96,14 F=0 IF MOUSEX =WFX AND MOUSEX =WFX2 THEN F=1 IF F==1AND MOUSEY =WFY+88AND MOUSEY =WFY+96 THEN F=2 IF F==2AND CLICK THEN HTNP_C=0OR(MOUSEX-WFX)/8 WINSTR$="0123456789ABCDEF" WINSX=0 WINSY=97 WINSC=1 GOSUB @WINSTRPUT F=0 IF MOUSEX =WFX AND MOUSEX =WFX2 THEN F=1 IF F==1AND MOUSEY =WFY+96AND MOUSEY =WFY+104THEN F=2 IF F==2AND CLICK THEN HTNP_P=0OR(MOUSEX-WFX)/8 GBOX WFX+HTNP_P*8,WFY+96,WFX+HTNP_P*8+8,WFY+104,14 WINBX=120 WINBY=0 WINBSTR$="→" GOSUB @WINBTN F=0 IF WINBTNF==1THEN HTNP_PL=!HTNP_PL IF HTNP_PL==1THEN @HTNP_M RETURN @HTNP_M WINMX=128 WINMX2=128+64 WINMY=8 WINMK=HTNP_MK WINMKS=HTNP_MKS WINMMAX=6 WINM$[0]="PSET WINM$[1]="LINE WINM$[2]="PAINT WINM$[3]="BOX WINM$[4]="FILL WINM$[5]="CIRCLE WINM$[6]="GCLS GOSUB @WINMENU2 HTNP_MK=WINMK HTNP_MKS=WINMKS IF WINM!=-1AND CLICK AND HTNP_MK==0THEN HTNP_M=WINM RETURN @S_WWWW RETURN @WIN_WWWW WINEXE$="MAC IF WINACTV THEN GOSUB @WINEXE RETURN @S_HAHAHA HAHAHAL$="CコCヤCツEメAハAハAR8ハDコDヤDツFメGハGハGR4ハGハGハG#ハAコAヤAツG#メG2ハB2ハC1ハ HAHAHAX=0 WINY2=74 WINTTL$="コヤツメ RETURN @WIN_HAHAHA IF BGMCHK(2)==0THEN @WIN_HAHAHAS GPUTCHR WFX,WFY,"BGF",ASC(HEHEHE$),1,8 RETURN @WIN_HAHAHAS IF HAHAHAX =LEN(HAHAHAL$) THEN HAHAHAX=0 HAHAHAM$="" J=HAHAHAX D=0 FOR I=J TO LEN(HAHAHAL$)-1 M$=MID$(HAHAHAL$,I,1) IF ASC(M$) =ASC("ヲ") AND ASC(M$) =ASC("ン")THEN I=999 HEHEHE$=M$ ELSE HAHAHAM$=HAHAHAM$+M$ NEXT HAHAHAX=HAHAHAX+LEN(HAHAHAM$)+1 BGMSET 128,HAHAHAM$ BGMPLAY 2,128 RETURN @S_POKOPOKO WINX2=170 WINTTL$="POKOPOKO IF POKOF==0THEN DIM POKOE[5] POKOTM=1024 POKOTTL=1 RETURN TTLロシ゛ック @TTL_POKOPOKO WINSX=0WINSY=0WINSC=1 WINSTR$="ЖPOKOPOKOЁ GOSUB @WINSTRPUT WINSX=0WINSY=8WINSC=1 WINSTR$="SCORE Ж+10,И+20,г-10 GOSUB @WINSTRPUT WINSX=0WINSY=16WINSC=1 WINSTR$="TIME Р+10 GOSUB @WINSTRPUT WINSX=0WINSY=24 WINSTR$="CLICK TO START" WINSC=RND(16) GOSUB @WINSTRPUT IF MOUSEX =WFX AND MOUSEX =WFX2 AND MOUSEY =WFY AND MOUSEY =WFY2 AND CLICK THEN POKOTTL=0 RETURN @WIN_POKOPOKO IF POKOTTL THEN @TTL_POKOPOKO 'アナ FOR I=0TO 4 GCIRCLE WFX+8+16+I*32,WFY+16+16,16,9 NEXT WINSX=0WINSY=0WINSC=1WINSTR$="SCORE "+STR$(POKOS)+"0TIME "+STR$(POKOT)GOSUB @WINSTRPUT IF POKOE THEN WINSX=0WINSY=8WINSC=1WINSTR$="TIME UP нCLICK TO RESTART"GOSUB @WINSTRPUT IF POKOE THEN IF CLICKR AND WINACTV THEN POKOE=0POKOS=0POKOT=0 ELSE RETURN 'IFノラレツ・・・ シ゛ツニキタナイ FOR I=0TO 4 IF POKOE[I]==0AND RND(100)==0THEN POKOE[I]=1 POKOT[I]=POKOT+10 R=RND(200) IF POKOE[I]==0AND R==1THEN POKOE[I]=2 POKOT[I]=POKOT+10 IF POKOE[I]==0AND R==2THEN POKOE[I]=4 POKOT[I]=POKOT+10 IF POKOE[I]==0AND R==0THEN POKOE[I]=3 POKOT[I]=POKOT+10 IF POKOE[I]==1THEN GPUTCHR WFX+8+32*I+8,WFY+16,"BGF",ASC("Ж"),1,4 IF POKOE[I]==2THEN GPUTCHR WFX+8+32*I+8,WFY+16,"BGF",ASC("И"),1,4 IF POKOE[I]==3THEN GPUTCHR WFX+8+32*I+8,WFY+16,"BGF",ASC("г"),1,4 IF POKOE[I]==4THEN GPUTCHR WFX+8+32*I+8,WFY+16,"BGF",ASC("Р"),1,4 F=0 IF MOUSEX =WFX+16+32*I AND MOUSEX =WFX+48+32*I THEN F=1 IF F==1AND MOUSEY =WFY+16 AND MOUSEY =WFY+48 THEN F=2 IF F==2AND CLICK AND POKOE[I]==1THEN BEEP 3 POKOE[I]=0 POKOS=POKOS+1 IF F==2AND CLICK AND POKOE[I]==2THEN BEEP 5 POKOE[I]=0 POKOS=POKOS+2 IF F==2AND CLICK AND POKOE[I]==4THEN BEEP 15 POKOE[I]=0 POKOT=POKOT-10 IF F==2AND CLICK AND POKOE[I]==3THEN BEEP 14 POKOE[I]=0 POKOS=POKOS-1 IF POKOE[I]==3AND POKOT POKOT[I] THEN POKOE[I]=0 IF POKOE[I]==2AND POKOT POKOT[I] THEN POKOE[I]=0 IF POKOE[I]==1AND POKOT POKOT[I] THEN POKOE[I]=0 IF POKOE[I]==0AND POKOT POKOT[I] THEN POKOE[I]=0 NEXT IF POKOT 0THEN POKOT=0 POKOT=POKOT+1 IF POKOT =POKOTM THEN POKOE=1 RETURN @S_SCRBAR K=32 DIM SCRBART$[K] SCRBART$[0]="アホ"SCRBART$[1]="タ゛ナ"SCRBART$[2]="テ゛ス"SCRBART$[3]="マア"SCRBART$[4]="コケコッコ" SCRBART$[5]="ホレホレ"SCRBART$[6]="ト゛ス"SCRBART$[7]="コンニチハ"SCRBART$[8]="フ゜チコン"SCRBART$[9]="ホ゛-ン" SCRBART$[10]="フフフ"SCRBART$[11]="ニヤリ"SCRBART$[12]="ケ゛ロ"SCRBART$[13]="ネコ"SCRBART$[14]="セイコウ" SCRBART$[15]="シッハ゜イ"SCRBART$[16]="セイミツ"SCRBART$[17]="キク゛"SCRBART$[18]="ケケケ"SCRBART$[19]="コショウ" SCRBART$[20]="ウソ"SCRBART$[21]="テ゛ス"SCRBART$[22]="YOU!"SCRBART$[23]="ムムム"SCRBART$[24]="OTYAX" SCRBART$[25]="フヘフヘ"SCRBART$[26]="ワン"SCRBART$[27]="ワイン"SCRBART$[28]="アア"SCRBART$[29]="テレレレレ" SCRBART$[30]="ミカン"SCRBART$[31]="セフ" SCRBAR$="ナ-カ゛カ゛カ゛スコ゛クナカ゛イシコシユフヤヤヤテコホヤロ ヒネホ" DIM SCRBAR$[24] FOR I=0TO 23 FOR J=0TO LEN(SCRBAR$)-1 ' SCRBAR$[I]=SCRBAR$[I]+CHR$(RND(62)+161) SCRBAR$[I]=SCRBAR$[I]+SCRBART$[RND(K)]'CHR$(RND(62)+161) J=LEN(SCRBAR$[I]) NEXT NEXT RETURN @WIN_SCRBAR WINBX=62-8 WINBY=0 WINBY2=52-8 WINBM=(24-5)*8 WINBX2=SCRBAR_X2 GOSUB @WINSCRBARY SCRBAR_X2=WINBX2 WINBX=0 WINBX2=62-8 WINBY=52-8 WINBM=LEN(SCRBAR$)*8-56 WINBY2=SCRBAR_Y2 GOSUB @WINSCRBARX SCRBAR_Y2=WINBY2 FOR I=0TO 4 WINSX=0 WINSY=I*8 WINSC=1 WINSTR$=MID$(SCRBAR$[I+SCRBAR_X2/8],WINBY2/8,7) GOSUB @WINSTRPUT NEXT RETURN @COM_HTN COMKF=0 COMP$="AHO"GOSUB COMPRT$ RETURN @S_TSKF WINY2=96 WINX2=64+16 RETURN @WIN_TSKF IF RND(1000)THEN GOSUB@TSKMAX WTSKFTI=TSKM FOR I=WINTSKFYY TO WTSKFTI-1 WINSX=0WINSY=(I-(WINTSKFYY))*8WINSC=1 WINSTR$=MID$(WINNAME$[I]+" "+STR$(TSKF[I]),WINTSKFXX,8) GOSUB @WINSTRPUT NEXT WINBX=64-10+16 WINBY=0 WINBY2=86-10 WINBX2=WINTSKFY WINBM=TSKMAX*8 GOSUB @WINSCRBARY WINTSKFY=WINBX2 WINTSKFYY=0OR WINBX2/8 WINBX=0 WINBX2=64-10+16 WINBY=84-8 WINBM=15*8 WINBY2=WINTSKFX GOSUB @WINSCRBARX WINTSKFX=WINBY2 WINTSKFXX=0OR WINTSKFX/8 RETURN @S_BG WINY2=43 WINTTL$="BG" RETURN @WIN_BG GFILL WFX,WFY,WFX2,WFY2,WIN_BG_CL WINN=WIN_BG_CL WINNX=0 WINNY=0 WINNY2=32 WINNX2=32 WINNM=255 ' WINNSP=0.5 GOSUB @WINNUMUPDWN WIN_BG_CL=WINN WINBX=33 WINBY=0 WINBSTR$="OK" GOSUB @WINBTN IF WINBTNF THEN OTWBGCL=WINN RETURN @S_HELP WINCLS=1 WINTTL$="HELP" WINX2=90 WINY2=86 RETURN @WIN_HELP ON HELP_M GOTO @WIN_HELP1,@WIN_HELP2,@WIN_HELP3 @WIN_HELP1 WINLBLX=0 WINLBLY=0 WINLBL$="アフ゜リノキト゛ウ" GOSUB@WINLNKLBL IF WINLBLF THEN HELP_M=1 GOSUB@DIC_HELP1 WINLBLX=0 WINLBLY=8 WINLBL$="システムエラ-" GOSUB@WINLNKLBL IF WINLBLF THEN HELP_M=2 GOSUB@DIC_HELP2 RETURN @WIN_HELP3 WINBX2=WIN_HELP_X WINBM=8WINBX2=WIN_HELP_X2 GOSUB @SCR_HELP WIN_HELP_X2=WINBX2 WINBM=68 WINBY2=WIN_HELP_Y2 GOSUB@SCR_HELPX WIN_HELP_Y2=WINBY2 WINLBLX=0 WINLBLY=0 WINLBL$="TOP" GOSUB@WINLNKLBL IF WINLBLF THEN HELP_M=0 FOR I=0TO 6 WINSX=0 WINSY=I*8+8 WINSC=1 WINSTR$=MID$(HELP_DIC$[I+WIN_HELP_X2/4],WINBY2/4,10) GOSUB@WINSTRPUT NEXT RETURN @WIN_HELP2 WINLBLX=0 WINLBLY=0 WINLBL$="TOP" GOSUB@WINLNKLBL IF WINLBLF THEN HELP_M=0 WINBY2=WIN_HELP_Y2 WINBM=60 GOSUB @SCR_HELPX WIN_HELP_Y2=WINBY2 FOR I=0TO 3 WINSX=0 WINSY=I*8+8 WINSC=1 WINSTR$=MID$(HELP_DIC$[I],WINBY2/4,12) GOSUB@WINSTRPUT NEXT RETURN @DIC_HELP1 HELP_DIC$[0]="RUNノテキストホ゛ックスニアフ゜リメイヲ HELP_DIC$[1]="ニュウリョクシテ[RUN]ヲクリックスレハ゛ HELP_DIC$[2]="キト゛ウシマス。 HELP_DIC$[3]="*ソンサ゛イシナイハ゛アイハエラ-カ゛テ゛マス。 RETURN @DIC_HELP2 HELP_DIC$[0]="SYSTEMERROR HELP_DIC$[1]="Out of buffer HELP_DIC$[2]="ハ゛ッファフ゛ソクテ゛ス。 HELP_DIC$[3]="" HELP_DIC$[4]="ハ゛ッファハサイタ゛イ2ツマテ゛テ゛ HELP_DIC$[5]="アフ゜リカ゛イシ゛ョウシュウリョウシタトキニモテ゛ル HELP_DIC$[6]="ハ゛アイモアリマス。 HELP_DIC$[7]="" HELP_DIC$[8]="ナオラナイハ゛アイハサイキト゛ウシテクタ゛サイ。 RETURN @SCR_HELPX WINBX=0 WINBX2=WINX2-WINDEGX2-WINDEGX WINBY=WINY2-WINDEGY-WINDEGY2-8 GOSUB @WINSCRBARX RETURN @SCR_HELP WINBX=WINX2-WINDEGX2-WINDEGX-8 WINBY=WINY'+WINDEGY WINBY2=WINY2-WINDEGY-WINDEGY2-8 GOSUB @WINSCRBARY RETURN @C_HELP WIN_HELP_Y2=0 WIN_HELP_X2=0 GOSUB@WINCLOSE RETURN 'MEMO ケンサクシテオキカエメント゛ウ ии VS ウ゛ワ゛ワ゛ワ゛ワ゛ゥ-ン ャヘ゛ンテ゛-フ゛ ホ゛ッカ゛カ゛キ゛ 'ййййййййййййййй йййййййййййййН---*---М= 'з з з к タケヤフ゛ 'зNOMAL- NORMAL з зキト゛ウシテイルタスクノカス゛ л??????? 'зDEGIN$- DESIGN$ з @TSKMAXТТТТТТ Сж СССУ 'з з зТТТТТТТТТТТТТТк лЁ ラフ゛レタ-カ゛ ヤフ゛ テ゛ ヤフ゛レタ- 'зシテキ hatema з зТТカンリョТТТТТТТТл и )ССУ _ ? 'з カンリョ- з зТТТТТТТТТТТТТТ л !!ССй _/ж ж '┥ййййййййййййййз ┥йййййййййййййййк жжжж жж @EOF лワハハハハハハ/ '[EOF] Е Е Е Е Е ─┬─│ │┌─ END ┌─┐С ┌ │ ├─┤├─ │ │С ├ILE │ │ │└─ └─┘ йййййй з и кサ-ト゛ハ゜-ティ-ノアフ゜リテ゛ス и ┬ ┬ зл | | з з ─ и ノッタ ヨッタ ウィ- ヨット テ゛ フナヨイ и з HATENAHATENA з и HATENAHATENA |_й__йй| HATENAHATENA '┸жжжжжжжжжжжжжжжжжжжжжжжжж┥ 'зMOUSE SCALE for OTYAX и 'з и 'з MSS by hatenaи '┰ййййййййййййййййййййййййй┝ @S_MSS WINCLS=1 WIN_MODE=1 WINX2=177 WINY2=32 SPREAD(0),MSS_X,MSS_Y,MSS_A,MSS_S,MSS_C MSS_S=FLOOR(MSS_S) WINTTL$="Mouse Scale - "+STR$(MSS_S)+"%" RETURN @WIN_MSS WIN_MODE=1 MSS_S=FLOOR(MSS_S) WINTTL$="Mouse Scale - "+STR$(MSS_S)+"%" WINTTL$[TSK]=WINTTL$ GOSUB@WINDOW IF WINIDFLG THEN RETURN WINSX=32 WINSY=1 WINSC=1 WINSTR$="マウスノオオキサヲカエマス。" GOSUB@WINSTRPUT WINBX=0 WINBY=10 WINBSTR$="60%" GOSUB@WINBTN FOR I=1 TO !!(WINBTNF) MSS_S=60 SPSCALE 0,MSS_S,0 NEXT WINBX=29 WINBY=10 WINBSTR$="SMALL" GOSUB@WINBTN FOR I=1 TO !!(WINBTNF) MSS_S=MSS_S-20 MSS_S=FLOOR(MSS_S) IF MSS_S 60 THEN MSS_S=60 SPSCALE 0,MSS_S,0 NEXT WINBX=74 WINBY=10 WINBSTR$="100%" GOSUB@WINBTN FOR I=1 TO !!(WINBTNF) MSS_S=100 SPSCALE 0,MSS_S,0 NEXT WINBX=111 WINBY=10 WINBSTR$="BIG" GOSUB@WINBTN FOR I=1 TO !!(WINBTNF) MSS_S=MSS_S+20 MSS_S=FLOOR(MSS_S) IF MSS_S 200 THEN MSS_S=200 SPSCALE 0,MSS_S,0 NEXT WINBX=140 WINBY=10 WINBSTR$="200%" GOSUB@WINBTN FOR I=1 TO !!(WINBTNF) MSS_S=200 SPSCALE 0,MSS_S,0 NEXT RETURN @C_MSS GOSUB@WINCLOSE RETURN '┸жжжжжжжжжжжжжжжжжжжжжжжжж┥ 'зネス゛ミクシ゛ョケ゛-ム и 'з и 'з NZM by hatenaи '┰ййййййййййййййййййййййййй┝ @S_NZM WINCLS=1 WINMODE=0 WINX2=48 WINY2=58 WINTTL$="ネス゛ミ" BF=0 GOSUB @WINBUFF IF BF==0 THEN GOSUB@SYS_ERR_BUFF RETURN NZM_BF=BF BFC=0 GOSUB@WINBUFFGCLS RETURN @WIN_NZM WINBX=9 WINBY=36 WINBSTR$="BOM" GOSUB@WINBTN NZM_F=!!WINBTNF GCOPY NZM_BF,0,0,46,36,WFX,WFY,1 BF=NZM_BF GOSUB @WINBUFFP GPSET RND(47),RND(36),13 IF NZM_F THEN GFILL 0,0,46,36,0 GOSUB @WINBUFFP2 RETURN @C_NZM BF=NZM_BF GOSUB@WINBUFFC GOSUB@WINCLOSE RETURN '┸жжжжжжжжжжжжжжжжжжжжжжжжж┥ 'зWindowMoveMode и 'з и 'з WMM by hatenaи '┰ййййййййййййййййййййййййй┝ @S_WMM WINCLS=1 WINMODE=0 WINX2=100 WINY2=68 WINTTL$="WindowMM" RETURN @WIN_WMM WINSX=2 WINSY=3 WINSC=1 WINSTR$=" イト゛ウモ-ト゛ " GOSUB@WINSTRPUT WINSX=82 WINSY=3 WINSC=11 WINSTR$=STR$(WINMOVMODE) GOSUB@WINSTRPUT WINSX=14 WINSY=22 WINSC=1 WINSTR$="スヘ゛テイト゛ウ" GOSUB@WINSTRPUT WINSX=14 WINSY=34 WINSC=1 WINSTR$="クロワクノミイト゛ウ" GOSUB@WINSTRPUT WINSX=14 WINSY=46 WINSC=13 WINSTR$="キモクイト゛ウ" GOSUB@WINSTRPUT WINBX=2 WINBY=20 WINBSTR$="0" GOSUB@WINBTN IF WINBTNF THEN WINMOVMODE=0 WINBX=2 WINBY=32 WINBSTR$="1" GOSUB@WINBTN IF WINBTNF THEN WINMOVMODE=1 WINBX=2 WINBY=44 WINBSTR$="2" GOSUB@WINBTN IF WINBTNF THEN WINMOVMODE=2 RETURN @C_WMM GOSUB@WINCLOSE RETURN '┸жжжжжжжжжжжжжжжжжжжжжжжжж┥ 'зTask Manager и 'з и 'з TMNG by hatenaи '┰ййййййййййййййййййййййййй┝ @S_TMNG WINCLS=0 WIN_MODE=0 WINX2=191 WINTTL$="Taskmgr" TMNG_SC=0 TMNG_BXC=1 RETURN @WIN_TMNG TMNG_T=0 TMNG_SL=64 TMNG_L=7 FOR TMNG_I=0 TO TSKMAX-1 TMNG_T=TMNG_T+!!(WINFLG[TMNG_I]!=0) NEXT FOR TMNG_CI=1 TO TMNG_BXC WINSX=2 WINSY=2 WINSC=1 WINSTR$="Target " GOSUB@WINSTRPUT WINSX=58 WINSY=2 WINSC=11 WINSTR$=STR$(TMNG_SC) GOSUB@WINSTRPUT WINSX=2 WINSY=11 WINSC=11 WINSTR$=WINTTL$[TMNG_SC] GOSUB@WINSTRPUT WINSX=2 WINSY=20 WINSC=1 WINSTR$="Name " GOSUB@WINSTRPUT WINSX=42 WINSY=20 WINSC=11 WINSTR$=WINNAME$[TMNG_SC] GOSUB@WINSTRPUT WINBX=2 WINBY=28 WINBSTR$="Compact" GOSUB@WINBTN IF WINBTNF THEN TMNG_BXC=0 WINBX=2 WINBY=40 WINBSTR$="RUN.OTW" GOSUB@WINBTN IF WINBTNF THEN WINEXE$="RUN" GOSUB@WINEXE WINBX=2 WINBY=52 WINBSTR$="Close" GOSUB@WINBTN IF WINBTNF THEN TSK=TMNG_SC GOSUB@WINCLOSEGT NEXT FOR TMNG_CI=1 TO !(TMNG_BXC) WINBX=2 WINBY=1 WINBSTR$="Resize" GOSUB@WINBTN IF WINBTNF THEN TMNG_BXC=1 TMNG_SL=13 NEXT FOR TMNG_I=0 TO TMNG_T-1 WINBX=2 WINBY=TMNG_I*12+TMNG_SL WINBSTR$=STR$(TMNG_I) GOSUB@WINBTN IF WINBTNF THEN TMNG_SC=TMNG_I WINSX=14 WINSY=TMNG_I*12+TMNG_SL+2 WINSC=1 IF LEN(STR$(TMNG_I))==2 THEN WINSX=WINSX+8 WINSTR$=WINTTL$[TMNG_I] IF LEN(WINTTL$[TMNG_I]) TMNG_L THEN TMNG_L=LEN(WINTTL$[TMNG_I]) GOSUB@WINSTRPUT NEXT WINY2=TMNG_SL+12+TMNG_T*12 WINX2=16+TMNG_L*8 RETURN @C_TMNG GOSUB@WINCLOSE RETURN '┸жжжжжжжжжжжжжжжжжжжжжжжжж┥ 'зBack Ground Music Player и 'з и 'з BGMP by hatena и '┰ййййййййййййййййййййййййй┝ @S_BGMP WIMCLS=1 WINMODE=0 WINX2=110 WINY2=33 WINTTL$="BGMPlayer" RETURN @WIN_BGMP IF BGMP_N 0 THEN BGMP_N=29 IF BGMP_N 29 THEN BGMP_N=0 WINSX=2 WINSY=2 WINSC=1 WINSTR$="BGM Number " GOSUB@WINSTRPUT WINSX=90 WINSY=2 WINSC=11 WINSTR$=STR$(BGMP_N) GOSUB@WINSTRPUT WINBX=2 WINBY=10 WINBSTR$="♪" GOSUB@WINBTN IF WINBTNF THEN BGMPLAY 7,BGMP_N WINBX=15 WINBY=10 WINBSTR$="м" GOSUB@WINBTN IF WINBTNF THEN BGMSTOP 7 WINBX=28 WINBY=10 WINBSTR$="+" GOSUB@WINBTN IF WINBTNF THEN BGMP_N=BGMP_N+1 WINBX=41 WINBY=10 WINBSTR$="-" GOSUB@WINBTN IF WINBTNF THEN BGMP_N=BGMP_N-1 RETURN @C_BGMP GOSUB@WINCLOSE RETURN '┸жжжжжжжжжжжжжжжжжжжжжжжжж┥ 'зControl Pannel и 'з и 'з CP by hatenaи '┰ййййййййййййййййййййййййй┝ @S_CP WINCLS=1 WINMODE=0 WINX2=191 WINY2=144 WINTTL$="コントロ-ルハ゜ネル" RETURN @WIN_CP WINBX=0 WINBY=8 WINBSTR$="マウスノオオキサ" GOSUB@WINBTN IF WINBTNF THEN WINEXE$="MSS" GOSUB@WINEXE WINBX=69 WINBY=8 WINBSTR$="ウィント゛ウイト゛ウモ-ト゛" GOSUB@WINBTN IF WINBTNF THEN WINEXE$="WMM" GOSUB@WINEXE RETURN @C_CP GOSUB@WINCLOSE RETURN
https://w.atwiki.jp/vocaloidenglishlyric/pages/96.html
【Tags K Miku tV OSTER project】 Original Music Title 片想イVOC@LOID / Vocaloid in One-Sided Love (Kataomoi Bookaroido) Music Lyrics written, Voice edited by OSTER project Music arranged by OSTER project Singer 初音ミク (Hatsune Miku) Fanmade Promotional Video(s) Click here for the Japanese Lyrics English Lyrics (translated by haru47): I want you to never ever forget the days I spent with you Since you re happily looking at her, it makes me wistful a little, and, I turn my face away As you don t give me words, I play by myself with the melody But, something, something is wrong Something is missing Don t leave the parameters to rust I don t like to be left alone Since I don t have the courage to bring it up, Don t look away to cover it up Why is it so painful? Though I want to be loved in the proper way I can see through what you are really thinking "Sorry", tenderly you said so and hugged me The more I hear your kind words, the more I feel pain in my heart I wonder if I was a little too selfish and that made things go wrong There are so many things I want to tell you, but I can t express them well I wonder if my voice reaches you I love you so much that I might get broken Let me sing as long as I live I hold your arm and pull you tight against me I can t hide the throbbing beat My feelings are not fake So, even if I m not by your side Please be happy I just can t say it.... but I love you I love you forever So give me your words to sing it forever Is it impossible to let it reach you now? Though I m so close to you I can t hear your heart now. Romaji lyrics (transliterated by haru47): watashi ga anata to sugoshi ta hibi wo douka douka wasure nai de i te hoshii yo ano ko no koto mitsumeru anata ureshi souda kara choppiri setsunaku natte kao wo sorasu yo kotoba wo kure nai kara melody de hitori asobi demo nani ka nani ka chigau nani ka ga tari te nai parameter sabitsuka se nai de hitoribotchi wa iya da yo sonna koto kiri dasu yuuki watashi niwa nai kara soppo mui te gomakasa nai de yo doushite konna ni kurushii no motto chanto aisa re tai no ni anata no honshin wakatte shimau no gomenne tte yasashiku dakishime te sasayai ta yo ne yasashii kotoba no kazu dake mune ga itai yo watashi no chotto wagamamana toko dame datta kana hana shitai koto wa aru no ni umaku tsutawara nai watashi no koe todoi te iru kana kowareru hodo itoshii yo kono inochi ga tsuzuku kagiri kokoro wo utawase te anata no ude gyutto daki yoseru takanaru kodou wa kakuse nai kono kimochi wa uso ja nai dakara soba ni inaku te mo shiawase de i te ie ya shi nai...... demo I love you I love you forever So give me your words to sing it forever mou todoka nai no? konna ni soba ni iru no ni mou kimi no heart ga kikoe nai yo