123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535 |
- const MODES [tdm coop dm surv tsurv ctf pf btdm bdm lss osok tosok bosok htf tktf ktf tpf tlss bpf blss btsurv btosok]
- const MODEALIASES [map lms vip sendmap]
- const editent [
- if $editing [
- if (strcmp (getenttype) mapmodel) [ saycommand "/entset" (getenttype) (getentattr 1) (getentattr 2) (getentattr 3) ] [
- if (> (findlist [light sound clip plclip] (getenttype)) -1) [
- saycommand "/entset" (getenttype) (getentattr 0) (getentattr 1) (getentattr 2) (getentattr 3)
- ] [
- saycommand "/entset" (getenttype) (getentattr ((> (findlist [playerstart ctf-flag] (getenttype)) -1)))
- ]
- ]
- ]
- ]
- const convertclips [
- if $editing [
- if (strcmp (getenttype) clip) [ entset plclip (getentattr 0) (getentattr 1) (getentattr 2) (getentattr 3) ] [
- if (strcmp (getenttype) plclip) [ entset clip (getentattr 0) (getentattr 1) (getentattr 2) (getentattr 3) ] [
- echo No changes made. This entity isn't a clip or a plclip.; echo Try using the /closestenttype command to find a specific entity.
- ]
- ]
- ]
- ]
- const mapmodelzoff [
- if (strlen (editmapmodelslot $arg1)) [
- looplist (editmapmodelslot $arg1) [rad h zoff snap path] [editmapmodelslot $arg1 "" "" (- $zoff 1) ; echo $path in slot # $arg1 : new z-offset (- $zoff 1)]
- looplist (mapmodelslotusage $arg1) ii [editentity $ii "" "" "" "" "" (+ 1 (at (editentity $ii) 6)) ; echo adjusted entity # $ii]
- ]
- ]
- const gibsgore [
- looplist (at ["0 30 6 5000" "1 30 6 5000" "1 30 75 5000" "1 15 64 10000" "1 40 100 2500"] $arg1) [a1 a2 a3 a4] [
- gib $a1 ; gibspeed $a2 ; gibnum $a3 ; gibttl $a4 ; __gibsgore = $arg1
- ]
- ]
- const fullscreentoggle [ fullscreen (! $fullscreen) ]
- const editsvar [ inputcommand $$arg1 (concatword "push q (addpunct $cmdbuf) ; " $arg1 " (at $q 0) ; pop q") (concatword "edit " $arg1 :) ]
- const editmapmsg [ editsvar mapmsg ]
- const editalias [ if (checkalias $arg1) 0 [ alias $arg1 "" ] ; inputcommand $$arg1 (concatword "push q (addpunct $cmdbuf) ; " $arg1 " = (at $q 0) ; pop q") (concatword "edit " $arg1 :) ]
- const escapenoquotes [ substr (escape $arg1) 1 -2 ]
- const run [ push n (concatword "exec config/" $arg1 ".cfg") ; loop i (- $numargs 1) [ n = (concat $n $(concatword arg (+ $i 2))) ] ; n ; pop n]
- const closecurmenu [ closemenu (curmenu) ]
- const resetcurmenu [ delmenu (curmenu) ; newmenu (curmenu) ]
- const refreshcurmenu [ push __curmenu (curmenu); closecurmenu; showmenu (pop __curmenu) ]
- const refreshcurmenudelayed [ push __curmenu (curmenu); closecurmenu; sleep 0 [ showmenu (pop __curmenu) ] ]
- const switch [ if (&& (< $arg1 $numargs) (>= $arg1 0)) [ arg@(+ $arg1 2) ]]
- const mapcomplete [complete $arg1 "packages/maps/official packages/maps" cgz]
- loop i (listlen (concat $MODES $MODEALIASES)) [ mapcomplete (at (concat $MODES $MODEALIASES) $i) ]
- complete demo demos dmo
- looplist [
- listoptions ""
- newent ents
- addentity ents
- clearents ents
- closestenttype ents
- enumentities ents
- weapon weapons
- burstshots weapons
- fragmessage weapons
- gibmessage weapons
- team teamnames
- addpunct punctuations
- loadcrosshair crosshairnames
- edittexturestack texturestacktypes
- enumsounds soundcategories
- ] [ cmd options ] [ listcomplete $cmd (listoptions $options)
- ]
- listcomplete edittagclip "none plclip clip"
- listcomplete getvarrange "min max default"
- listcomplete mapareacheck "vdelta steepest total pprest pp"
- listcomplete modeinfo "list clear get all ctf|dm|htf|ktf|lss|osok|pf|surv|tdm|tktf|tlss|tosok|tpf|tsurv"
- listcomplete mapartist "print get set clear"
- listcomplete authsetup "pre priv pub ppass pass passd needpass genpre genpriv genpub newppass newpass unarmed"
- listcomplete authkey "clear list delete new add selfcert"
- looplist [ addzipmod zipmodremove zipmodgetdesc ] cmd [complete $cmd "mods" zip]
- push skies ""
- looplist (gettexturelist skymaps/ "" _ft.jpg) [c1 c2 c3 c4] [skies = (concat $skies (escape (concatword $c3 "/" $c4)))]
- listcomplete loadsky (pop skies)
- gamemodedesc 0 [Team Deathmatch: Shred the enemy team to pieces!]
- gamemodedesc 1 [Co-operative Editing: Edit maps with others online!]
- gamemodedesc 2 [Deathmatch: Destroy anything that moves! Everyone for themselves!]
- gamemodedesc 3 [Survivor: Conserve your precious life, destroy the enemy's. Once all your enemies are dead, the round restarts.]
- gamemodedesc 4 [Team Survivor: Conserve your precious life, destroy the enemy team. Once all your enemies are dead, the round restarts.]
- gamemodedesc 5 [Capture the Flag: Steal the enemy teams flag and bring it to your home base. Don't let your own flag get stolen.]
- gamemodedesc 6 [Pistol Frenzy: Can you make your enemy eat lead with the most simplest of weapons?]
- gamemodedesc 7 [Bot Team Deathmatch: Find the enemy A.I. and destroy them!]
- gamemodedesc 8 [Bot Deathmatch: It's every man and A.I. for themselves! Dismantle those bots!]
- gamemodedesc 9 [Last Swiss Standing: Knive and bomb the enemy!]
- gamemodedesc 10 [One Shot, One Kill: You and your opponents start with 1hp, a sniper rifle, a knife and no pickups. Survive with your sniper, or humiliate with your swiss steel.]
- gamemodedesc 11 [Team One Shot, One Kill: Your team starts with 1hp, a sniper rifle, a knife and no pickups. Survive with your sniper, or humiliate with your swiss steel.]
- gamemodedesc 12 [Bot One Shot, One Kill: You and the bots start with 1hp, a sniper rifle, a knife and no pickups. Survive with your sniper, or humiliate with your swiss steel.]
- gamemodedesc 13 [Hunt the Flag: Find the enemy flag, frag the flag bearer and collect the flag to score. Protect your own team flag. If the flag bearer collects the enemy flag, they gain a 1 point bonus.]
- gamemodedesc 14 [Team Keep the Flag: There is only one flag. Get the flag and keep it. You score one point every 15 seconds. If your teammate has the flag, protect him. If the flag bearer collects the enemy flag, they gain a 1 point bonus.]
- gamemodedesc 15 [Keep the Flag: Get the flag and keep it. You score one point every 15 seconds. Everybody else will want to destroy you!]
- gamemodedesc 16 [Team Pistol Frenzy: Can you make your enemy team eat lead with the most simplest of weapons?]
- gamemodedesc 17 [Team Last Swiss Standing: Knive and bomb the enemy team!]
- gamemodedesc 18 [Bot Pistol Frenzy: Can you make the enemy A.I. eat lead with the most simplest of weapons?]
- gamemodedesc 19 [Bot Last Swiss Standing: Knive and bomb the enemy A.I.!]
- gamemodedesc 20 [Bot Team Survivor: Conserve your precious life, destroy the enemy A.I. team! Once all your enemies are dead, the round restarts.]
- gamemodedesc 21 [Bot Team One Shot, One Kill: You and your A.I. team start with 1hp, a sniper rifle, a knife and no pickups. Survive with your sniper, or humiliate with your swiss steel.]
- const resetbinds [ run resetbinds; echo "\f3All binds have been reset to default values!" ]
- const changeteam [ if (< (player1 team) 4) [ team (at [RVSF CLA RVSF-SPECT CLA-SPECT] (player1 team)) ] ]
- const NUM_WEAPONS (listlen (listoptions weapons))
- const NUM_MODES (listlen $MODES)
- const MAX_CLIENTS 16
- const MAX_BOT_MATCH_LENGTH 60
- const getgunindex [ findlist (listoptions weapons) $arg1 ]
- loop r $NUM_MODES [ const (at $MODES $r) (format [votemap %1 %2 %3] $r "$arg1" "$arg2") ]
- const modenum [ result (findlist $MODES $arg1) ]
- const votemap [ mode $arg1; map $arg2 $arg3 ]
- const lms [ surv $arg1 $arg2 ]
- const vip [ htf $arg1 $arg2 ]
- const add2alias [
- if (strcmp [] (getalias $arg1)) [ $arg1 = $arg2 ] [
- $arg1 = (concat (concatword (getalias $arg1) [;]) $arg2)
- ]
- ]
- const addOnLoadOnce [ add2alias mapstartonce $arg1 ]
- const addOnLoadAlways [ add2alias mapstartalways $arg1 ]
- const addOnQuit [ add2alias onQuit $arg1 ]
- const check2init [ if (! (checkalias $arg1)) [ tempalias $arg1 $arg2 ] ]
- const check2initlist [ loop cll (listlen $arg1) [ check2init (at $arg1 $cll) $arg2 ] ]
- const forceinit [ loop fil (listlen $arg1) [ (at $arg1 $fil) = $arg2 ] ]
- const checkinit [ if (! (checkalias $arg1)) [ $arg1 = "" ]; if (> $numargs 1) [ if (! (strstr (getalias $arg1) $arg2)) [ add2alias $arg1 $arg2 ] ] ]
- const aliasinit [ loop ail (listlen $arg1) [ checkinit (at $arg1 $ail) $arg2 ] ]
- const add2list [ if (strcmp [] (getalias $arg1)) [ $arg1 = $arg2 ] [ $arg1 = (concat (getalias $arg1) $arg2) ] ]
- const add2bind [ if (! (strstr (keybind $arg1) $arg2)) [ bind $arg1 (format [%1; %2] (keybind $arg1) $arg2) ] ]
- const concatuniq [ if (< (findlist $$arg1 $arg2) 0) [$arg1 = (concat $$arg1 (escape $arg2)) ; result 1] [result 0] ]
- const hasprimary [ result (= (curweapon) (currentprimary)) ]
- const primary [ weapon (currentprimary) ]
- const ptoggle [ if (hasprimary) $arg1 primary ]
- const secondary [ weapon PISTOL ]
- const sndtoggle [ ptoggle secondary ]
- const melee [ weapon KNIFE ]
- const knftoggle [ ptoggle melee ]
- const grenades [ weapon GRENADE ]
- const gndtoggle [ ptoggle grenades ]
- const altaction [ (concatword altaction_ (curweapon)) ]
- const checkmag [ result (|| (magcontent $arg1) (magreserve $arg1)) ]
- const checkrange [ && (>=f $arg1 $arg2) (<=f $arg1 $arg3) ]
- loop i $NUM_WEAPONS [ (concatword altaction_ $i) = quicknadethrow ]
- (format altaction_%1 (getgunindex sniper)) = [ setscope 1; onrelease [ setscope 0 ] ]
- oldsens = $sensitivity
- const zoom [
- if (= $arg1 1) [
- if (! (=f $sensitivity $scopesens)) [
- oldsens = $sensitivity
-
- newsens = $scopesens
- if (> (*f 1 1000) $newsens) [ if (< 1000 $newsens) [ sensitivity $scopesens ] ]
- setscope 1
- ]
- ] [ sensitivity $oldsens; setscope 0 ]
- ]
- delta_game_0 = [ if (= $arg1 1) [ shiftweapon 1 ] [ shiftweapon -1 ] ]
- delta_game_1 = [ if (checkrange (+ $gamma $arg1) 30 300) [ gamma (+ $gamma $arg1) ] ]
- delta_game_2 = [ if (checkrange (+ $fov $arg1) 75 120) [ fov (+ $fov $arg1) ] ]
- delta_spect_0 = [ changefollowplayer $arg1 ]
- tempalias modifier 0
- tempalias editmeta2down 0
- const domodifier [ modifier = $arg1; onrelease [ modifier = 0 ] ]
- const universaldelta [
- push s
- if $editing [ s = edit ] [
- if (player1 alive) [ s = game ] [ s = spect ]
- ]
- [delta_@(pop s)_@modifier] (* $arg1 (at "1 3" $editmetakeydown)) (* $arg1 (at "1 10" $editmetakeydown))
- ]
- delta_edit_0 = [ editheight $flrceil $arg1 ]
- delta_edit_1 = [ if $flrceil [ vdelta $arg1 ] [ vdelta (- 0 $arg1) ] ]
- delta_edit_2 = [ edittex $flrceil $arg1 ]
- delta_edit_3 = [ edittex (+ $flrceil 1) $arg1 ]
- delta_edit_4 = [ equalize $flrceil ]
- delta_edit_6 = [ entproperty $editaxis $arg1 ]
- delta_edit_10 = [ if (checkrange (+f $flyspeed (divf $arg1 4)) 1 5) [ flyspeed (+f $flyspeed (divf $arg1 4)); echo $flyspeed ] ]
- delta_edit_11 = [ expandselection $arg1 ]
- delta_edit_attr1 = [ entproperty 0 $arg2 $editmeta2down ]
- delta_edit_attr2 = [ entproperty 1 $arg2 $editmeta2down ]
- delta_edit_attr3 = [ entproperty 2 $arg2 $editmeta2down ]
- delta_edit_attr4 = [ entproperty 3 $arg2 $editmeta2down ]
- delta_edit_attr5 = [ entproperty 4 $arg2 $editmeta2down ]
- delta_edit_attr6 = [ entproperty 5 $arg2 $editmeta2down ]
- delta_edit_attr7 = [ entproperty 6 $arg2 $editmeta2down ]
- delta_edit_spawns = [ gotonextplayerstart $arg1 ]
- delta_edit_todoents = [ gotonexttodoentity $arg1 ]
- delta_game_spawns = []
- delta_game_conscroll = [ __scrolled = $conopen ; conskip (* 4 $arg1) ]
- delta_spect_conscroll = $delta_game_conscroll
- delta_edit_conscroll = $delta_game_conscroll
- const toggleshowmap [ showmap 1; onrelease [ showmap 0 ] ]
- const sbconnect [
- tempalias sbdns $arg1; tempalias sbport $arg2; tempalias sbdesc $arg7; tempalias sbpwd []; tempalias sbmsg []
- if (>= $arg5 1) [
- sbmsg = [This server is set to private.]; showmenu [password required]
- ] [
- if (>= $arg6 1) [
- sbmsg = [You are banned from this server.]; showmenu [password required]
- ] [
- if (= $arg4 1) [
- sbmsg = [This server is password-protected.]; showmenu [password required]
- ] [
- if (> (strlen $arg7) 0) [ echo connecting to $arg7 ]
- connect $arg1 $arg2
- ]
- ]
- ]
- ]
- const quickanswer [ if (>= $lastpm 0) [ saycommand (concat /pm $lastpm []) ] [ saycommand (concat /pm []) ] ]
- const join [ connect $arg1 $arg2 $arg3 ]
- const reconnect [ if $numargs [ tempalias svpass $arg1 ] [ tempalias svpass [] ]; if $connected [ tempalias svdata (curserver); afterdisconnect [ connect (at $svdata 0) (at $svdata 1) $svpass ] ] ]
- const dlmap [ getmap $arg1 [ sleep 2500 (concat map $arg1) ] ]
- const rndmap [ result (at $__defaultmaps (rnd (listlen $__defaultmaps))) ]
- const rrnd [ + (rnd (- $arg2 $arg1)) $arg1 ]
- const listaverage [ push sum "" ; looplist $arg1 n [ +=f sum $n ] ; if (strlen $sum) [ div=f sum (listlen $arg1) ] ; result (pop sum) ]
- tempalias pasteent [if $editing [echo no entity copied, yet]]
- const copyent [
- if $editing [
- push n (format2 "%1 %5 %6 %7 %8 %9 %010 %011" (editentity (getclosestent)))
- push d (switch (findlist "mapmodel sound" (at $n 0)) [mapmodelslotname (at $n 2)] [at (editmapsoundslot (at $n 1)) 0])
- pasteent = [if $editing [if $editmetakeydown [showmenu [Paste entity]] [newent7 @@@n ; echo @@@n @@@d pasted.]]]
- newmenu [Paste entity]
- menuitem [paste: @n @d] [newent7 @n ; echo @n @d pasted.]
- echo $n $d copied.
- pop n d
- ]
- ]
- const newent7 [
- if $numargs [
- loop i 8 [ push [a@i] (if (< $i $numargs) [result $arg@(+ $i 1)])]
- selectionwalk [] [
- push n (addentity $a0)
- if (strlen $n) [ editentity $n (at $sw_cursel 0) (at $sw_cursel 1) "" $a1 $a2 $a3 $a4 $a5 $a6 $a7 ]
- pop n
- ]
- loop i 8 [ pop [a@i] ]
- ]
- ]
- const countwalls [
- push __cnt 0
- selectionwalk [ if (= $sw_type $arg1) [ += __cnt 1 ] ]
- pop __cnt
- ]
- const gotonextplayerstart [
- if (&& (!= $arg1 1) (!= $arg1 -1)) [ arg1 = 1 ]
- if (! (checkalias __gotonextplayerstart)) [ tempalias __gotonextplayerstart -1 ]
- push sl ""
- looplist [0 1 100] t [
- looplist (enumentities playerstart) i [
- if (= $t (at (editentity $i) 5)) [
- sl = (concat $sl $i)
- ]
- ]
- ]
- push n (listlen $sl)
- if (&& $n $editing) [
- __gotonextplayerstart = (mod (+ $n $n $arg1 $__gotonextplayerstart) $n)
- gotoentity (at $sl $__gotonextplayerstart)
- edittoggle ; sleep 50 edittoggle
- ]
- pop n sl
- ]
- const gotonexttodoentity [
- if (&& (!= $arg1 1) (!= $arg1 -1)) [ arg1 = 1 ]
- if (! (checkalias __gotonexttodoentity)) [ tempalias __gotonexttodoentity -1 ]
- push l (enumtodoentities)
- push n (div (listlen $l) 2)
- if (&& $n $editing) [
- __gotonexttodoentity = (mod (+ $n $n $arg1 $__gotonexttodoentity) $n)
- looplisti $l [e desc] [
- if (= $i $__gotonexttodoentity) [
- gotoentity $e
- echo (concatword "TODO entity #" $e ": \fs\f4" (editentity $e) "\fr ") $desc
- ]
- ]
- ]
- pop n l
- ]
- const selectall [
- select 2 2 (- (powf 2 (mapsize)) 4) (- (powf 2 (mapsize)) 4)
- ]
- const pushselections [
- if (listlen (selx)) [
- push selsets ""
- selectionwalk [] [ selsets = (concat $selsets "; addselection" $sw_cursel) ]
- push popselections (concat "resetselections" (pop selsets) "; pop popselections")
- ][
- echo no selction
- ]
- ]
- tempalias popselections [ echo no selections stored ]
- const __changeselectionsize [
- if (&& $editing (= $numargs 4)) [
- push selsets ""
- selectionwalk [] [ selsets = (concat $selsets $sw_cursel) ]
- resetselections
- looplist (pop selsets) [x y xs ys] [
- if (&& (> (+ $xs $arg3) 0) (> (+ $ys $arg4) 0)) [
- addselection (- $x $arg1) (- $y $arg2) (+ $xs $arg3) (+ $ys $arg4)
- ] [
- addselection $x $y $xs $ys
- ]
- ]
- ]
- ]
- const enlargevdeltaselections [ __changeselectionsize 0 0 (if $numargs $arg1 1) (if $numargs $arg1 1) ]
- const expandselection [ if $numargs [ __changeselectionsize $arg1 $arg1 (* 2 $arg1) (* 2 $arg1) ] ]
- const shrinkselection [ if $numargs [ *= arg1 -1 ; __changeselectionsize $arg1 $arg1 (* 2 $arg1) (* 2 $arg1) ] ]
- alias updateeditinfopanel explainclosestentity
- const __entexp_light [ at [ "radius: %1\nintensity: %2\n\n\f4(white light)" "radius: %1\nr: %2\ng: %3\nb: %4\n\n\f4(colored light)" ] (|| (getentattr 2 1) (getentattr 3 1)) ]
- const __entexp_playerstart [ result "angle: %1\nteam: %2" ]
- const __entexp_pistol [ result "elevation: %1" ]
- const __entexp_ammobox __entexp_pistol
- const __entexp_grenades __entexp_pistol
- const __entexp_health __entexp_pistol
- const __entexp_helmet __entexp_pistol
- const __entexp_armour __entexp_pistol
- const __entexp_akimbo __entexp_pistol
- const __entexp_mapmodel [ concatword "angle: %1\nconfig slot: #%2\n\elevation: %3\ntexture: %4\npitch: %5\nroll: %6\n\n\fs\f1slot #%2 info:\n" (format2 "\f9%5\fr\nclip radius: %1\nclip height: %2\nelevation: %3 scale: %4" (editmapmodelslot (getentattr 1)))]
- const __entexp_trigger [ result "tag: %1\ntype: %2" ]
- const __entexp_ladder [ result "height: %1" ]
- const __entexp_ctf-flag [ result "angle: %1\nteam: %2" ]
- const __entexp_sound [ concatword "config slot: #%1\nradius: %2\nsize: %3\nvolume: %4\n\n\fs\f1slot #%1 info:\n" (format2 "\f9%1\fr\nmaxuses: %2" (editmapsoundslot (getentattr 0)))]
- const __entexp_clip [ result "elevation: %1\nx-radius: %2\ny-radius: %3\nheight: %4\nslope: %6\nshape: %7" ]
- const __entexp_plclip __entexp_clip
- const __entexp_dummy [ result "n/a" ]
- const explainclosestentity [
- if (>= (getclosestent) 0) [
- concatword "\fs\f1" (getenttype) "\fr entity:\n\n" (format2 ((concatword __entexp_ (getenttype))) (format2 "%5 %6 %7 %8 %9 %010 %011" (editentity (getclosestent))))
- ]
- ]
- const megabind [ if (> $numargs 5) [ bind $arg1 (format "if (watchingdemo) [ %1 ] [ if (|| $editing (= $gamemode 1)) [ %2 ] [ if $connected [ %3 ] [ if (curmodeattr bot) [ %4 ] [ %5 ] ] ] ]" $arg2 $arg3 $arg4 $arg5 $arg6) ] ]
- const storesets [
- if (> $numargs 1) [
- tempalias badargs 0; $arg2 = []
- loop ssl (listlen $arg1) [
- if (isIdent (at $arg1 $ssl)) [
- add2list $arg2 (getalias (at $arg1 $ssl))
- ] [ badargs = 1; break ]
- ]
- if $badargs [ delalias $arg2; echo "\f3Error: \f5Bad argument(s) given!" ]
- ]
- ]
- const __disablehud [ tempalias __tmp_old_sets (concat hudgun $hudgun ";" showclips $showclips) ; hudgun 0 ; showclips 0 ; if $editing [ seteditshow 0 ]; blankouthud 1000 ]
- const __enablehud [ __tmp_old_sets ; if $editing seteditshow ; blankouthud 0 ]
- const cleanshot [ __disablehud; sleep 200 screenshot; sleep 500 __enablehud ]
- const highestcn [
- hcn = -1
- if $connected [ nl = (+ $MAX_CLIENTS 1) ] [ if (curmodeattr bot) [ nl = 100 ] [ nl = 1 ] ]
- loop h $nl [
- if (isclient $h) [ hcn = $h ]
- ]
- result $hcn
- ]
- ingall = 0
- const ignoreall [ if $connected [ ingall = 1; loop ia (+ (highestcn) 1) [ ignore $ia ]; echo "\f1NOTE: \f5all clients currently on the server were ignored" ] ]
- const unignoreall [ if $connected [ ingall = 0; clearignored -1; echo "\f1NOTE: \f5all clients currently on the server were unignored" ] ]
- const ignoreteam [
- if (curmodeattr team) [
- _arg1 = (toupper $arg1)
- if (|| (strcmp $_arg1 CLA) (strcmp $_arg1 RVSF)) [
- loop itl (+ (highestcn) 1) [
- if (isclient $itl) [
- if (= (player $itl team) (at [0 1] (strcmp $_arg1 RVSF))) [ ignore $itl ]
- ]
- ]
- ] [
- if (checkrange $_arg1 0 1) [
- loop itl (+ (highestcn) 1) [
- if (isclient $itl) [
- if (= (player $itl team) $_arg1) [ ignore $itl ]
- ]
- ]
- ]
- ]
- ] ignoreall
- ]
- const ignoreenemy [ if (! (player1 spect)) [ignoreteam (at [0 1] (! (player1 team)))] ]
- _CAS_serverip = "IP ADDRESS"
- _CAS_serverpass = "PASSWORD"
- _CAS_servername = "SERVER NAME"
- const customclaimadminscript [
- if (strcmp (curserver 1) $_CAS_serverip) [
- if (! (player1 role)) [ setadmin 1 $_CAS_serverpass ] [ setadmin 0 ]
- ] [ echo "\f3Error: \f5you're not connected to" $_CAS_servername servers ]
- ]
- const setgamma [
- push nn (concatword "__dyngamma_" (curmap))
- if (checkrange $arg1 30 300) [
- $nn = $arg1
- echo "gamma preset for map" (curmap) "set to" $arg1
- ] [
- if (&& [checkalias $nn] [strlen $$nn]) [
- $nn = ""
- echo "gamma preset for map" (curmap) "deleted"
- ]
- ]
- pop nn
- ]
- const applygamma [
- push nn (concatword "__dyngamma_" (curmap))
- if (&& [checkalias $nn] [strlen $$nn]) [ gamma $$nn ; echo "gamma set to" $$nn ] [ gamma $defaultgamma ]
- pop nn
- ]
- addOnLoadAlways applygamma
- tempalias load_autosave [ run opt/autosave ; alias load_autosave [] ]
- tempalias load_compatibility [ run opt/compatibility ; alias load_compatibility [] ]
- tempalias load_survival [ load_compatibility ; run opt/survival ; alias load_survival [] ]
- tempalias load_parsestring [ run opt/parsestring ; alias load_parsestring [] ]
- tempalias load_faq [ run opt/faq ; alias load_faq [] ]
- tempalias load_convmap [ saycommand "/run opt/convmap " ]
- tempalias load_mapeditscripts [ run opt/mapeditscripts ]
|