Chip 1998 May/CHIPCD5_98.iso/software/testsoft/carr/10LAT.CST/00057_Script_s_kufelek

Text File | 1998-01-28 | 2KB | 68 lines

on mouseDown
  global g_kufx,g_kufy

  set g_kufx=the locH of sprite (the currentSpriteNum)
  set g_kufy=the locV of sprite (the currentSpriteNum)
  puppetSound 2,"kufup"
end

on mouseUp
  global g_kufx,g_kufy,g_sno,g_sleft

  if not rollOver(2) then
    set the locH of sprite (the currentSpriteNum) to g_kufx
    set the locV of sprite (the currentSpriteNum) to g_kufy
    puppetSound 2,"kufdown"
  else
    global g_ent
    set g_ent=0
    cursor [member "c_arrow",member "m_arrow"]
    case (the currentSpriteNum-10) of
      0:
        set g_sleft=marker("87")
        set g_sno=3
        go to "87n"
      1:
        set g_sleft=marker("88")
        set g_sno=3
        go to "88n"
      2:
        set g_sleft=marker("89")
        set g_sno=3
        go to "89n"
      3:
        set g_sleft=marker("90")
        set g_sno=3
        go to "90n"
      4:
        set g_sleft=marker("91")
        set g_sno=4
        go to "91n"
      5:
        set g_sleft=marker("92")
        set g_sno=4
        go to "92n"
      6:
        set g_sleft=marker("93")
        set g_sno=5
        go to "93n"
      7:
        set g_sleft=marker("94")
        set g_sno=12
        go to "94n"
      8:
        set g_sleft=marker("95")
        set g_sno=9
        go to "95n"
      9:
        set g_sleft=marker("96")
        set g_sno=10
        go to "96n"
      10:
        set g_sleft=marker("97")
        set g_sno=8
        go to "97n"
    end case
  end if
end