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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   Puan Codlaması (https://www.ircforumlari.net/mirc-scripting-sorunlari/437596-puan-codlamasi.html)

KivanC 21 Aralık 2011 13:25
Puan Codlaması
 
PHP- Kodu:
on *:rawmode:#sohbet:{
  if $remove($1,o) == +a || $remove($1,o) == +o || $remove($1,o) == +q {
    set $+(%,pveyaa,.,$2) OK!
  }
  if $remove($1,o) == -a || $remove($1,o) == -o || $remove($1,o) == -q {
    unset $+(%,pveyaa,.,$2)
  }
}
on *:TEXT:*:#sohbet:{
  if $1 == !puansil {
    if $($+(%,pveyaa,.,$nick),2) {
      if $2 == $null {
        msg $chan Lütfen Puanı sıfırlanıcak nick belirtin.
        .halt
      }
      if $($+(%,puansay!,$2,!,$chan),2) == $null {
        msg $chan Bu nickin kayıtlı bi puanı yok
      }
      else {
        unset $+(%,puansay!,$2,!,$chan)
        msg $chan $2 puanları sıfırlandı.
      }
    }
  }
  if $1 == !puan {
    if $2 !== $null {
      msg $chan $iif($($+(%,puansay!,$2,!,$chan),2),  $2 2 $($+(%,puansay!,$2,!,$chan),2) konuşma puanın var., $2 nickinin hiç konuşma puanı yok!)
    }
    else {
      msg $chan $iif($($+(%,puansay!,$nick,!,$chan),2), $nick $($+(%,puansay!,$nick,!,$chan),2) konuşma puanın var., $nick nickinin hiç konuşma puanı yok!)
    }
  }
  else {
    inc $+(%,puansay!,$nick,!,$chan)
    if $($+(%,puansay!,$nick,!,$chan),2) == 10 { msg $chan Konuşma Puanın 10 oldu, Yürü be $nick $+ ! :D:D }
    if $($+(%,puansay!,$nick,!,$chan),2) == 25 { msg $chan Helal Sana Puanın 25 oldu Puan'ın:D $nick $+ ! }
    if $($+(%,puansay!,$nick,!,$chan),2) == 50 { msg $chan Bas Gaza $nick Bas Gaza :D:D:D | msg $nick Tebrikler! Bu seviyeli ve düzeyli sohbete devam ederseniz 200 puandan sonra  ödüllendirileceksiniz :) }
    if $($+(%,puansay!,$nick,!,$chan),2) == 100 { msg $chan $nick Devam Sohbetin Cok iyi :) } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 100 { msg $chan Konuşma Puanınız 200 oldu $nick Cok iyi Gidiyorsun :) }
    if $($+(%,puansay!,$nick,!,$chan),2) == 200 { msg $chan konuş baba konuş $nick :D }
    if $($+(%,puansay!,$nick,!,$chan),2) == 240 { msg $chan Seni tutana $nick }
    if $($+(%,puansay!,$nick,!,$chan),2) == 250 { msg $chan Yürü be kocum $nick } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 260 { msg $chan Gonzalez $nick bu hızla Kaptın 260 'ı }
    if $($+(%,puansay!,$nick,!,$chan),2) == 300 { msg $chan 300 'le gidiyorsun $nick :D }
    if $($+(%,puansay!,$nick,!,$chan),2) == 400 { msg $chan Suan Puanın 400 $nick diyecek söz yok }
    if $($+(%,puansay!,$nick,!,$chan),2) == 500 { msg $chan ne Söylenirki Sana $nick }
    if $($+(%,puansay!,$nick,!,$chan),2) == 600 { msg $chan Jet $nick Geliyor Puanı 600 }
    if $($+(%,puansay!,$nick,!,$chan),2) == 700 { msg $chan $nick Suan Puanın 3554544545565666464 oldu sanırım :DD } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 800 { msg $chan öfff Puana Bakın $nick Puanı 800 :) }
    if $($+(%,puansay!,$nick,!,$chan),2) == 900 { msg $chan Heyyyyyyy $nick 900 Puandasın }
    if $($+(%,puansay!,$nick,!,$chan),2) == 1000 { msg $chan ALKIŞLAR SANA PUANIN 1000 VE SANA HEDIYE VERMEK ISTERIM :d $nick | mode $chan +v $nick }

  }
} 

<nick> !puan
<nick> !puan
<Ajan> nick 577 konuşma puanın var.
<Ajan> nick 577 konuşma puanın var.
<buSTer> !puan
<Ajan> nick 577 konuşma puanın var.
<buSTer> !puan
<Ajan> nick 577 konuşma puanın var.
<buSTer> !puan
<Ajan> nick 577 konuşma puanın var.

ben o Nick 'in 20 - 25 Saniye içine tekrar !puan yazmamasını istiyorum mümkünmüdür.

Set 21 Aralık 2011 15:42
Cevap: Puan Codlaması
 
Kod:

on *:rawmode:#sohbet:{
  if $remove($1,o) == +a || $remove($1,o) == +o || $remove($1,o) == +q {
    set $+(%,pveyaa,.,$2) OK!
  }
  if $remove($1,o) == -a || $remove($1,o) == -o || $remove($1,o) == -q {
    unset $+(%,pveyaa,.,$2)
  }
}
on *:TEXT:*:#sohbet:{
  if $1 == !puansil {
    if $($+(%,pveyaa,.,$nick),2) {
      if $2 == $null {
        msg $chan Lütfen Puanı sıfırlanıcak nick belirtin.
        .halt
      }
      if $($+(%,puansay!,$2,!,$chan),2) == $null {
        msg $chan Bu nickin kayıtlı bi puanı yok
      }
      else {
        unset $+(%,puansay!,$2,!,$chan)
        msg $chan $2 puanları sıfırlandı.
      }
    }
  }
  if $1 == !puan {    if (%puan [ $+ [ $nick ] ]) { msg # Lutfen 20 saniye sonra tekrar deneyiniz. | return }
    set -u20 %puan [ $+ [ $nick ] ] on
    if $2 !== $null {
      msg $chan $iif($($+(%,puansay!,$2,!,$chan),2),  $2 2 $($+(%,puansay!,$2,!,$chan),2) konuşma puanın var., $2 nickinin hiç konuşma puanı yok!)
    }
    else {
      msg $chan $iif($($+(%,puansay!,$nick,!,$chan),2), $nick $($+(%,puansay!,$nick,!,$chan),2) konuşma puanın var., $nick nickinin hiç konuşma puanı yok!)
    }
  }
  else {
    inc $+(%,puansay!,$nick,!,$chan)
    if $($+(%,puansay!,$nick,!,$chan),2) == 10 { msg $chan Konuşma Puanın 10 oldu, Yürü be $nick $+ ! :D:D }
    if $($+(%,puansay!,$nick,!,$chan),2) == 25 { msg $chan Helal Sana Puanın 25 oldu Puan'ın:D $nick $+ ! }
    if $($+(%,puansay!,$nick,!,$chan),2) == 50 { msg $chan Bas Gaza $nick Bas Gaza :D:D:D | msg $nick Tebrikler! Bu seviyeli ve düzeyli sohbete devam ederseniz 200 puandan sonra  ödüllendirileceksiniz :) }
    if $($+(%,puansay!,$nick,!,$chan),2) == 100 { msg $chan $nick Devam Sohbetin Cok iyi :) } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 100 { msg $chan Konuşma Puanınız 200 oldu $nick Cok iyi Gidiyorsun :) }
    if $($+(%,puansay!,$nick,!,$chan),2) == 200 { msg $chan konuş baba konuş $nick :D }
    if $($+(%,puansay!,$nick,!,$chan),2) == 240 { msg $chan Seni tutana $nick }
    if $($+(%,puansay!,$nick,!,$chan),2) == 250 { msg $chan Yürü be kocum $nick } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 260 { msg $chan Gonzalez $nick bu hızla Kaptın 260 'ı }
    if $($+(%,puansay!,$nick,!,$chan),2) == 300 { msg $chan 300 'le gidiyorsun $nick :D }
    if $($+(%,puansay!,$nick,!,$chan),2) == 400 { msg $chan Suan Puanın 400 $nick diyecek söz yok }
    if $($+(%,puansay!,$nick,!,$chan),2) == 500 { msg $chan ne Söylenirki Sana $nick }
    if $($+(%,puansay!,$nick,!,$chan),2) == 600 { msg $chan Jet $nick Geliyor Puanı 600 }
    if $($+(%,puansay!,$nick,!,$chan),2) == 700 { msg $chan $nick Suan Puanın 3554544545565666464 oldu sanırım :DD } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 800 { msg $chan öfff Puana Bakın $nick Puanı 800 :) }
    if $($+(%,puansay!,$nick,!,$chan),2) == 900 { msg $chan Heyyyyyyy $nick 900 Puandasın }
    if $($+(%,puansay!,$nick,!,$chan),2) == 1000 { msg $chan ALKIŞLAR SANA PUANIN 1000 VE SANA HEDIYE VERMEK ISTERIM :d $nick | mode $chan +v $nick }
  }
}

buSTercik 03 Ocak 2012 09:59
Cevap: Puan Codlaması
 
ßeni ßir daha Reklam Etme :)

KivanC 30 Ocak 2012 22:53
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1040968914)
Kod:

on *:rawmode:#sohbet:{
  if $remove($1,o) == +a || $remove($1,o) == +o || $remove($1,o) == +q {
    set $+(%,pveyaa,.,$2) OK!
  }
  if $remove($1,o) == -a || $remove($1,o) == -o || $remove($1,o) == -q {
    unset $+(%,pveyaa,.,$2)
  }
}
on *:TEXT:*:#sohbet:{
  if $1 == !puansil {
    if $($+(%,pveyaa,.,$nick),2) {
      if $2 == $null {
        msg $chan Lütfen Puanı sıfırlanıcak nick belirtin.
        .halt
      }
      if $($+(%,puansay!,$2,!,$chan),2) == $null {
        msg $chan Bu nickin kayıtlı bi puanı yok
      }
      else {
        unset $+(%,puansay!,$2,!,$chan)
        msg $chan $2 puanları sıfırlandı.
      }
    }
  }
  if $1 == !puan {    if (%puan [ $+ [ $nick ] ]) { msg # Lutfen 20 saniye sonra tekrar deneyiniz. | return }
    set -u20 %puan [ $+ [ $nick ] ] on
    if $2 !== $null {
      msg $chan $iif($($+(%,puansay!,$2,!,$chan),2),  $2 2 $($+(%,puansay!,$2,!,$chan),2) konuşma puanın var., $2 nickinin hiç konuşma puanı yok!)
    }
    else {
      msg $chan $iif($($+(%,puansay!,$nick,!,$chan),2), $nick $($+(%,puansay!,$nick,!,$chan),2) konuşma puanın var., $nick nickinin hiç konuşma puanı yok!)
    }
  }
  else {
    inc $+(%,puansay!,$nick,!,$chan)
    if $($+(%,puansay!,$nick,!,$chan),2) == 10 { msg $chan Konuşma Puanın 10 oldu, Yürü be $nick $+ ! :D:D }
    if $($+(%,puansay!,$nick,!,$chan),2) == 25 { msg $chan Helal Sana Puanın 25 oldu Puan'ın:D $nick $+ ! }
    if $($+(%,puansay!,$nick,!,$chan),2) == 50 { msg $chan Bas Gaza $nick Bas Gaza :D:D:D | msg $nick Tebrikler! Bu seviyeli ve düzeyli sohbete devam ederseniz 200 puandan sonra  ödüllendirileceksiniz :) }
    if $($+(%,puansay!,$nick,!,$chan),2) == 100 { msg $chan $nick Devam Sohbetin Cok iyi :) } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 100 { msg $chan Konuşma Puanınız 200 oldu $nick Cok iyi Gidiyorsun :) }
    if $($+(%,puansay!,$nick,!,$chan),2) == 200 { msg $chan konuş baba konuş $nick :D }
    if $($+(%,puansay!,$nick,!,$chan),2) == 240 { msg $chan Seni tutana $nick }
    if $($+(%,puansay!,$nick,!,$chan),2) == 250 { msg $chan Yürü be kocum $nick } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 260 { msg $chan Gonzalez $nick bu hızla Kaptın 260 'ı }
    if $($+(%,puansay!,$nick,!,$chan),2) == 300 { msg $chan 300 'le gidiyorsun $nick :D }
    if $($+(%,puansay!,$nick,!,$chan),2) == 400 { msg $chan Suan Puanın 400 $nick diyecek söz yok }
    if $($+(%,puansay!,$nick,!,$chan),2) == 500 { msg $chan ne Söylenirki Sana $nick }
    if $($+(%,puansay!,$nick,!,$chan),2) == 600 { msg $chan Jet $nick Geliyor Puanı 600 }
    if $($+(%,puansay!,$nick,!,$chan),2) == 700 { msg $chan $nick Suan Puanın 3554544545565666464 oldu sanırım :DD } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 800 { msg $chan öfff Puana Bakın $nick Puanı 800 :) }
    if $($+(%,puansay!,$nick,!,$chan),2) == 900 { msg $chan Heyyyyyyy $nick 900 Puandasın }
    if $($+(%,puansay!,$nick,!,$chan),2) == 1000 { msg $chan ALKIŞLAR SANA PUANIN 1000 VE SANA HEDIYE VERMEK ISTERIM :d $nick | mode $chan +v $nick }
  }
}
MUAF nick eklemek istiyorum peki Nasıl Yaparım

NoMercy Clear cekiyor kanalda gibi

Birde Ayrı kanallarda Puan veriliyor farklı kanallardada aynı puanı vermesini istesem

SiLuet 30 Ocak 2012 23:29
Cevap: Puan Codlaması
 
Koddaki,
Kod:
inc $+(%,puansay!,$nick,!,$chan)
Kısmını
Kod:
İf !$istok(Nomercy Nick1 Nick2,$nick,32) { inc $+(%,puansay!,$nick,!,$chan)  }
Olarak değiştir Muaf Nickleri Nomercy'in yanına Ekleyebilirsin.Ayrıca Kod sadece Sohbet Kanalında Çalışır Diğer Kanallarda Puan Vermez/çalışmaz Yani.

KivanC 01 Şubat 2012 08:59
Cevap: Puan Codlaması
 
Alıntı:
SiLuet Nickli Üyeden Alıntı (Mesaj 1041015576)
Koddaki,
Kod:
inc $+(%,puansay!,$nick,!,$chan)
Kısmını
Kod:
İf !$istok(Nomercy Nick1 Nick2,$nick,32) { inc $+(%,puansay!,$nick,!,$chan)  }
Olarak değiştir Muaf Nickleri Nomercy'in yanına Ekleyebilirsin.Ayrıca Kod sadece Sohbet Kanalında Çalışır Diğer Kanallarda Puan Vermez/çalışmaz Yani.

<IBot> Konuşma Puanın 10 oldu, Yürü be NoMercy! :D:D
<IBot> Konuşma Puanın 10 oldu, Yürü be NoMercy! :D:D
<IBot> Konuşma Puanın 10 oldu, Yürü be NoMercy! :D:D
<IBot> Konuşma Puanın 10 oldu, Yürü be NoMercy! :D:D
<IBot> Konuşma Puanın 10 oldu, Yürü be NoMercy! :D:D
<IBot> Konuşma Puanın 10 oldu, Yürü be NoMercy! :D:D
<IBot> Konuşma Puanın 10 oldu, Yürü be NoMercy! :D:D

gibi Hata verdi

Codlama

PHP- Kodu:
 else { 
    if !$istok(Nomercy Ajan Nick2,$nick,32) { inc $+(%,puansay!,$nick,!,$chan)  }
    if $($+(%,puansay!,$nick,!,$chan),2) == 10 { msg $chan Konuşma Puanın 10 oldu, Yürü be $nick $+ ! :D:D } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 25 { msg $chan Helal Sana Puanın 25 oldu Puan'ın:D $nick $+ ! } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 50 { msg $chan Bas Gaza $nick Bas Gaza :D:D:D | msg $nick Tebrikler! Bu seviyeli ve düzeyli sohbete devam ederseniz 200 puandan sonra  ödüllendirileceksiniz :) } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 100 { msg $chan $nick Devam Sohbetin Cok iyi :) }  
    if $($+(%,puansay!,$nick,!,$chan),2) == 100 { msg $chan Konuşma Puanınız 200 oldu $nick Cok iyi Gidiyorsun :) } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 200 { msg $chan konuş baba konuş $nick :D } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 240 { msg $chan Seni tutana $nick } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 250 { msg $chan Yürü be kocum $nick }  
    if $($+(%,puansay!,$nick,!,$chan),2) == 260 { msg $chan Gonzalez $nick bu hızla Kaptın 260 'ı } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 300 { msg $chan 300 'le gidiyorsun $nick :D } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 400 { msg $chan Suan Puanın 400 $nick diyecek söz yok } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 500 { msg $chan ne Söylenirki Sana $nick } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 600 { msg $chan Jet $nick Geliyor Puanı 600 } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 700 { msg $chan $nick Suan Puanın 3554544545565666464 oldu sanırım :DD }  
    if $($+(%,puansay!,$nick,!,$chan),2) == 800 { msg $chan öfff Puana Bakın $nick Puanı 800 :) } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 900 { msg $chan Heyyyyyyy $nick 900 Puandasın } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 1000 { msg $chan ALKIŞLAR SANA PUANIN 1000 VE SANA HEDIYE VERMEK ISTERIM :d $nick | mode $chan +v $nick } 
  }
} 
Bu şekilde eklemistim

Paint 01 Şubat 2012 11:52
Cevap: Puan Codlaması
 
Alıntı:
Sky-bLue Nickli Üyeden Alıntı (Mesaj 1041016830)
<IBot> Konuşma Puanın 10 oldu, Yürü be NoMercy! :D:D
<IBot> Konuşma Puanın 10 oldu, Yürü be NoMercy! :D:D
<IBot> Konuşma Puanın 10 oldu, Yürü be NoMercy! :D:D
<IBot> Konuşma Puanın 10 oldu, Yürü be NoMercy! :D:D
<IBot> Konuşma Puanın 10 oldu, Yürü be NoMercy! :D:D
<IBot> Konuşma Puanın 10 oldu, Yürü be NoMercy! :D:D
<IBot> Konuşma Puanın 10 oldu, Yürü be NoMercy! :D:D

gibi Hata verdi

Codlama

PHP- Kodu:
 else { 
    if !$istok(Nomercy Ajan Nick2,$nick,32) { inc $+(%,puansay!,$nick,!,$chan)  }
    if $($+(%,puansay!,$nick,!,$chan),2) == 10 { msg $chan Konuşma Puanın 10 oldu, Yürü be $nick $+ ! :D:D } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 25 { msg $chan Helal Sana Puanın 25 oldu Puan'ın:D $nick $+ ! } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 50 { msg $chan Bas Gaza $nick Bas Gaza :D:D:D | msg $nick Tebrikler! Bu seviyeli ve düzeyli sohbete devam ederseniz 200 puandan sonra  ödüllendirileceksiniz :) } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 100 { msg $chan $nick Devam Sohbetin Cok iyi :) }  
    if $($+(%,puansay!,$nick,!,$chan),2) == 100 { msg $chan Konuşma Puanınız 200 oldu $nick Cok iyi Gidiyorsun :) } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 200 { msg $chan konuş baba konuş $nick :D } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 240 { msg $chan Seni tutana $nick } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 250 { msg $chan Yürü be kocum $nick }  
    if $($+(%,puansay!,$nick,!,$chan),2) == 260 { msg $chan Gonzalez $nick bu hızla Kaptın 260 'ı } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 300 { msg $chan 300 'le gidiyorsun $nick :D } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 400 { msg $chan Suan Puanın 400 $nick diyecek söz yok } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 500 { msg $chan ne Söylenirki Sana $nick } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 600 { msg $chan Jet $nick Geliyor Puanı 600 } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 700 { msg $chan $nick Suan Puanın 3554544545565666464 oldu sanırım :DD }  
    if $($+(%,puansay!,$nick,!,$chan),2) == 800 { msg $chan öfff Puana Bakın $nick Puanı 800 :) } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 900 { msg $chan Heyyyyyyy $nick 900 Puandasın } 
    if $($+(%,puansay!,$nick,!,$chan),2) == 1000 { msg $chan ALKIŞLAR SANA PUANIN 1000 VE SANA HEDIYE VERMEK ISTERIM :d $nick | mode $chan +v $nick } 
  }
} 
Bu şekilde eklemistim
Nomercy inin 10 puanı olduğu için her yazdığında
if $($+(%,puansay!,$nick,!,$chan),2) == 10 { msg $chan Konuşma Puanın 10 oldu, Yürü be $nick $+ ! :D:D }

Bu satırı işleme sokuyor büyük ihtimal Variables bölümünden Nomercyinin puanını kaldırırsan veya /unset %puansay!Nomercy* veya /inc %puansay!Nomercy!#sohbet .

Narsinha 01 Şubat 2012 12:25
Cevap: Puan Codlaması
 
/unset %puansay!Nomercy!#sohbet

yapması gerekiyor.

desdek 12 Nisan 2012 04:07
Cevap: Puan Codlaması
 
Dostum bu Puan olayını siteye nasil yansıtırım acaba

Kablosuz NET 11 Ekim 2015 09:25
Cevap: Puan Codlaması
 
Konuyu hortlatıcam ama puan bilgilerini txt dosyasında tutacak şekilde nasıl düzenleriz.


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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk