תקליטור אוסף נבחרי 95/Top_95.iso/TOP95/KIDS/FROGHOP/FROGHOP.EXE/FROGHOP.dxr/00004_setupboard.ls

Text File | 1996-11-01 | 1.6 KB | 65 lines

on setupboard
  global GRIDX, GRIDY, GRIDNUM, grid, move, dr, gridcnt, score, bonuspoints, goodrestore, scorecnt, levelover, blankgrid, fast, specialgrid, aga, LEVEL, flagtime, flycnt, fly, twogrid, twogrid1, ng
  set twogrid to 0
  set twogrid1 to 0
  set fly to 0
  set flycnt to 0
  set flagtime to 0
  set LEVEL to 1
  set aga to 0
  set specialgrid to 0
  set fast to 0
  set blankgrid to 0
  set levelover to 0
  set scorecnt to 0
  set goodrestore to 0
  set score to 0
  set bonuspoints to 0
  set gridcnt to 0
  set grid to 1
  set move to 1
  set dr to 2
  puppetSprite(7, 1)
  showgridcnt()
  repeat with n = 2 to 6
    puppetSprite(n, 1)
    set the castNum of sprite n to 30
    updateStage()
  end repeat
  showscore()
  set GRIDNUM to []
  puppetSprite(40, 1)
  set the locH of sprite 40 to -2000
  set the locV of sprite 40 to -2000
  repeat with n = 15 to 39
    puppetSprite(n, 1)
    set the visible of sprite n to 1
    set num to random(6) + 10
    set U to random(2)
    if (U = 1) and (num < 13) then
      set num to random(6) + 10
    end if
    set the castNum of sprite n to num
    append(GRIDNUM, num)
  end repeat
  set ng to 0
  repeat while ng <> 3
    set num to random(25)
    if getAt(GRIDNUM, num) <> 10 then
      setAt(GRIDNUM, num, 10)
      set ng to ng + 1
      set the castNum of sprite (num + 14) to 10
    end if
  end repeat
  repeat with n = 15 to 39
    set the locH of sprite n to getAt(GRIDX, n - 14)
    set the locV of sprite n to getAt(GRIDY, n - 14)
    updateStage()
  end repeat
  putinfly()
  putinneeded()
  putinbonus()
  putinlevel()
  putinstart()
end