home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fun CD 26
/
OTACD26.ISO
/
etc
/
nawkk
/
HSP_PROG
/
savew.as
next >
Wrap
Text File
|
2000-05-13
|
2KB
|
102 lines
screen 0,400,400,0
alloc buf,200000
skiperr 1
bload "G2sys.sav",buf
if err=12:mes "G2sys.savがあるフォルダに、\nこのプログラムをコピーし、\nそこで実行して下さい。":wait 1000:end
skiperr 0
font "MS ゴシック",16,0
pos 25,20
;書きこむアドレスの定義 .0 クリア CGコンプリート.1アドレスから .2アドレスまで
dim wt,3,8
wt.0.0=$3b1c,$1e88,$1ec0 ;船山望美
wt.0.1=$3b20,$1ec8,$1f00 ;奥田玲佳
wt.0.2=$3b24,$1f08,$1f2c ;白石阿夜
wt.0.3=$3b28,$1f48,$1f7c ;岩崎奈穂子
wt.0.4=$3b2c,$1f88,$1fc0 ;島田慎子
wt.0.5=$3b30,$1fc8,$1ff4 ;仙奥寺かほり
wt.0.6=$3b34,$2008,$2020 ;高橋友里恵
wt.0.7=$3b18,$2048,$2068 ;cgmode/other
;値フラグ
dim wf,20
*gamen
cls 1
pos 20,60:mes "船山望美"
pos 20,90:mes "奥田玲佳"
pos 20,120:mes "白石阿夜"
pos 20,150:mes "岩崎奈穂子"
pos 20,180:mes "島田慎子"
pos 20,210:mes "仙奥寺かほり"
pos 20,240:mes "高橋友里恵"
pos 20,300:mes "OTHER"
sysfont
font "MS ゴシック",16,0
objsize 250,20
pos 20,20:chkbox "CGモード/BGMモード出現",wf.7
objsize 80,20 ;オブジェクトサイズを指定
objmode 2 ;オブジェクトにfont命令で指定したフォントを使う
pos 140,60:chkbox "クリア",wf.0
pos 140,90:chkbox "クリア",wf.1
pos 140,120:chkbox "クリア",wf.2
pos 140,150:chkbox "クリア",wf.3
pos 140,180:chkbox "クリア",wf.4
pos 140,210:chkbox "クリア",wf.5
pos 140,240:chkbox "クリア",wf.6
objsize 140,20
pos 240,60:chkbox "CGコンプリート",wf.8
pos 240,90:chkbox "CGコンプリート",wf.9
pos 240,120:chkbox "CGコンプリート",wf.10
pos 240,150:chkbox "CGコンプリート",wf.11
pos 240,180:chkbox "CGコンプリート",wf.12
pos 240,210:chkbox "CGコンプリート",wf.13
pos 240,240:chkbox "CGコンプリート",wf.14
pos 240,300:chkbox "CGコンプリート",wf.15
objsize 80,25
pos 140,340:button "書きこみ",*kakikomi_all
objsize 140,25
pos 240,340:button "プログラム終了",*prog_end
stop
*prog_end
end
*kakikomi_all
;クリア処理
repeat 8
if wf.cnt=1:ad=wt.0.cnt:gosub kakikomi1
loop
repeat 8
cc=cnt+8
if wf.cc=0:continue ;処理しない
wrct=(wt.2.cnt-wt.1.cnt) >> 2
wrct++
adtop=wt.1.cnt
repeat wrct
ad=adtop+(cnt*4):gosub *kakikomi1
wait 1
loop
loop
size=15164
bsave "G2sys.sav",buf,size
cls
pos 100,150
mes "書き換えは終りました。"
wait 100
goto *gamen
end
*kakikomi1
poke buf,ad,1
poke buf,ad+1,0
poke buf,ad+2,0
poke buf,ad+3,0
return