言語は、HSP3。
いい加減にいい加減。
一応、こんなスクリプト_φ(･ω･´ )
;--------------------------------------------------
; スクリーンセイバーもどき
; by shisen
;--------------------------------------------------
;定数
#define NEKO "っﾟ､｡アっ" ;猫
#define MAX_SU 100 ;表示の最大数
;スクリーンセイバーもどき
#packopt type 2
#packopt name "neko_ss"
s=dir_cmdline:a=strmid(s,1,1)
if a = "c" | a = "C" : goto *ss_set ;設定
if a = "p" | a = "P" : goto *ss_pre ;プレビュー
if a = "s" | a = "S" : goto *ss_hon ;本番
dialog "エラーのようですっﾟ、｡ｱっ"
end
;設定
*ss_set
w_x = 300 : w_y = 200
bgscr 2,w_x,w_y,0,0,0,w_x,w_y
mes "あ、一応作ったけど何もないよ？"
stop
;プレビュー
*ss_pre
w_x = ginfo_winx : w_y = ginfo_winy
p_x=0 : p_y=0
screen 0,w_x,w_y,0,0,0,w_x,w_y
wait 5
goto *main
stop
;本番
*ss_hon
w_x=ginfo_dispx : w_y=ginfo_dispy
p_x=0 : p_y=0
bgscr 2,w_x,w_y,0,0,0,w_x,w_y
wait 5
*main
color 0,0,0
boxf ;画面の初期化
randomize ;乱数の初期化
redraw 0
repeat rnd(MAX_SU + 1)
p_x = rnd(w_x+1) : p_y = rnd(w_y+1)
color rnd(255),rnd(255),rnd(255)
pos p_x,p_y : mes NEKO
redraw 1
wait 5
loop
goto *main
