IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCRehberi.Net- Türkiyenin En iyi IRC ve Genel Forum Sitesi (https://www.ircrehberi.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/)
-   -   !Söz Addonu (https://www.ircrehberi.net/mirc-scripting-hazir-kodlar/43303-soz-addonu.html)

KivanC 14 Ekim 2020 23:51
!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

Reyhan 15 Ekim 2020 00:01
Emeğinize sağlık ;ççk

Sim 15 Ekim 2020 00:04
emegine saglik

Burakk 16 Mart 2021 15:45
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

Mahrez 16 Mart 2021 16:54
Alıntı:
Burakk Nickli Üyeden Alıntı (Mesaj 391060)
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.

She 16 Mart 2021 21:47
Emeğinize sağlık

Burakk 18 Mart 2021 00:10
Alıntı:
Kaan- Nickli Üyeden Alıntı (Mesaj 391111)
Addon olarak mı istiyorsunuz.
Remote veya addon farketmez sorunsuzunu bulabilsem yetecek son çare botlardan almak olacak sanırım

Mahrez 18 Mart 2021 08:23
Alıntı:
Burakk Nickli Üyeden Alıntı (Mesaj 392629)
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.

Burakk 20 Mart 2021 23:05
Alıntı:
Kaan- Nickli Üyeden Alıntı (Mesaj 392847)
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

KuzeyAras 21 Mart 2021 15:43
Emegıne Saglık.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:34.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions, Inc.

Copyright ©2019 - 2023 | IRCRehberi