Scripts

[Orynge]

Code:

// NAME: ignoreall // PURPOSE: Ignores all clients with a single call // AUTHOR: VenteX (like much credit needs to be given for a simple one-liner... psh.) alias ignoreall [ clearignored; sleep 1 [ loop cn 20 [ ignore $cn ] ] ]

Enjoy :P

I believe there's already a command to turn chat off, but it's a good thing to use until the next version comes out. :P

[macm]

what about adding a highlightning feature?
if someone says your name unignore him. :D
(i wouldn't want to miss if someone was adressing me)

[#M|A#Wolf]

what about adding a highlightning feature?
if someone says your name unignore him. :D
(i wouldn't want to miss if someone was adressing me)

Brilliant idea! If someone says your name then your client unignores only him, until you type /ignoreall again.

[|HP|]

Me haz a question:D

how do i add a sleep after each whois?

loop i 20 [whois $i]

Like whois 0 sleep whois 1 sleep....

[Bukz]

Code:

sleepctr = 0; loop i 20 [sleep $sleepctr [whois $i; += sleepctr 1000]]

or maybe:

Code:

loop i 20 [sleep (* $i 1000) [whois $i]]

[|HP|]

Code:

sleepctr = 0; loop i 20 [sleep $sleepctr [whois $i; += sleepctr 1000]]

hm.. 0_o

didnt work still hangs on cn 0

doesnt go past it

Code:

loop i 20 [sleep (* $i 1000) [whois $i]]

Edit: now only cn 7:D

[macm]

You can use this tool to add sleep betwen loops:

Code:

alias sloop [ slp1 = $arg1 slp2 = $arg2 slp3 = $arg3 slp4 = $arg4 slp5 = (result (concatword "$" $slp1)) loop $slp1 $slp2 [sleep (* (slp5) $slp3) [$slp1 = (+ ($slp1) 1); slp4; if (= ($slp1) (- $slp2 1)) [ loop slp6 6 [if (= $slp6 0) [delalias $slp1] [delalias (concatword "slp" $slp6)]] ] []]]; $slp1 = -1 ]

and then:

Code:

sloop i 21 1000 [whois $i]

[DeafieGamer]

Or....

[ alias ii 0 ; loop i 20 [sleep (* $i 1000) [whois $ii ; alias ii (+ $ii 1) ] ]

[|HP|]

thanks macm and buggy
both work

[V-Man]

or use tools.cfg and it goes like this:
sloop i 20 300 [whois $i]

[VenteX]

Shameless self-advertising is shameless, V-Man

[V-Man]

Nay! It is full of shame!
My face burns with shame as I try to make up for my shameful self-advertising.

[DeafieGamer]

Lol, v-man!

I have fixed two of |HP| script so far...

why the heck is SPECT $curteam is 4 and not 2!?!?

[Gibstick]

There are different types of spectators - CLA spect, RVSF spect - for some reasons I can't remember.

Oh yeah, arena modes.

[Ronald_Reagan]

No, /mastermode 2; benchme

[DeafieGamer]

Teabagging script.....

It's NOT a good success but.... GOOD checkpoint!

/bind q [crouch ; sleep 200 [crouch] ]

crounch and rise in 200 milliseconds

---

Working on making it loop repeating

[VenteX]

Working on making it loop repeating

Good luck with that ;P

[Duckett]

This thread really needs to be stickied.

[Luc@s]

Teabagging script.....

It's NOT a good success but.... GOOD checkpoint!

/bind q [crouch ; sleep 200 [crouch] ]

crounch and rise in 200 milliseconds

---

Working on making it loop repeating

Code:

bind RSHIFT [ crouch; if (! (checkalias "lastcrouch")) [ lastcrouch = 0 ]; if (< (millis) (+ $lastcrouch 300)) [ say "TEABAGGED" ]; lastcrouch = (millis); ]

[Viper]

Yes it should.

[ExodusS]

Rick-Roll'd!

Code:

alias "rick" [sleep 2000 [say "Never gonna let you down."]; sleep 4000 [say "Never gonna run around and desert you."]; sleep 6000 [say "Never gonna make you cry.]; sleep 8000 [say "Never gonna say goodbye."]; sleep 10000 [say "Never gonna tell a lie and hurt you."]]

Random texturescale!

Code:

alias rdmtxt [random_texturescale ; sleep 10 [rdmtxt]] alias random_texturescale [ texturescale (at $texture_list (rnd (listlen $texture_list))) ] texture_list = "16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 "

[Milandrag]

is it possible to make that script that can tell in teamchat your health and armor?
e.g. I am 100/100!

[Bukz]

@Milandrag: Not currently, the idea is being discussed for the next version though.

[Yarukinasu]

Since I never use it anymore, I thought it may be a good idea, or a bad idea, to post my autogemakick script. Here it is: http://ompldr.org/vOGhlMQ/autogemakick.cfg

Or if you do not trust that link, here it is:

Code:

// autogemakick script by |FOX|Yarukinasu // to enable or disable the autogemakick, type /autogemakick // prefix increment operator ++ = [ += $arg1 1 ] // a name that cannot be a name EMPTY = 0000000000000000 // names of the gema maps GEMA_MAPS = [ G3M4 G3M@ G3MA G3m4 G3m@ G3mA G3ma GEM4 GEM@ GEMA GEMa GEm4 GEm@ GEma Gem4 Gem@ GemA Gema g3M4 g3M@ g3Ma g3m4 g3m@ g3mA g3ma gEM4 gEM@ gEMA gEMa gEm4 gEm@ gEmA gEma geM4 geM@ geMa gem@ gemA gema jigsaw ] // maximum number of clients connected MAX_CN = 20 // convincing reasons REASONS = [ if (= $arg1) [ tmpreason = "killing" ] [ if (= $arg1 1) [ tmpreason = "team killing" ] [ if (= $arg1 2) [ tmpreason = "excessive killing" ] [ if (= $arg1 3) [ tmpreason = "excessive and team killing" ] [ if (= $arg1 4) [ tmpreason = "flag spamming" ] [ if (= $arg1 5) [ tmpreason = "changeteam spamming" ] [ if (= $arg1 6) [ tmpreason = "name spamming" ] ] ] ] ] ] ] result (format "no %1 on gema pl0x~" $tmpreason) ] // the switch for autogemakickloop agk = 0 // the list of killers' names killernamelist = "" // toggles the autogemakick autogemakick = [ if $agk [ echo (c 3) "autogemakick is disabled..."; agk = 0 ] [ echo (c 0) "autogemakick is enabled..."; agk = 1 ] repeat_autogemakick ] // this loop does the following: // 1. compares the ffdstat and the old_ffdstat, and if they are unequal, // check for a player that fragged, team killed, or flag spammed // 2. says the time it took for a player to score // 3. kicks the spammers: changeteam spam and name change spam autogemakickloop = [ update_connectedcn update_ffdstat if (strnot $ffdstat $old_ffdstat) [ loop i $MAX_CN [ if (|| [ at $old_connectedcn $i ] [ ! (at $connectedcn $i) ]) [ if (isconnected $i) [ iindex = (* $i 3) numflag = (at $ffdstat $iindex) old_numflag = (at $old_ffdstat $iindex) numfrag = (at $ffdstat (+ $iindex 1)) old_numfrag = (at $old_ffdstat (+ $iindex 1)) numdeath = (at $ffdstat (+ $iindex 2)) old_numdeath = (at $old_ffdstat (+ $iindex 2)) flagdif = (- $numflag $old_numflag) fragdif = (- $numfrag $old_numfrag) deathdif = (- $numdeath $old_numdeath) if (> $fragdif) [ vote 2 if (checkkillername (findpn $i)) [ ban $i (REASONS 2) ] [ kick $i (REASONS 0) ] ] [ if (&& [ <= $fragdif -1 ] [ != $deathdif 1 ]) [ vote 2 if (checkkillername (findpn $i)) [ ban $i (REASONS 3) ] [ kick $i (REASONS 1) ] ] [ if (= $flagdif 1) [ if (= $numflag 1) [ tmpgematime = (div (- (millis) (at $gematimes $i)) 1000) minutepassed = (div $tmpgematime 60) secondpassed = (mod $tmpgematime 60) if (<= $minutepassed 1) [ if $minutepassed [ tmpminute = "1 minute" ] [ tmpminute = "" ] ] [ tmpminute = (concat $minutepassed "minutes") ] if (<= $secondpassed 1) [ tmpsecond = "1 second" ] [ tmpsecond = (concat $secondpassed "seconds") ] if (&& $minutepassed [ strnot $tmpsecond ]) [ tmpsecond = (concat " and" $tmpsecond) ] statmessage = (concat (findpn $i) "finished the gema in") say (format "%1 %2%3." $statmessage $tmpminute $tmpsecond) ] [ if (>= $numflag 3) [ if (>= $numflag 5) [ vote 2 forceteam $i ] [ say (REASONS 4) ] ] ] ] ] ] ] ] ] changeskin ] update_old ffdstat if (strnot $connectedcn $old_connectedcn) [ loop i $MAX_CN [ if (&& [ at $connectedcn $i ] [ ! (at $old_connectedcn $i) ]) [ gematimes = (update_list $gematimes $i (millis)) ] ] ] update_old connectedcn update_teamlist if (strnot $teamlist $old_teamlist) [ loop i $MAX_CN [ if (&& [ != (at $teamlist $i) -1 ] [ != (at $old_teamlist $i) -1 ]) [ if (&& [ <= (at $teamlist $i) 1 ] [ <= (at $old_teamlist $i) 1 ]) [ if (!= (at $teamlist $i) (at $old_teamlist $i)) [ tmpincrement = (+ (at $changeteam_log $i) 1) changeteam_log = (update_list $changeteam_log $i $tmpincrement) ] ] ] ] ] update_old teamlist if (strnot $changeteam_log $old_changeteam_log) [ loop i $MAX_CN [ if (>= (at $changeteam_log $i) 10) [ kick $i (REASONS 5) changeteam_log = (update_list $changeteam_log $i 0) ] ] ] update_old changeteam_log update_namelist if (strnot $namelist $old_namelist) [ loop i $MAX_CN [ if (&& [ strnot (at $namelist $i) $EMPTY ] [ strnot (at $old_namelist $i) $EMPTY ]) [ if (strnot (at $namelist $i) (at $old_namelist $i)) [ tmpincrement = (+ (at $name_log $i) 1) name_log = (update_list $name_log $i $tmpincrement) ] ] ] ] update_old namelist if (strnot $name_log $old_name_log) [ loop i $MAX_CN [ if (>= (at $name_log $i) 10) [ kick $i (REASONS 6) name_log = (update_list $name_log $i 0) ] ] ] update_old name_log if (isgema) [ sleep 0 autogemakickloop ] ] // changes skin vigorously changeskin = [ if (curteam) [ myskin = 4; maxskin = 5 ] [ // RVSF / SPECTATOR myskin = 3; maxskin = 3 ] // CLA tmpcount = 0 changeskinloop ] // extension of the changeskin changeskinloop = [ if (>= $myskin $maxskin) [ myskin = 0 ] [ ++ myskin ] skin $myskin ++ tmpcount if (< $tmpcount 60) [ sleep 60 changeskinloop ] ] // checks whether the killer has been killing checkkillername = [ tmpkillername = $arg1 tmpnum = 0 loop i (listlen $killernamelist) [ if (strcmp (at $killernamelist $i) $tmpkillername) [ ++ tmpnum ] ] if (>= $tmpnum 3) [ tmpkillernamelist = "" tmplistlen = (listlen $killernamelist) loop i $tmplistlen [ if (strnot (at $killernamelist $i) $tmpkillername) [ tmpkillernamelist = (concat $tmpkillernamelist (at $killernamelist $i)) ] ] killernamelist = $tmpkillernamelist result 1 ] [ killernamelist = (concat $killernamelist $tmpkillername) result 0 ] ] // initializes a list and updates the old list init = [ $arg1 = "" loop i $MAX_CN [ $arg1 = (concat (getalias $arg1) $arg2) ] update_old $arg1 ] // if the client number if connected, return 1; otherwise, return 0 isconnected = [ result (strnot (findpn $arg1)) ] // if the current map is a gema, return 1; otherwise, return 0 isgema = [ ig = 0 if (&& $agk [ = (curmode) 5 ]) [ loop i (listlen $GEMA_MAPS) [ if (strstr (curmap) (at $GEMA_MAPS $i)) [ ig = 1 ] ] ] result $ig ] // updates the connectedcn update_connectedcn = [ connectedcn = "" loop i $MAX_CN [ connectedcn = (concat $connectedcn (isconnected $i)) ] ] // updates the connectedcn and the old_connectedcn update_connectedcns = [ update_connectedcn; update_old connectedcn ] // updates the ffdstat and the old_ffdstat update_ffdstats = [ update_ffdstat; update_old ffdstat ] // updates the ffdstat update_ffdstat = [ ffdstat = "" loop i $MAX_CN [ f = (at (pstat_score $i)) // FLAGS ff = (concat $f (at (pstat_score $i) 1)) // FLAGS + FRAGS ffd = (concat $ff (at (pstat_score $i) 2)) // FLAGS + FRAGS + DEATHS ffdstat = (concat $ffdstat $ffd) ] ] // updates a list update_list = [ checkinglist = $arg1 ulcn = $arg2 ulvalue = $arg3 tmplist = "" loop i $ulcn [ tmplist = (concat $tmplist (at $checkinglist $i)) ] tmplist = (concat $tmplist $ulvalue) loop i (- (- $MAX_CN 1) $ulcn) [ tmplist = (concat $tmplist (at $checkinglist (+ (+ $ulcn 1) $i))) ] result $tmplist ] // updates the namelist update_namelist = [ namelist = "" loop i $MAX_CN [ if (isconnected $i) [ namelist = (concat $namelist (findpn $i)) ] [ namelist = (concat $namelist $EMPTY) ] ] ] // updates the namelist and the old_namelist update_namelists = [ update_namelist; update_old namelist ] // updates the old list update_old = [ (concatword "old_" $arg1) = (getalias $arg1) ] // updates the teamlist update_teamlist = [ teamlist = "" loop i $MAX_CN [ teamlist = (concat $teamlist (at (pstat_score $i) 4)) ] ] // updates the teamlist and the old_teamlist update_teamlists = [ update_teamlist; update_old teamlist ] // this should be executed immediately after a new map has been loaded repeat_autogemakick = [ init changeteam_log 0 init gematimes (millis) init name_log 0 update_ffdstats update_connectedcns update_namelists update_teamlists autogemakickloop ] // returns 1 if two strings are not equal; otherise, returns 0 strnot = [ result (! (strcmp $arg1 $arg2)) ] // adds the repeat_autogemakick in mapstartalways // equivalent to addcheck_msa [ if $agk [ repeat_autogemakick ] ] // thanks to V-Man's tools.cfg if (! (strstr (getalias mapstartalways) "if $agk [ repeat_autogemakick ]")) [ add2alias mapstartalways [ if $agk [ repeat_autogemakick ] ] ]

Or maybe someone has found this script? _///\(O_O)/\\\_... I am not even sure whether this works anymore. Also, I think CubeScript needs to support multi-line comments... Or maybe not ;~; I never know what to make anymore.

[macm]

A simple script to check the damage you made with a grenade:

example:
Grenade Damage: 98
Grenade Damage: 143
Grenade Damage: 32

Code:

//add the alias to the altaction or your grenade key alias altaction_8 [quicknadethrow; nade_hit_msg ] alias nade_hit_msg [ last_nade_dmg = (at (pstat_weap (findcn $curname)) 17); sleep 3000 [ new_nade_dmg = (at (pstat_weap (findcn $curname)) 17); nade_made_dmg = (- $new_nade_dmg $last_nade_dmg) if (> $nade_made_dmg 0) [echo (concat "3Grenade Damage:" $nade_made_dmg)] ]]

[V-Man]

Freakin' awesome script, mate!
* V-Man immediately installs

[Duckett]

Dang, I've been waiting for something like that to come out macm, this is a must, for nade whores.

[Cleaner]

BTW, there is also a 'Scripts' section on AKIMBO here.

Might as well make those who do not especially come here benefit from it.

[Bukz]

Tired of your brother always cheating and getting you banned? Get the client lock script today!!11one

[MusicMan10]

Tired of your brother always cheating and getting you banned? Get the client lock script today!!11one

No, but we're tired of YOUR brother spamming and trolling the AC forums.