Kod : Kodu kopyalamak için üzerine çift tıklayın!

**EmektaR** · 15 Nisan 2023, 16:03

Otomatik nick şifresi girme, oper şifresi girme, oto join kanal listenizi düzenleme ve sunucuya bağlanınca nickinizi kaydetme gibi özelliklere sahip bir addondur. Mirc scriptinizin remote kısmına ekleyerek kullanmaya başlayabilirsiniz. sysa komutu ile ayarlar sekmesine girebilirsiniz.

Kod : Kodu kopyalamak için üzerine çift tıklayın!


         ### Oto şifre oper ve kanal giriş sistemi çeviricidir.
 
alias motident3 { dialog -m sysa sysa | did -c sysa 74 }
alias sclick { if ($_vr(soundcon,click) == 1) { blast $_vr(soundcon,73) } }
dialog sysa {
  title "Otomatik Nick Şifresi ve Kanal Sistemi"
  size 300 75 141 191
  option dbu
  tab "Oto ident ve Oper", 1, 3 4 133 159
  edit "", 7, 7 86 128 10, tab 1 return autohs autovs
  box "Nick Tanımlayıcısı", 10, 6 19 130 37, tab 1
  text "Nick Şifresi", 11, 42 36 69 8, tab 1 center
  edit "", 8, 7 43 128 10, tab 1 pass multi return autohs autovs
  check "Bağlantı Kurmak için tıklayın", 12, 9 66 124 9, tab 1
  box "Oper Aktif", 13, 6 58 130 104, tab 1
  text "Oper Şifresi", 15, 37 134 70 8, tab 1 center
  edit "", 14, 7 142 128 10, tab 1 pass multi return autohs autovs
  text "Oper Nickinizi Buradan Ayarlayabilirsiniz  ", 16, 10 114 122 20, tab 1 center
  text "Oper Nick", 9, 59 77 40 8, tab 1 center
  button "Oper aktif", 48, 8 153 59 8, tab 1 flat
  button "Deaktif Oper", 49, 75 153 59 8, tab 1 flat
  text "Başlangıçda AÇ? --=>", 4, 10 101 59 8, tab 1 center
  radio "Evet", 41, 72 101 21 8, tab 1
  radio "Hayır", 42, 96 101 20 8, tab 1
  button "Identify", 52, 103 77 30 8, tab 1 flat
  button "Oper Nick", 51, 8 77 45 8, tab 1 flat
  tab "Oto Giriş", 17
  box "Oto Giriş", 18, 9 20 128 142, tab 17
  edit "", 19, 11 41 50 10, tab 17 return autohs autovs
  edit "", 20, 11 53 50 10, tab 17 return autohs autovs
  edit "", 21, 11 65 50 10, tab 17 return autohs autovs
  edit "", 22, 11 77 50 10, tab 17 return autohs autovs
  edit "", 23, 11 89 50 10, tab 17 return autohs autovs
  edit "", 24, 11 101 50 10, tab 17 return autohs autovs
  edit "", 25, 11 113 50 10, tab 17 return autohs autovs
  edit "", 26, 11 125 50 10, tab 17 return autohs autovs
  edit "", 27, 11 137 50 10, tab 17 return autohs autovs
  edit "", 28, 11 149 50 10, tab 17 return autohs autovs
  check " #Kanal 1", 29, 91 41 42 10, tab 17
  check " #Kanal 2", 30, 91 53 42 10, tab 17
  check " #Kanal 3", 31, 91 65 42 10, tab 17
  check " #Kanal 4", 32, 91 77 42 10, tab 17
  check " #Kanal 5", 33, 91 89 42 10, tab 17
  check " #Kanal 6", 34, 91 101 42 10, tab 17
  check " #Kanal 7", 35, 91 113 42 10, tab 17
  check " #Kanal 8", 36, 91 125 42 10, tab 17
  check " #Kanal 9", 37, 91 137 42 10, tab 17
  check " #Kanal 10", 38, 91 149 43 10, tab 17
  text "Kanallar", 39, 13 31 46 8, tab 17 center
  text "Tümü aktif", 40, 82 32 50 8, tab 17
  button "Giriş", 43, 61 42 15 8, tab 17 flat
  button "Tümü", 62, 61 24 20 8, tab 17 flat
  button "Giriş", 53, 61 54 15 8, tab 17 flat
  button "Giriş", 54, 61 66 15 8, tab 17 flat
  button "Giriş", 55, 61 78 15 8, tab 17 flat
  button "Giriş", 56, 61 90 15 8, tab 17 flat
  button "Giriş", 57, 61 102 15 8, tab 17 flat
  button "Giriş", 58, 61 114 15 8, tab 17 flat
  button "Giriş", 59, 61 126 15 8, tab 17 flat
  button "Giriş", 60, 61 138 15 8, tab 17 flat
  button "Giriş", 61, 61 150 15 8, tab 17 flat
  button "Tümü", 63, 61 33 20 8, tab 17 flat
  button "Çıkış", 64, 77 42 13 8, tab 17 flat
  button "Çıkış", 65, 77 54 13 8, tab 17 flat
  button "Çıkış", 66, 77 66 13 8, tab 17 flat
  button "Çıkış", 67, 77 78 13 8, tab 17 flat
  button "Çıkış", 68, 77 90 13 8, tab 17 flat
  button "Çıkış", 69, 77 102 13 8, tab 17 flat
  button "Çıkış", 70, 77 114 13 8, tab 17 flat
  button "Çıkış", 71, 77 126 13 8, tab 17 flat
  button "Çıkış", 72, 77 138 13 8, tab 17 flat
  button "Çıkış", 73, 77 150 13 8, tab 17 flat
  tab "Kayıt", 74
  box "Kanal Kayıt", 76, 5 117 130 45, tab 74
  edit "", 77, 31 88 102 10, tab 74 return autohs autovs
  text "Şifre", 78, 6 89 25 8, tab 74 center
  text "E-mail adresi", 80, 6 99 30 8, tab 74 center
  button "Kayıt", 81, 6 108 31 9, tab 74 flat
  edit "", 79, 36 98 96 10, tab 74 return autohs autovs
  edit "", 82, 7 131 58 10, tab 74 return autohs autovs
  text "#Kanal", 83, 8 124 25 7, tab 74 center
  edit "", 84, 66 131 67 10, tab 74 return autohs autovs
  text "Şifre", 85, 67 124 25 7, tab 74
  button "Kayıt#", 86, 8 152 31 9, tab 74 flat
  text "Takma isminizi kaydetmek için, nickinizi yazınız, 'Nick değiştir' ve ardından şifreniz ve e-posta adresiniz 'Kayıt Ol'a tıklayınız. Kayıtlı bir takma adınız olduğunda, sohbet odalarına katılıp kayıt olabilirsiniz!", 89, 8 36 123 27, tab 74
  edit "", 93, 41 141 92 10, tab 74 return autohs autovs
  text "# Açıklama", 94, 8 142 33 8, tab 74 center
  box "Talimanlar", 95, 5 19 130 63, tab 74
  button "Sil", 91, 101 108 31 9, tab 74 flat
  button "Sil #", 90, 101 152 31 9, tab 74 flat
  box "Nick kayıt", 75, 5 81 130 37, tab 74
  button "Grup", 98, 38 108 31 9, tab 74 flat
  button "Aktif ol #", 97, 55 152 31 9, tab 74 flat
  edit "", 87, 6 63 127 9, tab 74 return autohs autovs
  button "Ghost", 46, 7 72 30 8, tab 74 flat
  button "Recover", 47, 102 72 30 8, tab 74 flat
  button "Identify", 88, 70 108 30 9, tab 74 flat
  check "Oto identify aktif et", 6, 6 27 127 9, tab 74
  button "Kanal nick", 92, 52 72 37 8, tab 74 flat
  button "Giriş #", 99, 34 124 31 8, tab 74 flat
  button "Çıkış", 3, 20 179 98 9, flat ok
  box "", 5, 0 165 141 26
  box "", 2, 0 167 141 24
  text "KraLaz", 50, 75 171 32 7, center
}
on *:dialog:sysa:init:0:{
  if (%nickident == on) { 
    did -c sysa 6 
  } 
  if (%oper == on) { 
    did -c sysa 12 
  }
  if (%chl.1 == on) { did -c sysa 29 }
  if (%chl.2 == on) { did -c sysa 30 }
  if (%chl.3 == on) { did -c sysa 31 }
  if (%chl.4 == on) { did -c sysa 32 }
  if (%chl.5 == on) { did -c sysa 33 }
  if (%chl.6 == on) { did -c sysa 34 }
  if (%chl.7 == on) { did -c sysa 35 }
  if (%chl.8 == on) { did -c sysa 36 }
  if (%chl.9 == on) { did -c sysa 37 }
  if (%chl.10 == on) { did -c sysa 38 }
  if (%startupz2 == on) { did -c sysa 41 }
  if (%startupz2 == off) { did -c sysa 42 }
  did -a sysa 28 %chnl.j
  did -a sysa 19 %chnl.a
  did -a sysa 20 %chnl.b
  did -a sysa 21 %chnl.c
  did -a sysa 22 %chnl.d
  did -a sysa 23 %chnl.e
  did -a sysa 24 %chnl.f
  did -a sysa 25 %chnl.g
  did -a sysa 26 %chnl.h
  did -a sysa 27 %chnl.i
  did -a sysa 7 %opernick1
  did -a sysa 8 %nickserv.pass 
  did -a sysa 14 %operpass1
  did -a sysa 77 %nickserv.pass  
  did -a sysa 79 %email.alpha
  did -a sysa 82 %reg.chan
  did -a sysa 84 %pass.chan
  did -a sysa 93 %desc.chan
  did -a sysa 87 %nick.alpha
}
on *:dialog:sysa:edit:7: { 
  if ($did == 7) { 
    set %opernick1 $did(sysa,7).text 
  }
}
on *:dialog:sysa:edit:8: {
  if ($did == 8) { 
    set %nickserv.pass  $did(sysa,8).text 
  }
}
on *:dialog:sysa:edit:14: {
  if ($did == 14) { 
    set %operpass1 $did(sysa,14).text 
  }
}
on *:dialog:sysa:edit:19: {
  if ($did == 19) { set %chnl.a $did(sysa,19).text }
}
on *:dialog:sysa:edit:20: {
  if ($did == 20) { set %chnl.b $did(sysa,20).text }
}
on *:dialog:sysa:edit:21: {
  if ($did == 21) { set %chnl.c $did(sysa,21).text }
}
on *:dialog:sysa:edit:22: {
  if ($did == 22) { set %chnl.d $did(sysa,22).text }
}
on *:dialog:sysa:edit:23: {
  if ($did == 23) { set %chnl.e $did(sysa,23).text }
}
on *:dialog:sysa:edit:24: {
  if ($did == 24) { set %chnl.f $did(sysa,24).text }
}
on *:dialog:sysa:edit:25: {
  if ($did == 25) { set %chnl.g $did(sysa,25).text }
}
on *:dialog:sysa:edit:26: {
  if ($did == 26) { set %chnl.h $did(sysa,26).text }
}
on *:dialog:sysa:edit:27: {
  if ($did == 27) { set %chnl.i $did(sysa,27).text }
}
on *:dialog:sysa:edit:28: {
  if ($did == 28) { set %chnl.j $did(sysa,28).text }
}
on *:dialog:sysa:edit:77: {
  if ($did == 77) { 
    set %nickserv.pass $did(sysa,77).text 
  }
}
on *:dialog:sysa:edit:79: {
  if ($did == 79) { 
    set %email.alpha $did(sysa,79).text 
  }
}
on *:dialog:sysa:edit:82: {
  if ($did == 82) { set %reg.chan $did(sysa,82).text }
}
on *:dialog:sysa:edit:84: {
  if ($did == 84) { set %pass.chan $did(sysa,84).text }
}
on *:dialog:sysa:edit:93: {
  if ($did == 93) { set %desc.chan $did(sysa,93).text }
}
on *:dialog:sysa:edit:87: {
  if ($did == 87) { 
    set %nick.alpha $did(sysa,87).text 
  }
}
on *:dialog:sysa:sclick:3:{
  if ($did(sysa,6).state == 1) { set %nickident on }
  else { set %nickident off }
  if ($did(sysa,12).state == 1) { set %oper on }
  else { set %oper off }
  if ($did(sysa,29).state == 1) { set %chl.1 on }
  else { set %chl.1  off }
  if ($did(sysa,30).state == 1) { set %chl.2 on }
  else { set %chl.2  off }
  if ($did(sysa,31).state == 1) { set %chl.3 on }
  else { set %chl.3  off }
  if ($did(sysa,32).state == 1) { set %chl.4 on }
  else { set %chl.4  off }
  if ($did(sysa,33).state == 1) { set %chl.5 on }
  else { set %chl.5  off }
  if ($did(sysa,34).state == 1) { set %chl.6 on }
  else { set %chl.6  off }
  if ($did(sysa,35).state == 1) { set %chl.7 on }
  else { set %chl.7  off }
  if ($did(sysa,36).state == 1) { set %chl.8 on }
  else { set %chl.8  off }
  if ($did(sysa,37).state == 1) { set %chl.9 on }
  else { set %chl.9  off }
  if ($did(sysa,38).state == 1) { set %chl.10 on }
  else { set %chl.10  off }
  set %chnl.a $did(sysa,19).text
  set %chnl.b $did(sysa,20).text
  set %chnl.c $did(sysa,21).text
  set %chnl.d $did(sysa,22).text
  set %chnl.e $did(sysa,23).text
  set %chnl.f $did(sysa,24).text
  set %chnl.g $did(sysa,25).text
  set %chnl.h $did(sysa,26).text
  set %chnl.i $did(sysa,27).text
  set %chnl.j $did(sysa,28).text
  set %opernick1 $did(sysa,7).text
  set %nick.alpha $did(sysa,87).text
  set %nickserv.pass  $did(sysa,8).text
  set %operpass1 $did(sysa,14).text
  set %nickserv.pass $did(sysa,77).text 
  set %email.alpha $did(sysa,79).text 
  set %reg.chan $did(sysa,82).text
  set %pass.chan $did(sysa,84).text 
  set %desc.chan $did(sysa,93).text
  did -h sysa 3
  did -v sysa 3
  dialog -c sysa sysa  
}
on *:dialog:sysa:sclick:43: { join %chnl.a }
on *:dialog:sysa:sclick:53: { join %chnl.b }
on *:dialog:sysa:sclick:54: { join %chnl.c }
on *:dialog:sysa:sclick:55: { join %chnl.d }
on *:dialog:sysa:sclick:56: { join %chnl.e }
on *:dialog:sysa:sclick:57: { join %chnl.f }
on *:dialog:sysa:sclick:58: { join %chnl.g }
on *:dialog:sysa:sclick:59: { join %chnl.h }
on *:dialog:sysa:sclick:60: { join %chnl.i }
on *:dialog:sysa:sclick:61: { join %chnl.j }
on *:dialog:sysa:sclick:62: { join %chnl.a $+ , $+ %chnl.b $+ , $+ %chnl.c $+ , $+ %chnl.d $+ , $+ %chnl.e $+ , $+ %chnl.f $+ , $+  %chnl.g $+ , $+ %chnl.h $+ , $+ %chnl.i $+ , $+ %chnl.j }
on *:dialog:sysa:sclick:64: { part %chnl.a }
on *:dialog:sysa:sclick:65: { part %chnl.b }
on *:dialog:sysa:sclick:66: { part %chnl.c }
on *:dialog:sysa:sclick:67: { part %chnl.d }
on *:dialog:sysa:sclick:68: { part %chnl.e }
on *:dialog:sysa:sclick:69: { part %chnl.f }
on *:dialog:sysa:sclick:70: { part %chnl.g }
on *:dialog:sysa:sclick:71: { part %chnl.h }
on *:dialog:sysa:sclick:72: { part %chnl.i }
on *:dialog:sysa:sclick:73: { part %chnl.j }
on *:dialog:sysa:sclick:63: { part %chnl.a $+ , $+ %chnl.b $+ , $+ %chnl.c $+ , $+ %chnl.d $+ , $+ %chnl.e $+ , $+ %chnl.f $+ , $+  %chnl.g $+ , $+ %chnl.h $+ , $+ %chnl.i $+ , $+ %chnl.j }
on *:dialog:sysa:sclick:77:  { 
  set %nickserv.pass $did(sysa,77).text 
}
on *:dialog:sysa:sclick:79:  { set %email.alpha $did(sysa,79).text }
on *:dialog:sysa:sclick:82: { set %reg.chan $did(sysa,82).text }
on *:dialog:sysa:sclick:84: { set %pass.chan $did(sysa,84).text }
on *:dialog:sysa:sclick:93: { set %desc.chan $did(sysa,93).text }
on *:dialog:sysa:sclick:81: { ns REGISTER  %nickserv.pass %email.alpha }
on *:dialog:sysa:sclick:91: { ns DROP }
on *:dialog:sysa:sclick:86: { cs REGISTER %reg.chan %pass.chan %desc.chan }
on *:dialog:sysa:sclick:90: { cs DROP %reg.chan }
on *:dialog:sysa:sclick:97:  { cs IDENTIFY %reg.chan %pass.chan }
on *:dialog:sysa:sclick:98: { ns GROUP $$?="Nickname:" %nickserv.pass  }
on *:dialog:sysa:sclick:99: { join %reg.chan }
on 1:CONNECT:{
  ajar
}
alias ajar {
  if (%nickident == on) { 
    nick %nick.alpha 
    ns IDENTIFY %nickserv.pass  
  }
  if (%oper == on) && (%nickident == on) {
    oper %opernick1 %operpass1
    mode $me +s +eakcfjvGFWz 
    mode $me +q 
  }
  if (%chl.1 == on) {
    join %chnl.a
  }
  if (%chl.2 == on) {
    join %chnl.b
  }
  if (%chl.3 == on) {
    join %chnl.c
  }
  if (%chl.4 == on) {
    join %chnl.d
  }
  if (%chl.5 == on) {
    join %chnl.e
  }
  if (%chl.6 == on) {
    join %chnl.f
  }
  if (%chl.7 == on) {
    join %chnl.g
  }
  if (%chl.8 == on) {
    join %chnl.h
  }
  if (%chl.9 == on) {
    join %chnl.i
  }
  if (%chl.10 == on) {
    join %chnl.j
  }
}
on *:dialog:sysa:sclick:41: { enable #startupz2 | set %startupz2 on | sclick }
on *:dialog:sysa:sclick:42: { disable #startupz2 | set %startupz2 off | sclick }
on *:dialog:sysa:sclick:51: { nick %opernick1 }
on *:dialog:sysa:sclick:92: { nick %nick.alpha }
on *:dialog:sysa:sclick:52: { ns IDENTIFY %nickserv.pass  }
on *:dialog:sysa:sclick:88: { ns IDENTIFY %nickserv.pass  }
on *:dialog:sysa:sclick:49: { mode $me -o }
on *:dialog:sysa:sclick:48: { oper %opernick1 %operpass1 | //mode $me +s +eakcfjvGFWz | //mode $me +q }
on *:dialog:sysa:sclick:46: { ns GHOST %nick.alpha %nickserv.pass  }
on *:dialog:sysa:sclick:47: { 
  ns RECOVER %nick.alpha %nickserv.pass  
}

**RahmetLi** · 15 Nisan 2023, 17:58

Emeğine Sağlık

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Kod : Kodu kopyalamak için üzerine çift tıklayın!

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.