ThePenguin's Code Bin

[thepenguin]

Code Select Expand


RandCoords 0.1 QueueMove
:destroyed
500 0 Do CurrentCoords RandCoords 10 1 CreateSpore loop


[thepenguin]

V2

Code Select Expand


GetQueuedMoveCount eq0 if
RandCoords 0.1 QueueMove
Endif
:destroyed
500 0 Do CurrentCoords RandCoords 10 1 CreateSpore loop


[thepenguin]

V3

Code Select Expand


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...

[thepenguin]

Code Select Expand

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

[thepenguin]

uploads

[thepenguin]

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