IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Bunu Nasıl Becerdim BiLmiyorum bende yeniyim ama Oto İdetnt Olayına bakarak BöyLe birşey Yaptım Bazı yerlerden Şu Var %bilmemne Olaylarınada göz attım ve bu işi becerdim bence herkes coder olabilir... TÜRKÜN NESİ EKSİK..

Kod:

alias ajoin { dialog -m ajoin ajoin }

dialog ajoin {

  size -1 -1 150 105

  title "oto Kanal Girme Addonu"

  option dbu

  list 1, 5 5 70 100, sort

  button "Ekle", 2, 80 5 30 10

  button "Sil/KaLdır", 3, 115 5 30 10

  text "KanaL", 6, 80 23 65 10

  edit "", 4, 80 30 65 10

  text "Şifre (uygularsan)", 7, 80 43 65 10

  edit "", 5, 80 50 65 10

  button "TAMAM", 10, 88 70 50 10, OK

}

on *:DIALOG:ajoin:init:0: {

  var %chan = 1, %key = 1

  while (%chan <= $numtok(%auto.join,44)) { did -a ajoin 1 $gettok(%auto.join,%chan,44) | inc %chan }

  while (%key <= $numtok(%auto.key,44)) { did -a ajoin 1 $gettok(%auto.key,%key,44) | inc %key }

}

on *:DIALOG:ajoin:sclick:2: { newchan }

on *:DIALOG:ajoin:sclick:3: {

  if ($did(1).sel == $null) return | var %line = $did(1).sel, %text = $did(1,%line) | did -d ajoin 1 $did(1).sel 

  if ($numtok(%text,32) == 2) %auto.key = $remtok(%auto.key,%text,1,44) | else %auto.join = $remtok(%auto.join,%text,1,44)

}

on *:DIALOG:ajoin:sclick:10: { if (($dialog(ajoin).focus == 4) || ($dialog(ajoin).focus == 5)) { newchan | halt } }

alias newchan {

  var %chan = $did(ajoin,4), %key | if (%chan == $null) return | if ($left(%chan,1) != $chr(35)) %chan = $chr(35) $+ %chan | if ($did(ajoin,5)) %key = %chan $did(ajoin,5) 

  if (%key) %auto.key = $addtok(%auto.key,%key,44) | else %auto.join = $addtok(%auto.join,%chan,44)

  did -a ajoin 1 $iif(%key,%key,%chan) | did -r ajoin 4,5 | did -f ajoin 4

}

on *:CONNECT: { .raw JOIN %auto.join  | var %temp = 1 | while (%temp <= $numtok(%auto.key,44)) { .raw JOIN $gettok(%auto.key,%temp,44) | inc %temp } }