SHARE
TWEET

c3/ds plant.cos, push pull hit drop responces included

a guest Feb 18th, 2020 64 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. new: simp 2 4 50002 "BoientBogBells" 8 0 rand 200 6000
  2.     BHVR 32
  3.     ATTR 199
  4.     perm 40
  5.     emit 7 1
  6.     ACCG 3
  7.     ELAS 25
  8.     fric 90
  9.     AERO 2
  10.     setv ov77 0
  11.     setv ov78 0
  12.     setv ov79 0
  13.     setv ov80 0
  14.     setv ov81 rand 10 20
  15.     mvsf game "CreatorX" game "CreatorY"
  16.     velo rand 10 25 rand 0 -10
  17.     TICK 60
  18. endm
  19. scrp 2 4 50002 9
  20.     doif ov77 ne 1
  21.         gsub grow
  22.     elif ov78 ne 1
  23.         gsub live
  24.     elif ov79 ne 1
  25.         gsub seed
  26.     elif ov80 ne 1
  27.         gsub die
  28.     else
  29.         kill ownr
  30.     endi
  31.     subr grow
  32.         setv va00 pose
  33.         doif pose ne 5
  34.             addv va00 1
  35.             pose va00
  36.             wait 10
  37.         else
  38.             setv ov77 1
  39.         endi
  40.     retn
  41.     subr live
  42.         doif ov81 ne 0
  43.             subv ov81 1
  44.             wait 1
  45.         else
  46.             setv ov78 1
  47.         endi
  48.     retn
  49.     subr seed
  50.         doif rtyp room targ eq 5
  51.             rnge 300
  52.             setv va66 0
  53.             esee 2 4 50002
  54.                 addv va66 1
  55.             next
  56.             targ ownr
  57.             doif va66 le 10
  58.                 setv va00 posx
  59.                 setv va01 posy
  60.                 reps rand 2 5
  61.                     inst
  62.                     new: simp 2 4 50002 "BoientBogBells" 8 0 rand 200 6000
  63.                     bhvr 32
  64.                     attr 199
  65.                     perm 40
  66.                     emit 7 1
  67.                     accg 3
  68.                     elas 25
  69.                     fric 90
  70.                     aero 2
  71.                     setv ov77 0
  72.                     setv ov78 0
  73.                     setv ov79 0
  74.                     setv ov80 0
  75.                     setv ov81 rand 10 20
  76.                     mvsf va00 va01
  77.                     velo rand 10 25 rand 0 -10
  78.                     tick 60
  79.                 repe
  80.             endi
  81.             targ ownr
  82.         endi
  83.         setv ov79 1
  84.     retn
  85.     subr die
  86.         setv va00 pose
  87.         doif pose ne 0
  88.             subv va00 1
  89.             pose va00
  90.             wait 10
  91.         else
  92.             setv ov80 1
  93.         endi
  94.     retn
  95. endm
  96. scrp 2 4 50002 1
  97.     doif ov77 eq 1
  98.         pose 6
  99.         wait 1
  100.         pose 5
  101.         wait 1
  102.         pose 7
  103.     endi
  104.     snde "tcw1"
  105. endm
  106. scrp 2 4 50002 2
  107.     doif ov77 eq 1
  108.         pose 6
  109.         wait 1
  110.         pose 5
  111.         wait 1
  112.         pose 7
  113.     endi
  114.     snde "tcw1"
  115. endm
  116. scrp 2 4 50002 3
  117.     doif ov77 eq 1
  118.         pose 6
  119.         wait 1
  120.         pose 5
  121.         wait 1
  122.         pose 7
  123.     endi
  124.     snde "tcw1"
  125. endm
  126. scrp 2 4 50002 6
  127.     doif ov77 eq 1
  128.         pose 6
  129.         wait 1
  130.         pose 5
  131.         wait 1
  132.         pose 7
  133.     endi
  134.     snde "dr64"
  135. endm
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top