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
| on @*:TEXT:*:
; кодът за kick при използване на големи букви започва тук
if ($len($1-) < 9) || ($nick isop var %text = $strip($remove($1-,$chr(32)))
var %non.caps = $len($removecs(%text,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z))
; %non.caps съдържа броят на малките букви - забележете как се използва $removeCS (ПрАвИ РаЗлИкА м/У ГоЛеМи и
; МаЛки БуКвИ)
var %full.line = $len(%text)
; %full.line съдържа големината на реда (без празни места)
var %percent = $calc(1 - (%non.caps / %full.line))
;Този %percent съдържа колко от текстът може да е с големи букви. Това беше доста трудно но, Khaled добави
;$removeCS което ви позволява да махaте буквите според това дали са малки или големи. Затова ако сравните
;големината на текстът с големината на текстът без големите букви можете да сметнете колко от текстът в % е
;с големи букви.
if (%percent >= 0.8) {
;Този if проверява колко % от текстът е с големи букви,
;и ако е по-голям или равен на 0.8 ще kick пoтребителя
;процентите могат да бъдат от 0.0 до 1.0
ban -u60 # $nick 11
kick # $nick Your text contains $calc(%percent * 100) percent caps. This is not acceptable
}
; Kick при прекомерно използване на пунктуационни знаци
if ($calc($count($1-,?) + $count($1-,!)) >= 10) {
;Горният if е за проверка дали още се нуждаете от този скрипт
;Той просто преброява колко пъти е казано ! и ?, и ако броят им е по-голям или равен на 10
;тогава потребителят ще бъде kick
ban -u6o # $nick 11
kick # $nick You used too many !?'s ( $+ $count($1-,?) $+ ?'s and $count($1-,!) $+ !'s)
}
; Ако искате да комбинирате с друг скрипт, трябва да поставите кодът тук
} |
