home *** CD-ROM | disk | FTP | other *** search
/ 100 Pусских Uгр / 980121_2306.iso / SUPER3D / RAMPAGER.ZIP / PIG.CON < prev    next >
Text File  |  1997-07-16  |  3KB  |  165 lines
  1. // The pig
  2. // By Arthur Attila Donavan
  3.  
  4. action APIGATTACK  0   6  1  1  10
  5. action APIGWALK    7   6  5  1  5
  6. action APIGRUN     7   6  5  1  2
  7. action APIGEAT    38   5  5  1  20
  8. action APIGLOOKUP 58   2  5  1  10
  9. action APIGLOOKDN 63   2  5 -1  10
  10.  
  11. action APIGMESSEDUP  22   4  1  1 10
  12.  
  13. move PIGWALKVEL 40
  14. move PIGRUNVEL 80
  15. move PIGSTOP
  16.  
  17. ai AIPIGWALK    APIGWALK    PIGWALKVEL  randomangle geth
  18. ai AIPIGRUN     APIGRUN     PIGRUNVEL   randomangle geth
  19. ai AIPIGHUNT    APIGWALK    PIGRUNVEL   faceplayersmart   // Pigs are smart
  20. ai AIPIGATTACK  APIGATTACK  PIGSTOP     faceplayer
  21. ai AIPIGEAT     APIGEAT     PIGSTOP
  22. ai AIPIGLOOKUP  APIGLOOKUP  PIGSTOP
  23. ai AIPIGLOOKDN  APIGLOOKDN  PIGSTOP
  24.  
  25.  
  26. actor PIGSTAYPUT PIGSTRENGTH ai AIPIGEAT sizeat 16 16 cactor PIG enda
  27. actor PIGEAT PIGSTRENGTH ai AIPIGEAT cactor PIG enda
  28.  
  29. // Main code for pig.
  30. useractor enemy PIG PIGSTRENGTH
  31.   fall
  32.  
  33.   ifai 0
  34.   {
  35.     cstator 257
  36.     ai AIPIGEAT
  37.   }
  38.   ifpdistl 8192
  39.   {
  40.     ifrnd 1
  41.       sound PIGSOUND4
  42.   }
  43.   ifai AIPIGWALK
  44.   {
  45.     // Pig walking
  46.     ifactioncount 34
  47.       ifrnd 32
  48.       {
  49.         ai AIPIGLOOKDN
  50.         resetactioncount
  51.         soundonce PIGSOUND3
  52.       }
  53.   }
  54.   else ifai AIPIGEAT
  55.   {
  56.     // Pig eating
  57.     ifactioncount 40
  58.       ifrnd 8
  59.       {
  60.         ai AIPIGLOOKUP
  61.         resetactioncount
  62.         soundonce PIGSOUND4
  63.       }
  64.   }
  65.   else ifai AIPIGLOOKUP
  66.   {
  67.     // Pig looking up
  68.     ifactioncount 2
  69.     {
  70.       ai AIPIGWALK
  71.       ifrnd 16
  72.         soundonce PIGSOUND3
  73.     }
  74.   }
  75.   else ifai AIPIGLOOKDN
  76.   {
  77.     // Pig looking down
  78.     ifactioncount 2
  79.     {
  80.       ai AIPIGEAT
  81.       ifrnd 16
  82.         soundonce PIGSOUND3
  83.     }
  84.   }
  85.   else ifai AIPIGHUNT
  86.   {
  87.     // Pig hunting for player
  88.     ifcansee
  89.     {
  90.       ifpdistl 1024
  91.       {
  92.         ai AIPIGATTACK
  93.       }
  94.     }
  95.     else
  96.       ifrnd 4
  97.         ai AIPIGWALK
  98.   }
  99.   else ifai AIPIGATTACK
  100.   {
  101.     // Pig attacking player
  102.     ifp palive
  103.     {
  104.       ifpdistl 1096
  105.       {
  106.         ifrnd 8
  107.         {
  108.           addphealth PIG_GNAW_AMOUNT
  109.           state lnsndpain
  110.         }
  111.         ifrnd 128
  112.           soundonce PIGSOUND6
  113.         else
  114.           soundonce PIGSOUND7
  115.       }
  116.       else
  117.         ai AIPIGHUNT
  118.     }
  119.     else
  120.       ai AIPIGWALK
  121.   }
  122.  
  123.   ifrnd 1
  124.     ifrnd 128
  125.       sound PIGSOUND3
  126.  
  127.   ifhitweapon
  128.   {
  129.     spawn BLOOD
  130.     ifdead
  131.     {
  132.       move PIGSTOP
  133.       addkills 1
  134.       // sound SQUISHED
  135.       sound PIGSOUND5
  136.       guts JIBS2 1
  137.       guts JIBS3 2
  138.       guts JIBS4 3
  139.       guts JIBS5 2
  140.       guts JIBS6 3
  141.       killit
  142.     }
  143.     else
  144.     {
  145.       ifrnd 128
  146.         soundonce PIGSOUND1
  147.       else
  148.         soundonce PIGSOUND2
  149.       /*
  150.       // You made the pig angry, and he is going to hunt you down
  151.       // But first make 'em laugh
  152.       ifrnd 64
  153.         sound FART1
  154.       else ifrnd 64
  155.         sound FART2
  156.       else ifrnd 64
  157.         sound FART3
  158.       else ifrnd 64
  159.         sound FART4
  160.       */
  161.       ai AIPIGHUNT
  162.     }
  163.   }
  164. enda
  165.