S.a arkadaşlar ben hiç anlamıyorum kodlardan Bu kodları kendime örnek gösterip
Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias optnx { if (!$dialog(optnx)) { dialog -m optnx optnx } | else { dialog -v optnx optnx } }
alias -l wo { writeini $+(",$scriptdiroptnx.ini,") optnx $1- }
alias -l ro { return $readini($+(",$scriptdiroptnx.ini,"),optnx,$1) }
alias -l rn { return $readini($+(",$scriptdiroptnx.ini,"),n,optnx,$1) }
dialog optnx {
title "Tesekkür Paneli"
size -1 -1 240 109
option dbu
check "Acik", 1, 9 1 27 10
text "Owner:", 2, 13 17 18 8, autohs
edit "", 3, 39 16 80 10, autohs
text "Deorner:", 4, 120 17 20 8
edit "", 5, 148 16 80 10, autohs
text "Sop:", 6, 12 31 20 8
edit "", 7, 39 30 80 10, autohs
text "DeSop:", 8, 120 30 20 8
edit "", 9, 148 30 80 10, autohs
text "Aop:", 10, 12 45 20 8
edit "", 11, 39 44 80 10, autohs
text "Deop:", 12, 120 44 20 8
edit "", 13, 148 44 80 10, autohs
button "Uygula", 14, 77 91 30 12, ok
button "Iptal", 15, 112 91 30 12, cancel
button "Reset", 16, 147 91 30 12
text "Hop:", 21, 13 57 20 8
edit "", 22, 38 56 80 10, autohs
text "Dehop:", 23, 119 57 20 8
edit "", 24, 148 56 80 10, autohs
text "Voice:", 25, 13 70 18 8
edit "", 26, 38 69 80 10, autohs
text "Devoice:", 27, 119 70 20 8
edit "", 28, 148 69 80 10, autohs
box "", 17, 73 86 109 19
box "", 18, 7 10 225 73
}
on *:dialog:optnx:*:*:{
if ($devent == init) {
if ($ro(optnx) == on) { did -c optnx 1 }
else { did -u optnx 1 | did -m optnx 3,5,7,9,11,13,22,24,26,28 }
did -a optnx 3 $rn(owner)
did -a optnx 5 $rn(deowner)
did -a optnx 7 $rn(Sop)
did -a optnx 9 $rn(deSop)
did -a optnx 11 $rn(Aop)
did -a optnx 13 $rn(Deop)
did -a optnx 22 $rn(Hop)
did -a optnx 24 $rn(Dehop)
did -a optnx 26 $rn(voice)
did -a optnx 28 $rn(devoice)
}
if ($devent == sclick) {
if ($did == 1) {
if ($ro(optnx) == on) { .disable #optnx | wo optnx off | did -u optnx 1 | did -m optnx 3,5,7,9,11,13,22,24,26,28 }
else { .enable #optnx | wo optnx on | did -c optnx 1 | did -n optnx 3,5,7,9,11,13,22,24,26,28 }
}
if ($did == 16) {
did -ra optnx 3 Owner için teşekkürler $nick %inceDen
did -ra optnx 5 Gitti Kanalın Elimden $nick Geri Ver çabuk %inceDen
did -ra optnx 7 Sop için teşekkürler $nick %inceDen
did -ra optnx 9 Zaten Hoşuma Gitmemişti :pp $nick %inceDen
did -ra optnx 11 (@) için teşekkürler. $nick ;) %inceDen
did -ra optnx 13 o_O gitti (@) :( Çabuk geri ver $nick ! %inceDen
did -ra optnx 22 Hmm... Bu nedir böyle $nick ? Yarım porsiyon op mu ? ;P %inceDen
did -ra optnx 24 Hey! Neden aldın onu $nick ? Geri ver çabuk !! %inceDen
did -ra optnx 26 Hehe çok sağol ya $nick . Manyak Karizma oldu... :)) %inceDen
did -ra optnx 28 Canın Sağolsun $nick ;) Zaten pek bir işe yaramıyordu... %inceDen
}
if ($did == 14) {
if (!$did(3)) { Owner için teşekkürler $nick %inceDen }
else { wo owner $did(3) }
if (!$did(5)) { Gitti Kanalın Elimden $nick Geri Ver çabuk %inceDen }
else { wo deowner $did(5) }
if (!$did(7)) { wo Sop için teşekkürler $nick %inceDen }
else { wo Sop $did(7) }
if (!$did(9)) { wo Zaten Hoşuma Gitmemişti :pp $nick %inceDen }
else { wo desop $did(9) }
if (!$did(11)) { wo (@) için teşekkürler. $nick ;) %inceDen }
else { wo aop $did(11) }
if (!$did(13)) { wo o_O gitti (@) :( Çabuk geri ver $nick ! %inceDen }
else { wo deop $did(13) }
if (!$did(22)) {wo Hmm... Bu nedir böyle $nick ? Yarım porsiyon op mu ? ;P %inceDen }
else { wo Hop $did(22) }
if (!$did(24)) { wo Hey! Neden aldın onu $nick ? Geri ver çabuk !! %inceDen }
else { wo Dehop $did(24) }
if (!$did(26)) { wo voice Hehe çok sağol ya $nick . Manyak Karizma oldu... :)) %inceDen }
else { wo voice $did(26) }
if (!$did(28)) { wo devoice Canın Sağolsun $nick ;) Zaten pek bir işe yaramıyordu... %inceDen }
else { wo devoice $did(28) }
}
}
#optnx on
on *:owner:#:{ if ($hnick == $me) && ($nick != $me) && !$istok(#help #operhelp,$chan,32) { msg # $eval($ro(owner)) } }
on *:deowner:#:{ if ($hnick == $me) && ($nick != $me) && !$istok(#help #operhelp,$chan,32) { msg # $eval($ro(deowner)) } }
on *:Sop:#:{ if ($hnick == $me) && ($nick != $me) && !$istok(#help #operhelp,$chan,32) { msg # $eval($ro(Sop)) } }
on *:DESop:#:{ if ($hnick == $me) && ($nick != $me) && !$istok(#help #operhelp,$chan,32) { msg # $eval($ro(desop)) } }
on *:OP:#:{ if ($opnick == $me) && ($nick != $me) && !$istok(#help #operhelp,$chan,32) { msg # $eval($ro(op)) } }
on *:DEOP:#:{ if ($opnick == $me) && ($nick != $me) && !$istok(#help #operhelp,$chan,32) { msg # $eval($ro(deop)) } }
on *:HELP:#:{ if ($hnick == $me) && ($nick != $me) && !$istok(#help #operhelp,$chan,32) { msg # $eval($ro(hop)) } }
on *:DEHELP:#:{ if ($hnick == $me) && ($nick != $me) && !$istok(#help #operhelp,$chan,32) { msg # $eval($ro(dehop)) } }
on *:VOICE:#:{ if ($vnick == $me) && ($nick != $me) && !$istok(#help #operhelp,$chan,32) { msg # $eval($ro(voice)) } }
on *:DEVOICE:#:{ if ($vnick == $me) && ($nick != $me) && !$istok(#help #operhelp,$chan,32) { msg # $eval($ro(devoice)) } }
#optnx end