Fuji Wa La Te I Ka - Hyakunin Isshu Karuta/KARUTA.bin/wins/bbozu7.dir/00075_Script_75

Text File | 1995-11-13 | 2KB | 59 lines

on BaYama
  global gHuda,gBahuda,gMax,gWariaiB
  if gHuda = 2 then
    set the type of sprite 16 = 0
    put "Φ═ΘD" && gBahuda into field"Φ═ΘD"
    updateStage
  else
    if gHuda = 3 and not (gBahuda = 0) then
      set gWariaiB = gBahuda * 10 / gMax
      set the type of sprite 16 = 1
      set the castNum of sprite 16 = 90 + integer ( gWariaiB )
      put "Φ═ΘD" && gBahuda into field"Φ═ΘD"
      updateStage
    end if
  end if
end

on Yama
  global gCount,gMax,gWariai,gLeftCT,gRightCT,gLeftMax,gRightMax
  set gWariai = 9 - integer (( gLeftCT * 10 / gLeftMax ))
  if integer (gLeftMax) - gLeftCT <= 0 then
    set the type of sprite 14 = 0
  else
    set the type of sprite 14 = 1
    set the castNum of sprite 14 = 55 + gWariai
  end if
  set gWariai = 9 - integer (( gRightCT * 10 / gRightMax ))
  if integer (gRightMax) - gRightCT <= 0 then
    set the type of sprite 15 = 0
  else
    set the type of sprite 15 = 1
    set the castNum of sprite 15 = 44 + gWariai
  end if
  updateStage
end

on SelectYama
  global gLeftCT,gRightCT,gLeftMax,gRightMax,SeleYama,gMax,gCount
  if gLeftCT >= gLeftMax then
    set gLeftCT = gLeftMax
    set SeleYama = 2
  else
    if gRightCT >= gRightMax then
      set gRightCT = gRightMax
      set SeleYama = 1
    else
      set SeleYama = random(2)
    end if
  end if

  if SeleYama = 1 then
    set gLeftCT = gLeftCT + 1
  else
    if SeleYama = 2 then
      set gRightCT = gRightCT + 1
    end if
  end if
end