home *** CD-ROM | disk | FTP | other *** search
/ 100 Pусских Uгр / 980121_2306.iso / SUPER3D / RAMPAGER.ZIP / BUBBA.CON < prev    next >
Text File  |  1997-07-16  |  5KB  |  281 lines
  1. // Bubba - Brother of Leonard (of dubious paternal origins)
  2. // By Arthur Attila Donavan
  3.  
  4. // Tiles starting positions for Bubba
  5. // BUBBASCRATCH         4464
  6. // BUBBANOSE            4476
  7. // BUBBAPISS            4487
  8. // BUBBASTAND           4504
  9. // BUBBAOUCH            4506
  10. // BUBBADIE             4513
  11. // BUBBADEAD            4523
  12.  
  13. // Define actions
  14. action ABUBBA_SCRATCH1 -40  5  1  1  20
  15. action ABUBBA_SCRATCH2 -35  2  1  1  20
  16. action ABUBBA_SCRATCH3 -33  2  1  1  20
  17. action ABUBBA_SCRATCH4 -31  2  1  1  20
  18. action ABUBBA_SCRATCH5 -32  1  1  1  20
  19. action ABUBBA_NOSE1    -28  2  1  1  20
  20. action ABUBBA_NOSE2    -26  2  1  1  20
  21. action ABUBBA_NOSE3    -24  4  1  1  20
  22. action ABUBBA_NOSE4    -20  2  1  1  20
  23. action ABUBBA_NOSE5    -21  1  1  1  20
  24. action ABUBBA_PISS     -17 17  1  1  20
  25. action ABUBBA_STAND      0  1  1  1  20
  26. action ABUBBA_PAIN       2  6  1  1  20
  27. action ABUBBA_DIE        9 11  1  1  20
  28. action ABUBBA_DEAD      19  1  1  1  20
  29.  
  30. // Define movements
  31. move BUBBA_STOP
  32.  
  33. // Define AI states
  34. ai AIBUBBA_SCRATCH ABUBBA_SCRATCH1 BUBBA_STOP faceplayer
  35. ai AIBUBBA_NOSE    ABUBBA_NOSE1    BUBBA_STOP faceplayer
  36. ai AIBUBBA_PISS    ABUBBA_PISS     BUBBA_STOP faceplayer
  37. ai AIBUBBA_STAND   ABUBBA_STAND    BUBBA_STOP faceplayer
  38. ai AIBUBBA_PAIN    ABUBBA_PAIN     BUBBA_STOP faceplayer
  39. ai AIBUBBA_WACKED  ABUBBA_PAIN     BUBBA_STOP faceplayer
  40. ai AIBUBBA_DIE     ABUBBA_DIE      BUBBA_STOP faceplayer
  41. ai AIBUBBA_DEAD    ABUBBA_DEAD     BUBBA_STOP faceplayer
  42.  
  43. // States (subroutines) ******************************
  44. state bubsndpain
  45.   ifrnd 64
  46.     soundonce BUB_HRT1
  47.   else ifrnd 85
  48.     soundonce BUB_HRT2
  49.   else ifrnd 128
  50.     soundonce BUB_HRT3
  51.   else
  52.     soundonce BUB_HRT4
  53. ends
  54.  
  55. state bubsndpick
  56.   ifrnd 128
  57.     soundonce BUB_PIK1
  58.   else
  59.     soundonce BUB_PIK2
  60. ends
  61.  
  62. state bubsndcall
  63.   ifrnd 31
  64.     soundonce BUB_HEY1
  65.   else ifrnd 36
  66.     soundonce BUB_HEY2
  67.   else ifrnd 43
  68.     soundonce BUB_LN1
  69.   else ifrnd 51
  70.     soundonce BUB_LN2
  71.   else ifrnd 64
  72.     soundonce BUB_LN3
  73.   else ifrnd 85
  74.     soundonce BUB_LN5
  75.   else ifrnd 128
  76.     soundonce BUB_LN6
  77.   else
  78.     soundonce BUB_LN7
  79. ends
  80.  
  81. /*
  82. state bubsndpain
  83.   ifrnd
  84.     soundonce
  85.   else ifrnd
  86.     soundonce
  87.   else
  88.     soundonce
  89. ends
  90. */
  91.  
  92. state bubbanose
  93.   ifaction ABUBBA_NOSE1
  94.   {
  95.     ifactioncount 2
  96.       action ABUBBA_NOSE2
  97.   }
  98.   else ifaction ABUBBA_NOSE2
  99.   {
  100.     ifactioncount 8
  101.       action ABUBBA_NOSE3
  102.   }
  103.   else ifaction ABUBBA_NOSE3
  104.   {
  105.     ifactioncount 2
  106.     {
  107.       action ABUBBA_NOSE4
  108.       state bubsndcall
  109.     }
  110.   }
  111.   else ifaction ABUBBA_NOSE4
  112.   {
  113.     ifactioncount 6
  114.       action ABUBBA_NOSE5
  115.   }
  116.   else ifaction ABUBBA_NOSE5
  117.   {
  118.     ifactioncount 1
  119.       ai AIBUBBA_STAND
  120.   }
  121. ends
  122.  
  123. state bubbascratch
  124.   ifaction ABUBBA_SCRATCH1
  125.   {
  126.     ifactioncount 5
  127.       action ABUBBA_SCRATCH2
  128.   }
  129.   else ifaction ABUBBA_SCRATCH2
  130.   {
  131.     ifactioncount 8
  132.       action ABUBBA_SCRATCH3
  133.   }
  134.   else ifaction ABUBBA_SCRATCH3
  135.   {
  136.     ifactioncount 2
  137.     {
  138.       action ABUBBA_SCRATCH4
  139.       state bubsndcall
  140.     }
  141.   }
  142.   else ifaction ABUBBA_SCRATCH4
  143.   {
  144.     ifactioncount 6
  145.       action ABUBBA_SCRATCH5
  146.   }
  147.   else ifaction ABUBBA_SCRATCH5
  148.   {
  149.     ifactioncount 1
  150.       ai AIBUBBA_STAND
  151.   }
  152. ends
  153.  
  154. // Actors ********************************************
  155. actor BUBBASTAND 100
  156.   fall
  157.  
  158.   ifai 0
  159.   {
  160.     cstator 257
  161.     sizeto 16 16
  162.     ai AIBUBBA_PISS
  163.     soundonce BUB_PISS
  164.   }
  165.  
  166.   ifai AIBUBBA_PAIN
  167.   {
  168.     ifactioncount 6
  169.       ai AIBUBBA_STAND
  170.   }
  171.   else ifai AIBUBBA_SCRATCH
  172.   {
  173.     state bubbascratch
  174.   }
  175.   else ifai AIBUBBA_NOSE
  176.   {
  177.     state bubbanose
  178.   }
  179.   else ifai AIBUBBA_PISS
  180.   {
  181.     ifactioncount 17
  182.       ai AIBUBBA_STAND
  183.   }
  184.   else ifai AIBUBBA_STAND
  185.   {
  186.     ifrnd 128
  187.     {
  188.       ai AIBUBBA_NOSE
  189.       state bubsndpick
  190.     }
  191.     else
  192.       ai AIBUBBA_SCRATCH
  193.   }
  194.   else ifai AIBUBBA_WACKED
  195.   {
  196.     nullop
  197.     /*
  198.     ifactioncount 7
  199.     { nullop }
  200.     else
  201.     ifactioncount 6
  202.     {
  203.       smackbubba
  204.       break
  205.     }
  206.     */
  207.   }
  208.   else ifai AIBUBBA_DIE
  209.   {
  210.     ifactioncount 5
  211.     {
  212.       ifactioncount 11
  213.       {
  214.         ifrnd 64
  215.           spawn BLOODPOOL
  216.         state bf
  217.         iffloordistl 8
  218.           sound THUD
  219.         ai AIBUBBA_DEAD
  220.       }
  221.     }
  222.     else ifactioncount 4
  223.       soundonce THUD
  224.   }
  225.   else ifai AIBUBBA_DEAD
  226.   {
  227.     cstat 0
  228.     strength 0
  229.     addphealth -1000
  230.     ifhitweapon
  231.       ifwasweapon RADIUSEXPLOSION
  232.       {
  233.         move BUBBA_STOP
  234.         addkills 1
  235.         sound SQUISHED
  236.         guts JIBS2 1
  237.         guts JIBS3 2
  238.         guts JIBS4 3
  239.         guts JIBS5 2
  240.         guts JIBS6 3
  241.         killit
  242.       }
  243.     break
  244.   }
  245.  
  246.   ifhitweapon
  247.   {
  248.     state random_wall_jibs
  249.     spawn BLOOD
  250.     ifcoop
  251.       strength 100
  252.     ifdead
  253.     {
  254.       ifai AIBUBBA_DEAD
  255.         nullop
  256.       else ifai AIBUBBA_DIE
  257.         nullop
  258.       else
  259.         ai AIBUBBA_DIE
  260.     }
  261.     else
  262.     {
  263.       ifwasweapon CROWBAR
  264.       {
  265.         smackbubba
  266.         // ai AIBUBBA_WACKED
  267.         state bubsndpain
  268.         break
  269.       }
  270.       ifai AIBUBBA_PAIN
  271.         nullop
  272.       else
  273.       {
  274.         ai AIBUBBA_PAIN
  275.         state bubsndpain
  276.       }
  277.     }
  278.   }
  279. enda
  280.  
  281.