home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 28 / Creative-Review-CD-ROM-28.iso / pc / kungfu / assets / game.dir / 00075_Script_handlers < prev    next >
Text File  |  1997-08-08  |  1KB  |  88 lines
  1. -- handlers
  2.  
  3. --------------------------------
  4.  
  5. on checkaprop thelist, theprop, thedefault
  6.   
  7.   set thevalue = getaprop(thelist, theprop)
  8.   if voidp(thevalue) then return thedefault
  9.   else return thevalue
  10.   
  11. end checkaprop 
  12.  
  13. --------------------------------
  14.  
  15. on mouse
  16.   
  17.   return point (the mouseh, the mousev)
  18.   
  19. end mouse
  20.  
  21. --------------------------------
  22.  
  23. on kill obj 
  24.   
  25.   
  26.   repeat with index = 1 to count (obj)
  27.     set prop = getpropat (obj, index)
  28.     set value = getaprop (obj, prop)
  29.     setprop obj, prop, #dead
  30.   end repeat
  31.   
  32. end obj
  33.  
  34. --------------------------------
  35.  
  36. on data2list thefield
  37.   
  38.   set list = value ( field thefield )
  39.   unloadmember thefield
  40.   return list
  41.   
  42. end data2list
  43.  
  44. --------------------------------
  45.  
  46. on list2object thelist, obj 
  47.   
  48.   
  49.   repeat with index = 1 to count (thelist)
  50.     set prop = getpropat (thelist, index)
  51.     set value = getaprop (thelist, prop)
  52.     setaprop obj, prop, value
  53.   end repeat
  54.   
  55. end list2object
  56.  
  57.  
  58. on sense thenum
  59.   
  60.   if thenum > 1 then return 1
  61.   else if thenum < 0 then return -1 
  62.   else return 0
  63.   
  64. end sense
  65.  
  66.  
  67. on prob percent
  68.   
  69.   if random (100) <= percent then return true
  70.   else return false
  71.   
  72. end prob
  73.  
  74. on turnpuppets back, front, state
  75.   
  76.   repeat with channel =  back to front
  77.     puppetsprite channel, state  
  78.   end repeat
  79.   
  80. end turnpuppets
  81.  
  82. on win
  83.   
  84.   hendgame
  85.   go frame "win"
  86.   
  87. end win
  88.