home *** CD-ROM | disk | FTP | other *** search
- on beginSprite me
- global ccount, cell
- if ccount = 1 then
- sprite(me.spriteNum).loc = point(65, 45)
- cell.addProp(string(me.spriteNum).symbol, new(script("cellobj"), []))
- else
- sprite(me.spriteNum).loc = sprite(me.spriteNum - 1).loc + point(sprite(me.spriteNum).width + 12, 0)
- cell.addProp(string(me.spriteNum).symbol, new(script("cellobj"), []))
- end if
- sprite(me.spriteNum).member = "grayback"
- ccount = ccount + 1
- end
-
- on mouseDown me
- global equalvalue, hotcard
- hotcard = 0
- equalvalue = 0
- if member(sprite(me.spriteNum).memberNum).name <> "grayback" then
- puppetSound(3, "pickcard")
- sprite(me.spriteNum).moveableSprite = 1
- sprite(me.spriteNum).loc = the mouseLoc
- sprite(me.spriteNum).locZ = me.spriteNum + 1000
- end if
- end
-
- on mouseUp me
- global equalvalue, hotcard, cell, foundation
- if me.spriteNum = the clickOn then
- if (sprite(me.spriteNum).visible = 1) and (sprite(me.spriteNum).moveableSprite = 1) then
- if (equalvalue = 1) and (hotcard <> 0) then
- puppetSound(3, "pickcard")
- godlist = gethotcard(hotcard)
- sprite(me.spriteNum).moveableSprite = 0
- sprite(me.spriteNum).locZ = me.spriteNum
- sprite(hotcard).locZ = hotcard
- sprite(hotcard).visible = 1
- sprite(me.spriteNum).loc = cell[symbol(string(me.spriteNum))].cards[cell[symbol(string(me.spriteNum))].cards.count].location
- sprite(hotcard).member = sprite(the clickOn).member
- cell[symbol(string(the clickOn))].cards.deleteAt(cell[symbol(string(the clickOn))].cards.count)
- sprite(me.spriteNum).member = "grayback"
- godlist.addcards(hotcard, new(script("card"), hotcard))
- addpoints(hotcard)
- else
- puppetSound(3, "dropcard")
- sprite(me.spriteNum).locZ = me.spriteNum
- sprite(me.spriteNum).loc = cell[symbol(string(me.spriteNum))].cards[cell[symbol(string(me.spriteNum))].cards.count].location
- end if
- end if
- end if
- end
-