This is an old revision of the document!
~~DISCUSSION~~
<!--Comments visible to editors only can be placed in HTML comments -->
<-CW3 Home<- CRPL Home
Code examples contributed by map makers and coders alike. Feel free to submit your own - it will be much appreciated.
# Goodie.crpl # Created on: 9/10/2013 8:36:17 PM # ------------------------------------------ $score:100 once GetCoresWithVar("name" "Player") pop ->player endonce if (Distance(CurrentCoords GetUnitAttribute(<-player CONST_COORDX) GetUnitAttribute(<-player CONST_COORDY)) lte(2)) @ApplyPoints PlaySound("Retro20") Destroy(Self 1) endif :ApplyPoints AddAdditionalScore(<-score) CreateUnit("CRPLCORE" CurrentCoords) ->fadingPoints AddScriptToUnit(<-fadingPoints "FadingPoints.crpl") SetScriptVar(<-fadingPoints "FadingPoints.crpl" "pointAmt" <-score)
Contributed by VirgilW
Specify a rate and which image to rotate. Positive rotation rates are counterclockwise and the rotation rate is in radians per frame.
$rotationRate:0.1 $imageToRotate:"main" # 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.
$name:"light" $customImageName:"custom0" $red:255 $green:255 $blue:255 $rate:10 $active:1 once self <-name <-customImageName SetImage self <-name -0.01 SetImagePositionZ endonce <-active if <-alpha 0 lt if 0 ->alpha <-rate abs ->rate else <-alpha 255 gt if 255 ->alpha <-rate abs -1 mul ->rate endif endif <-alpha <-rate add ->alpha self <-name <-red <-green <-blue <-alpha SetImageColor else self <-name 0 0 0 0 SetImageColor endif
Contributed by VirgilW
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 :CreateBullet "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
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 :GetClosestUnit 99999999 ->closestDistance 0 ->closestUnit CurrentCoords <-range GetUnitsInRange ->unitCount <-unitCount neq0 if <-unitCount 0 do ->unit CurrentCoords <-unit CONST_COORDX GetUnitAttribute <-unit CONST_COORDY GetUnitAttribute Distance ->d <-d <-closestDistance lt if <-d ->closestDistance <-unit ->closestUnit endif loop endif <-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
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 <-unit CONST_MAXHEALTH 10 SetUnitAttribute <-unit CONST_HEALTH 10 SetUnitAttribute loop endif
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
$name:"Gun"
, 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
# 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 # ------------------------------------------ $MoveDelay:30 $InitialWallHeight:500 $InitialDelay:0 $RepeatAtEnd:1 $KeepCreeperOut:1 $Spacing:1 once <-InitialDelay Delay false ->stop 0 ->stepx <-MoveDelay ->stept MapHeight 0 do 0 I <-InitialWallHeight SetCreeper loop endonce <-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 endif #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 endif <-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 endif #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 endif endif loop <-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 endif <-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 endif endif else <-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 endif endif loop <-stepx 1 add ->stepx endif endif endif
Contributed by J
# RailWalker.crpl # ------------------------------------------ $MIN_TERRAIN_HEIGHT:1 $MAX_TERRAIN_HEIGHT:3 $SPEED:2 once # Initialize our last position since we don't have one. -1 ->lastCellX -1 ->lastCellY endonce #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 endif endif :ChooseNewCell -1 ->chosenX -1 ->chosenY # Get a list of the neighbors that we can move to. # This call returns the coordinate pairs on the stack. @GetPossibleCells # 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 ->y ->x I <-randCellNumber eq if <-x ->chosenX <-y ->chosenY endif loop # Return if we chose a new location <-chosenX -1 neq :GetPossibleCells #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 <-lastCellX <-lastCellY 1 ->count endif :CheckCell #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 <-cx <-cy <-count 1 add ->count endif endif
Contributed by virgilw
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 # ------------------------------------------ $speed:1 $size:16 $x:32 $y:32 $precision:0.2 once 0.0 ->step endonce 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 endif
Contributed by J
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 # ------------------------------------------ once "TOTEM" CurrentCoords CreateUnit ->totemUID "totem" ->unitName 4 delay self 0 Destroy endonce
Script 2:
# Author: J # ------------------------------------------ $ammodrain:0.01 $totemsrequired:1 $scriptname:"totem.crpl" once 2 delay "unitName" "totem" GetCoresWithVar dup ->totemcount 0 do <-scriptname "totemUID" getScriptVar "totem" I concat ->! loop endonce 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 endif loop # 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 else pop endif loop Self 2 Destroy endif
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
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.
$buildCost:10 $unitToGive:"BERTHA" $numToGive:3 if (not(GetUnitAttribute(Self CONST_ISBUILDING))) SetBuildLimit(<-unitToGive <-numToGive) Destroy(Self 1) endif :Awake if (GetUpdateCount eq (0)) SetUnitAttribute(Self CONST_ISBUILDING TRUE) SetUnitAttribute(Self CONST_BUILDCOST <-buildCost) SetUnitAttribute(Self CONST_CONNECTABLE TRUE) SetUnitAttribute(Self CONST_REQUESTPACKETS TRUE) SetUnitAttribute(Self CONST_MAXHEALTH <-buildCost) SetUnitAttribute(Self CONST_HEALTH 0) SetUnitAttribute(Self CONST_CREATEPZ FALSE) endif
Contributed by VirgilW (posted by teknotiss)
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? :) )
once GetCreeperColors ->acB ->acG ->acR ->creeperB ->creeperG ->creeperR 160 ->creeperR 0 ->creeperG 0 ->creeperB SetCreeperColors(<-creeperR <-creeperG <-creeperB <-acR <-acG <-acB) endonce
Contributed by VirgilW
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 # ------------------------------------------ $wrapLeftRight:1 $wrapTopBottom:1 # 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 loop endif # 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 loop endif
Contributed by knattertc