Spore Tower Script

[pablo2007]

Im a CRPL newbie and i need help.
Someone have/create spore tower script? I need it for my next map.
If someone have, please post that script here.

[Sorrontis]

Code Select Expand

once
$BuildTime:4700
$FireTime:4700
$Amount:50
$SporeHealth:1
0 ->State
2 ->Spore
endonce

<-State eq0 if
once
Self "main" "Custom0" SetImage
0 ->time
endonce

Self "main" GetImageRotation ->rotation
<-rotation 0.05 add ->rotation
Self "main" <-rotation SetImageRotation

<-time 100 mul <-BuildTime div ->Percent
<-Percent "%" concat ->Text2
<-Text2 "Built" concat ->Text2
<-time <-BuildTime eq if
1 ->State
endif
<-time 1 add ->time
endif

<-State 1 eq if
once
Self "first" "Custom2" SetImage
<-FireTime ->time
Self "first" 0 00 -0.01 SetImagePosition
endonce
Self "main" GetImageRotation ->rotation
<-rotation 0.05 add ->rotation
Self "main" <-rotation SetImageRotation


<-time 1800 div ->A
<-time 1800 mod ->B
<-B 30 div ->C
if(<-C 10 lt)
<-A ":" concat ->Text1
<-Text1 0 concat ->Text0
<-Text0 <-C concat ->Text2
else
<-A ":" concat ->Text1
<-Text1 <-C concat ->Text2
endif

<-Spore 1 sub ->count
Concat("Spore : " <-count) SetPopupText

<-time 300 eq if
"RED" "SPORETOWER" "Spore : " <-count concat "" CellToPixel(CurrentCoords) ShowGameEventTag
endif

<-time eq0 if
<-Spore 1 do
CurrentCoords RandUnitCoords <-SporeHealth <-Amount CreateSpore
loop
<-Spore 1 add ->Spore
<-FireTime ->time
endif

<-time 1 sub ->time
endif

<-Text2 SetText
13 SetTextY
0.6 SetTextSize

TRUE PersistCore

I use 2 custom images (the spore tower & the spore) as images. You can change that yourself. Send me a message if you'd like. This is a ramping spore. So everytime it fires, the # of spores increases by 1.

[pablo2007]

Wow, thank for script!