NScripterスレ Ver4.00
■ このスレッドは過去ログ倉庫に格納されています
0533530
2005/06/24(金) 20:03:57ID:636hqtKoサブルーチン化しなくてもいけそうですよ
*slowdsp
getparam $inp_str,%wait_time
;入力文字列、表示ウェイト時間
len %strlen,$inp_str ;len関数で返る値は全角1文字に対して2です
for %i=1 to %strlen step 2 ;2バイト分ずつ参照
mid $wchar,$inp_str,%i-1,2 ;2バイト分ずつ読み込んで全角1文字ずつ表示
$wchar/
resettimer ;内部タイマーリセット
waittimer %wait_time ;指定時間経過するまでウェイト
next
■ このスレッドは過去ログ倉庫に格納されています