Scripts

[Orynge]

[SELECT ALL] 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]

[SELECT ALL] Code:

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

or maybe:

[SELECT ALL] Code:

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

[|HP|]

[SELECT ALL] 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

[SELECT ALL] 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:

[SELECT ALL] 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:

[SELECT ALL] 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

[SELECT ALL] 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!

[SELECT ALL] 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!

[SELECT ALL] 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:

[SELECT ALL] 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

[SELECT ALL] 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.