Mirc Addon - Mirc Kelime Tamamlama Addonu - Mirc Kodlari - Mirc Script - IRCSayfasi

ATLanTiS · 10 Mayıs 2025, 00:12

Mirc Addon - Mirc Kelime Tamamlama Addonu - Mirc Kodlari - Mirc Script

Mirc Script Kelime Tamamlama Addon

Mirc Script icin Addonlar

Kelime tamamlama Addonu

PHP- Kodu:


			
menu status,channel,menubar {

  -

  Kelime Tamamlama: ktamamla

  -

}

alias ktamamla { if ($dialog(ktamamla)) { dialog -c ktamamla } |  dialog -ma ktamamla ktamamla }

dialog ktamamla {

  title "Kelime Tamamlama"

  size -1 -1 215 134

  option dbu

  edit "", 1, 7 9 50 10, autohs

  text " yazdığında", 2, 58 10 30 8

  button "Sil", 3, 51 117 74 12

  edit "", 4, 89 9 80 10, autohs

  text " olarak yazacak", 5, 169 10 38 8

  button "Ekle", 6, 7 23 201 12, default

  box "Kelime Tamamlama", 7, 3 1 209 38

  list 8, 3 41 209 71, size vsbar

  radio "Açık", 9, 149 118 24 10, group left

  radio "Kapalı", 10, 182 118 27 10

  box "", 11, 143 114 69 15

  button "Tamam", 12, 4 117 28 12, ok

}

on *:dialog:ktamamla:*:*: {

  if ($devent == init) {

    if ($group(#ktamamla) == on) { did -c ktamamla 9 } | else { did -c ktamamla 10 }

    ktamamla.init

  }

  if ($devent == sclick) {

    if ($did == 6) {

      if (($did(1) && $did(4)) != $null) {

        if !$read(tamamlama.txt,w,$did(1) $+ $chr(186) $+ *) { .write tamamlama.txt $did(1) $+ $chr(186) $+ $did(4) | ktamamla.init | did -r ktamamla 1,4 }

        else { echo 4 -at [ $did(1) ] Kelime tamamlama listesinde ekli }

      }

      else { echo 4 -at Lütfen 2 kutucuğu doldurun }

    }

    if ($did == 3) {

      if $read(tamamlama.txt,w,$token($did(8).seltext,1,47) $+ $chr(186) $+ *) {

        if ($did(8).seltext != $null) { .write $+(-dl,$readn) tamamlama.txt | ktamamla.init }

      }

    }

    if ($did(9).state == 1) { .enable #ktamamla }

    if ($did(10).state == 1) { .disable #ktamamla }

  }

}

alias ktamamla.init {

  did -r ktamamla 8

  var %ul 1

  while %ul <= $lines(tamamlama.txt) {

    did -a ktamamla 8 $replace($read(tamamlama.txt,%ul),$chr(186),$chr(47))

    inc %ul

  }

}

#ktamamla off

on *:input:*:{

  if !$regex($1,/^(\.|!|\/|[0-9])/i) || ($ctrlenter) {

    var %^ = 1, %'

    while %^ <= $0 {

      %' = %' $iif($read(tamamlama.txt,w,$gettok($1-,%^,32) $+ $chr(186) $+ *),$token($read(tamamlama.txt,$readn),2,186),$gettok($1-,%^,32))

      inc %^

    }

    say %'

    halt

  }

}

#ktamamla end

10 Mayıs 2025, 00:12	#1
Çevrimdışı ATLanTiS	Mirc Addon - Mirc Kelime Tamamlama Addonu - Mirc Kodlari - Mirc Script -- Sponsor Baglantı -- Mirc Addon - Mirc Kelime Tamamlama Addonu - Mirc Kodlari - Mirc Script Mirc Script Kelime Tamamlama Addon Mirc Script icin Addonlar Kelime tamamlama Addonu PHP- Kodu: menu status,channel,menubar { - Kelime Tamamlama: ktamamla - } alias ktamamla { if ($dialog(ktamamla)) { dialog -c ktamamla } \| dialog -ma ktamamla ktamamla } dialog ktamamla { title "Kelime Tamamlama" size -1 -1 215 134 option dbu edit "", 1, 7 9 50 10, autohs text " yazdığında", 2, 58 10 30 8 button "Sil", 3, 51 117 74 12 edit "", 4, 89 9 80 10, autohs text " olarak yazacak", 5, 169 10 38 8 button "Ekle", 6, 7 23 201 12, default box "Kelime Tamamlama", 7, 3 1 209 38 list 8, 3 41 209 71, size vsbar radio "Açık", 9, 149 118 24 10, group left radio "Kapalı", 10, 182 118 27 10 box "", 11, 143 114 69 15 button "Tamam", 12, 4 117 28 12, ok } on :dialog:ktamamla::: { if ($devent == init) { if ($group(#ktamamla) == on) { did -c ktamamla 9 } \| else { did -c ktamamla 10 } ktamamla.init } if ($devent == sclick) { if ($did == 6) { if (($did(1) && $did(4)) != $null) { if !$read(tamamlama.txt,w,$did(1) $+ $chr(186) $+ ) { .write tamamlama.txt $did(1) $+ $chr(186) $+ $did(4) \| ktamamla.init \| did -r ktamamla 1,4 } else { echo 4 -at [ $did(1) ] Kelime tamamlama listesinde ekli } } else { echo 4 -at Lütfen 2 kutucuğu doldurun } } if ($did == 3) { if $read(tamamlama.txt,w,$token($did(8).seltext,1,47) $+ $chr(186) $+ ) { if ($did(8).seltext != $null) { .write $+(-dl,$readn) tamamlama.txt \| ktamamla.init } } } if ($did(9).state == 1) { .enable #ktamamla } if ($did(10).state == 1) { .disable #ktamamla } } } alias ktamamla.init { did -r ktamamla 8 var %ul 1 while %ul <= $lines(tamamlama.txt) { did -a ktamamla 8 $replace($read(tamamlama.txt,%ul),$chr(186),$chr(47)) inc %ul } } #ktamamla off on :input::{ if !$regex($1,/^(\.\|!\|\/\|[0-9])/i) \|\| ($ctrlenter) { var %^ = 1, %' while %^ <= $0 { %' = %' $iif($read(tamamlama.txt,w,$gettok($1-,%^,32) $+ $chr(186) $+ ),$token($read(tamamlama.txt,$readn),2,186),$gettok($1-,%^,32)) inc %^ } say %' halt } } #ktamamla end Paylaş Paylaşmak istediğiniz sosyal site seçin Digg Del.icio.us Technorati Twitter Face'de paylaş Spurl! Reddit! Wong! 0 __________________ To view links or images in signatures your post count must be 0 or greater. You currently have 0 signatures.

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Mirc Away Kodu - Mirc Away Bildirim Kodu - Mirc Kodlari - Hazir Mirc Kodlar	ATLanTiS	mIRC Parça Kodlar	0	10 Mayıs 2025 00:11
Mirc Away Kodu - Mirc Away Bildirim Kodu - Mirc Kodlari - Hazir Mirc Kodlar	ATLanTiS	mIRC Parça Kodlar	0	10 Mayıs 2025 00:09
Mirc Saklambaç Oyun Kodu - Hazir Mirc Kodlari - Mirc Eglence Kodlari	ATLanTiS	mIRC Parça Kodlar	0	10 Mayıs 2025 00:08
Mirc Otomatik Sifre Girme - Mirc Hazir Kodlar - Mirc Addon	ATLanTiS	mIRC Parça Kodlar	0	09 Mayıs 2025 23:41
Oto Selam Alma Remotesi - Mirc Kodlari - Hazir Mirc Kodlari	ATLanTiS	mIRC Parça Kodlar	0	09 Mayıs 2025 23:40

Şu an bu konuyu okuyan kişi sayısı: 1 (0 üye ve 1 misafir)