Този диалог(прозорче) Ви посволява да добавите думи(съветвам Ви да слагате лоши думи за Опери в големи канали). Когато някой спомене в канал в който сте и Вие заложената от Вас дума/думи, то Вие ще бъдете информиран чрез ЕХО, кой ник и в кой канал е казал думата.Също така ще се чуе и звук. Можете да включвате или изклювате звука и ехото чрез бутон Settings.
За да отворите диалога(прозорчето), кликнете с десен бутон в канала или натиснете бутон Kommands(ако скрипта Ви има име, то натиснете върху него) на МИРК и кликнете върху 'Word Alert'. Изпишете думата и натиснете 'Add' за да я вкарате. За да премахнете дадена дума вкарана от Вас, След всяко свое действие натискайте бутона за потвърждение "ОК"
ЦЕЛТА на кода е не да рита, нито бани, а само да Ви информира.
Как да вкарате кода: Натиснете Alt + R . Ще Ви се отвори прозорец. Натиснете бутон "Remote". Идете след това на "File", след това на "New", пастирайте кода в изчистеното вече прозорче, след което отивате отново на "File", после на "Save as" и го сейфите да кажем 'Word Alert. Потвърдете с бутончето ОК и готово :П
Вкарването на следващите кодове става по идентичен начин, така, че го запомнете как става-няма да се повтарам
Следва кода:
dialog wordalert {
title "Word Alert"
size -1 -1 90 137
option dbu
tab "Words", 7, 0 0 95 250
tab "Settings", 8
;tab 'Words'
text "Вкарай дума" 1, 3 18 32 6, tab 7
edit "" 2, 3 26 60 10, autohs tab 7
button "Add" 3, 65 25 20 12, flat disable tab 7
button "ОК" 4, 21 122 20 12, tab 7
list 5, 3 40 81 83, vsbar tab 7
button "Remove" 6, 44 122 24 12, disable tab 7
;tab 'Settings'
box "Echoing" 9, 13 15 30 30, tab 8
radio "On" 10, 19 25 20 6, tab 8 group
radio "Off" 11, 19 35 20 6, tab 8
box "Beeping" 12, 46 15 30 30, tab 8
radio "On" 13, 52 25 20 6, tab 8 group
radio "Off" 14, 52 35 20 6, tab 8
button "ОК" 15, 34 48 20 12, ok tab 8
}
on *:dialog:wordalert:*:*: {
if (( $devent == sclick )) {
if (( $did == 3 )) {
if (( $hfind(wordalert,$did(2),1) == $null )) {
did -a wordalert 5 $iif($did(5) != $null,$crlf) $+ $did(2)
hadd wordalert $did(2)
}
did -fr wordalert 2
did -b wordalert 3
}
if (( $did == 4 )) { dialog -k wordalert }
if (( $did == 10 )) { unset %wordalert.echo.off }
if (( $did == 11 )) { set %wordalert.echo.off on }
if (( $did == 13 )) { unset %wordalert.beep.off }
if (( $did == 14 )) { set %wordalert.beep.off on }
if (( $did == 5 )) {
if (( $did(wordalert,5,1).sel != 0 )) { did -e wordalert 6 }
}
if (( $did == 6 )) {
if (( $did(wordalert,5,1).sel != 0 )) {
hdel wordalert $did(wordalert,5,1).seltext
did -d wordalert 5 $did(wordalert,5,1).sel
did -b wordalert 6
}
}
if (( $did == 8 )) {
dialog -bs wordalert -1 -1 90 65
}
if (( $did == 7 )) {
dialog -bs wordalert -1 -1 90 137
}
}
if (( $devent == edit )) {
if (( $did == 2 )) {
did $iif($did(2) == $null,-b,-e) wordalert 3
}
}
if (( $devent == init )) {
if (( !$hget(wordalert) )) { hmake wordalert 1000 }
did -ft wordalert 2
var %a = 1
while (( %a <= $hget(wordalert,0).item )) {
did -a wordalert 5 $iif(%a != 1,$crlf) $+ $hget(wordalert,%a).item
inc %a
}
did -c wordalert $iif(!%wordalert.echo.off,10,11)
did -c wordalert $iif(!%wordalert.beep.off,13,14)
}
}
on *:TEXT:*:#:{
var %a = 1
while (( %a <= $numtok($1-,32) )) {
if (( $hfind(wordalert,$gettok($1-,%a,32),1) )) {
if (( !%wordalert.echo.off )) echo -a $+ $nick $+ каза: 4 $+ $gettok($1-,%a,32)) $+ в $+ $chan $+
if (( !%wordalert.beep.off )) set %wordalert.beep on
}
inc %a
}
if (( %wordalert.beep )) { beep | unset %wordalert.beep }
}
menu channel,menubar {
Word Alert:dialog $iif($dialog(wordalert),-v,-m) wordalert wordalert
}
