RandCoords 0.1 QueueMove
:destroyed
500 0 Do CurrentCoords RandCoords 10 1 CreateSpore loop
V2
GetQueuedMoveCount eq0 if
RandCoords 0.1 QueueMove
Endif
:destroyed
500 0 Do CurrentCoords RandCoords 10 1 CreateSpore loop
V3
GetQueuedMoveCount eq0 if
CurrentX ->x1
CurrentY ->y1
0 60 Randint ->x2
0 120 RandInt ->y2
0 ->K
500 ->P
P 0 Do
P I sub
pop x1 mul ->q1
I x2 mul ->q2
q1 q2 add
pop P div ->x3
P I sub
pop y1 mul ->q3
I y2 mul ->q4
q1 q2 add
pop P div ->y3
x3 y3 GetWall if
1 ->K
Endif
loop
K not if
x1 y1 0.1 QueueMove
Endif
Endif
:destroyed
500 0 Do CurrentCoords RandCoords 10 1 CreateSpore loop
This should work once variables are implemented...
once
#D is Spore Health (durability)
10 ->D
# N is the rate of Creeper per cycle (CCC)
1000 ->N
# O Duration of cyc;e
1800 ->O
# M is Min Period between Spores (F)
30 ->M
# S is the max # of spores
<-O <-M div ->S
endonce
# L is the number of spores this cycle
1 <-S RandInt ->L
# C is the time between each spore
<-O <-L div ->C
#P is the payload
<-N <-L div ->P
<-L 0 Do
CurrentCoords RandCoords <-D <-P CreateSpore
<-C Delay
loop
uploads
once
# 1 NORMAL SPORE = 40 CCC
# Launch Every 45-75 seconds (avg. 60)
#D is Spore Health (durability)
10 ->D
# N is the rate of Creeper per cycle (CCC)
500 ->N
# E is the Last Revenge Multiplier
10 ->E
# O Duration of cycle
30 60 mul ->O
# M is Min Period between Spores (F)
30 ->M
# S is the max # of spores
<-O <-M div ->S
2 ->x1
108 ->x2
163 ->x3
41 ->y1
32 ->y2
135 ->y3
endonce
# L is the number of spores this cycle
1 <-S RandInt ->L
# C is the time between each spore
<-O <-L div ->C
#P is the payload
<-N <-L div ->P
1 4 RandInt ->z9
<-z9 1 eq if
<-x1 ->x7
<-y1 ->y7
endif
<-z9 2 eq if
<-x2 ->x7
<-y2 ->y7
endif
<-z9 3 eq if
<-x3 ->x7
<-y3 ->y7
endif
CurrentCoords <-x7 <-y7 Distance ->Q7
<-Q7 8 mul ->P7
<-P7 <-O div ->V7
<-x7 <-y7 ->V7 QueueMove
<-L 0 Do
CurrentCoords RandCoords <-D <-P CreateSpore
<-C Delay
loop
:destroyed
CurrentCoords <-N <-E mul AddCreeper
<-E 1 Do
CurrentCoords RandCoords <-D <-N CreateSpore
Loop