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 4Açık  (Artık identinizi script kendi belirleyecek) | halt }
  if (%otoident == ON) { /set %otoident OFF | .echo -a %logo $+ 2 Otomatik ident 4Kapalı  (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 }