-
Notifications
You must be signed in to change notification settings - Fork 1
/
aliases.ini
60 lines (60 loc) · 2.72 KB
/
aliases.ini
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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
[aliases]
n0=/op /mode # +ooo $$1 $2 $3
n1=/dop /mode # -ooo $$1 $2 $3
n2=/j /join #$$1 $2-
n3=/p /part #
n4=/n /names #$$1
n5=/w /whois $$1
n6=/k /kick # $$1 $2-
n7=/q /query $$1
n8=/send /dcc send $1 $2
n9=/chat /dcc chat $1
n10=/ping /ctcp $$1 ping
n11=cor { if $1 == 1 { return 02,00 } | if $1 == 2 { return 01,00 } | if $1 == 3 { return 14,00 } }
n12=x return 02×01
n13=pkbr return 02(14Pk BR 02)14
n14=xnews {
n15= if $istok(%newsnicks,$1,46) { return }
n16= set %newsnicks $addtok(%newsnicks,$1,46)
n17= var %a 0
n18= while %a < $lines(news.txt) {
n19= inc %a
n20= var %linha $read -l $+ %a news.txt
n21= var %nick $gettok(%linha,1,255)
n22= var %data $gettok(%linha,2,255)
n23= var %hora $gettok(%linha,3,255)
n24= var %titulo $gettok(%linha,4,255)
n25= var %new $gettok(%linha,5,255)
n26= msg $1 $pkbr New nº $cor(me) $+ %a $cor(fr) $+ $x $cor(me) $+ %titulo $cor(fr) $+ por $cor(me) $+ %nick $cor(fr) $+ postada no dia $cor(me) $+ %data $cor(fr) $+ às $cor(me) $+ %hora
n27= msg $1 $pkbr %new
n28= }
n29=}
n30=checksl {
n31= var %x 0
n32= while %x < $gettok(%sl,0,32) {
n33= inc %x
n34= if $gettok(%sl,%x,32) iswm $2 { ban -u120 %chan $1 2 | kick %chan $1 Bad user... }
n35= }
n36=}
n37=f11 dialog -ma config config
n38=isadmin {
n39= if $identified($1) && $istok($readini(ops.ini,admins,admins),$1,32) { return $true }
n40= else { return $false }
n41=}
n42=cls clear
n43=pkdex {
n44= .remove pokedex.txt
n45= var %b 0 | while %b < 251 {
n46= inc %b
n47= var %poke $num( [ %b ] )
n48= var %arq pokedex.txt
n49= write %arq $chr(35) $+ $iif($len(%b) == 1,00 $+ %b) $+ $iif($len(%b) == 2,0 $+ %b) $+ $iif($len(%b) == 3,%b) - $replace($xbah(%poke),mime,Mime)
n50= if $readini(pokedex.ini,evolui,%poke) == no { write %arq $replace($xbah(%poke),mime,Mime) não evolui }
n51= elseif $readini(pokedex.ini,evolui,%poke) isnum { write %arq $xbah(%poke) evolui no level $readini(pokedex.ini,evolui,$remove(%poke,$chr(32))) para $xbah($ini(pokedex.ini,evolui,$calc($ini(pokedex.ini,evolui,%poke) + 1))) }
n52= elseif $readini(pokedex.ini,evolui,%poke) != $null { write %arq $xbah($strip(%poke)) evolui com uma $xbah($readini(pokedex.ini,evolui,$remove(%poke,$chr(32)))) para $xbah($ini(pokedex.ini,evolui,$calc($ini(pokedex.ini,evolui,%poke) + 1))) }
n53= ;else { write %arq Não há registro de evolução de $replace($xbah(%poke),mime,Mime) $+ . }
n54= var %a 0
n55= while %a < $numtok($readini(pokedex.ini,golpes,%poke),32) { inc %a | var %txt $gettok($readini(pokedex.ini,golpes, [ %poke ] ), [ %a ] ,32) | var %lvl $gettok(%txt,1,92) | var %glp $gettok(%txt,2,92) | write %arq LVL %lvl - %glp }
n56= write %arq $chr(160)
n57= }
n58=}