diff options
Diffstat (limited to 'data/stdedit.cfg')
| -rw-r--r-- | data/stdedit.cfg | 349 |
1 files changed, 349 insertions, 0 deletions
diff --git a/data/stdedit.cfg b/data/stdedit.cfg new file mode 100644 index 0000000..6d99574 --- /dev/null +++ b/data/stdedit.cfg @@ -0,0 +1,349 @@ + +// implements some editing commands + + +//////// Entity Editing /////////////// + +=enttype = [ + || [strcmp * $arg1] [strcmp (enttype) $arg1] +] + +=entattr = [ + || [strcmp * $arg2] [= (entattr $arg1) $arg2] +] + +// clear ents of given type +clearents = [ + if $editing [ + entcancel + entselect [ =enttype $arg1 ]; + echo Deleted (enthavesel) $arg1 entities; + delent + ] +] + +// replace all ents that match current selection +// with the values given +replaceents = [ + if $editing [ + do [ + entfind @(entget) + entset @(loopconcat i $numargs [result $[arg@(+ $i 1)]]) + ] + echo Replaced (enthavesel) entities + ] +] + +selentedit = [ saycommand ( concatword "/entset " (entget) ) ] +selreplaceents = [ saycommand ( concatword "/replaceents " (entget) ) ] +selentfindall = [ do [ entfind @(entget) ] ] + +// modify given attribute of ent by a given amount +// arg1 attribute +// arg2 value +entproperty = [ + entattr $arg1 (+ (entattr $arg1) $arg2) +] + +enttypelist = [ + light mapmodel playerstart envmap particles sound + shells bullets rockets riflerounds grenades cartridges + health healthboost greenarmour yellowarmour quaddamage + teleport teledest + monster carrot jumppad + base respawnpoint + spotlight + box barrel platform elevator + flag +] + +enttypeselect = [ + enttypelength = (listlen $enttypelist) + next = (mod (+ (indexof $enttypelist (enttype)) $arg1) $enttypelength) + if (< $next 0) [ next = (+ $next $enttypelength) ] + do [entset @(listsplice (entget) (at $enttypelist $next) 0 1)] +] + +////// Entity primary actions ///////// + +ent_action_base = [ entproperty 0 ( * $arg1 1 ) ] +ent_action_teleport = [ entproperty 0 ( * $arg1 1 ) ] +ent_action_teledest = [ entproperty 1 ( * $arg1 1 ) ] +ent_action_mapmodel = [ entproperty 1 ( * $arg1 1 ) ] +ent_action_spotlight = [ entproperty 0 ( * $arg1 5 ) ] +ent_action_light = [ entproperty 0 ( * $arg1 5 ) ] +ent_action_jumppad = [ entproperty 0 ( * $arg1 5 ) ] +ent_action_respawnpoint = [ entproperty 0 ( * $arg1 15 ) ] +ent_action_playerstart = [ entproperty 0 ( * $arg1 15 ) ] +ent_action_envmap = [ entproperty 0 ( * $arg1 5 ) ] +ent_action_particles = [ entproperty 0 ( * $arg1 1 ) ] +ent_action_sound = [ entproperty 0 ( * $arg1 1 ) ] +ent_action_cycle = [ entset ( if ( > $arg1 -1 ) [ result $arg2 ] [ result $arg3 ] ) ] +ent_action_shells = [ ent_action_cycle $arg1 bullets quaddamage ] +ent_action_bullets = [ ent_action_cycle $arg1 rockets shells ] +ent_action_rockets = [ ent_action_cycle $arg1 riflerounds bullets ] +ent_action_riflerounds = [ ent_action_cycle $arg1 grenades rockets ] +ent_action_grenades = [ ent_action_cycle $arg1 cartridges riflerounds ] +ent_action_cartridges = [ ent_action_cycle $arg1 quaddamage grenades ] +ent_action_quaddamage = [ ent_action_cycle $arg1 shells cartridges ] +ent_action_health = [ ent_action_cycle $arg1 healthboost yellowarmour ] +ent_action_healthboost = [ ent_action_cycle $arg1 greenarmour health ] +ent_action_greenarmour = [ ent_action_cycle $arg1 yellowarmour healthboost ] +ent_action_yellowarmour = [ ent_action_cycle $arg1 health greenarmour ] +ent_action_monster = [ entproperty 1 ( * $arg1 1 ) ] +ent_action_box = [ entproperty 1 ( * $arg1 1 ) ] +ent_action_barrel = [ entproperty 1 ( * $arg1 1 ) ] +ent_action_platform = [ entproperty 1 ( * $arg1 1 ) ] +ent_action_elevator = [ entproperty 1 ( * $arg1 1 ) ] + +//////// Copy and Paste ////////////// + +// 3 types of copying and pasting +// 1. select only cubes -> paste only cubes +// 2. select cubes and ents -> paste cubes and ents. same relative positions +// 3. select only ents -> paste last selected ent. if ents are selected, replace attrs as paste + +opaquepaste = 1 +entcopybuf = "" + +entreplace = [ + do [ + if (enthavesel) [] [ newent @entcopybuf ] + entset @entcopybuf + ] +] + +editcopy = [ + if (|| [havesel] [! (enthavesel)]) [ + entcopybuf = "" + entcopy + copy + ] [ + entcopybuf = (entget) + ] +] + +editpaste = [ + cancelpaste = (! (|| [enthavesel] [havesel])); + if (strcmp "" $entcopybuf) [ + pastehilite + reorient // temp; real fix will be in octaedit + onrelease [ + if $opaquepaste delcube + paste + entpaste + if $cancelpaste [ cancelsel ] + ] + ] [ + entreplace + if $cancelpaste [ cancelsel ] + ] +] + +/////// Selection /////////////// + +// select ents with given properties +// '*' is wildcard +entfind = [ + if (= $numargs 0) [ + entselect 1 + ] [ + entselect (concat [ && [=enttype @@arg1] ] (loopconcat i (- $numargs 1) [ + result [ [=entattr @@i @@[arg@(+ $i 2)]] ] + ])) + ] +] + +entfindinsel = [ + if (= $numargs 0) [ + entselect [ insel ] + ] [ + entselect (concat [ && [insel] [=enttype @@arg1] ] (loopconcat i (- $numargs 1) [ + result [ [=entattr @@i @@[arg@(+ $i 2)]] ] + ])) + ] +] + +lse = [ + line = "" + count = 0 + entloop [ + line = ( concatword $line (entget) " " ) + count = ( + $count 1 ) + if (> $count 4) [ + echo $line + line = "" + count = 0 + ] + ] + if (> $count 0 ) [ echo $line ] + echo (enthavesel) entities selected +] + +drag = [ dragging 1; onrelease [ dragging 0 ] ] +corners = [ selectcorners 1; dragging 1; onrelease [ selectcorners 0; dragging 0 ] ] +editmove = [ moving 1; onrelease [ moving 0 ]; result $moving ] +entdrag = [ entmoving 1; onrelease [entmoving 0]; result $entmoving ] +editdrag = [ cancelsel; || [entdrag] [ drag ] ] +selcorners = [ if $hmapedit [ hmapselect ] [ cancelsel; || [entdrag] [ corners ] ] ] +editextend = [ || [entdrag] [ selextend; reorient; editmove ] ] + +editmovewith = [ + if (havesel) [ + || [editmove] [ @arg1 ] + onrelease [ moving 0; dragging 0 ] + ] [ + @arg1 + ] +] + +editmovecorner = [ editmovewith selcorners ] +editmovedrag = [ editmovewith editdrag ] + +////// Other Editing commands ///////// + +editfacewentpush = [ + + if (|| [havesel] [! (enthavesel)] ) [ + if $moving [ + pushsel $arg1 + ] [ + entcancel + editface $arg1 $arg2 + ] + ] [ + if $entmoving [ entpush $arg1 ] [ ent_action_@(enttype) $arg1 ] + ] +] + +entswithdirection = "playerstart teledest mapmodel flag monster box barrel platform elevator" + +entdirection = [ + if ( && [enthavesel] [ = (havesel) 0 ] ) [ + if (>= (indexof $entswithdirection (enttype)) 0) [ + if (> $arg1 0) [ + entproperty 0 $arg2 + if (> (entattr 0) 360) [ entproperty 0 -360 ] + ] [ + entproperty 0 (- 0 $arg2) + if (< (entattr 0) 0) [ entproperty 0 360 ] + ] + ] + result 1 + ] [ + result 0 + ] +] + +editdel = [ if (! (enthavesel)) [delcube]; delent ] +editflip = [ flip; entflip ] + +editrotate = [ + || [ entdirection $arg1 15 ] [ + rotate $arg1 + entrotate $arg1 + ] +] + +editcut = [ + if (moving 1) [ + if (= $moving 1) [selsave] + onrelease [ + moving 0 + if (selmoved) [ + selswap + copy; entcopy + delcube; delent + selrestore + paste; entpaste + ] + ] + ] +] + +edithud = [ + format "%6^f7%7^f7gridpower ^f2%1 %2 %3 %4 %5" $gridpower ( + if $allfaces [format "^f2allfaces"][format "^f4allfaces"] + )( + if $entediting [format "^f2entediting"][format "^f4entediting"] + )( + if $entselsnap [format "^f2entselsnap"][format "^f4entselsnap"] + )( + if $dropwaypoints [format "^f0dropwaypoints"][] + )( + if $hmapedit [format "brush^f2 %1 ^f7:^f2 %2^n" $brushindex $brushname] [ + if $blendpaintmode [ + format "blendpaint mode: ^f2%1^f7^nblend brush: ^f2%2^n" (at $blendpaintmodes $blendpaintmode) (getblendbrushname (curblendbrush)) + ] [if (! (enthavesel)) [ + texnum = (? (>= $texguinum 0) $texguinum (getseltex)) + format "^f2%1 ^f7:^f2 %2^n" (max 0 $texnum) (gettexname $texnum) + ]] + ] + )( + if (enthavesel) [concat (entget) ":^f2" (enthavesel) "^f7selected^n"] + ) +] + +entcomplete = [ listcomplete $arg1 $enttypelist ] +entcomplete newent +entcomplete entfind +entcomplete clearents + +listcomplete editmat "air water clip glass noclip lava gameclip death alpha" +air = [ editmat air $arg1 ] +loop i 4 [ + [water@(? $i (+ $i 1))] = [ editmat water@(? $i (+ $i 1)) $arg1 ] + [lava@(? $i (+ $i 1))] = [ editmat lava@(? $i (+ $i 1)) $arg1 ] + [glass@(? $i (+ $i 1))] = [ editmat glass@(? $i (+ $i 1)) $arg1 ] +] +clip = [ editmat clip $arg1 ] +noclip = [ editmat noclip $arg1 ] +gameclip = [ editmat gameclip $arg1 ] +death = [ editmat death $arg1 ] +alpha = [ editmat alpha $arg1 ] + +blendpaintmodes = ["off" "replace" "dig" "fill" "inverted dig" "inverted fill"] +setblendpaintmode = [ + if (> $numargs 0) [blendpaintmode $arg1] [blendpaintmode 0] + echo "blend paint mode set to:" (at $blendpaintmodes $blendpaintmode) +] +scrollblendbrush = [ + if (> $numargs 0) [nextblendbrush $arg1] [nextblendbrush] + echo "blend brush set to:" (getblendbrushname (curblendbrush)) +] + +minimaphere = [minimapheight (at (getcampos) 2)] + +getsundir = [sunlightyaw (getcamyaw); sunlightpitch (getcampitch)] + +echovcolor = [echo ***vcolor (getvcolor $getseltex)] +echovrotate = [echo ***vrotate (getvrotate $getseltex)] +echovoffset = [echo ***voffset (getvoffset $getseltex)] +echovscroll = [echo ***vscroll (getvscroll $getseltex)] +echovscale = [echo ***vscale (getvscale $getseltex)] +echovlayer = [echo ***vlayer (getvlayer $getseltex)] +echovalpha = [echo ***valpha (getvalpha $getseltex)] + +// echovshaderparamname = [echo (getvshaderparamnames $getseltex)] // Echoes the name of altered vshaderparam, if used. Only works with vshaderparam, not params set in map.cfg +echovshaderparam = [echo ***vshaderparam (getvshaderparamnames $getseltex) (getvshaderparam $getseltex (getvshaderparamnames $getseltex))] // Only works with vshaderparam, not params set in map.cfg +// echovshaderparamenvscale = [echo ***shaderparam envscale (getvshaderparam $getseltex envscale)] +// echovshaderparamglowcolor = [echo ***shaderparam glowcolor (getvshaderparam $getseltex glowcolor)] +// echovshaderparamparallaxscale = [echo ***shaderparam parallaxscale (getvshaderparam $getseltex parallaxscale)] +// echovshaderparampulseglowcolor = [echo ***shaderparam pulseglowcolor (getvshaderparam $getseltex pulseglowcolor)] +// echovshaderparampulseglowspeed = [echo ***shaderparam pulseglowspeed (getvshaderparam $getseltex pulseglowspeed)] +// echovshaderparampulsespeed = [echo ***shaderparam pulsespeed (getvshaderparam $getseltex pulsespeed)] +// echovshaderparamspecscale = [echo ***shaderparam specscale (getvshaderparam $getseltex specscale)] + +findpickupents = [entfind shells;entfind bullets;entfind rockets;entfind riflerounds;entfind grenades;entfind cartridges;entfind greenarmour;entfind yellowarmour;entfind health;entfind healthboost;entfind quaddamage;] + +prettysky = [ + skybox "skyboxes/remus/sky01" + ambient 25 21 23 + skylight 148 153 163 + blurskylight 2 + sunlight 255 252 250 + sunlightscale 1.3 + sunlightpitch 43 + sunlightyaw 53 +] + |