home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #8 / 1999 CD 8 (black).iso / maskdemo / DATA1.CAB / Program_Executable_Files / Daventry / KQ / zomtrap.cs < prev    next >
Encoding:
Text File  |  1998-12-15  |  7.0 KB  |  195 lines
  1. if test $2 == On
  2.     echo on zombie trap
  3.     if test $Daventry::GraveYard::On == false
  4.         graveyrd.cs
  5.         ###prevent us from doing this unless they are away from here
  6.         set Daventry::GraveYard::On true
  7.         if test $Daventry::GraveYard::North == false
  8.             set Daventry::GraveYard::North true
  9.             ###bring em to the graveyard!
  10.             move zograv3 3 0 100000 -22440
  11.             move zograv4 3 0 100000 -22440
  12.             move zograv5 3 0 100000 -22440
  13.             move zograv6 3 0 100000 -22440
  14.             move zograv7 3 0 100000 -22440
  15.             move zograv8 3 0 100000 -22440
  16.             move zograv9 3 0 100000 -22440
  17.             move zograv10 3 0 100000 -22440
  18.             move zograv11 3 0 100000 -22440
  19.             move zograv12 3 0 100000 -22440
  20.             move zograv14 3 0 100000 -22440
  21.             move zograv15 3 0 100000 -22440
  22.             move zograv16 3 0 100000 -22440
  23.             move zograv17 3 0 100000 -22440
  24.             ###tell them that this is their new home!
  25.             getloc zograv3
  26.             KQMonster::setHome zograv3 $KQObject::locOnly
  27.             getloc zograv4
  28.             KQMonster::setHome zograv4 $KQObject::locOnly
  29.             getloc zograv5
  30.             KQMonster::setHome zograv5 $KQObject::locOnly
  31.             getloc zograv6
  32.             KQMonster::setHome zograv6 $KQObject::locOnly
  33.             getloc zograv7
  34.             KQMonster::setHome zograv7 $KQObject::locOnly
  35.             getloc zograv8
  36.             KQMonster::setHome zograv8 $KQObject::locOnly
  37.             getloc zograv9
  38.             KQMonster::setHome zograv9 $KQObject::locOnly
  39.             getloc zograv10
  40.             KQMonster::setHome zograv10 $KQObject::locOnly
  41.             getloc zograv11
  42.             KQMonster::setHome zograv11 $KQObject::locOnly
  43.             getloc zograv12
  44.             KQMonster::setHome zograv12 $KQObject::locOnly
  45.             getloc zograv14
  46.             KQMonster::setHome zograv14 $KQObject::locOnly
  47.             getloc zograv15
  48.             KQMonster::setHome zograv15 $KQObject::locOnly
  49.             getloc zograv16
  50.             KQMonster::setHome zograv16 $KQObject::locOnly
  51.             getloc zograv17
  52.             KQMonster::setHome zograv17 $KQObject::locOnly
  53.         endif    
  54.         ###tell them to be alarmed!
  55.         KQMonster::setAlarmRadius zograv3  5500
  56.         KQMonster::setAlarmRadius zograv4  6500
  57.         KQMonster::setAlarmRadius zograv5  4500
  58.         KQMonster::setAlarmRadius zograv6  5500
  59.         KQMonster::setAlarmRadius zograv7  4500
  60.         KQMonster::setAlarmRadius zograv8  8500
  61.         KQMonster::setAlarmRadius zograv9  5500
  62.         KQMonster::setAlarmRadius zograv10 5500
  63.         KQMonster::setAlarmRadius zograv11 6500
  64.         KQMonster::setAlarmRadius zograv12 7500
  65.         KQMonster::setAlarmRadius zograv14 8500
  66.         KQMonster::setAlarmRadius zograv15 5500
  67.         KQMonster::setAlarmRadius zograv16 6500
  68.         KQMonster::setAlarmRadius zograv17 4500
  69.         ###and watch out for strangers
  70.         KQMonster::setChaseRadius zograv3  10000
  71.         KQMonster::setChaseRadius zograv4  10000
  72.         KQMonster::setChaseRadius zograv5  10000
  73.         KQMonster::setChaseRadius zograv6  10000
  74.         KQMonster::setChaseRadius zograv7  10000
  75.         KQMonster::setChaseRadius zograv8  10000
  76.         KQMonster::setChaseRadius zograv9  10000
  77.         KQMonster::setChaseRadius zograv10 10000
  78.         KQMonster::setChaseRadius zograv11 10000
  79.         KQMonster::setChaseRadius zograv12 10000
  80.         KQMonster::setChaseRadius zograv14 10000
  81.         KQMonster::setChaseRadius zograv15 10000
  82.         KQMonster::setChaseRadius zograv16 10000
  83.         KQMonster::setChaseRadius zograv17 10000
  84.         ###but to never wander too far from home
  85.         KQMonster::setHomeRadius zograv3  6000
  86.         KQMonster::setHomeRadius zograv4  6000
  87.         KQMonster::setHomeRadius zograv5  6000
  88.         KQMonster::setHomeRadius zograv6  6000
  89.         KQMonster::setHomeRadius zograv7  6000
  90.         KQMonster::setHomeRadius zograv8  6000
  91.         KQMonster::setHomeRadius zograv9  6000
  92.         KQMonster::setHomeRadius zograv10 6000
  93.         KQMonster::setHomeRadius zograv11 6000
  94.         KQMonster::setHomeRadius zograv12 6000
  95.         KQMonster::setHomeRadius zograv14 6000
  96.         KQMonster::setHomeRadius zograv15 6000
  97.         KQMonster::setHomeRadius zograv16 6000
  98.         KQMonster::setHomeRadius zograv17 6000
  99.     endif
  100. else if test $2 == Off
  101.     echo off zombie trap
  102.     if test $Daventry::GraveYard::On == true
  103.         ###prevent us from doing this unless they are here
  104.         set Daventry::GraveYard::On false
  105.         ###tell them not to be alarmed
  106.         KQMonster::setAlarmRadius zograv3  0
  107.         KQMonster::setAlarmRadius zograv4  0
  108.         KQMonster::setAlarmRadius zograv5  0
  109.         KQMonster::setAlarmRadius zograv6  0
  110.         KQMonster::setAlarmRadius zograv7  0
  111.         KQMonster::setAlarmRadius zograv8  0
  112.         KQMonster::setAlarmRadius zograv9  0
  113.         KQMonster::setAlarmRadius zograv10 0
  114.         KQMonster::setAlarmRadius zograv11 0
  115.         KQMonster::setAlarmRadius zograv12 0
  116.         KQMonster::setAlarmRadius zograv14 0
  117.         KQMonster::setAlarmRadius zograv15 0
  118.         KQMonster::setAlarmRadius zograv16 0
  119.         KQMonster::setAlarmRadius zograv17 0
  120.         ###nothing to see here
  121.         KQMonster::setChaseRadius zograv3  100
  122.         KQMonster::setChaseRadius zograv4  100
  123.         KQMonster::setChaseRadius zograv5  100
  124.         KQMonster::setChaseRadius zograv6  100
  125.         KQMonster::setChaseRadius zograv7  100
  126.         KQMonster::setChaseRadius zograv8  100
  127.         KQMonster::setChaseRadius zograv9  100
  128.         KQMonster::setChaseRadius zograv10 100
  129.         KQMonster::setChaseRadius zograv11 100
  130.         KQMonster::setChaseRadius zograv12 100
  131.         KQMonster::setChaseRadius zograv14 100
  132.         KQMonster::setChaseRadius zograv15 100
  133.         KQMonster::setChaseRadius zograv16 100
  134.         KQMonster::setChaseRadius zograv17 100
  135.         ###and if I'm not back in 10 seconds go away
  136.         sendEvent 10 $1 KQCueEvent 17 0
  137.     endif
  138. else if test $2 == Cue
  139.     echo zombie cue $1 $2 $3 $4 $5
  140.     if test $3 == 17
  141.         #check to make sure we haven't reactivated
  142.         if test $Daventry::GraveYard::On == false
  143.             if test $Daventry::GraveYard::North == true
  144.                 echo following through on the cue
  145.                 set Daventry::GraveYard::North false
  146.                 ###send em away from the graveyard!
  147.                 move zograv3 3 0 -100000 22440
  148.                 move zograv4 3 0 -100000 22440
  149.                 move zograv5 3 0 -100000 22440
  150.                 move zograv6 3 0 -100000 22440
  151.                 move zograv7 3 0 -100000 22440
  152.                 move zograv8 3 0 -100000 22440
  153.                 move zograv9 3 0 -100000 22440
  154.                 move zograv10 3 0 -100000 22440
  155.                 move zograv11 3 0 -100000 22440
  156.                 move zograv12 3 0 -100000 22440
  157.                 move zograv14 3 0 -100000 22440
  158.                 move zograv15 3 0 -100000 22440
  159.                 move zograv16 3 0 -100000 22440
  160.                 move zograv17 3 0 -100000 22440
  161.                 ###tell them that this is their new home!
  162.                 getloc zograv3
  163.                 KQMonster::setHome zograv3 $KQObject::locOnly
  164.                 getloc zograv4
  165.                 KQMonster::setHome zograv4 $KQObject::locOnly
  166.                 getloc zograv5
  167.                 KQMonster::setHome zograv5 $KQObject::locOnly
  168.                 getloc zograv6
  169.                 KQMonster::setHome zograv6 $KQObject::locOnly
  170.                 getloc zograv7
  171.                 KQMonster::setHome zograv7 $KQObject::locOnly
  172.                 getloc zograv8
  173.                 KQMonster::setHome zograv8 $KQObject::locOnly
  174.                 getloc zograv9
  175.                 KQMonster::setHome zograv9 $KQObject::locOnly
  176.                 getloc zograv10
  177.                 KQMonster::setHome zograv10 $KQObject::locOnly
  178.                 getloc zograv11
  179.                 KQMonster::setHome zograv11 $KQObject::locOnly
  180.                 getloc zograv12
  181.                 KQMonster::setHome zograv12 $KQObject::locOnly
  182.                 getloc zograv14
  183.                 KQMonster::setHome zograv14 $KQObject::locOnly
  184.                 getloc zograv15
  185.                 KQMonster::setHome zograv15 $KQObject::locOnly
  186.                 getloc zograv16
  187.                 KQMonster::setHome zograv16 $KQObject::locOnly
  188.                 getloc zograv17
  189.                 KQMonster::setHome zograv17 $KQObject::locOnly
  190.             endif
  191.         endif
  192.     endif
  193. endif
  194. endif
  195. endif