Curio City 11/CURIO11.bin/pc/movie/start.dir/01059.ls

Text File | 1998-01-01 | 2.2 KB | 85 lines

global guserlist

on keyDown
  if the keyCode = 126 then
    if the soundLevel < 7 then
      set the soundLevel to the soundLevel + 1
    end if
  else
    if the keyCode = 125 then
      if the soundLevel > 0 then
        set the soundLevel to the soundLevel - 1
      end if
    end if
  end if
end

on savedb
  global gusernumber, guserlist, gwin, gapppath
  if (gusernumber >= 1) and (gusernumber <= 5) then
    set x to gusernumber
    storeglobal()
    if gwin = 0 then
      set myobj to fileio(mnew, "write", gapppath & "CCUSER" & x)
    else
      set myobj to fileio(mnew, "write", gapppath & "CCUSER" & x & ".CC5")
    end if
    if objectp(myobj) then
      myobj(mwritestring, string(guserlist))
      myobj(mdispose)
      if gwin = 0 then
      else
      end if
    else
      alert("ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃﾃεｯﾂ､ﾃｫﾃｰﾃ窶ｦﾃｩﾃ榲ｮsﾃﾂｵﾃ窶ｹﾃﾂｵﾃﾃｽﾃB")
    end if
  end if
end

on storeglobal
  global guserlist, ghonda, gshopping, gkikuco
  set the honda of guserlist to ghonda
  set the shopping of guserlist to gshopping
  set the kikuco of guserlist to gkikuco
end

on btndown
  set btn to item 1 of the name of cast the castNum of sprite clickOn()
  repeat while stillDown()
    if rollOver(clickOn()) then
      set the castNum of sprite clickOn() to the number of member (btn & ",D")
    else
      set the castNum of sprite clickOn() to the number of member (btn & ",U")
    end if
    updateStage()
  end repeat
  sound playFile 3, "@::shop:oto:exit"
  set the castNum of sprite clickOn() to the number of member (btn & ",U")
  updateStage()
  if rollOver(clickOn()) then
    return 1
  else
    return 0
  end if
end

on wait t
  set endtime to the ticks + t
  repeat while the ticks <= endtime
    nothing()
  end repeat
end

on setsoundbalance
  if soundBusy(1) then
    set the volume of sound 2 to 180
  else
    set the volume of sound 2 to 255
  end if
end

on initgkikuco
  global gkikuco
  set gkikuco to [#scene: 0, #okuzawa: 0, #sasayama: 0, #karaoke: 0, #pachinko: 0, #panda: 0, #agt2: 0, #ooeyma: 0, #agt1: 0, #handgun: 1, #submg: 0, #shotgun: 0, #mg: 0, #hp: 80, #zandan: 80, #shiji: 0, #nowarmch: 25, #gameuname: EMPTY, #life: 1, #dancho: 1, #hakase: 1, #yamamoto: 1, #hirasaka: 1, #lastweapon: 0]
end