User Tools

Site Tools


<-CW3 Home<- CRPL Home

Code Examples

Code examples contributed by map makers and coders alike. Feel free to submit your own - it will be much appreciated.

You can also view the scripts in any map: make a copy of the map you want to inspect, rename the copy “save.cw3”, create a new project, and then replace the project's “save.cw3” file.

Telanir contributed an entire section on EasyCRPL.

Manage Treasure Chests in Credits Mission

# Goodie.crpl
# Created on: 9/10/2013 8:36:17 PM
# ------------------------------------------


	GetCoresWithVar("name" "Player") pop ->player

if (Distance(CurrentCoords GetUnitAttribute(<-player CONST_COORDX) GetUnitAttribute(<-player CONST_COORDY)) lte(2))
	Destroy(Self 1)

	CreateUnit("CRPLCORE" CurrentCoords) ->fadingPoints
	AddScriptToUnit(<-fadingPoints "FadingPoints.crpl")
	SetScriptVar(<-fadingPoints "FadingPoints.crpl" "pointAmt" <-score)

Contributed by VirgilW

Image Spinner

Specify a rate and which image to rotate. Positive rotation rates are counterclockwise and the rotation rate is in radians per frame.


# Make a part spin around
Self <-imageToRotate GetImageRotation ->currentRotation
<-currentRotation <-rotationRate add ->currentRotation
Self <-imageToRotate <-currentRotation SetImageRotation

# This version is more terse and more efficient, but harder to read.
#Self <-imageToRotate Self <-imageToRotate GetImageRotation <-rotationRate add SetImageRotation

Contributed by VirgilW

Can be used for making a blinking light. Changes the transparency of an image from fully transparent to fully opaque in a cycle. The red, green, and blue values can be used to tint the color of the image.


	self <-name <-customImageName SetImage
	self <-name -0.01 SetImagePositionZ

<-active if
	<-alpha 0 lt if
		0 ->alpha
		<-rate abs ->rate
		<-alpha 255 gt if
			255 ->alpha
			<-rate abs -1 mul ->rate

	<-alpha <-rate add ->alpha

	self <-name <-red <-green <-blue <-alpha SetImageColor
	self <-name 0 0 0 0 SetImageColor

Contributed by VirgilW

Keep track of unit UIDs

You have some main unit which creates children units and you want to be able to keep track of these children: In this case, you get the UID when you create the other unit. For instance:

# Creates a bullet object
	"CRPLCore" CurrentX CurrentY CreateUnit ->unit
	<-unit "WBWBullet.crpl" AddScriptToUnit
	<-unit "WBWBullet.crpl" "targetX" <-targetX SetScriptVar
	<-unit "WBWBullet.crpl" "targetY" <-targetY SetScriptVar
	<-unit "main" "Custom2" SetImage
	<-unit "main" -0.01 SetImagePositionZ
	<-unit "main" self "barrel" GetImageRotation SetImageRotation

Contributed by VirgilW

Find player units matching specified criteria

You'd like to find player units that match some criteria: In this case, you can use the GetUnitsInRange function. For instance:

# Finds the nearest unit in range.
# Returns the unit uid of the closest unit, or 0 if no unit is in range
99999999 ->closestDistance
0 ->closestUnit
CurrentCoords <-range GetUnitsInRange ->unitCount
<-unitCount neq0 if
	<-unitCount 0 do
		CurrentCoords <-unit CONST_COORDX GetUnitAttribute <-unit CONST_COORDY GetUnitAttribute Distance ->d
		<-d <-closestDistance lt if
			<-d ->closestDistance
			<-unit ->closestUnit

The GetUnitsInRange function pushes all of the UIDs of units within the specified radius to the stack. Then, it pushes the count to the top of the stack. If there are no units in range, a single “0” is pushed to the stack. So, you can look at the top of the stack to know how many other things are on the stack, and you know that each of them if a unit UID. A “do” loop becomes useful for iterating through and popping the items from the stack. In the above example, I'm looking for the closest player unit. So, I just get all within range then run through them calculating the distance to each once. Along the way I remember the one that is closest. Note that I could have made a much more sophisticated comparison criteria. I could, for instance, have added the unit's ammo to the distance so that I selected based on a combination of closeness and how much ammo the unit had on board.

Contributed by VirgilW

Locate unit based on value of variable

You want to find the UID of some other CRPLCore based on the value of a variable: Take the following example:

"name" "Gun" GetCoresWithVar ->unitCount
<-unitCount if
   <-unitCount 0 do
      <-unit CONST_MAXHEALTH 10 SetUnitAttribute
      <-unit CONST_HEALTH 10 SetUnitAttribute

Here, we are looking for any CrplCore that has a script with a var called “name” that is set to a value of “Gun”. This allows us to add scripts to CrplCores, create a variable like this at the top of the script


, then get objects that have that string value. Since this is an input var in the script, it can be edited by the map author without having to touch the script. Of course the GetCoresWithVar also works with any variable, so you could use it to find Cores that have set some flag, etc.

Contributed by VirgilW

Moving creeper wall

# MoveWall.crpl
# Created on: 2/4/2013 8:00:55 PM
# Author: J
# This script creates a wall of creeper on the left side of the map that moves forward every x frames
# You may choose in-game if the wall should keep going or release the creeper at the end
# If RepeatAtEnd=2 the creeper is released at the right side of the map while a new (empty) wall will run over the map
# If you choose to enable KeepCreeperOut, it will try to keep all other creeper out of the wall
# Spacing is the number of cells the KeepCreeperOut will keep 100% clean of creeper 
# ------------------------------------------

	<-InitialDelay Delay false ->stop 0 ->stepx <-MoveDelay ->stept
	MapHeight 0 do 0 I <-InitialWallHeight SetCreeper loop

<-stop not if
	MapHeight 0 do
		#move creeper back from the left side
		<-stepx neq0 if
			<-stepx I <-stepx 1 sub I GetCreeper AddCreeper
			<-stepx 1 sub I 0 SetCreeper
		#move creeper back from the right side
		<-stepx MapWidth 1 sub neq if
			<-stepx I <-stepx 1 add I GetCreeper AddCreeper
			<-stepx 1 add I 0 SetCreeper
		<-KeepCreeperOut if
			#keep creeper out of the wall, left side
			<-stepx 3 gte if
				<-stepx 3 sub <-Spacing sub I <-stepx 2 sub <-Spacing sub I GetCreeper AddCreeper
				<-stepx 2 sub <-Spacing sub I 0 SetCreeper
			#keep creeper out of the wall, right side
			<-stepx <-Spacing add MapWidth 4 sub lte if
				<-stepx 3 add <-Spacing add I <-stepx 2 add <-Spacing add I GetCreeper AddCreeper
				<-stepx 2 add <-Spacing add I 0 SetCreeper
	<-stept 1 sub ->stept
	#move creeper forward if stept is 0
	<-stept eq0 if
		<-stepx MapWidth 1 sub eq if
			<-RepeatAtEnd eq0 if
				true ->stop
			<-RepeatAtEnd neq0 if
				<-MoveDelay ->stept
				0 ->stepx
				<-RepeatAtEnd 1 eq if
					MapHeight 0 do
					0 I MapWidth 1 sub I GetCreeper AddCreeper
					MapWidth 1 sub I 0 SetCreeper loop
			<-MoveDelay ->stept
			MapHeight 0 do
				#move the creeper in the wall forward
				<-stepx 1 add I <-stepx I GetCreeper AddCreeper
				<-stepx I 0 SetCreeper
				#move the creeper in front of the wall forward
				<-KeepCreeperOut if
					<-stepx <-Spacing add MapWidth 5 sub lte if
						<-stepx 4 add <-Spacing add I <-stepx 3 add <-Spacing add I GetCreeper AddCreeper
						<-stepx 3 add <-Spacing add I 0 SetCreeper
			<-stepx 1 add ->stepx

Contributed by J

Terrain Rail Walker

# RailWalker.crpl
# ------------------------------------------


	# Initialize our last position since we don't have one.
	-1 ->lastCellX 
	-1 ->lastCellY 

#If we aren't moving, choose a new location.  The location will be a neighboring cell.
GetQueuedMoveCount eq0 if
	@ChooseNewCell if
		<-chosenX <-chosenY <-SPEED QueueMove
		CurrentX ->lastCellX
		CurrentY ->lastCellY

	-1 ->chosenX
	-1 ->chosenY

	# Get a list of the neighbors that we can move to.
	# This call returns the coordinate pairs on the stack.

	# Choose a random location within the list
	0 <-count RandInt ->randCellNumber

	# Go through the list and pop all of the coordinates off the stack.
	# As we pass the coordinates that we chose in our random number above, remember them.
	# Those are the coordinates we will be returning.
	<-count 0 do
		I <-randCellNumber eq if
			<-x ->chosenX
			<-y ->chosenY
	# Return if we chose a new location
	<-chosenX -1 neq

	#Check the four neighboring cells to see if they are acceptable terrain heights.
	0 ->count
	CurrentX 1 add ->cx CurrentY ->cy @CheckCell		#Right
	CurrentX ->cx CurrentY 1 sub ->cy @CheckCell		#Up
	CurrentX 1 sub ->cx CurrentY ->cy @CheckCell		#Left
	CurrentX ->cx CurrentY 1 add ->cy @CheckCell		#Down

	# By default, we won't return the last cell coordinates.  This is so the patrolling unit
	# doesn't return back to where it came from immediately.  But, if the only choice is to return
	# to the previous cell, then that is what we have to do.
	<-count eq0 if 
		1 ->count

	#Check to see if the cell we are looking at is the last cell, if so ignore.
	<-cx <-lastCellX neq <-cy <-lastCellY neq or if
		# Check if the target cell is an acceptable terrain height.  If so, push the 
		# coordinates to the stack and increment count.
		<-cx <-cy GetTerrain ->terrainHeight
		<-terrainHeight <-MIN_TERRAIN_HEIGHT gte <-terrainHeight <-MAX_TERRAIN_HEIGHT lte and if
			<-count 1 add ->count

Contributed by virgilw

Circular move pattern

Sometimes you want a core to be moving in a circle around a point. Attach this script to make that happen. Change precision to improve movement or make it move counter-clockwise (high values). Remove all “asfloat” and both “0 Round” to make the circle one cell smaller downwards and to the right (4 cells as center instead of 1).

# moves the core in a circle around x and y with a set speed
# ------------------------------------------
	0.0 ->step
GetQueuedMoveCount eq0 if
	<-step cos <-size asfloat mul <-x asfloat add 0 Round <-step sin <-size asfloat mul <-y asfloat add 0 Round <-speed QueueMove
	<-step <-precision add ->step

Contributed by J

Connect totems to win

Here's are two scripts that when used, blow up all enemy structures when enough totems are connected. The first script is used to create totems on the map and stores their ID's, so they can be read by the second script. Script 1:

# Author: J
# ------------------------------------------
	"TOTEM" CurrentCoords CreateUnit ->totemUID
	"totem" ->unitName
	4 delay self 0 Destroy

Script 2:

# Author: J
# ------------------------------------------

	 2 delay
	 "unitName" "totem" GetCoresWithVar dup ->totemcount 0 do
		 <-scriptname "totemUID" getScriptVar
		 "totem" I concat ->!

0 ->activecount
<-totemcount 0 do
	 "totem" I concat <-! dup ->unitUID CONST_AMMO GetUnitAttribute
	 0 gt if
		 <-activecount 1 add ->activecount
		 <-unitUID CONST_AMMO <-unitUID CONST_AMMO GetUnitAttribute <-ammodrain sub SetUnitAttribute

# if all totems are active, blow up all enemy units (insta-win)
<-activecount <-totemsrequired gte if
	 0 0 99999 GetEnemyUnitsInRange 0 do
		 dup Self neq if
			 2 Destroy
	 Self 2 Destroy

ammodrain: how much ammo it drains from the totem, use values between 0 and 0.05. totemsrequired: how many totems you need to coonect to win, use a number between 1 and how many totems you put on the map with script 1. scriptname: how you named script 1.

Contributed by J

Unit Providing Script

This script allows the user to set a type of unit, number of units and energy cost to collect/power the core it's attached to.


if (not(GetUnitAttribute(Self CONST_ISBUILDING)))
	SetBuildLimit(<-unitToGive <-numToGive)
	Destroy(Self 1)

	if (GetUpdateCount eq (0))
		SetUnitAttribute(Self CONST_ISBUILDING TRUE)
		SetUnitAttribute(Self CONST_BUILDCOST <-buildCost)
		SetUnitAttribute(Self CONST_MAXHEALTH <-buildCost)
		SetUnitAttribute(Self CONST_HEALTH 0) 	
		SetUnitAttribute(Self CONST_CREATEPZ FALSE)

Contributed by VirgilW (posted by teknotiss)

Change Creeper or Anti-Creeper Colors

The following code would show how to make the creeper red at the start of a custom map, but keep the AC to whatever the player has set. (Untested… but it will work, right? :) )

   GetCreeperColors ->acB ->acG ->acR ->creeperB ->creeperG ->creeperR
   160 ->creeperR
   0 ->creeperG
   0 ->creeperB
   SetCreeperColors(<-creeperR <-creeperG <-creeperB <-acR <-acG <-acB)

Contributed by VirgilW

Wrap Creeper around the edges of the map

The following code will allow creeper to flow around the edges of the map. That makes the map feel like a globe. Best use on terrain, that is seamless.

Add this code to a tower. As long as this tower exists, the creeper will leave the map at the left and enter at right, and vise versa.

The parameters can be used to activate or deactivate left-right or top-bottom wrap.

# Author: knattertc
# ------------------------------------------

# Init Vars
MapWidth 1 sub ->right
0 ->left
0 ->top
MapHeight 1 sub ->bottom

# Wrap Left to Right
<-wrapLeftRight neq0 if
	<-bottom <-top do
		# Get Creeper on left and right side - add them up - devide by 2
		<-left I GetCreeper <-right I GetCreeper add 2 div ->mid 
		<-left I <-mid SetCreeper
		<-right I <-mid SetCreeper

# Wrap Top to Bottom
<-wrapTopBottom neq0 if
	<-left <-right do
 		# Get Creeper on top and bottom - add them up - devide by 2
		I <-top GetCreeper I <-bottom GetCreeper add 2 div ->mid 
		I <-bottom  <-mid SetCreeper
		I <-top <-mid SetCreeper

Contributed by knattertc

Create an emitter that increases its output rate over time

This script is an example of how to create an emitter that increases its output rate from a minimum value (BaseRate) to a maximum value (MaxRate) over a specified time (RampTime, in seconds) with a specified precision (NumIncrements). All variables are changeable by the user without editing the script.

This script uses Timer0 to track the rate of increase, so the tower is capable of doing other things while this is running (like moving).

The default values create an emitter that deploys creeper every 0.5 seconds starting at a rate of 25 creeper per drop and increasing to a rate of 150 creeper per drop over a period of ten minutes using a precision of 100 increments.

# Author: albrittbrat
#Program to ramp creeper deployment rate over time
#Time is in seconds
	<-BaseRate ->CRate
	0 SetTimer0
	<-RampTime 30 mul ->RampTime
	<-RampTime <-NumIncrements div 0 round ->TimerRate
#If the queue is empty, queue next move
#Drop AC based on input parameters
GetTimer0 eq0 if
CurrentCoords <-CRate SetCreeper
<-DeployRate Delay
#Function to determine amount of creeper to drop
#Range goes from BaseRate to MaxRate
<-CRate <-MaxRate lte if
	<-CRate 1 add ->CRate
	<-TimerRate SetTimer0
#End DetermineCAmount Function

Contributed by albrittbrat

Emitter that spawns more emitters on death

This script makes a “hydra-like” or “splitting” enemy that gets worse the more you hurt it, at least for a little while. When it's not just been killed, it's simply an emitter, but in theory you could add stuff to the emitting part to make it a much nastier beast, or use other scripts alongside it. The other scripts or functions of the beast, if you wanted the “children” to also have them, would require modifying the inside of the while loop in the destroyed function to add in those scripts and any relevant variables as well.

# HydraEmitter.crpl
# A basic emitter at first.
# Creates an emitter which spawns new emitters in random locations within a defined range when it dies, which themselves also spawn new emitters. 
# Note that the decay rates are multiplied, so in theory you could make them bigger than 1 and have the rate/amount/range increase with each death rather than decrease.
# Note also, the spawn code checks to make sure it's not spawning on void. You can comment out that line if you want it to spawn in void, but be careful to not spawn outside of the map!
# ------------------------------------------

CurrentCoords <-amount AddCreeper
<-rate Delay

	0 ->count
	while <-count lt(<-newHeads) repeat
		CurrentCoords <-headRange RandCoordsInRange ->deathX ->deathY
		if(<-deathX <-deathY GetVoid not)
			"CRPLCORE" <-deathX <-deathY CreateUnit ->currUnit
			<-currUnit "main" "CustomEmitter" SetImage 
			<-currUnit "HydraEmitter.crpl" AddScriptToUnit
			<-currUnit "HydraEmitter.crpl" "rate" <-rate mul(<-rateDecay) SetScriptVar
			<-currUnit "HydraEmitter.crpl" "amount" <-amount mul(<-amountDecay) SetScriptVar
			<-currUnit "HydraEmitter.crpl" "rateDecay" <-rateDecay SetScriptVar
			<-currUnit "HydraEmitter.crpl" "amountDecay" <-amountDecay SetScriptVar
			<-currUnit "HydraEmitter.crpl" "newHeads" <-newHeads sub(<-headLossPerDeath) SetScriptVar
			<-currUnit "HydraEmitter.crpl" "headLossPerDeath" <-headLossPerDeath SetScriptVar
			<-currUnit "HydraEmitter.crpl" "headRange" <-headRange mul(<-headRangeDecay) SetScriptVar
			<-currUnit "HydraEmitter.crpl" "<-headRangeDecay" <-headRangeDecay SetScriptVar
			<-count add(1) ->count

Contributed by Xindaris

Make circular terrain

With this modified version of Mistet's script, you can create circular terrain. Choose the terrain level (or digitalis, or wall, or terrain override), choose the radius, and even choose an internal radius! This script is applied to a CRPLcore. The CRPLcore generates a circle of terrain around itself of the chosen type and size. The external radius is most important: this determines the size of the circle and is measured in cells on the map. Remember it is a radius, not a diameter. The terrain variable is also important. This determines the height of the terrain that it will change to. The internal radius variable allows you to create a smaller circle within the larger. This smaller circle will ignore terrain changes and is useful for creating rings. If this variable is larger than the external radius, the script will automatically swap the two so it works anyway.

# circular_terrain.crpl
# A modified version of MakeCircle.crpl from Mistet
# Made by VirgilW
# Modified by Clean0nion
# ------------------------------------------
#   1. Create a square map with odd dimensions.
#      e.g. 255 x 255
#           51 x 51
#   2. Add this script to the map.
#      Go to Edit Map -> Units -> Scripts
#      Type "circular_terrain" into the bar.
#      Press Create.
#      Find it in the list and click Edit.
#      Paste in this code.
#   3. Place a CRPLcore anywhere in the map.
#      Edit Map -> Units -> CRPLcore
#      Then put your mouse anywhere on the map and press B.
#   4. Change the variables on the CRPLcore.
#      Double click the CRPLcore.
#      Open the "Attached Scripts" bar, find this code, and
#        click "Add".   
#      In the new list, double click "circular_terrain.crpl"
#      The variables will appear.
# "terrain" is the height of the terrain you want to create.
# "rad_external" is the external radius of the circle.
# "rad_internal" is the internal radius of the circle.
# For example, "terrain"=5; "rad_external"=20; "rad_internal"=0 will create a circle of land that is 40 cells across, and is oh terrain level 5. There will be no gap in the middle of the circle.
#   5. Once the variables have been set, save the map.
#   6. Finally, run the script.
#      Click the red X to leave the level editor and return 
#        to the game.
#      Unpause the game.
#      Wait until the circle has finished generating then 
#        pause again.
#      Your circle is done.
#   7. If you want to, run the script again with different 
#     variables.
# !!! If "terrain" is a value from 1 - 10, that level terrain will be placed.
# If "terrain" is 0 or below, void will be placed.
# If "terrain" is 11 or above, that level terrain override will be placed.
# If "terrain" is "0.1", digitalis will be placed.
# If "terrain" is "0.2", digitalis will be removed.
# If "terrain" is "0.3", wall will be placed.
# If "terrain" is "0.4", wall will be removed.
# If "terrain" is "0.5", terrain override will be removed.
# If "terrain" is "2.1", creeper will be added that is twice the terrain height.
# If "terrain" is anything else, either nothing will happen, or something entirely unpredictable will happen.


   <-rad_external <-rad_internal lt if
      <-rad_external ->internal
      <-rad_internal ->external
      <-rad_external ->external
      <-rad_internal ->internal

if (<-row lt (MapHeight))
   <-row add(1) ->row

   do(MapWidth 0)
      Distance(CurrentCoords I <-row) ->distance
      if (<-distance gte(<-internal))
         if (<-distance lte(<-external))
            0.1 <-terrain eq if
               I <-row 2 SetDigitalisGrowth
               0.2 <-terrain eq if
                  I <-row 0 SetDigitalisGrowth
                  0.3 <-terrain eq if
                     I <-row 1 SetWall
                     0.4 <-terrain eq if
                        I <-row 0 SetWall
                        0.5 <-terrain eq if
                           I <-row GetTerrain SetTerrainOverride
                           <-terrain 11 gte if
                              I <-row <-terrain SetTerrainOverride
                              2.1 <-terrain eq if
                                 I <-row GetTerrain 2 mul SetCreeper
                                 I <-row <-terrain SetTerrain

Made and submitted by Clean0nion


Use suffitient quantities of AC to turn an emitter into an AC emitter.

# Converterv2.crpl
# Created on: 1/3/2014 1:53:35 PM
# ------------------------------------------
#Initializes state, thanks to Grayzzur for the idea.
<-startState ->state
" ->lineBreak
#Checks if there is creeper, if there is, sets the converter to make creeper.
CurrentCoords GetCreeper 0 gt if
1 ->state
SetPopUpText("amt: " <-amtCreeper <-lineBreak "delay: " <-interval 30 div concat concat concat concat)
#Checks if there is anticreeper, if there is, sets the converter to make AC
CurrentCoords GetCreeper 0 lt if
0 ->state
#the linebreak is on purpose, and concat because the amt isn't always the same.
SetPopUpText("amt: " <-amtAnti <-lineBreak "delay: " <-interval 30 div concat concat concat concat)
#Checks the state, remember if there was nothing under it, it will use it's last state!
<-state if
CurrentCoords <-amtCreeper SetCreeper
CurrentCoords <-amtAnti SetCreeper
<-interval Delay

Made and submitted by Flabort; named by VirgilW

Frames to minutes

Converts an amount of frames to minutes in M:SS format. Frames stored in variable “frames”; result placed at top of stack. This is best used with Timers as it doesn't work when “frames” is 0. As in, it reaches 0:00 then just disappears. 1800 displays 1:00; 60 displays 0:02; 2400 displays 1:20.

<-frames 1800 div ceil dup <-frames 30 div ceil swap 60 mul sub 60 mod ":" swap
dup 10 lt if
	"0" swap
StackSize 1 do

Written, coded, developed, procrastinated over, contributed, posted, wiki'd, wordified, done, made, finished and submitted by Clean0nion

Survival Pod

Attach to a core to create a survival pod. Survival pods must be rescued. If they are destroyed, the mission will fail. Makes use of the Message script found in the next entry below.

GetCreeper(CurrentCoords) ->creeper
if (not(<-ascending) and (<-creeper gt (0)))
	Destroy(Self 2)
if ( not(<-ascending or (GetUnitAttribute(Self CONST_ISBUILDING))) )
	true ->ascending
	ShowGameEventTag("GREEN" "INFO" "Survival Pod" "Rescued!" GetUnitAttribute(Self CONST_PIXELCOORDX) GetUnitAttribute(Self CONST_PIXELCOORDY))

if (<-ascending)
	GetUnitTransformPosition ->z ->y ->x
	#CreateEffect(10 <-x <-y -1 2 2 0.04)
	CreateEffect(8 <-x <-y -1 2 2 0.04)
	SetPopupText(GetUnitAttribute(Self CONST_HEALTH) "/" concat "30" concat)

if (GetUpdateCount eq (0))
	SetUnitAttribute(Self CONST_BUILDCOST 30)
	SetUnitAttribute(Self CONST_HEALTH 0)

	CreateUnit("CRPLCORE" 0 0) ->message
	AddScriptToUnit(<-message "PodMessage.crpl") 
	if (<-ascending)
		SetScriptVar(<-message "PodMessage.crpl" "message" "Pod Rescued")
		SetScriptVar(<-message "PodMessage.crpl" "message" "Pod Destroyed!")
		SetScriptVar(<-message "PodMessage.crpl" "red" 255)
		SetScriptVar(<-message "PodMessage.crpl" "green" 0)
		SetScriptVar(<-message "PodMessage.crpl" "blue" 0)
		CreateUnit("CRPLCORE" CurrentCoords) ->tombstone
		AddScriptToUnit(<-tombstone "PodDestroyed.crpl") 

		ShowGameEventTag("RED" "INFO" "Survival Pod" "Destroyed" GetUnitAttribute(Self CONST_PIXELCOORDX) GetUnitAttribute(Self CONST_PIXELCOORDY))

Contributed by virgilw


Shows a message on the map that goes away. Used by the SurvivalPod script above.

$message:"Pod Rescued"

	<-timeToLive sub(<-solidTime) ->fadeTime
	SetTextColor(<-red <-green <-blue 0)

if (GetUpdateCount gte(<-timeToLive))
	Destroy(Self 0)

if (GetUpdateCount gt(1))
	if (GetUpdateCount gte(<-solidTime))
		<-timeToLive sub(GetUpdateCount) asfloat div(<-fadeTime) mul(255) ->alpha
		255 ->alpha

	SetTextColor(<-red <-green <-blue <-alpha)
	SetImageColor(Self "Main" 32 32 32 <-alpha sub(60))

	SetUnitAttribute(Self CONST_CREATEPZ FALSE)
	SetScreenPixelCoordX(ScreenWidth div(2))
	SetImage(Self "Main" "Custom1")
	SetImageScaleX(Self "Main" 14)
	SetImageScaleY(Self "Main" 1.5)
	SetImageColor(Self "Main" 32 32 32 0)

Contributed by virgilw


A customizable method to grab a nearest unit of any kind. Specify what types of units you want to grab, at what position, and with what radius. Strings are used for clarity to grab units that you need, you can delete or comment out units you wont be using once you copy the code. The code contains 3 methods that are commented for use on the battle-field. Contains two additional convenience methods.

#Function :GetClosestUnitToCoords
#Warning: use this convenience function sparingly, tens of CRPL Cores
#running this all at once every frame can slow the game down.

#Notation: x y f1 - i1
#eg. CurrentCoords 10 @GetClosestUnitToCoords ->unit
#If all units are outside of the maxDistance or none found returns integer value '-1'.
	asfloat ->gcu_mdist
	asfloat ->gcu_y
	asfloat ->gcu_x
	StackSize ->gcu_szmin

	# Reference:
	# Place Unit Types that you /WANT/ to look for here.
	# Simply comment '#' out or remove any that you don't want. All this area does is push strings to the stack.
	#"CRPLCORE" #Not recommended as this will grab literally any CRPL Core.
	# =====

	#Finding the boundary stack size (how many elements were added to stack)
	#and then forming a list from the units we want.
	StackSize ->gcu_szmax
	CreateList ->gcu_types
	<-gcu_szmax <-gcu_szmin do
		<-gcu_types <-gcu_t AppendToList

	#initialize unit
	-1 ->gcu_unit
	999999 ->gcu_unitd

	#retrieve /all/ nearby units
	# x y distance boolean(true-square, false-circle)
	# unit checks have been ordered in perceived processing complexity
	<-gcu_x <-gcu_y <-gcu_mdist false GetAllUnitsInRange ->gcu_count
	<-gcu_count neq0 if
		<-gcu_count 0 do
			<-gcu_tempunit GetUnitType ->gcu_t
			#get the distance
			<-gcu_x <-gcu_y @UnitCoords(<-gcu_tempunit) Distance ->gcu_d
			#is that distance closer?
			<-gcu_d <-gcu_unitd lt if
				#do we care about this unit type?
				<-gcu_types <-gcu_t @DoesListContain if
					#set our new baseline distance and unit
					<-gcu_d ->gcu_unitd
					<-gcu_tempunit ->gcu_unit

#Function :UnitCoords
#Simple convenience method. Takes a unit and returns the coordinates.
#'CurrentCoords' and 'self @UnitCoords' are equivalent.
#Notation: n1 - x y
#eg. <-myUnitID @UnitCoords ->unitX ->unitY
	<-u CONST_COORDX GetUnitAttribute
	<-u CONST_COORDY GetUnitAttribute

#Function :DoesListContain
#This function an object, then a list and returns a boolean value.
#Notation: L1 n1 - b1
#eg. <-myList <-myValue @DoesListContain ->contains
	false ->dl_contained

	<-dl_list GetListCount 0 do
		<-dl_list I GetListElement eq(<-dl_value) if
			true ->dl_contained


Contributed by Telanir

CRPL generating CRPL

This CRPL will generate CRPL with custom program (if it is in the map scripts)

CreateUnit("CRPLCORE" CurrentX CurrentY) ->unit			
AddScriptToUnit(<-unit "[Programname].crpl")

Stolen from Teknotiss(who took it from virgil), where pyramids make golems. I simply changed golem to unit. Added by cpaca, known as Karma's coming on map search

crpl/crpltutorial/code_examples.txt · Last modified: 2020/06/08 16:35 by builder17