|
| Mirc
skriptu pvz. |
|
Bano apsauga
<![CDATA[
on *:BAN:#: { if ( $nick == $me ) { goto no }
elseif ($banmask iswm $address($me,5)) &&
($me isop $chan) { goto yes } else { goto no } :yes
mode $chan -b $banmask mode $chan +b
$address($nick,2) kick $chan $nick Bano apsauga
(www.stuff.tai.lt) :no } ]]>
Deop apsauga
<![CDATA[
on *:DEOP:#:{ if ( $opnick == $me ) && (
$nick != $me ) && ( $nick != Chanserv )
&& ($nick != savas) { /msg chanserv deop
$chan $nick /msg chanserv op $chan if ($me isop
$chan) { .notice $nick deop'o apsauga
(www.stuff.tai.lt) } } } ]]>
Kick/Ban apsauga
<![CDATA[
ON *:KICK:#: { if ( $knick == $me ) && (
$nick != ChanServ ) && ( $nick != savas )
&& ( $nick != $me ) { /msg chanserv unban
$chan /msg chanserv deop $chan $nick /kick $chan
$nick Kick'o apsauga (www.stuff.tai.lt) }]]>
Reklameriu gaudykle
<![CDATA[
on ^*:open:?:*#*:{ msg $nick Tau ignoras! Sorry jei
tai nebuvo reklama ]]=[[ www.stuff.tai.lt ]]=[[
ignore $nick write reklamers.txt $nick + $1- halt }
on ^*:open:?:*http*:{ msg $nick Tau ignoras! Sorry
jei tai nebuvo reklama ]]=[[ www.stuff.tai.lt ]]=[[
ignore $nick write reklamers.txt $nick + $1- halt }
on ^*:open:?:*www*:{ msg $nick Tau ignoras! Sorry
jei tai nebuvo reklama ]]=[[ www.stuff.tai.lt ]]=[[
ignore $nick write reklamers.txt $nick + $1- halt }
Sis skriptas tik pagauna reklamerius taciau
nepalieka galimybes pasiziureti ka jie rase. Taigi
patobulinkime si skripta, sudarydami atskira meniu,
is kurio bus galima perziureti visus reklamerius
arba atlikti paieska pagal nicka. Todel kad tai
meniu skriptas ji reikes rasyti ne i remote, o i
popups langa. Reklameriai .Parodyti: { var %x = 1
while (%x <= $lines(reklamers.txt)) { set %ilgis
$len($read(reklamers.txt,%x)) set %vieta
$pos($read(reklamers.txt,%x),+,1) set %raides
$calc(%vieta - 2) set %raides2 $calc(%vieta + 2)
set %vardas $mid($read(reklamers.txt,%x),0,%raides)
set %reklama
$mid($read(reklamers.txt,%x),%raides2,%ilgis) echo
-s %vardas %reklama inc %x } } .Ieshkoti: { set
%uzklausa $?="Iveskite nicka" var %x = 1
set %eilute $read(reklamers.txt,s,%uzklausa) if
(%eilute != $null) { set %ilgis $len(%eilute) set
%vieta $pos(%eilute,+,1) set %raides2 $calc(%vieta
+ 2) set %reklama $mid(%eilute,%raides2,%ilgis)
echo -s %uzklausa %reklama } else { echo -s Tokio
nicko reklameriu sarashe nera } } ]]>
Auto identifikacija
<![CDATA[
on *:connect:{ if ($network == Aitvaras) &&
(%slaptas != $null) { .msg nickserv identify
%slaptas } else { set %slaptas $?="Iveskite
slaptazodi" .msg nickserv identify %slaptas }
}]]>
Away sistema
<![CDATA[
Si away sisteme veikia tokiu principu: Jus parasote
komanda: /aw [priezastis] Tada skriptas
automatiskai paraso sia priezasti i visus kanalus
ir uzdeda jums away. Noredami nusiimti away
iveskite /aw be priezasties. Si skripta reikia
rasyti ne i remote, o i aliases. /aw { if ($1 !=
$null) { away $1 ame yra away 7Priezastis:
(13 $1 7) www.stuff.tai.lt } else {
ame sugrizo! 7Away isbuvo: (13
$duration($awaytime,2) 7) Mr_X_ScRiPt
away } } Zemiau esantis kodas, jums bunant away
stebi prisijungimus ir pranesa apie tai
prisijungusiam asmeniui. on *:open:?:*:if ( $away
== $true ) { .notice $nick Sorry, bet siuo metu ash
esu away ]]=[[ www.stuff.tai.lt ]]=[[ }]]>
Auto kickas sveciams
<![CDATA[
on *:join:#kanalas:{ if ( svecias isin $nick )
&& ($me isop $chan) { kick $chan $nick
Sveteliai nepageidaujami (www.stuff.tai.lt) } } on
*:nick:{ if ( svecias isin $newnick ) &&
($me isop #kanalas) { kick #kanalas $newnick
Sveteliai nepageidaujami (www.stuff.tai.lt) } }]]>
|
|
Saitas sukurtas webmasterio
DemonHunter
|
| Juokingiausia foto
|
