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

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - !hediye Yolla Addonu Yardım (https://www.ircforumlari.net/mirc-scripting-sorunlari/701953-hediye-yolla-addonu-yardim.html)

!hediye Yolla Addonu Yardım

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..

Cevap: !hediye Yolla Addonu Yardım

Puan kodlarını da verirmisin.

Cevap: !hediye Yolla Addonu Yardım

Alıntı:

Toprak Nickli Üyeden Alıntı (Mesaj 1041684878)

Puan kodlarını da verirmisin.

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

Kod:

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

}

Cevap: !hediye Yolla Addonu Yardım

Kod:

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:

[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.

Cevap: !hediye Yolla Addonu Yardım

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 :(

Cevap: !hediye Yolla Addonu Yardım

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

Cevap: !hediye Yolla Addonu Yardım

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

Cevap: !hediye Yolla Addonu Yardım

Kod:

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...