[Smith]

Merhaba arkadaşlar ben bir addon hakkında yardımınızı istiyorum kanal genelinde !hediye nick yazdığımızda belirli hediyeler yolluycak atıyorum araba oyuncak ayı vs gibi ve yolladıkcada puanından 10 puan 100 puann şeklide mesaj ile düşücek nasıl yapabilirim yardımcı olurmusunuz..

[Toprak]

Puan kodlarını da verirmisin.

[Smith]

Toprak Nickli Üyeden Alıntı Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Puan kodlarını da verirmisin.

Bu kod var ama beraber çalışırmı bilemem usta.

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

on *:text:*:#:{
  if $1 == !puan { 
    if ($2 == list) { top10 | goto t0p10 }
    elseif !$read(puan.txt,w,$+(*,$2,*)) { msg $chan $2 puan listesinde yok }
    if $2 == $me { msg # $+($nick,:) Benim puanmımı boşver, sen sohbetine bak. | goto t0p10 }
    elseif ($2 == $nick && $read(puan.txt,w,$+(*,$2,*))) { msg $chan $read(puan.txt,$readn) puanın var | goto t0p10 }
  }
  if !$read(puan.txt,w,$+(*,$nick,*)) { write puan.txt $nick 100 | halt } 
  else { 
    var %dify $readn 
    var %yeah = $calc($token($read(puan.txt,%dify),2,32) +1) 
    write $+(-l,%dify) puan.txt $nick %yeah 
    if %yeah == 1000 { mode $chan +v $nick | msg $chan Tebrikler $nick 1.000 puanın oldu }
  }
  :t0p10
}
alias top10 {
  var %cnk = @dify, %hit = 10, %e = puan.txt, %top10 = 1
  window -hn %cnk
  filter -fwcteu 2 32 %e %cnk
  msg # 7,17,1 14«15««7 Turkiye Kanalında En Cok Konusma Puanına Sahip Olan 10 Kişi: 15»»14»
  while %top10 <= %hit { msg # 12 $ord(%top10) $line(%cnk,%top10) | inc %top10 } 
  window -c %cnk
}

[SuLh]

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

on *:text:*:#: {
  if $regex($1,/^([!.]hed[iİı]ye)/Si) {
    var %hediyelist kalem silgi at ayı
    var %kalem 10
    var %at 15
    var %ayı 20
    if $2 == bilgi {  msg $chan Hediye kullanımı. " !hediye gönder nick Hediye " | msg $chan Hediye listesi: kalem, silgi, at, ayı | return }
    if $regex($2,/^(g[öÖo]nder)$/Si) {
      var %puans $gettok($read(puan.txt,$nick $+ *),2,32)
      if $3 !ison $chan { msg $chan " $3 " nicki kanalda bulunmuyor. | return }
      if !$read(puan.txt,w,$nick $+ *) { msg $chan " $nick " henüz puanınız bulunmamaktadır.  | return }
      var %s $gettok($read(puan.txt,w,$nick $+ *),2,32)
      if (%s < 10) { msg $chan " $nick " Hediye göndermek için puanınız çok düşük. | return }
      if $4 == at  { 
        if ($gettok($read(puan.txt,,w,$nick $+ *),2,32) < %at) { msg $chan " $nick " at göndermek için yeterli puanınız yok. }
        else { msg $chan " $nick " , " $3 " nickine 4at gönderdi. | var %puansil $calc($gettok($read(puan.txt,w,$nick $+ *),2,32) - %at) | write -l $+ $read(puan.txt,$nick $+ *) puan.txt $nick %puansil }
      }
      if $4 == kalem  { 
        if ($gettok($read(puan.txt,w,$nick $+ *),2,32) < %kalem) { msg $chan " $nick " kalem göndermek için yeterli puanınız yok. }
        else { msg $chan " $nick " , " $3 " nickine 4kalem gönderdi. | var %puansil $calc($gettok($read(puan.txt,w,$nick $+ *),2,32) - %kalem) | write -l $+ $read(puan.txt,$nick $+ *) puan.txt $nick %puansil }
      }
      if $4 == ayı  { 
        if ($gettok($read(puan.txt,w,$nick $+ *),2,32) < %ayı) { msg $chan " $nick " ayı göndermek için yeterli puanınız yok. }
        else { msg $chan " $nick " , " $3 " nickine 4ayı gönderdi. | var %puansil $calc($gettok($read(puan.txt,w,$nick $+ *),2,32) - %ayı) | write -l $+ $read(puan.txt,$nick $+ *) puan.txt $nick %puansil }
      }
    }
  }
}

Gerekli yerleri düzenlersiniz.

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

[18:28] <alsana> !hediye bilgi
[18:28] <SuLh> Hediye kullanımı. " !hediye gönder nick Hediye "
[18:28] <SuLh> Hediye listesi: kalem, silgi, at, ayı
[18:28] <alsana> !hediye gönder Asdas kalem
[18:28] <SuLh> " Asdas " nicki kanalda bulunmuyor.
[18:30] <alsana> !hediye gönder SuLh at
[18:30] <SuLh> " alsana " , " SuLh " nickine at gönderdi.

[Emir42]

slm
!hediye nick
böle bişey istiyom puansiz
nasıl yapabilirim
tşkler şimdiden
ben çok ugraştım ama (hediye.txt) dosyasını görmedi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

[aLone]

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

[Emir42]

puanlı veriyo abi puan olamsın bdie gönder olamsın sadce
!hediye ncik yazınca hediye versin

[aLone]

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

on *:text:*:#:{
  if $regex($1,/^[.!]hed[ıi]ye$/Si) {
    if (!$2) { msg $chan $nick 5NICK 1belirtmediniz kullanımı örn; 5< !hediye nick > | return }
    if ($2 !ison #) { msg $chan 1 $qt($nick) $+(<,$2,>) 1 $chan  1kanalında bulunmamaktadır. | return }
    if $hget(hediye,$nick) { .notice $nick 1 Dakika içersinde, Yalnız 1 defa [!]hediye Komutunu Kullanabilirsiniz. }
    else {
      msg $chan 4 $2: 2 $nick 1 Size Hediye olarak, 5 $read(hediye.txt) 1Gönderdi 
      .hinc -msu60 hediye $nick
    }
  }
}

hinc -msu60 buradaki 60 saniyedir kendine göre ayarlarsın..
hediye.txt adında bir metin belgesinin içine... alt alta
ev
araba
telefon
ayakkabı
pırlanta
vs vs gibi eklersin...