Gamer's Paradise: Logic/Hracuv-raj_Logicke-hry_cd1.bin/QUESTCAM/EGG.DIR/00112.ls

Text File | 1998-02-26 | 1.0 KB | 28 lines

on clickObject
  global draggin, dragChan, objsChan, objsList, selectedSprite, oldtoyloc, lastSelectedSprite, musicBoxChan, danceFever, whichanim, brellaSprite, fosgailte, UmbrellaFirst, thefist
  if draggin = 0 then
    cursor([thefist, thefist + 1])
    set draggin to 1
    if selectedSprite > 0 then
      set lastSelectedSprite to selectedSprite
    end if
    set copan to the clickOn
    set selectedSprite to copan
    puppetSprite(dragChan, 1)
    if copan > objsChan then
      set the memberNum of sprite dragChan to the memberNum of sprite selectedSprite
    else
      set brellaSprite to selectedSprite
      if fosgailte = 0 then
        set the memberNum of sprite dragChan to UmbrellaFirst + 1
      else
        set the memberNum of sprite dragChan to UmbrellaFirst + 3
      end if
    end if
    set the locH of sprite dragChan to the mouseH
    set the locV of sprite dragChan to the mouseV
    set oldtoyloc to the loc of sprite selectedSprite
    set the locH of sprite selectedSprite to 2000
  end if
end