Curio City 11/CURIO11.bin/pc/movie/shop/sakurain.dir/00665.ls

Text File | 1998-01-01 | 5.7 KB | 164 lines

global guserlist, gnowvoldaka

on volbtn
  set m to the money of guserlist
  set s to the vol of guserlist
  set spnum to clickOn()
  set nowcastnum to the castNum of sprite spnum
  put nowcastnum - 680 after field "nyuuryoku"
  set mojisuu to the length of field "nyuuryoku"
  set nowyokin to word 1 of field "nyuuryoku"
  if ((nowyokin * 10) - gnowvoldaka) <= m then
    puppetSprite(spnum, 1)
    repeat while the stillDown
      if rollOver(spnum) then
        set the castNum of sprite spnum to nowcastnum + 20
      else
        set the castNum of sprite spnum to nowcastnum
      end if
      updateStage()
    end repeat
    puppetSprite(spnum, 0)
    if mojisuu = 1 then
      set no1 to char 1 of field "nyuuryoku"
      puppetSprite(31, 1)
      set the castNum of sprite 31 to no1 + 720
      set the visible of sprite 31 to 1
      set m to m - (nowyokin * 10) + gnowvoldaka
      put integer(m) into field "money"
      set s to s + (nowyokin * 10) - gnowvoldaka
      set the money of guserlist to m
      set gnowvoldaka to nowyokin * 10
    else
      if mojisuu = 2 then
        set no1 to char 1 of field "nyuuryoku"
        set no2 to char 2 of field "nyuuryoku"
        puppetSprite(31, 1)
        puppetSprite(32, 1)
        set the castNum of sprite 31 to no2 + 720
        set the castNum of sprite 32 to no1 + 720
        set the visible of sprite 31 to 1
        set the visible of sprite 32 to 1
        set m to m - (nowyokin * 10) + gnowvoldaka
        put integer(m) into field "money"
        set s to s + (nowyokin * 10) - gnowvoldaka
        set the money of guserlist to m
        set gnowvoldaka to nowyokin * 10
      else
        if mojisuu = 3 then
          set no1 to char 1 of field "nyuuryoku"
          set no2 to char 2 of field "nyuuryoku"
          set no3 to char 3 of field "nyuuryoku"
          puppetSprite(31, 1)
          puppetSprite(32, 1)
          puppetSprite(33, 1)
          set the castNum of sprite 31 to no3 + 720
          set the castNum of sprite 32 to no2 + 720
          set the castNum of sprite 33 to no1 + 720
          set the visible of sprite 31 to 1
          set the visible of sprite 32 to 1
          set the visible of sprite 33 to 1
          set m to m - (nowyokin * 10) + gnowvoldaka
          put integer(m) into field "money"
          set s to s + (nowyokin * 10) - gnowvoldaka
          set the money of guserlist to m
          set gnowvoldaka to nowyokin * 10
        else
          if mojisuu = 4 then
            beep()
            alert("ﾃｳﾂｺﾃｫﾃｷﾃﾃ陛A9990ﾃ鵜ﾃ嘉姪嘉､ﾃ迂ﾃ[ﾃ瑛ﾃ窶ｹﾃﾂｼﾃﾂｼﾃﾃ敕B")
            delete char 4 of field "nyuuryoku"
          end if
        end if
      end if
    end if
    updateStage()
  else
    beep()
    delete char mojisuu of field "nyuuryoku"
  end if
end

on volbtn0
  set m to the money of guserlist
  set s to the vol of guserlist
  set spnum to clickOn()
  set nowcastnum to the castNum of sprite spnum
  put nowcastnum - 680 after field "nyuuryoku"
  set mojisuu to the length of field "nyuuryoku"
  set nowyokin to word 1 of field "nyuuryoku"
  if nowyokin <> 0 then
    if ((nowyokin * 10) - gnowvoldaka) <= m then
      puppetSprite(spnum, 1)
      repeat while the stillDown
        if rollOver(spnum) then
          set the castNum of sprite spnum to nowcastnum + 20
        else
          set the castNum of sprite spnum to nowcastnum
        end if
        updateStage()
      end repeat
      puppetSprite(spnum, 0)
      if mojisuu = 1 then
        set no1 to char 1 of field "nyuuryoku"
        puppetSprite(31, 1)
        set the castNum of sprite 31 to no1 + 720
        set the visible of sprite 31 to 1
        set m to m - (nowyokin * 10) + gnowvoldaka
        put integer(m) into field "money"
        set s to s + (nowyokin * 10) - gnowvoldaka
        set the money of guserlist to m
        set gnowvoldaka to nowyokin * 10
      else
        if mojisuu = 2 then
          set no1 to char 1 of field "nyuuryoku"
          set no2 to char 2 of field "nyuuryoku"
          puppetSprite(31, 1)
          puppetSprite(32, 1)
          set the castNum of sprite 31 to no2 + 720
          set the castNum of sprite 32 to no1 + 720
          set the visible of sprite 31 to 1
          set the visible of sprite 32 to 1
          set m to m - (nowyokin * 10) + gnowvoldaka
          put integer(m) into field "money"
          set s to s + (nowyokin * 10) - gnowvoldaka
          set the money of guserlist to m
          set gnowvoldaka to nowyokin * 10
        else
          if mojisuu = 3 then
            set no1 to char 1 of field "nyuuryoku"
            set no2 to char 2 of field "nyuuryoku"
            set no3 to char 3 of field "nyuuryoku"
            puppetSprite(31, 1)
            puppetSprite(32, 1)
            puppetSprite(33, 1)
            set the castNum of sprite 31 to no3 + 720
            set the castNum of sprite 32 to no2 + 720
            set the castNum of sprite 33 to no1 + 720
            set the visible of sprite 31 to 1
            set the visible of sprite 32 to 1
            set the visible of sprite 33 to 1
            set m to m - (nowyokin * 10) + gnowvoldaka
            put integer(m) into field "money"
            set s to s + (nowyokin * 10) - gnowvoldaka
            set the money of guserlist to m
            set gnowvoldaka to nowyokin * 10
          else
            if mojisuu = 4 then
              beep()
              alert("1ﾃ｢ﾃ津窶ｦﾃｳﾂｺﾃｫﾃｷﾃﾂｼﾃﾂｴﾃﾃ暗ﾃεﾃ陛A9990ﾃ鵜ﾃ嘉姪嘉､ﾃ迂ﾃ[ﾃ瑛ﾃ窶ｹﾃﾂｼﾃﾂｼﾃﾃ敕B")
              delete char 4 of field "nyuuryoku"
            end if
          end if
        end if
      end if
      updateStage()
    else
      beep()
      delete char mojisuu of field "nyuuryoku"
    end if
  else
    delete char 1 of field "nyuuryoku"
  end if
end