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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Otomatik nick idenfy paneli !! (RESİM) (https://www.ircforumlari.net/mirc-scripting-sorunlari/126052-otomatik-nick-idenfy-paneli-resim.html)

Otomatik nick idenfy paneli !! (RESİM)

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

ircde bu güne kadar birçok şey yapıldı fakat böyle birşey görmedim
bir kaç kişiye sordum yapılabilir dendi
fakat benim bunu yazacak mirc alt yapım olmadığından dolayı
sizlerden yardım istedim
istediğim özellik

panelde görülecek
girdiğimiz sunucuları kendi kayıtlı nicklerinizi yazıp kaydet dediğimizde
her girişimizde nickserv identfy olayını gerçekleştirmememiz
yani bir kere kaydedeceğiz ve bizden istemyecek hiçbir sunucuda

resim görsellik açısından fikir versin diye benim hazırladığım bir jpg dir sadece yapabilecek varmı?

Cevap: Otomatik nick idenfy paneli !! (RESİM)

boyle birsey yapilmadi diyemezsin, bircok ornegi var.Ayrıca bu bölüm mirc scripting yardim bölümü, "siz isteyin biz yazalim" bölümü degil.

Cevap: Otomatik nick idenfy paneli !! (RESİM)

PHP- Kodu:

   alias setup.otoidentify { dialog -m otoidentify otoidentify }
on *:LOAD:{
  echo -a 4Otomatik İdentifyi yüklediğiniz için teşekkür ederiz...
}
dialog otoidentify {
  title "Otomatik Nick İdentify"
  size -1 -1 194 263
  option pixels
  box "Nickler", 14, 5 109 180 80
  list 15, 12 125 163 78, disable
  text "&Nick:", 16, 12 29 31 20
  edit "", 17, 58 31 114 20, autohs
  text "&Şifre:", 18, 12 51 33 20
  edit "", 19, 58 53 114 20, pass autohs
  button "&Nick Ekle", 20, 11 80 53 20, flat
  button "&Nick Sil", 21, 66 80 53 20, flat
  check "&Otomatik İdentify Açık", 22, 33 204 134 20, flat
  box "Otomatik Nick İdentify", 2, 5 11 180 96
  button "&Tamam", 3, 123 80 53 20, flat cancel
  link " Web Adresin ", 1, 40 235 129 16
}
on *:dialog:otoidentify:sclick:1:/run http://webAdresin
on 1:dialog:otoidentify:init:*: {
  var %ctr = 1 | while (%ctr <= $numtok(%AutoID.nicks,32)) { did -a $dname 15 $Gettok(%AutoID.nicks,%ctr,32) | inc %ctr }
  if (%var == on) { did -c otoidentify 22 | did -e otoidentify 15,17,19,20 }
}
on 1:dialog:otoidentify:sclick:*: {
  if ($did == 15) { did -ra $dname 17 $did(15).seltext | did -ra $dname 19 $Gettok(%AutoID.pass,$findtok(%AutoID.nicks,$did(15).seltext,32),32) | did -e $dname 21 }
  if ($did == 20) { set %AutoID.nicks [ %AutoID.nicks ] $did(17) | set %AutoID.pass [ %AutoID.pass ] $did(19) | did -a $dname 15 $did(17) | did -ra $dname 17,19 }
  if ($did == 21) { set %AutoID.nicks $deltok(%AutoID.nicks,$findtok(%AutoID.nicks,$did(17),32),32) | set %AutoID.pass $deltok(%AutoID.pass,$findtok(%AutoID.pass,$did(19),32),32) | did -d $dname 15 $did(15).sel | did -ra $dname 17,19 | did -b $dname 21 }
  if ($did == 22) { if ($did(22).state == 1) { set %var on | set %AutoID $true | did -e otoidentify 15,17,19,20 } | else { set %var off | set %AutoID $false | did -b otoidentify 15,17,19,20 } }
}
on *:NOTICE:*:?: {
  if ($nick == NickServ) && (*NickServ identify* iswm $strip($1-)) && ($istok(%AutoID.nicks,$me,32) == $true) && (%AutoID == $true) { echo -a $logo Nickiniz identify ediliyor $me $+  | .identify $Gettok(%AutoID.pass,$findtok(%AutoID.nicks,$me,32),32) }
}

ßöyle ßişi Olabilir,Kimin Yazdığını Hatırlamıyorum Aradan Uzun Zaman Geçti Sanırım..

Cevap: Otomatik nick idenfy paneli !! (RESİM)

Alıntı:

CesuryureK Nickli Üyeden Alıntı (Mesaj 515532)

PHP- Kodu:

   alias setup.otoidentify { dialog -m otoidentify otoidentify }
on *:LOAD:{
  echo -a 4Otomatik İdentifyi yüklediğiniz için teşekkür ederiz...
}
dialog otoidentify {
  title "Otomatik Nick İdentify"
  size -1 -1 194 263
  option pixels
  box "Nickler", 14, 5 109 180 80
  list 15, 12 125 163 78, disable
  text "&Nick:", 16, 12 29 31 20
  edit "", 17, 58 31 114 20, autohs
  text "&Şifre:", 18, 12 51 33 20
  edit "", 19, 58 53 114 20, pass autohs
  button "&Nick Ekle", 20, 11 80 53 20, flat
  button "&Nick Sil", 21, 66 80 53 20, flat
  check "&Otomatik İdentify Açık", 22, 33 204 134 20, flat
  box "Otomatik Nick İdentify", 2, 5 11 180 96
  button "&Tamam", 3, 123 80 53 20, flat cancel
  link " Web Adresin ", 1, 40 235 129 16
}
on *:dialog:otoidentify:sclick:1:/run http://webAdresin
on 1:dialog:otoidentify:init:*: {
  var %ctr = 1 | while (%ctr <= $numtok(%AutoID.nicks,32)) { did -a $dname 15 $Gettok(%AutoID.nicks,%ctr,32) | inc %ctr }
  if (%var == on) { did -c otoidentify 22 | did -e otoidentify 15,17,19,20 }
}
on 1:dialog:otoidentify:sclick:*: {
  if ($did == 15) { did -ra $dname 17 $did(15).seltext | did -ra $dname 19 $Gettok(%AutoID.pass,$findtok(%AutoID.nicks,$did(15).seltext,32),32) | did -e $dname 21 }
  if ($did == 20) { set %AutoID.nicks [ %AutoID.nicks ] $did(17) | set %AutoID.pass [ %AutoID.pass ] $did(19) | did -a $dname 15 $did(17) | did -ra $dname 17,19 }
  if ($did == 21) { set %AutoID.nicks $deltok(%AutoID.nicks,$findtok(%AutoID.nicks,$did(17),32),32) | set %AutoID.pass $deltok(%AutoID.pass,$findtok(%AutoID.pass,$did(19),32),32) | did -d $dname 15 $did(15).sel | did -ra $dname 17,19 | did -b $dname 21 }
  if ($did == 22) { if ($did(22).state == 1) { set %var on | set %AutoID $true | did -e otoidentify 15,17,19,20 } | else { set %var off | set %AutoID $false | did -b otoidentify 15,17,19,20 } }
}
on *:NOTICE:*:?: {
  if ($nick == NickServ) && (*NickServ identify* iswm $strip($1-)) && ($istok(%AutoID.nicks,$me,32) == $true) && (%AutoID == $true) { echo -a $logo Nickiniz identify ediliyor $me $+  | .identify $Gettok(%AutoID.pass,$findtok(%AutoID.nicks,$me,32),32) }
}

ßöyle ßişi Olabilir,Kimin Yazdığını Hatırlamıyorum Aradan Uzun Zaman Geçti Sanırım..

Bana ait: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Fakat bunu kaldırıp gui tarzında hazırlamıştım daha üst versiyon olarak: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]