Kod: Kodu kopyalamak için üzerine çift tıklayın! on *:text:*:#: {
if $regex($1,/^[!.]bur[cç]/i) {
if !$regex($2,/(ko[cç]|bo[gğ]a|[İi]kizler|yenge[cç]|a[rs]lan|ba[sş]ak|terazi|akrep|yay|o[gğ]lak|kova|bal[ıi]k)/i) {
msg $chan Lutfen gecerli bir burç giriniz.
return
}
var %b = $lower($regml(1))
%b = $replace(%b,ç,c,ğ,g,ı,i,ş,s,ö,o,ü,u)
set %lnk %b
set %burchn $chan
set %burcnck $nick
burc
}
} İlgili kısmı bu şekilde duzenleyin
|