IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi  
 sohbet
derya sohbet


mIRC Scripting Hazır Kodlar mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.

4Beğeni(ler)


 
 
Seçenekler Stil
Alt 14 Ekim 2020, 23:51   #1
W r i t e r
KivanC - ait Kullanıcı Resmi (Avatar)

Standart !Söz Addonu

Kod

on *:text:*:?: { 
  if $1 == !soz && $3 {
    var %senyor2 $replace($2-,$chr(32),+) $+ $chr(0229) $+ $nick 
    var %senyor $rand(101,9999)
    hadd -m soz %senyor %senyor2 
    msg #opers 4 $gettok($replace($hget(soz,%senyor),+,$chr(32)),1,$asc(å)) 1Sözü Onay Listesine Alindi. Bu Sözü Onaylamak İçin4 !onay %senyor 1Yaziniz. (Ekleyen Nick:13 $gettok($replace($hget(soz,%senyor),+,$chr(32)),2,$asc(å)) )
    msg $nick Talebiniz İlgililere İletilmiştir, Sözünüz Onaylandiğinda Veya Reddedildiğinde Size Memo Yoluyla Bilgi Verilecektir. Haberdar Olabilmek İçin Nickinizin Kayitli Oldugundan Emin Olunuz.
  }
}
on *:text:*:#: { 
  if $chan == #opers { 
    if $1 == !silsoz && $2 { 
      if $hget(soz,$2) {
        msg #opers 4 $2 1Kod Numaralı4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Sözü İsteğiniz Üzere 4Silinmiştir
        msg memoserv send $gettok($hget(soz,$2),2,$asc(å)) Sayin $gettok($hget(soz,$2),2,$asc(å)) Gönderdiğiniz $2 Onay Numarali Söz Uygun Bulunmamiştir.. İlginize Teşekkür Ederim.
        hdel -s soz $2 
      }
    }
    if $1 == !listeleonayli && !$2 { 
      var %i 1 
      while %i <= $lines(onaylisoz.txt) { 
        msg # $read(onaylisoz.txt,%i)
        inc %i
      }
    }
    if $1 == !listelesoz && !$2 { 
      var %i 1 
      while %i <= $hmatch(soz,*,*) { 
        msg #opers 4Söz:10 $gettok($replace($hget(soz,$hmatch(soz,*,%i)),+,$chr(32)),1,$asc(å)) 7Onay Kodu:12 $hmatch(soz,*,%i)
        inc %i
      }
    }
    if $1 == !onay && $2 {
      if $hget(soz,$2) { 
        write onaylisoz.txt $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) Onay Numarasi:4 $2 1Gönderen Nick:4 $gettok($hget(soz,$2),2,$asc(å)) | msg #ufuk 4 $gettok($replace($hget(soz,$2),+,$chr(32)),1,$asc(å)) 1Sözü Onaylanmiştir.
        msg memoserv send $gettok($hget(soz,$2),2,$asc(å)) Sayin $gettok($hget(soz,$2),2,$asc(å)) Gönderdiğiniz $2 Onay Numarali Söz Onaylanmiştir. İlginize Teşekkür Ederim.
        hdel soz $2 
      }
    }
  }
  if $1 == !soz && $2 { 
    msg # 4 $2 -->12 $read(onaylisoz.txt)
  }
}
Coder- Yazar : uFuK
 
Alt 15 Ekim 2020, 00:01   #2
Cumhuriyet Kadını
Reyhan - ait Kullanıcı Resmi (Avatar)

Standart

Emeğinize sağlık ;ççk

________________

ellerinde bir güldüm ,
soldum .
 
Alt 15 Ekim 2020, 00:04   #3
Sim
civciv~🐥
Sim - ait Kullanıcı Resmi (Avatar)

Standart

emegine saglik

________________

Hope. . . ✨
 
Alt 16 Mart 2021, 15:45   #4
Standart

Merhabalar bende söz ekleyen nick görünmüyor Onaylamak İçin !onay 2149 Yaziniz. (Ekleyen Nick: )
ve statusta şu yazıyor < MemoServ > Sayin kayitli bir nick degil. bu sorunun çözümünü bilen var mı aacaba şimdiden Teşekkürler

 
Alt 16 Mart 2021, 16:54   #5
NCL
Mahrez - ait Kullanıcı Resmi (Avatar)

Standart

Alıntı:
Burakk Nickli Üyeden Alıntı Mesajı göster
Merhabalar bende söz ekleyen nick görünmüyor Onaylamak İçin !onay 2149 Yaziniz. (Ekleyen Nick: )
ve statusta şu yazıyor < MemoServ > Sayin kayitli bir nick degil. bu sorunun çözümünü bilen var mı aacaba şimdiden Teşekkürler
Addon olarak mı istiyorsunuz.

________________

"Fark etmek acıydı ama gerekliydi."
 
Alt 16 Mart 2021, 21:47   #6
She
✰ ÖzeL..
She - ait Kullanıcı Resmi (Avatar)

Standart

Emeğinize sağlık

________________

~ E & B ~
 
Alt 18 Mart 2021, 00:10   #7
Standart

Alıntı:
Kaan- Nickli Üyeden Alıntı Mesajı göster
Addon olarak mı istiyorsunuz.
Remote veya addon farketmez sorunsuzunu bulabilsem yetecek son çare botlardan almak olacak sanırım

 
Alt 18 Mart 2021, 08:23   #8
NCL
Mahrez - ait Kullanıcı Resmi (Avatar)

Standart

Alıntı:
Burakk Nickli Üyeden Alıntı Mesajı göster
Remote veya addon farketmez sorunsuzunu bulabilsem yetecek son çare botlardan almak olacak sanırım

on *:text:*:?: {
if $1 == !soz && $3 {
var %senyor2 $replace($2-,$chr(32),+)
var %senyor $rand(101,9999)
hadd -m soz %senyor %senyor2
msg #Opers 4 $replace($hget(soz,%senyor),+,$chr(32)) 1Sözü Onay Listesine Alindi. Bu Sözü Onaylamak İçin4 !onay %senyor 1Yaziniz.
}
}
on *:text:*:#: {
if $chan == #opers {
if $1 == !silsoz && $2 {
if $hget(soz,$2) {
msg #Opers 4 $2 1Kod Numaralı4 $replace($hget(soz,$2),+,$chr(32)) 1Sözü İsteğiniz Üzere 4Silinmiştir
hdel -s soz $2
}
}
if $1 == !listeleonayli && !$2 {
var %i 1
while %i < = $lines(onaylisoz.txt) {
msg # $read(onaylisoz.txt,%i)
inc %i
}
}
if $1 == !listelesoz && !$2 {
var %i 1
while %i <= $hmatch(soz,*,*) {
msg #Opers 4Söz:10 $replace($hget(soz,$hmatch(soz,*,%i)),+,$chr(32)) 7Onay Kodu:12 $hmatch(soz,*,%i)
inc %i
}
}
if $1 == !onay && $2 {
if $hget(soz,$2) {
write onaylisoz.txt $replace($hget(soz,$2),+,$chr(32)) | msg #Opers 4 $replace($hget(soz,$2),+,$chr(32)) 1Sözü Onaylanmiştir.
hdel soz $2
}
}
}
if $1 == !soz && $2 {
msg # 4 $2 -->12 $read(onaylisoz.txt)
}
}

Keyifli forumlar.

________________

"Fark etmek acıydı ama gerekliydi."

Konu Mahrez tarafından (18 Mart 2021 Saat 09:45 ) değiştirilmiştir..
 
Alt 20 Mart 2021, 23:05   #9
Standart

Alıntı:
Kaan- Nickli Üyeden Alıntı Mesajı göster
on *:text:*:?: {
if $1 == !soz && $3 {
var %senyor2 $replace($2-,$chr(32),+)
var %senyor $rand(101,9999)
hadd -m soz %senyor %senyor2
msg #Opers 4 $replace($hget(soz,%senyor),+,$chr(32)) 1Sözü Onay Listesine Alindi. Bu Sözü Onaylamak İçin4 !onay %senyor 1Yaziniz.
}
}
on *:text:*:#: {
if $chan == #opers {
if $1 == !silsoz && $2 {
if $hget(soz,$2) {
msg #Opers 4 $2 1Kod Numaralı4 $replace($hget(soz,$2),+,$chr(32)) 1Sözü İsteğiniz Üzere 4Silinmiştir
hdel -s soz $2
}
}
if $1 == !listeleonayli && !$2 {
var %i 1
while %i < = $lines(onaylisoz.txt) {
msg # $read(onaylisoz.txt,%i)
inc %i
}
}
if $1 == !listelesoz && !$2 {
var %i 1
while %i <= $hmatch(soz,*,*) {
msg #Opers 4Söz:10 $replace($hget(soz,$hmatch(soz,*,%i)),+,$chr(32)) 7Onay Kodu:12 $hmatch(soz,*,%i)
inc %i
}
}
if $1 == !onay && $2 {
if $hget(soz,$2) {
write onaylisoz.txt $replace($hget(soz,$2),+,$chr(32)) | msg #Opers 4 $replace($hget(soz,$2),+,$chr(32)) 1Sözü Onaylanmiştir.
hdel soz $2
}
}
}
if $1 == !soz && $2 {
msg # 4 $2 -->12 $read(onaylisoz.txt)
}
}

Keyifli forumlar.
Sağol Çok Teşekkür Ederim Zahmet Verdim Sanada

 
Alt 21 Mart 2021, 15:43   #10
Kimseye Eğecek Başımız Yok Umudumuzun Bittiği Yerde İnadımız Başlar...!DostYeri.Org
KuzeyAras - ait Kullanıcı Resmi (Avatar)

Standart

Emegıne Saglık.

________________

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


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

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı





Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 23:12.