Çevrimdışı

vaLLa bilmiyorum nasiL yapmissa siz usdatlar Cozersiniz sanirim Dialogu Ekleyim Buraya


dialog cpanel {
title .Umuda Ezgi ScripT | Bağlantı Paneli.
size 290 230 133 120
icon scripting\görünüm\ÜstMenü\3.ico
option dbu
tab "Tab 1", 10, -6 -64 494 516
tab "Tab 2", 11
tab "Tab 4", 13
tab "Tab 5", 14
tab "Tab 6", 15
edit "", 1, 135 6 257 20, read multi vsbar
box "Bağlantı Ayarları", 3, 2 50 129 67, tab 10
box "", 4, 0 0 133 119, tab 10
text "Nickiniz:", 22, 10 61 25 16, tab 10 right
text "Yedek Nick:", 23, 5 76 30 17, tab 10 right
edit "", 24, 38 60 60 10, tab 10 autohs
edit "", 25, 38 75 60 10, tab 10 autohs
button "BagLan", 28, 25 91 30 11, tab 10
button "KapaT", 26, 75 91 30 11, cancel
text "Siteismi.Com", 16, 15 107 50 8, tab 10
text "Siteismi.Com", 17, 76 107 50 8, tab 10
icon 39, -1 5 134 44, $mircdirscripting\Görünüm\Resim\logo.png
}
alias cpanel { dialog -m cpanel cpanel }
on *:dialog:cpanel:init:*:{
mdx MarkDialog $dname
rebar HideToolbar .
rebar Dock $dialog(tb).hwnd > top
dll scripting\dll\disco.dll anime $dialog($dname).hwnd -vn 700
mdx SetControlMDX $dname 91 listview icon single noheader flatsb autoarrange > $views
mdx SetControlMDX $dname 5 Progressbar smooth > $ctl
mdx SetControlMDX $dname 5 ToolBar list flat wrap arrows nodivider > $bars
mdx SetDialog [ $dname ] bgcolor $rgb(70,130,180)
mdx SetDialog bgcolor $rgb(70,130,180)
mdx SetBorderStyle
mdx SetColor 3,16,17,22,23 background [ $rgb(70,130,180) ]
mdx SetColor 16,17,22,23 textbg [ $rgb(70,130,180) ]
mdx SetColor 16,17 text [ $rgb(245,200,119) ]
mdx SetColor 24,25 background [ $rgb(5,70,180) ]
mdx SetColor 24,25 textbg [ $rgb(5,70,180) ]
mdx SetColor 22,23,24,25 text [ $rgb(255,255,255) ]
mdx MarkDialog $dname
mdx SetFont $dname 2 14 Fixedsys
mdx SetFont $dname 2,14 Tahoma
mdx SetFont $dname 0,180,255 13 1200 Tahoma
mdx SetFont $dname 0,180,255 12 1200 Tahomal
did -ra $dname 24 $me
did -ra $dname 25 $anick
}
alias cpanel_connect { dialog -m cpanel cpanel | did -f cpanel 10 }
alias cpanel_settings { dialog -m cpanel cpanel | did -f cpanel 11 }
alias cpanel_koruma { dialog -m cpanel cpanel | did -f cpanel 15 }
alias cpanel_extra { dialog -m cpanel cpanel | did -f cpanel 13 }
alias cpanel_info { dialog -m cpanel cpanel | did -f cpanel 14 }
on *:dialog:cpanel:sclick:*:{
if $did == 5 {
if $did(5).sel == 2 { did -f $dname 10 }
if $did(5).sel == 3 { did -f $dname 11 }
if $did(5).sel == 4 { did -f $dname 15 }
if $did(5).sel == 5 { did -f $dname 13 }
if $did(5).sel == 6 { did -f $dname 14 }
}
if ($did == 28) { b.bag irc.siteadi.com }
if ($did == 26) {
if (%b.yeni == on) { set %b.yeni off | halt }
if (%b.yeni == off) { set %b.yeni on | halt }
}
}
on *:dialog:cpanel:dclick:*:{
if $did == 91 {
.timercpanel off
.timercpanel 91 1 .alias _temp_cpanel_alias
.alias _temp_cpanel_alias $gettok($readini($shortfn($scriptdircpanel.ini),cp anel,$calc($did(91).sel -1)),3,222)
_temp_cpanel_alias
}
}
alias -l b.bag { if (%b.yeni == on) { server -m $1 | .nick $did(cpanel,24) } | else { .nick $did(cpanel,24) | server $1 } | dialog -c cpanel cpanel }
alias _smerkez { dialog $iif($dialog(cpanel),-v,-m) cpanel cpanel }
on ^1:SNOTICE:*:{
if (/whois isin $1-) {
if ($window(@Whois) == $null) { window -ne @Whois }
echo 13 -t @Whois $1- | halt
}