home *** CD-ROM | disk | FTP | other *** search
/ Fun CD 26 / OTACD26.ISO / etc / nawkk / HSP_PROG / savew.as next >
Text File  |  2000-05-13  |  2KB  |  102 lines
  1.  
  2.     screen 0,400,400,0
  3.  
  4.     alloc buf,200000
  5.     skiperr 1
  6.     bload "G2sys.sav",buf
  7.     if err=12:mes "G2sys.savがあるフォルダに、\nこのプログラムをコピーし、\nそこで実行して下さい。":wait 1000:end
  8.     skiperr 0
  9.     
  10.     font "ＭＳ ゴシック",16,0
  11.     pos 25,20
  12.  
  13.     ;書きこむアドレスの定義  .0　クリア  CGコンプリート.1アドレスから　.2アドレスまで
  14.     dim wt,3,8
  15.     wt.0.0=$3b1c,$1e88,$1ec0     ;船山望美
  16.     wt.0.1=$3b20,$1ec8,$1f00    ;奥田玲佳
  17.     wt.0.2=$3b24,$1f08,$1f2c    ;白石阿夜
  18.     wt.0.3=$3b28,$1f48,$1f7c    ;岩崎奈穂子
  19.     wt.0.4=$3b2c,$1f88,$1fc0    ;島田慎子
  20.     wt.0.5=$3b30,$1fc8,$1ff4    ;仙奥寺かほり
  21.     wt.0.6=$3b34,$2008,$2020    ;高橋友里恵
  22.     wt.0.7=$3b18,$2048,$2068    ;cgmode/other
  23.  
  24.     ;値フラグ
  25.     dim wf,20
  26. *gamen
  27.     cls 1
  28.     pos 20,60:mes "船山望美"
  29.     pos 20,90:mes "奥田玲佳"
  30.     pos 20,120:mes "白石阿夜"
  31.     pos 20,150:mes "岩崎奈穂子"
  32.     pos 20,180:mes "島田慎子"
  33.     pos 20,210:mes "仙奥寺かほり"
  34.     pos 20,240:mes "高橋友里恵"
  35.     pos 20,300:mes "OTHER"
  36.     sysfont
  37.     font "ＭＳ ゴシック",16,0
  38.     objsize 250,20
  39.     pos 20,20:chkbox "CGモード/BGMモード出現",wf.7
  40.  
  41.     objsize 80,20    ;オブジェクトサイズを指定
  42.     objmode 2        ;オブジェクトにfont命令で指定したフォントを使う
  43.     pos 140,60:chkbox "クリア",wf.0
  44.     pos 140,90:chkbox "クリア",wf.1
  45.     pos 140,120:chkbox "クリア",wf.2
  46.     pos 140,150:chkbox "クリア",wf.3
  47.     pos 140,180:chkbox "クリア",wf.4
  48.     pos 140,210:chkbox "クリア",wf.5
  49.     pos 140,240:chkbox "クリア",wf.6
  50.  
  51.  
  52.     objsize 140,20
  53.     pos 240,60:chkbox "CGコンプリート",wf.8
  54.     pos 240,90:chkbox "CGコンプリート",wf.9
  55.     pos 240,120:chkbox "CGコンプリート",wf.10
  56.     pos 240,150:chkbox "CGコンプリート",wf.11
  57.     pos 240,180:chkbox "CGコンプリート",wf.12
  58.     pos 240,210:chkbox "CGコンプリート",wf.13
  59.     pos 240,240:chkbox "CGコンプリート",wf.14
  60.  
  61.     pos 240,300:chkbox "CGコンプリート",wf.15
  62.  
  63.     objsize 80,25
  64.     pos 140,340:button "書きこみ",*kakikomi_all
  65.     objsize 140,25
  66.     pos 240,340:button "プログラム終了",*prog_end
  67.     stop
  68. *prog_end
  69.     end
  70.  
  71.  
  72. *kakikomi_all
  73.     ;クリア処理
  74.     repeat 8
  75.      if wf.cnt=1:ad=wt.0.cnt:gosub kakikomi1
  76.     loop
  77.     repeat 8
  78.     cc=cnt+8
  79.     if wf.cc=0:continue        ;処理しない
  80.     wrct=(wt.2.cnt-wt.1.cnt) >> 2
  81.     wrct++
  82.     adtop=wt.1.cnt
  83.      repeat wrct
  84.        ad=adtop+(cnt*4):gosub *kakikomi1
  85.      wait 1
  86.      loop
  87.     loop
  88.     size=15164
  89.     bsave  "G2sys.sav",buf,size
  90.     cls 
  91.     pos 100,150
  92.     mes "書き換えは終りました。"
  93.     wait 100
  94.     goto *gamen
  95.     end
  96. *kakikomi1
  97.     poke buf,ad,1
  98.     poke buf,ad+1,0
  99.     poke buf,ad+2,0
  100.     poke buf,ad+3,0
  101.     return
  102.