onexit *endx
#include "hspinet.as"
onerror *er
//バージョン情報
ver="2"
mes"http://www43.tok2.com/home/endou0605/"
netinit
if stat : dialog "ネットワークに接続ができませんでした。\nネットワークの設定やモデムを再起動してみてください。\nなお、このソフトはネットワークに接続しないと使用できません。":end ;ここが問題点
mes"更新を確認中です…"
neturl "http://nanndemokann.dousetsu.com/ver/"
mes"更新ファイルのダウンロード中…"
netload "ver.txt"
mes"更新ファイルのダウンロード完了"
mes"チェックしています。"
notesel buf
noteload "ver.txt"
if buf ! ver : mes"更新があります。\n今すぐ更新をしてください。":stop
mes"この本体は最新です。"
wait 300
//メインプログラム
*start
onerror *er
title "Text editor"
mes"Text editor を起動中…しばらくお待ちください"
await 10000
mes"起動完了\nここに書かれている内容は英文とは違う可能性があります"
await 2000
cls
//Creating text
sdim buf,65000
buf=""
mesbox buf,636,406,5,0
button "セーブ",*save
button "ロード",*load
stop
*save
dialog "txt",17,"テキストファイル"
if stat=0:stop
fname=refstr
exname=getpath(fname,2)
if exname="":fname+".txt"
notesel buf
notesave fname
stop
*load
dialog "txt",16,"テキストファイル"
if stat=0:stop
fname=refstr
exname=getpath(fname,2)
if exname="":fname+".txt"
notesel buf
noteload refstr
objprm 0,buf
stop
*er
dialog "エラーが発生しました。\nこのバグはファイルの問題又はプログラムの問題の可能性があります。\n今すぐ公式HPをご確認ください。"
stop
*endx
delete "ver.txt"
end