#include "inictl.as" ;「フリーズ判定マシーン」ver1.10公開版　by カーリア（2000/11/11） ;---------------- ;iniファイルによる表示位置指定 ini_file "freeze.ini" ;iniファイル名を指定 ini_section "Window" ;iniセクション名を指定 ini_getint sizex,"Size_x" ;iniの"Size_x"を取得 ini_getint sizey,"Size_y" ;iniの"Size_y"を取得 ;---------------- ;乱数代入＆表示などなど。メイン。 *main screen 0,300,90,0,sizex,sizey ;ウインドウ自体の表示位置設定 gsel 0,1 ;ウインドウID0をアクティブにする title "フリーズ判定マシーン" ;ウインドウID0のタイトルバーに表示 onexit *syu ;終了時は*syuにジャンプ！ randomize ;乱数をバラバラにする rnd x,99 ;乱数0〜98を関数xに代入させる x=x+1 ;数値を1〜99に変更 pos 0,0 cls 1 ;ウインドウID0を明るい灰色(1)でクリア font "ＭＳ ゴシック",42 ;フォントをＭＳ ゴシックに固定 mes "冷凍確率："+x+"%" font "ＭＳ ゴシック",15 if x<=4 : mes "今日は快適にバリバリ働いてくれます♪" if x=5 : mes "消費税並み！！（笑）" if (x>=6)&(x<=14) : mes "かなりサクサク動いてくれるでしょう。" if (x>=15)&(x<=24) : mes "普通ですね。Windows君の機嫌次第です。" if (x>=25)&(x<=34) : mes "こまめに再起動すれば問題なしでしょう。" if (x>=35)&(x<=44) : mes "ファイルの保存は定期的にやりましょう。" if (x>=45)&(x<=54) : mes "もしかして何か重大なエラーの前兆か？" if (x>=55)&(x<=64) : mes "デフラグやスキャンディスクも忘れずに。" if (x>=65)&(x<=76) : mes "かなりピンチ？無茶はしないでね(^_^;)" if x=77 : mes "77..これはこれでフリーズしないのでは？" if (x>=78)&(x<=84) : mes "ソフトの過剰な多重起動は危険です。" if (x>=85)&(x<=94) : mes "今日は何もせず終了した方が無難です。" if (x>=95)&(x<=98) : mes "手遅れ。終了する前にフリーズします…。" if x=99 : mes "電源コードが抜けそうになってません？" pos 0,65 ;オブジェクトの位置を指定 objsize 100,25 ;オブジェクトの大きさを指定 button "もう１回！",*again ;再読込するボタンを作成 pos 100,65 ;オブジェクトの位置を指定 objsize 100,25 ;オブジェクトの大きさを指定 button "バージョン",*ver ;バージョン情報のダイアログを表示 pos 200,65 ;オブジェクトの位置を指定 objsize 100,25 ;オブジェクトの大きさを指定 button "終",*syu ;ボタンを表示 stop ;---------------- ;「バージョン情報」をクリックした時の表示 *ver dialog "フリーズ判定マシーン Ver 1.10\n(C)karia 2000 All Rights Reserved.",0,"バージョン情報" stop ;---------------- ;「閉」をクリックした時の位置保存＆終了処理 *syu wps_restore ;最小化しながら終了など許さん！（笑） ginfo 2 ;Window位置の情報を代入 sizex=prmx ;座標xをsizexに代入 sizey=prmy ;座標yをsizeyに代入 ini_file "freeze.ini" ini_section "Window" ini_setint sizex,"Size_x" ;iniファイルに書き込み〜♪ ini_setint sizey,"Size_y" end ;プログラムを終了します。 ;---------------- ;「もう１回！」ボタンの座標問題を修正 *again ginfo 2 ;Window位置の情報を代入 sizex=prmx ;座標xをsizexに代入 sizey=prmy ;座標yをsizeyに代入 goto *main ;それでは再びメインへゴ〜！