weapon`[x] (Wx) — File Browser

weaponxWxv1.7 / weaponxWxv1.7 / formats / alias4.ini

alias4.ini — 12.41 KB — Download this file

[aliases]
n0=cycleroom {
n1=  set %key $chan(#).key
n2=  raw -q part #
n3=  raw -q join # %key
n4=}
n5=hex {
n6=  if ($1 == $null) { echo -a $_xe Syntax: /hex <nickname> | halt }
n7=  if ($len($1) > 10) { echo -a $_xe sorry - nickname is more than 10 characters | halt }
n8=  %hex.n = 1 | unset %hex.hex | :begin
n9=  if (%hex.n > $len($1)) { %hex.hex = '^ $+ %hex.hex | echo -a $_xe converted $1 to %hex.hex - press f5 to change nick | unset %hex.n | halt }
n10=  if ($mid($1,%hex.n,1) === A) %hex.hex = %hex.hex $+ 41
n11=  if ($mid($1,%hex.n,1) === B) %hex.hex = %hex.hex $+ 42
n12=  if ($mid($1,%hex.n,1) === C) %hex.hex = %hex.hex $+ 43
n13=  if ($mid($1,%hex.n,1) === D) %hex.hex = %hex.hex $+ 44
n14=  if ($mid($1,%hex.n,1) === E) %hex.hex = %hex.hex $+ 45
n15=  if ($mid($1,%hex.n,1) === F) %hex.hex = %hex.hex $+ 46
n16=  if ($mid($1,%hex.n,1) === G) %hex.hex = %hex.hex $+ 47
n17=  if ($mid($1,%hex.n,1) === H) %hex.hex = %hex.hex $+ 48
n18=  if ($mid($1,%hex.n,1) === I) %hex.hex = %hex.hex $+ 49
n19=  if ($mid($1,%hex.n,1) === J) %hex.hex = %hex.hex $+ 4A
n20=  if ($mid($1,%hex.n,1) === K) %hex.hex = %hex.hex $+ 4B
n21=  if ($mid($1,%hex.n,1) === L) %hex.hex = %hex.hex $+ 4C
n22=  if ($mid($1,%hex.n,1) === M) %hex.hex = %hex.hex $+ 4D
n23=  if ($mid($1,%hex.n,1) === N) %hex.hex = %hex.hex $+ 4E
n24=  if ($mid($1,%hex.n,1) === O) %hex.hex = %hex.hex $+ 4F
n25=  if ($mid($1,%hex.n,1) === P) %hex.hex = %hex.hex $+ 50
n26=  if ($mid($1,%hex.n,1) === Q) %hex.hex = %hex.hex $+ 51
n27=  if ($mid($1,%hex.n,1) === R) %hex.hex = %hex.hex $+ 52
n28=  if ($mid($1,%hex.n,1) === S) %hex.hex = %hex.hex $+ 53
n29=  if ($mid($1,%hex.n,1) === T) %hex.hex = %hex.hex $+ 54
n30=  if ($mid($1,%hex.n,1) === U) %hex.hex = %hex.hex $+ 55
n31=  if ($mid($1,%hex.n,1) === V) %hex.hex = %hex.hex $+ 56
n32=  if ($mid($1,%hex.n,1) === W) %hex.hex = %hex.hex $+ 57
n33=  if ($mid($1,%hex.n,1) === X) %hex.hex = %hex.hex $+ 58
n34=  if ($mid($1,%hex.n,1) === Y) %hex.hex = %hex.hex $+ 59
n35=  if ($mid($1,%hex.n,1) === Z) %hex.hex = %hex.hex $+ 5A
n36=  if ($mid($1,%hex.n,1) === a) %hex.hex = %hex.hex $+ 61
n37=  if ($mid($1,%hex.n,1) === b) %hex.hex = %hex.hex $+ 62
n38=  if ($mid($1,%hex.n,1) === c) %hex.hex = %hex.hex $+ 63
n39=  if ($mid($1,%hex.n,1) === d) %hex.hex = %hex.hex $+ 64
n40=  if ($mid($1,%hex.n,1) === e) %hex.hex = %hex.hex $+ 65
n41=  if ($mid($1,%hex.n,1) === f) %hex.hex = %hex.hex $+ 66
n42=  if ($mid($1,%hex.n,1) === g) %hex.hex = %hex.hex $+ 67
n43=  if ($mid($1,%hex.n,1) === h) %hex.hex = %hex.hex $+ 68
n44=  if ($mid($1,%hex.n,1) === i) %hex.hex = %hex.hex $+ 69
n45=  if ($mid($1,%hex.n,1) === j) %hex.hex = %hex.hex $+ 6A
n46=  if ($mid($1,%hex.n,1) === k) %hex.hex = %hex.hex $+ 6B
n47=  if ($mid($1,%hex.n,1) === l) %hex.hex = %hex.hex $+ 6C
n48=  if ($mid($1,%hex.n,1) === m) %hex.hex = %hex.hex $+ 6D
n49=  if ($mid($1,%hex.n,1) === n) %hex.hex = %hex.hex $+ 6E
n50=  if ($mid($1,%hex.n,1) === o) %hex.hex = %hex.hex $+ 6F
n51=  if ($mid($1,%hex.n,1) === p) %hex.hex = %hex.hex $+ 70
n52=  if ($mid($1,%hex.n,1) === q) %hex.hex = %hex.hex $+ 71
n53=  if ($mid($1,%hex.n,1) === r) %hex.hex = %hex.hex $+ 72
n54=  if ($mid($1,%hex.n,1) === s) %hex.hex = %hex.hex $+ 73
n55=  if ($mid($1,%hex.n,1) === t) %hex.hex = %hex.hex $+ 74
n56=  if ($mid($1,%hex.n,1) === u) %hex.hex = %hex.hex $+ 75
n57=  if ($mid($1,%hex.n,1) === v) %hex.hex = %hex.hex $+ 76
n58=  if ($mid($1,%hex.n,1) === w) %hex.hex = %hex.hex $+ 77
n59=  if ($mid($1,%hex.n,1) === x) %hex.hex = %hex.hex $+ 78
n60=  if ($mid($1,%hex.n,1) === y) %hex.hex = %hex.hex $+ 79
n61=  if ($mid($1,%hex.n,1) === z) %hex.hex = %hex.hex $+ 7A
n62=  if ($mid($1,%hex.n,1) == 0) %hex.hex = %hex.hex $+ 30
n63=  if ($mid($1,%hex.n,1) == 1) %hex.hex = %hex.hex $+ 31
n64=  if ($mid($1,%hex.n,1) == 2) %hex.hex = %hex.hex $+ 32
n65=  if ($mid($1,%hex.n,1) == 3) %hex.hex = %hex.hex $+ 33
n66=  if ($mid($1,%hex.n,1) == 4) %hex.hex = %hex.hex $+ 34
n67=  if ($mid($1,%hex.n,1) == 5) %hex.hex = %hex.hex $+ 35
n68=  if ($mid($1,%hex.n,1) == 6) %hex.hex = %hex.hex $+ 36
n69=  if ($mid($1,%hex.n,1) == 7) %hex.hex = %hex.hex $+ 37
n70=  if ($mid($1,%hex.n,1) == 8) %hex.hex = %hex.hex $+ 38
n71=  if ($mid($1,%hex.n,1) == 9) %hex.hex = %hex.hex $+ 39
n72=  if ($mid($1,%hex.n,1) == $chr(96)) %hex.hex = %hex.hex $+ 60
n73=  if ($mid($1,%hex.n,1) == $chr(94)) %hex.hex = %hex.hex $+ 5E
n74=  if ($mid($1,%hex.n,1) == $chr(45)) %hex.hex = %hex.hex $+ 2D
n75=  if ($mid($1,%hex.n,1) == $chr(95)) %hex.hex = %hex.hex $+ FA
n76=  if ($mid($1,%hex.n,1) == $chr(91)) %hex.hex = %hex.hex $+ 5B
n77=  if ($mid($1,%hex.n,1) == $chr(123)) %hex.hex = %hex.hex $+ 7B
n78=  if ($mid($1,%hex.n,1) == $chr(93)) %hex.hex = %hex.hex $+ 5D
n79=  if ($mid($1,%hex.n,1) == $chr(125)) %hex.hex = %hex.hex $+ 7D
n80=  if ($mid($1,%hex.n,1) == $chr(39)) %hex.hex = %hex.hex $+ 27
n81=  if ($mid($1,%hex.n,1) == $chr(92)) %hex.hex = %hex.hex $+ 5C
n82=  if ($mid($1,%hex.n,1) == $chr(124)) %hex.hex = %hex.hex $+ 7C
n83=  inc %hex.n | goto begin
n84=}
n85=f5 ircx | nick %hex.hex | unset %hex.hex
n86=uhex {
n87=  if ($1 == $Null) { echo -a $_xe Syntax: /uhex <raw hex> | halt }
n88=    %uhex.n = 1 | unset %uhex.uhex | if ($left($1,2) == '^) %uhex.n = 3 | if ($left($1,1) == ^) %uhex.n = 2 | :begin
n89=    if (%uhex.n > $len($1)) {
n90=      set %uhex.kick $1
n91=      echo -a $_xe $1 is hexing %uhex.uhex - press f6 to ban/kick
n92=      unset %uhex.n | if ($left($1,1) != ') %uhex.uhex = ' $+ $1 | else %uhex.uhex = $1 | halt
n93=    }
n94=    if ($mid($1,%uhex.n,2) == 41) %uhex.uhex = %uhex.uhex $+ A
n95=    if ($mid($1,%uhex.n,2) == 42) %uhex.uhex = %uhex.uhex $+ B
n96=    if ($mid($1,%uhex.n,2) == 43) %uhex.uhex = %uhex.uhex $+ C
n97=    if ($mid($1,%uhex.n,2) == 44) %uhex.uhex = %uhex.uhex $+ D
n98=    if ($mid($1,%uhex.n,2) == 45) %uhex.uhex = %uhex.uhex $+ E
n99=    if ($mid($1,%uhex.n,2) == 46) %uhex.uhex = %uhex.uhex $+ F
n100=    if ($mid($1,%uhex.n,2) == 47) %uhex.uhex = %uhex.uhex $+ G
n101=    if ($mid($1,%uhex.n,2) == 48) %uhex.uhex = %uhex.uhex $+ H
n102=    if ($mid($1,%uhex.n,2) == 49) %uhex.uhex = %uhex.uhex $+ I
n103=    if ($mid($1,%uhex.n,2) == 4A) %uhex.uhex = %uhex.uhex $+ J
n104=    if ($mid($1,%uhex.n,2) == 4B) %uhex.uhex = %uhex.uhex $+ K
n105=    if ($mid($1,%uhex.n,2) == 4C) %uhex.uhex = %uhex.uhex $+ L
n106=    if ($mid($1,%uhex.n,2) == 4D) %uhex.uhex = %uhex.uhex $+ M
n107=    if ($mid($1,%uhex.n,2) == 4E) %uhex.uhex = %uhex.uhex $+ N
n108=    if ($mid($1,%uhex.n,2) == 4F) %uhex.uhex = %uhex.uhex $+ O
n109=    if ($mid($1,%uhex.n,2) == 50) %uhex.uhex = %uhex.uhex $+ P
n110=    if ($mid($1,%uhex.n,2) == 51) %uhex.uhex = %uhex.uhex $+ Q
n111=    if ($mid($1,%uhex.n,2) == 52) %uhex.uhex = %uhex.uhex $+ R
n112=    if ($mid($1,%uhex.n,2) == 53) %uhex.uhex = %uhex.uhex $+ S
n113=    if ($mid($1,%uhex.n,2) == 54) %uhex.uhex = %uhex.uhex $+ T
n114=    if ($mid($1,%uhex.n,2) == 55) %uhex.uhex = %uhex.uhex $+ U
n115=    if ($mid($1,%uhex.n,2) == 56) %uhex.uhex = %uhex.uhex $+ V
n116=    if ($mid($1,%uhex.n,2) == 57) %uhex.uhex = %uhex.uhex $+ W
n117=    if ($mid($1,%uhex.n,2) == 58) %uhex.uhex = %uhex.uhex $+ X
n118=    if ($mid($1,%uhex.n,2) == 59) %uhex.uhex = %uhex.uhex $+ Y
n119=    if ($mid($1,%uhex.n,2) == 5A) %uhex.uhex = %uhex.uhex $+ Z
n120=    if ($mid($1,%uhex.n,2) == 61) %uhex.uhex = %uhex.uhex $+ a
n121=    if ($mid($1,%uhex.n,2) == 62) %uhex.uhex = %uhex.uhex $+ b
n122=    if ($mid($1,%uhex.n,2) == 63) %uhex.uhex = %uhex.uhex $+ c
n123=    if ($mid($1,%uhex.n,2) == 64) %uhex.uhex = %uhex.uhex $+ d
n124=    if ($mid($1,%uhex.n,2) == 65) %uhex.uhex = %uhex.uhex $+ e
n125=    if ($mid($1,%uhex.n,2) == 66) %uhex.uhex = %uhex.uhex $+ f
n126=    if ($mid($1,%uhex.n,2) == 67) %uhex.uhex = %uhex.uhex $+ g
n127=    if ($mid($1,%uhex.n,2) == 68) %uhex.uhex = %uhex.uhex $+ h
n128=    if ($mid($1,%uhex.n,2) == 69) %uhex.uhex = %uhex.uhex $+ i
n129=    if ($mid($1,%uhex.n,2) == 6A) %uhex.uhex = %uhex.uhex $+ j
n130=    if ($mid($1,%uhex.n,2) == 6B) %uhex.uhex = %uhex.uhex $+ k
n131=    if ($mid($1,%uhex.n,2) == 6C) %uhex.uhex = %uhex.uhex $+ l
n132=    if ($mid($1,%uhex.n,2) == 6D) %uhex.uhex = %uhex.uhex $+ m
n133=    if ($mid($1,%uhex.n,2) == 6E) %uhex.uhex = %uhex.uhex $+ n
n134=    if ($mid($1,%uhex.n,2) == 6F) %uhex.uhex = %uhex.uhex $+ o
n135=    if ($mid($1,%uhex.n,2) == 70) %uhex.uhex = %uhex.uhex $+ p
n136=    if ($mid($1,%uhex.n,2) == 71) %uhex.uhex = %uhex.uhex $+ q
n137=    if ($mid($1,%uhex.n,2) == 72) %uhex.uhex = %uhex.uhex $+ r
n138=    if ($mid($1,%uhex.n,2) == 73) %uhex.uhex = %uhex.uhex $+ s
n139=    if ($mid($1,%uhex.n,2) == 74) %uhex.uhex = %uhex.uhex $+ t
n140=    if ($mid($1,%uhex.n,2) == 75) %uhex.uhex = %uhex.uhex $+ u
n141=    if ($mid($1,%uhex.n,2) == 76) %uhex.uhex = %uhex.uhex $+ v
n142=    if ($mid($1,%uhex.n,2) == 77) %uhex.uhex = %uhex.uhex $+ w
n143=    if ($mid($1,%uhex.n,2) == 78) %uhex.uhex = %uhex.uhex $+ x
n144=    if ($mid($1,%uhex.n,2) == 79) %uhex.uhex = %uhex.uhex $+ y
n145=    if ($mid($1,%uhex.n,2) == 7A) %uhex.uhex = %uhex.uhex $+ z
n146=    if ($mid($1,%uhex.n,2) == 30) %uhex.uhex = %uhex.uhex $+ 0
n147=    if ($mid($1,%uhex.n,2) == 31) %uhex.uhex = %uhex.uhex $+ 1
n148=    if ($mid($1,%uhex.n,2) == 32) %uhex.uhex = %uhex.uhex $+ 2
n149=    if ($mid($1,%uhex.n,2) == 33) %uhex.uhex = %uhex.uhex $+ 3
n150=    if ($mid($1,%uhex.n,2) == 34) %uhex.uhex = %uhex.uhex $+ 4
n151=    if ($mid($1,%uhex.n,2) == 35) %uhex.uhex = %uhex.uhex $+ 5
n152=    if ($mid($1,%uhex.n,2) == 36) %uhex.uhex = %uhex.uhex $+ 6
n153=    if ($mid($1,%uhex.n,2) == 37) %uhex.uhex = %uhex.uhex $+ 7
n154=    if ($mid($1,%uhex.n,2) == 38) %uhex.uhex = %uhex.uhex $+ 8
n155=    if ($mid($1,%uhex.n,2) == 39) %uhex.uhex = %uhex.uhex $+ 9
n156=    if ($mid($1,%uhex.n,2) == 60) %uhex.uhex = %uhex.uhex $+ $chr(96)
n157=    if ($mid($1,%uhex.n,2) == 5E) %uhex.uhex = %uhex.uhex $+ $chr(94)
n158=    if ($mid($1,%uhex.n,2) == 2D) %uhex.uhex = %uhex.uhex $+ $chr(45)
n159=    if ($mid($1,%uhex.n,2) == FA) %uhex.uhex = %uhex.uhex $+ $chr(95)
n160=    if ($mid($1,%uhex.n,2) == 5B) %uhex.uhex = %uhex.uhex $+ $chr(91)
n161=    if ($mid($1,%uhex.n,2) == 7B) %uhex.uhex = %uhex.uhex $+ $chr(123)
n162=    if ($mid($1,%uhex.n,2) == 5D) %uhex.uhex = %uhex.uhex $+ $chr(93)
n163=    if ($mid($1,%uhex.n,2) == 7D) %uhex.uhex = %uhex.uhex $+ $chr(125)
n164=    if ($mid($1,%uhex.n,2) == 27) %uhex.uhex = %uhex.uhex $+ $chr(39)
n165=    if ($mid($1,%uhex.n,2) == 5C) %uhex.uhex = %uhex.uhex $+ $chr(92)
n166=    if ($mid($1,%uhex.n,2) == 7C) %uhex.uhex = %uhex.uhex $+ $chr(124)
n167=    inc %uhex.n 2 | goto begin
n168=  }
n169=  f6 mode $chan +b ' $+ %uhex.kick 3 | kick $chan ' $+ %uhex.kick | unset %uhex.*
n170=
n171=
n172=  telnet {
n173=    %telnet.addy = $$?="Enter address to connect to:"
n174=    %telnet.port = $$?="Enter port to establish connection:"
n175=    window -e @telnet 140 200 600 300 Arial 10
n176=    sockopen telnet %telnet.addy %telnet.port
n177=  }
n178=  FakeMp3 {
n179=    %mp3name = $$?="Name of Mp3?:"
n180=    %mp3size = $$?="Size?:"
n181=    %mp3time = $$?="TIme Of Play?:" 
n182=    %mp32time = $calc($ctime - %mp3time)
n183=    amsg 9,1[ $+ %mp3name $+ .mp3 $+ ] -- [ $+ %mp3size $+ mb/ $+ %mp32time $+ ] -- Junkie Amp By phys1ks
n184=    timermp3 1 %mp3time /amsg 9,1[ $+ %mp3name $+ .mp3] -- Has Finished Playing
n185=  }
n186=  addy {
n187=    /me is using: $_pver [conceived by phys1ks]
n188=  }
n189=  voter {
n190=    .%vote.vote = $$?="Wut are We voting on:"
n191=    .%vote.a = $$?="Vote (a):"
n192=    .%vote.b = $$?="Vote (b):"
n193=    .say 9,1[ $+ $me $+ ] has Made a Vote on $chan
n194=    .say 9,1 $+ %vote.vote
n195=    .say 9,1(a) $+ %vote.a
n196=    .say 9,1(b) $+ %vote.b
n197=    .say 9,1Cast ur Vote now!
n198=    .enable #voter
n199=    .timervote1 1 60 /say 9,1 2 min Left! %vote.vote
n200=    .timervote2 1 120 /say 9,1 1 min Left! %vote.vote
n201=    .timervote3 1 180 /say 9,1 0 min Left! %vote.vote
n202=    .timervote4 1 185 /disable #voter
n203=    .timervote5 1 185 /play $chan vote.txt
n204=  }
n205=  autojoin {
n206=    /play -s autojoin.txt 0
n207=    //join %auto.1
n208=    //join %auto.2
n209=    //join %auto.3
n210=    //join %auto.4
n211=    //join %auto.5
n212=  }
n213=  bte {
n214=    set %key $chan(#).key
n215=    raw -q part #
n216=    raw -q join # %key
n217=    raw -q part #
n218=    raw -q join # %key
n219=  }
n220=  rn { return { 14(9 $+ $parms $+ 14) } }
n221=  rs { return { ( $+ $parms $+ ) } }