Sanely Insane
RisenAngel Manager
|
8/4/2008 | |
After successfully completing yet another plant, I decided I'd try and give making a critter another go. And, like my last attempt, it doesn't work right.
inst
new: simp 2 15 18764 "dfish" 2 0 3500
attr 199
bhvr 48
accg 0
aero 1
perm 100
elas 3
tick 2
setv ov00 0
mvto 5852 2288
endm
scrp 2 15 187634 9
addv ov00 1
doif ov00 >= 10000
gsub deth
endi
doif ov02 = 1
gsub deth
endi
gsub room
gsub move
subr room
doif rtyp room ownr ne 8 and rtyp room ownr ne 9
loop
accg 2
addv ov01 1
untl rtyp room ownr = 8 or rtyp room ownr = 9 or ov01 >= 100
doif ov01 >= 100
gsub deth
elif rtyp room ownr = 8 or rtyp room ownr = 9
accg 0
setv ov01 0
endi
endi
retn
subr deth
doif carr = null and fall = 0
kill ownr
endi
doif carr ne null
setv ov02 1
endi
doif fall = 1
setv ov02 1
endi
retn
subr move
setv va00 rand 1 2
setv va04 rand 2 7
reps va04
setv va03 rand 10 30
doif va00 eq 1
setv va01 rand -5 0
setv velx va01
setv va02 rand -5 5
setv vely va02
pose 1
elif va00 eq 2
setv va01 rand 0 5
setv velx va01
setv va02 rand -5 5
setv vely va02
pose 0
endi
repe
retn
endm
scrp 2 15 18764 12
snde "chwp"
stim writ from 80 1
kill ownr
endm
rscr
enum 2 15 18764
kill targ
next
scrx 2 15 18764 9
scrx 2 15 18764 12 |
The fish is supposed to randomly swim around until it dies, but instead it just sits there. It won't even fall when placed above water.
I think it has something to do with the timer script not turning on, but why wouldn't it?
~ The Realm ~
Risen Angel's Creatures Blog
|