TILEMASTER2004 DATA V1
SCRIPT: 35
0 CheckScriptType START 100
0 DBG "DBG: Starting turn script"
1 DBG "DBG: Check creature still exists"
0 CheckCreature GONE 1 10
0 DBG "DBG: Roll for use of summoning power"
0 Random 50 3
0 DBG "DBG: Summoning power not used"
2 DBG "DBG: Waiting"
0 WaitTurns 4
0 GOTO 1
3 DBG "DBG: Generating creature"
0 MakeMapObj Creature 63 7 5
0 CheckState INC 4
0 FX 3 104 7 5
0 Message "Minor beholder is gated in!"
0 GOTO 2
4 DBG "DBG: Occupied, generating creature at second pos"
0 MakeMapObj Creature 63 7 4
0 CheckState INC 5
0 FX 3 104 7 4
0 Message "Minor beholder is gated in!"
0 GOTO 2
5 DBG "DBG: Occupied, generating creature at third pos"
0 MakeMapObj Creature 63 7 6
0 CheckState INC 2
0 FX 3 104 7 6
0 Message "Minor beholder is gated in!"
0 GOTO 2
10 DBG "DBG: Creature destroyed, script done"
0 BREAK
100 NOOP
0 CreateCreatureDef 1 -COPY 86 -NAME "Beholder Aberration" -TILE 1007 -TCAP BLOCKED -HP 50 -RANGE 5 -APPLY
0 CreateTile 1007 -COPY 59 -FRAME 0 1007
0 CreateFrame 1007 -LOAD 1007.til
