home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2003 June / macformat-130.iso / mac / Reviewed⁄Demos / Spearhead Demo / demota / pak1.pk3 / global / say_to.scr < prev    next >
Encoding:
Text File  |  2002-10-21  |  1.3 KB  |  57 lines
  1. //////////////////
  2. main local.alias local.listener local.distance local.movecloser local.animated:
  3.     if (self == NULL)
  4.     {
  5.         println "Z:        null speaker: " self " " local.alias
  6.         end
  7.     }
  8.     /*
  9.     if (local.listener == NULL)
  10.     {
  11.         println "Z:        null listener: " local.listener " " local.alias
  12.         end
  13.     }
  14.     */
  15.  
  16.     if ( local.listener!=NULL )
  17.     {
  18.         if (local.distance == NIL || local.distance < 64)
  19.             local.distance = 160
  20.         if (local.movecloser != 1)
  21.         {
  22.             self.friendtype = -1
  23.             
  24.             while (((vector_length(local.listener.origin - self.origin)) > local.distance) || !(local.listener cansee self))
  25.             {
  26.             
  27.             if ((vector_length(local.listener.origin - self.origin)) > local.distance)
  28.                 println "Z:        speaker too far from listener: " local.listener
  29.             if !(local.listener cansee self)
  30.                 println "Z:        speaker cant see listener: " local.listener
  31.             
  32.             self exec global/runto.scr local.listener.origin
  33.             wait .2
  34.             }
  35.         //    self exec global/stand.scr
  36.             
  37.             self.friendtype = 1
  38.         }
  39.  
  40.         self turnto local.listener
  41.         self lookat local.listener
  42.     }
  43.  
  44.     wait .3
  45.     if (local.animated == 1)
  46.     {
  47.         self anim local.alias
  48.         self waittill animdone
  49.     }
  50.     else
  51.     {
  52.         self say local.alias
  53.         self waittill saydone
  54.     }
  55.     self turnto NULL
  56.     self lookat NULL
  57. end