MW Object Library - Creatures
*
* Format (by CyQ):
* 
* library name
* comments, starting with *
* per object:
* object name
* lines in program, char,forground color,background color,x step,y step,cycle
* program
* 
Bear
11,153,6,0,0,0,2
@bear
/i#if not alligned restart
#try seek
#if not contact restart
#shoot seek
#die
:shot
:bombed
#play +c---c++++c--c
#give score 1
#die
BearCub
16,148,6,0,0,0,2
@bearcub
#if contact hurt
#if alligned charge
#try seek try rndp rndne
#restart
:charge
#try seek try rndp seek
#restart
:hurt
#shoot seek
#die
:shot
:bombed
#play +c---c++++c--c
#give score 2
#die
Ruffian
42,5,13,0,0,0,1
@ruffian
:do
:do
#zap do
#walk seek
#if contact hurt
/i#if contact hurt
/i#if contact hurt
/i#if contact hurt
/i#if contact hurt
/i#if contact hurt
#walk idle
#wait
:wait
/i/i
:wait
/i/i/i
:wait
/i#zap wait
#do
:wait
/i/i/i/i#restore wait
#walk seek
#shortrun
:do
#restore do
#walk rndp rndne
:shortrun
#if contact hurt
/i#if contact hurt
/i#if contact hurt
/i#if contact hurt
#walk idle
/i/i/i#do
:hurt
#shoot seek
#die
:shot
:bombed
#play +c---c++++c--c
#give score 2
#die
Lion
16,234,12,0,0,0,2
@lion
#try rndp rndne
#if contact hurt
#try seek
#if contact hurt
#try seek
#if contact hurt
#restart
:hurt
#shoot seek
#die
:shot
:bombed
#play +c---c++++c--c
#give score 1
#die
Tiger
17,227,11,0,0,0,2
@tiger
#try rndp rndne
#if contact hurt
#try seek
#if contact hurt
#try seek
#if contact hurt
#shoot seek
#restart
:hurt
#shoot seek
#die
:shot
:bombed
#play +c---c++++c--c
#give score 2
#die
Goblin
15,5,2,0,0,0,1
@goblin
#try rndp rndne
#if contact hurt
#try rndp seek
#if contact hurt
/i#if contact hurt
#restart
:hurt
#shoot seek
#die
:shot
:bombed
#play +c---c++++c--c
#give score 2
#die
Spider
27,15,8,0,0,0,1
@spider
#if contact hurt
#try rndp rndne try rndp rndne
#if blocked n climb
#if blocked s climb
#if blocked e climb
#if blocked w climb
#restart
:climb
:climb
:climb
#zap climb
/i/i#if blocked n climb
#if blocked s climb
#if blocked e climb
#if blocked w climb
:climb
#restore climb
#restart
:hurt
#shoot seek
#die
:shot
:bombed
#play +c---c++++c--c
#give score 1
#die
Dragon
27,21,4,0,0,0,3
@dragon
:do
:do
#try seek
#if contact hurt
#try rndp seek
#if contact hurt
#zap do
#do
:do
#shoot seek
#restore do
#restart
:shot
:shot
:shot
#play +c---c++++c--c
#zap shot
#do
:hurt
#shoot seek
#do
:shot
:bombed
#play +c---c++++c--c
#give score 4
#die
DragonPup
18,145,4,0,0,0,1
@dragonpup
/i/i#if contact hurt
#try seek
/i/i#if contact hurt
#try rndp seek
/i/i#if contact hurt
#try seek
/i#if contact hurt
#shoot seek
#restart
:hurt
#shoot seek
#die
:shot
:bombed
#play +c---c++++c--c
#give score 2
#die
Runner (Starts West)
16,2,12,0,0,0,1
@runner
#if contact hurt
#try w reverse  'Change "w" to desired dir
#restart
:reverse
#if contact hurt
#try e restart  'Change "e" to desired dir
#reverse
:hurt
#shoot seek
#die
:shot
:bombed
#play +c---c++++c--c
#give score 1
#die
Snake
28,235,2,0,0,0,1
@snake
#if contact hurt
#try n check
#restart
:check
#if blocked rndp rndne restart
#if blocked rndp rndne gos
#if blocked rndp rndne gow
:goe
#if contact hurt
#try e check
#goe
:gos
#if contact hurt
#try s check
#gos
:gow
#if contact hurt
#try w check
#gow
:hurt
#shoot seek
#die
:shot
:bombed
#play +c---c++++c--c
#give score 1
#die
Eye
12,236,15,0,0,0,1
@eye
#if contact hurt
#try rndp rndne try rndp rndne
#restart
:hurt
#shoot seek
#die
:shot
:bombed
#play +c---c++++c--c
#give score 1
#die
Fish
16,224,14,0,0,0,1
@fish
#if contact hurt
#try randp randne
#if contact hurt
#try seek
#if contact hurt
#try randp randne
#restart
:hurt
#shoot seek
#die
:shot
:bombed
#play +c---c++++c--c
#give score 1
#die
Pairer
9,229,1,0,0,0,1
@pairer
/i#if not contact restart
#shoot seek
#die
:shot
:bombed
#play +c---c++++c--c
#give score 1
#die
MissileN
45,30,8,0,0,0,1
@missilen
#if blocked n restart
#walk n
#end
:thud
#if contact explode
:ew
#zap thud
#if blocked e w
#char 16
#walk e
#end
:w
#if blocked w ns
#char 17
#walk w
#end
:thud
#if contact explode
:ns
#restore thud
#if blocked n s
#char 30
#walk n
#end
:s
#if blocked s ew
#char 31
#walk s
#end
:explode
#lock
#walk idle
#shoot seek
#if not blocked n put n red fake
#if not blocked s put s red fake
#if not blocked e put e red fake
#if not blocked w put w red fake
/i#if not blocked n put n empty
#if not blocked s put s empty
#if not blocked e put e empty
#if blocked w die
#put w empty
:bombed
#die
MissileS
45,31,8,0,0,0,1
@missiles
#if blocked s restart
#walk s
#end
:thud
#if contact explode
:ew
#zap thud
#if blocked e w
#char 16
#walk e
#end
:w
#if blocked w ns
#char 17
#walk w
#end
:thud
#if contact explode
:ns
#restore thud
#if blocked n s
#char 30
#walk n
#end
:s
#if blocked s ew
#char 31
#walk s
#end
:explode
#lock
#walk idle
#shoot seek
#if not blocked n put n red fake
#if not blocked s put s red fake
#if not blocked e put e red fake
#if not blocked w put w red fake
/i#if not blocked n put n empty
#if not blocked s put s empty
#if not blocked e put e empty
#if blocked w die
#put w empty
:bombed
#die
MissileE
45,16,8,0,0,0,1
@missilee
#if blocked e restart
#walk e
#end
:thud
#if contact explode
:ns
#zap thud
#if blocked n s
#char 30
#walk n
#end
:s
#if blocked s ew
#char 31
#walk s
#end
:thud
#if contact explode
:ew
#restore thud
#if blocked e w
#char 16
#walk e
#end
:w
#if blocked w ns
#char 17
#walk w
#end
:explode
#lock
#walk idle
#shoot seek
#if not blocked n put n red fake
#if not blocked s put s red fake
#if not blocked e put e red fake
#if not blocked w put w red fake
/i#if not blocked n put n empty
#if not blocked s put s empty
#if not blocked e put e empty
#if blocked w die
#put w empty
:bombed
#die
MissileW
45,17,8,0,0,0,1
@missilew
#if blocked w restart
#walk w
#end
:thud
#if contact explode
:ns
#zap thud
#if blocked n s
#char 30
#walk n
#end
:s
#if blocked s ew
#char 31
#walk s
#end
:thud
#if contact explode
:ew
#restore thud
#if blocked e w
#char 16
#walk e
#end
:w
#if blocked w ns
#char 17
#walk w
#end
:explode
#lock
#walk idle
#shoot seek
#if not blocked n put n red fake
#if not blocked s put s red fake
#if not blocked e put e red fake
#if not blocked w put w red fake
/i#if not blocked n put n empty
#if not blocked s put s empty
#if not blocked e put e empty
#if blocked w die
#put w empty
:bombed
#die
Thief
32,5,12,0,0,0,2
@thief
#try seek try rndp seek try rndp rndne
#if contact steal
#try rndp seek try seek try rndp rndne
#if contact steal
#restart
:steal
#if blocked rndp rndne steal1
#if blocked rndp rndne steal2
#if blocked rndp rndne steal1
:steal2
#take gems 1 retreat
:steal1
#take gems 1 retreat
:retreat
#try opp seek try rndp seek try rndp rndne
#try opp seek try rndp seek try rndp rndne
#try rndp rndne try rndp rndne
#if contact steal
#try rndp rndne
#if contact steal
#try rndp rndne
#if contact steal
#restart
:shot
#zap shot
#retreat
:shot
:bombed
#play +c---c++++c--c
#give score 2
#die
Bee
14,236,14,0,0,0,1
@bee
#try rndns
/i/i/i#if contact hurt
#try cw rndns
/i/i/i#if contact hurt
#if alligned shoot seek
#restart
:hurt
#shoot seek
#die
:shot
#play +c---c++++c--c
#give score 1
#die
SeaMonster
31,146,2,0,0,0,1
@seamonster
:do
:do
:do
:do
:do
:do
:do
:do
:do
#zap do
#try rndp rndne try seek try rndp rndne
#do
:do
#restore do
#throwstar rndp rndne
#do
:shot
:shot
:shot
#play +c---c++++c--c
#zap shot
#do
:bombed
#zap shot
#shot
:shot
:shot
#play +c---c++++c--c
#give score 4
#die
Snail
10,64,3,0,0,0,1
@snail
:thud
#walk rndp rndne
/i#put opp flow cyan breakable
#walk idle
/i/i/i/i#restart
:bombed
#play +c---c++++c--c
#give score 1
#die
Skeleton
34,1,7,0,0,0,2
@skeleton
:do
:do
:do
:do
:do
#try rndp rndne try seek try rndp seek
#if contact hurt
#zap do
#do
:do
#shoot rndp rndne
#restore do
#do
:hurt
#if blocked cw seek straight
#throwstar cw seek
#try seek do
#if contact hurt
#do
:straight
#throwstar seek
#try seek do
#if contact hurt
#do
:shot
#play +c---c++++c--c
#zap shot
#do
:bombed
:shot
#play +c---c++++c--c
#give score 2
#die
Troll
23,225,5,0,0,0,2
@troll
#try rndp rndne try rndp rndne try seek
#if alligned charge
#restart
:charge
#if contact hurt
#try seek try rndp seek try rndp seek
#if contact hurt
#try seek try rndp seek try rndp seek
#if contact hurt
#try seek try rndp seek try rndp seek
#if contact hurt
#shoot seek
#if alligned charge
#restart
:hurt
#throwstar rndp seek
#charge
:shot
:bombed
#play +c---c++++c--c
#give score 2
#die
Grue
40,38,5,0,0,0,3
@grue
#try rndp seek try seek try rndp seek
#if contact hurt
#try rndp rndne try rndp rndne try seek
#if contact hurt
#try seek try rndp seek try rndp seek
#if contact hurt
#try rndp rndne try seek try rndp rndne
#if contact hurt
#restart
:hurt
#shoot seek
#throwstar cw seek
#throwstar ccw seek
#try opp seek try rndp seek try rndp seek
#try opp seek try rndp seek try rndp seek
#try opp seek try rndp seek try rndp seek
#if contact hurt
#restart
:shot
:shot
#play +c---c++++c--c
#zap shot
#throwstar cw seek
#throwstar ccw seek
#restart
:bombed
#zap shot
#shot
:shot
:shot
#play +c---c++++c--c
#cycle 2
#zap shot
#hurt
:shot
:shot
#play +c---c++++c--c
#give score 4
#die
Brawler
50,6,6,0,0,0,1
@brawler
/i/i#try ccw seek try seek try opp seek
/i/i#try ccw seek try seek try opp seek
/i/i#try ccw seek try seek try opp seek
/i/i#try ccw seek try seek try opp seek
/i/i#try ccw seek try seek try opp seek
/i/i#try ccw seek try seek try opp seek
/i/i/i/i/i#zap touch
#char 5
#try seek try rndp seek try rndp rndne
#if contact touch
#try seek try rndp seek try rndp rndne
#if contact touch
#try seek try rndp seek try rndp rndne
#if contact touch
#try seek try rndp seek try rndp rndne
#if contact touch
#char 6
#restore touch
/i/i/i/i#try opp seek try rndp seek
:retreat
#try opp seek try rndp seek try rndp rndne
#try opp seek try rndp seek try rndp rndne
#try opp seek try rndp seek try rndp rndne
#restart
:touch
#shot
:shot
:shot
:shot
:shot
#play +c---c++++c--c
#zap shot
#char 33
#try opp seek try rndp seek try rndp rndne
#char 6
#retreat
:touch
#char 6
#shoot seek
#restore touch
/i#retreat
:bombed
#zap shot
#shot
:shot
:shot
#play +c---c++++c--c
#give score 3
#die
SpinningGun
56,24,15,0,0,0,2
@spinninggun
:dir
#char 26
#zap dir
#zap shooter
#zap check
#check
:dir
#char 25
#zap dir
#zap shooter
#zap check
#check
:dir
#char 27
#zap dir
#zap shooter
#zap check
#check
:dir
#char 24
#restore dir
#restore shooter
#zap check
#check
:check
#shooter
:check
:check
:check
/i#dir
:check
:check
#shooter
:check
/i#dir
:check
#shooter
:check
:check
#shooter
:check
#restore check
/i#dir
:shooter
#shoot n
#dir
:shooter
#shoot e
#dir
:shooter
#shoot s
#dir
:shooter
#shoot w
#dir
StarGun
56,24,15,0,0,0,2
@stargun
:dir
#char 26
#zap dir
#zap shooter
#zap check
#check
:dir
#char 25
#zap dir
#zap shooter
#zap check
#check
:dir
#char 27
#zap dir
#zap shooter
#zap check
#check
:dir
#char 24
#restore dir
#restore shooter
#zap check
#check
:check
/i#dir
:check
:check
:check
/i#dir
:check
:check
#shooter
:check
/i#dir
:check
/i#dir
:check
:check
#shooter
:check
#restore check
/i#dir
:shooter
#throwstar n
#dir
:shooter
#throwstar e
#dir
:shooter
#throwstar s
#dir
:shooter
#throwstar w
#dir
Hydra
30,156,12,1,0,0,1
@hydra
/i#if not alligned restart
#shoot seek
/i/i#if not alligned restart
#shoot seek
/i#if not alligned restart
#throwstar seek
/i/i/i#if not alligned restart
#shoot seek
#restart
:shot
:shot
:shot
:shot
:shot
:shot
:shot
#play +c---c++++c--c
#zap shot
#throwstar seek
#restart
:bombed
#zap shot
#zap shot
#zap shot
#shot
:shot
#play +c---c++++c--c
#give score 6
#die
Giant
20,142,6,0,0,0,3
@giant
#try rndp rndne try rndp rndne try seek
#if contact hurt
#restart
:hurt
#throwstar seek
#throwstar cw seek
#throwstar ccw seek
#if contact hurt
:shot
:shot
:shot
#play +c---c++++c--c
#zap shot
#restart
:bombed
:shot
#play +c---c++++c--c
#give score 4
#die
Ogre
14,128,2,0,0,0,3
@ogre
#try rndp seek try seek try rndp seek
#try seek try rndp seek try rndp seek
#if alligned shoot seek
#restart
:shot
#play +c---c++++c--c
#zap shot
#restart
:bombed
:shot
#play +c---c++++c--c
#give score 4
#die
Ogreling
15,135,2,0,0,0,2
@ogreling
#try rndp seek try seek try rndp seek
#if contact hurt
#try seek try rndp seek try rndp seek
#if contact hurt
#if alligned shoot seek
#restart
:hurt
#shoot seek
#die
:bombed
:shot
#play +c---c++++c--c
#give score 2
#die
Tick
12,249,7,0,0,0,1
@tick
#try rndp rndne try rndp seek try seek
#if contact hurt
#restart
:hurt
#shoot seek
#die
:bombed
:shot
#play +c---c++++c--c
#give score 1
#die
Worms
8,247,14,0,0,0,3
@worms
#try rndp rndne try rndp rndne
#restart
:bombed
:shot
#play +c---c++++c--c
#give score 1
#die