| Exhumation | 24 Ocak 2006 22:14 |
Mdx ile dialog 3 ve son ):
Kod:
on *:start: { if (%baglantimenusu == ON) { .opendl c startpen 280 200 444 356 } }
alias penikapat { dialog -c startpen startpen }
alias startpen { dialog -m startpen startpen }
dialog startpen {
title "ReKor Script - [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] "
size -1 -1 444 350
icon C:\Rekor Script\image\Globe.ico, 0
menu "» Menü «" , 32
item "» Ayarlar ", 111 , 32
item break , 113
item "» Korumalar ", 112 , 32
menu " » Araçlar «" , 33
item "» Tarayıcı ", 120 , 33
item "» Mp3 çalıcı ", 121 , 33
item "» Yazı tipleri ", 122 , 33
item "» Mause Efekt ", 124 , 33
item "» Away sistem ", 125 , 33
item "» Nick renklendirici ", 138 , 33
menu "» Oyunlar «" , 34
item "» Oyunlar ", 114 , 34
icon 6, 15 30 300 220, $mircdirimage\baner.JPG
text "Nick :", 2, 295 66 33 17
edit "", 3, 328 64 109 20, autohs center
button "GencSevgi", 7, 175 277 89 24, flat
button "EsrarNet", 8, 14 281 61 20, flat
button "ZurnaNet", 9, 93 281 61 20, flat
button "E-Kolay", 10, 288 281 61 20, flat
button "KahveNet", 11, 365 281 61 20, flat
text "Sunucular:" ,13, 55 310 67 20
combo 14, 110 310 145 130 ,drop edit size , flat
text "Port:" ,16, 260 313 30 20
edit "" , 17, 285 310 38 22 , edit
button "Gir !" ,19, 330 310 36 20, flat
button " &Sohbet'e Gir ", 5, 290 93 148 47, flat ok
check "Ident Oto.", 932, 303 160 100 20, flat
check "Yeni pencere", 933, 303 201 85 20, flat
box "", 1, 170 266 99 41
box "", 15, 290 59 36 23
box "Otomatik ident", 18, 289 146 150 41
box "", 20, 288 187 151 41
text "irc.GencSevgi.com", 21, 343 5 94 16 disable
}
on *:dialog:startpen:*:*:{
if ($devent == init) {
_mdx.start
_mdx SetColor $dname 1 background $rgb(198,231,247)
_mdx SetColor $dname 1 textbg $rgb(198,231,247)
_mdx SetColor $dname 1 text 1
_mdx SetFont $dname 1 12 800 Verdana
_mdx SetBorderStyle $dname 2 staticedge
}
if ($devent == sclick) {
}
if $server != $null { did -b startpen 3 }
did -c startpen 5
did -a startpen 14 irc.GencSevgi.com
did -a startpen 14 irc.Kahvenet.com
did -a startpen 14 irc.Esrar.net
did -a startpen 14 irc.e-kolay.net
did -a startpen 14 irc.cesur.net Shell Hosting
did -a startpen 14 irc.muhabbet.net
did -a startpen 14 irc.webmaster.com
did -a startpen 14 irc.superonline.com
did -a startpen 14 irc.ayna.org
did -a startpen 14 irc.undernet.org
did -a startpen 14 irc.dal.net
did -a startpen 14 irc.ayna.org
did -a startpen 14 irc.rekor.net
did -a startpen 14 irc.kanald.com
did -a startpen 14 irc.yuzuk.net
did -a startpen 14 irc.doruk.net.tr
did -c startpen 14 1
did -a startpen 17 6667
did -c startpen 17 1
did -a startpen 3 $me
did -c startpen 3 1
did -f startpen 5
if (%otoident == ON) { did -c startpen 932 }
set %yenipen OFF
}
if ($devent == sclick) && ($did == 932) {
if (%otoident == OFF) { /set %otoident ON | .echo -a %logo $+ 2 Otomatik ident 4 Açık (Artık identinizi script kendi belirleyecek) | halt }
if (%otoident == ON) { /set %otoident OFF | .echo -a %logo $+ 2 Otomatik ident 4 Kapalı (Artık sizin belirlediginiz ident gecerli olacak.) | .emailaddr $$?="Identiniz ne olsun? Örnek: isminiz@" | halt }
}
if ($devent == sclick) && ($did == 933) {
if (%yenipen == OFF) { /set %yenipen ON | halt }
if (%yenipen == ON) { /set %yenipen OFF | halt }
}
if ($devent == sclick) && ($did == 14) { /set %servername $did(14) }
if ($devent == sclick) && ($did == 17) { /set %serverport $did(17) }
if ($devent == sclick) {
if ($did == 5) { set %yenipennick $did(3) | /window -c @Scripts | bag irc.Gencsevgi.com | penikapat | if (%otoident == ON) { .emailaddr RekorScr $+ @ } }
if ($did == 6) { run [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
if ($did == 7) { set %yenipennick $did(3) | /window -c @Scripts | bag irc.GencSevgi.com | penikapat | if (%otoident == ON) { .emailaddr RekorScr $+ @ } }
if ($did == 8) { set %yenipennick $did(3) | /window -c @Scripts | bag irc.Esrar.net | .nick $did(3) | penikapat }
if ($did == 9) { set %yenipennick $did(3) | /window -c @Scripts | bag irc.zurna.net | penikapat | if (%otoident == ON) { .emailaddr $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(A,z) $+ @ } }
if ($did == 10) { set %yenipennick $did(3) | /window -c @Scripts | bag irc.e-kolay.net | penikapat | if (%otoident == ON) { .emailaddr $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(A,z) $+ @ } }
if ($did == 11) { set %yenipennick $did(3) | /window -c @Scripts | bag irc.Kahvenet.com | penikapat | if (%otoident == ON) { .emailaddr $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(A,z) $+ @ } }
if ($did == 12) { set %yenipennick $did(3) | /window -c @Scripts | dialog -m servers servers | penikapat }
if ($did == 19) { set %yenipennick $did(3) | /window -c @Scripts | bag $did(14) $+ : $+ $did(17) | penikapat | if (%otoident == ON) { .emailaddr $r(A,Z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(a,z) $+ $r(A,z) $+ @ } }
}
if ($devent == menu) {
if ($did == 111) { dialog -m korumalar korumalar | did -f korumalar 3 }
if ($did == 112) { dialog -m korumalar korumalar | did -f korumalar 1 }
if ($did == 114) { /dialog -m oyunlar oyunlar }
if ($did == 120) { chanscan }
if ($did == 121) { mp3uac }
if ($did == 122) { yazitip }
if ($did == 123) { F8 }
if ($did == 124) { F4 }
if ($did == 125) { F9 }
if ($did == 138) { cc }
}
}
On 1:PART:#: {
if ($nick != $me) { /halt }
else { /part $chan 14 ReKor Script Download: 7
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
halt }
}
menu @Scripts {
Kapat:/window -c @Scripts
}
alias bag { if (%yenipen == OFF) { server $1- | .nick %yenipennick } | else server -m $1- | if $server !== $null) { .nick %yenipennick } }
alias mp3uac { mp3player }
--
on 1:start:*:{
unset %ahenk*
if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt }
:ilk
inc %ahenks
if ( %ahenks > $len($1-) ) { .msg $active %ahenkt | echo 12 1« $+ 2 $+ $nick $+ 1 $+ $chr(187) $+ 1 %ahenkt | unset %ahenk* | halt }
%ahenkh = $mid($1-,%ahenks,1)
%ahenkh = $replace(%ahenkh,$chr(32),$chr(0160))
%ahenkt = %ahenkt $+ $+ $rand(3,13) $+ %ahenkh
goto ilk
}
alias _mdx var %dll = dlls/mdx//mdx.dll | return $dll(%dll,$1,$2-)
alias _mdx.start _mdx SetMircVersion $version | _mdx MarkDialog $dname
alias d { return dlls/mdx/mdx.dll }
Sonunda oldu :) arkada$lar durum Mdx 'le guzeLLeştiremiyorum hata verior.. Aynı zamanda actıgım konular icin ozur dilerim iLk defa böle forumlarda dolaşıyorum |
