IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

Kod:
on 1:start:{ .bagLanti }

aLias bagLanti { .diaLog -m bagLanti bagLanti }

diaLog bagLanti {

  titLe " -Scriptiniz- HızLı BağLantı"

  size -1 -1 204 163

  option dbu

  text "Nickiniz:", 1, 3 12 25 8

  text "Yedeknick:", 2, 3 21 26 8

  text "E-maiLiniz:", 3, 3 30 25 8

  box "BagLanti AyarLari", 4, 1 1 129 74

  edit "", 5, 37 9 50 10

  edit "", 6, 37 29 50 10

  edit "", 7, 37 19 50 10

  text "Identiniz:", 8, 3 39 25 7

  edit "", 9, 37 39 50 10

  text "Isminiz: ", 10, 3 49 25 8

  edit "", 11, 37 49 50 10

  box "EkstraLar", 12, 131 1 68 95

  text "Otomatik Giris", 13, 134 8 38 8

  text "1.KanaL", 14, 134 18 25 8

  edit "#", 15, 162 17 33 10

  text "2.KanaL", 16, 134 27 25 8

  edit "#", 17, 162 27 33 10

  text "3.KanaL", 18, 134 37 25 8

  edit "#", 19, 162 37 33 10

  text "Otomatik Nick Tanitim", 20, 134 50 61 8

  text "Nickiniz", 21, 134 60 25 8

  edit "", 22, 161 59 31 10, autohs

  text "Sifreniz", 23, 135 70 25 8

  edit "", 24, 161 69 31 10, pass autohs

  text "Baska Servere BagLan", 25, 6 129 53 8

  box "ServerLer", 26, 2 77 127 78

  button "Kalbim.net", 30, 47 99 37 12

  button "Geveze.Org", 28, 47 85 37 12

  button "Dinisohbet.Com", 29, 6 99 37 12

  button "İslamiSohbet.Com", 27, 6 85 37 12

  button "Kerizim.Com", 31, 6 113 37 12

  button "Kelebek.Net", 32, 47 113 37 12

  edit "", 33, 64 128 50 10

  button "BagLan", 34, 50 141 37 12

  button "Tamam", 35, 141 97 37 28, ok

  button "Kapat", 36, 141 130 37 25, canceL

}
 

on 1:diaLog:bagLanti:init:*:{

  did -a bagLanti 5 $me

  did -a bagLanti 7 $anick

  did -a bagLanti 6 $emaiL

  did -a bagLanti 9 $nick

  did -a bagLanti 11 $fuLLname
 

}
 

on 1:diaLog:bagLanti:scLick:34:{ 

  .set %one $did(15)

  .set %two $did(17)

  .set %three $did(19)

  .set %nick $did(22)

  .set %sifre $did(24)

  .set %server $did(33)

  .diaLog -x bagLanti bagLanti

  .server %server
 

}
 

on 1:diaLog:bagLanti:scLick:27:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.geveze.org }

on 1:diaLog:bagLanti:scLick:28:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.geveze.org }

on 1:diaLog:bagLanti:scLick:29:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.geveze.org }

on 1:diaLog:bagLanti:scLick:30:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.geveze.org }

on 1:diaLog:bagLanti:scLick:31:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.geveze.org }

on 1:diaLog:bagLanti:scLick:32:{ .nick $did(5) | .anick $did(6) | .diaLog -x bagLanti bagLanti | .server irc.geveze.org }
 

on *:connect:{ .ns identify %sifre | echo -a 10Nick Sifreniz giriLiyor | .join %one | .join %two | .join %three }

on *:disconnect:{ .unset %sifre | unset %one | unset %two | unset %three }