XPos=Random(0,20)
YPos=Random(0,20)
Object=Random(1,101)
MonsterItem=Random(0,1)

If Random(0,25)=0
CreateEffect(0,500,0,#DIR_UP,309,XPos,YPos,0,0,0)
If MonsterItem=0
SpawnMonster(309,Object,XPos,YPos)
Else
SpawnItem(309,Object,XPos,YPos)
Endif
Endif

Continue = 1