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/)

- - !login !puan v.s. bot komutları... (https://www.ircforumlari.net/mirc-scripting-sorunlari/6800-login-puan-vs-bot-komutlari.html)

NeLix

22 Ağustos 2005 22:26

!login !puan v.s. bot komutları...

mesala benim botuma registerli ßir nick geldi kendini !login ledi sonra kanalda kaç saat online olduğuna bakacam !puan dediğim zaman nasıl olacak o ßir yardım edecek olan var mı ?

erdem55

23 Ağustos 2005 00:21

nelix sen şimdi adamın kanalda kalma süresine göre puanlama mı yapmak istiyosun yoksa yanlışmı anladım. Valla ne yalan sölim yardım etmeyi istiyorum ama bunu nasıl ayarlıcamı bilmiyorum. Koder arkadaşlara yine iş düştü:)

NeLix

23 Ağustos 2005 14:58

Evet !puan dediğim !login olan nicklerin kaç saat online olduklarına bakacam nasıl yapacaz onu ?

WhaLberg

23 Ağustos 2005 21:04

NeLix amacın ne bilmiyorum ama senin yardım edilmesi yönünde bir ileti göndermen yeterli. Üç taneye ne gerek var? Sabretmeyi öğrenmeli.

NeLix

23 Ağustos 2005 21:15

sende haklısın whaLberg özür diler..

aSii_GeNc

23 Ağustos 2005 22:05

Walla herhalde bi kanal olayı yok..
Biraz karışık kod yazarım ama çalışır :)

PHP- Kodu:

   on 10*:text:*:?: {
if ($ulevel == 101) {
;Burda master başlıyor..
    if ($1 == !ekle) && $2 {
     .auser 100 $2
     .notify $2
     msg $nick $2 Eklendi!
    }
    if ($1 == !sil) && $2 {
     .ruser 100 $2
     .notify -r $2
     unset $+(%,*,$2)
     msg $nick $2 Silindi!
    }
 
    if ($1 == !puan) {
     if ($2) {
        if (!$($+(%,login.,$2),2)) {
         if ($($+(%,online.,$2),2)) {
            msg $nick $2 online gözüküyor ama login olmadı!
            msg $nick $2 Toplam onLine Süresi $duration($($+(%,toplam.,$2),2),2)
         }
         else { msg $nick $2 Şu an offline $($+(%,online.,$nick),2) }
        }
        else {
         msg $nick $2 Şu anki onLine Süresi $duration($calc($ctime - $($+(%,login.,$2),2)),2)
         msg $nick $2 Toplam onLine Süresi $duration($calc($($+(%,toplam.,$2),2) + ($ctime - $($+(%,login.,$2),2))),2)
        }
     }
     else {
        msg $nick --- Listeleniyor ----
        var %i = $ulist(*,100,0)
        while %i {
         %n = $gettok($ulist(*,100,%i),1,42)
         msg $nick Nick: %n Puan: $duration($($+(%,toplam.,%n),2),2) Durum: $iif($($+(%,online.,%n),2),Online Login: $iif($($+(%,login.,%n),2),$duration($calc($ctime - $($+(%,login.,%n),2)),2),Login oLmamış! ),Offline)
         dec %i
        }
        msg $nick ----- Son ------
        msg $nick Ayrıntı için "!puan nick"
     }
    }
 
}
;master sonu
else {
;user başlangıcı
    if ($1 == !Login) {
     if ($($+(%,login.,$nick),2)) { msg $nick Zaten Loginsiniz! }
     else { msg $nick Login oLdunuz! }
     set $($+(%,login.,$nick),1) $ctime
    }
    if ($1 == !Puan) {
     msg $nick Puan: $duration($($+(%,toplam.,$nick),2),2)
    }
}
;user sonu
}
on 100:NOTIFY: { set $($+(%,online.,$nick),1) on }
on 100:UNOTIFY: {
if ($($+(%,login.,$nick),2)) {
    set $($+(%,toplam.,$nick),1) $calc($($+(%,toplam.,$nick),2) + ($ctime - $($+(%,login.,$nick),2)))
}
unset $($+(%,login.,$nick),1)
unset $($+(%,online.,$nick),1)
}

Özellikleri:
1. Level Sistemi ile çalışır
2. 100 User
3. 101 Masterdır.
4. Kişi online olur login olur,olmaz bunları ayrıntılar.
5. Toplam ve o an online olduğu süreyi görebilirsin..

Master Özellikleri:
!puan "Bütün Nicklerin Puanlarını Listeler"
!puan nick " Sadece o nickin puanını listeler"
!ekle nick "Nick ekler"
!sil nick "nick siler"

User özellikleri
!login "login olur"
!puan "kendi puanını öğrenir"

Not: Kodların yanlarına açıklamalar yaptım eklenecek birşeyler olursa ekleriz :D
Hataları yazmadım nick bulunamadı v.s. kod zaten kalabalık

erdem55

23 Ağustos 2005 22:24

<delisin> !login
<erdem55> Zaten Loginsiniz!
<delisin> !puan
<erdem55> Puan:

bi sorun var ama çözemedim puan vermiyor

NeLix

23 Ağustos 2005 22:24

zaten bende !login olayı var benim istediğim benim %loginnick ßölümünde olanlarrın !puan diyince online sürelerine bakmak ßunu nasıl yapacaız _

erdem55

23 Ağustos 2005 22:36

online süresine mi bakmak yani adamın kanalda bota login olmasına gerek yok diyosun. o zaman raw ları kullan. Online süresine göre salla kafadan bi puan eklesin:) yanlışmı söyledim arkadaşlar.
Raw numaralarından online süresine denk gelen raw a bak o numara üzerinden hareket et bence Şimdi erdem abi yardım et deme inan bende mantık yürütüyorum. Yapabilirmiyim inan bilmiyorum artı nişanlım rahatsız bu aralar fazla kodlara girmiyorum. İnş mantık olarak yardım etmişimdir

NeLix

23 Ağustos 2005 22:40

saol mantık olarak sen yardım ettin ama bende mantık olmadığı için algılayamadım :)

NeLix

23 Ağustos 2005 23:06

on 10*:text:*:?: {
if ($1 == !puan) {
if ($2) {
if (!$($+(%,login.,$2),2)) {
if ($($+(%,online.,$2),2)) {
msg $nick $2 online gözüküyor ama login olmadı!
msg $nick $2 Toplam onLine Süresi $duration($($+(%,toplam.,$2),2),2)
}
else { msg $nick $2 Şu an offline $($+(%,online.,$nick),2) }
}
else {
msg $nick $2 Şu anki onLine Süresi $duration($calc($ctime - $($+(%,login.,$2),2)),2)
msg $nick $2 Toplam onLine Süresi $duration($calc($($+(%,toplam.,$2),2) + ($ctime - $($+(%,login.,$2),2))),2)
}
}
else {
msg $nick --- Listeleniyor ----
var %i = $ulist(*,100,0)
while %i {
%n = $gettok($ulist(*,100,%i),1,42)
msg $nick Nick: %n Puan: $duration($($+(%,toplam.,%n),2),2) Durum: $iif($($+(%,online.,%n),2),Online Login: $iif($($+(%,login.,%n),2),$duration($calc($ctime - $($+(%,login.,%n),2)),2),Login oLmamış! ),Offline)
dec %i
}
msg $nick ----- Son ------
msg $nick Ayrıntı için "!puan nick"
}
}

}
;master sonu
else {
;user başlangıcı
if ($1 == !Login) {
if ($($+(%,login.,$nick),2)) { msg $nick Zaten Loginsiniz! }
else { msg $nick Login oLdunuz! }
set $($+(%,login.,$nick),1) $ctime
}
if ($1 == !Puan) {
msg $nick Puan: $duration($($+(%,toplam.,$nick),2),2)
}
}
;user sonu
}
on 100:NOTIFY: { set $($+(%,online.,$nick),1) on }
on 100:UNOTIFY: {
if ($($+(%,login.,$nick),2)) {
set $($+(%,toplam.,$nick),1) $calc($($+(%,toplam.,$nick),2) + ($ctime - $($+(%,login.,$nick),2)))
}
unset $($+(%,login.,$nick),1)
unset $($+(%,online.,$nick),1)
}

şöyle ßir şey yapmam mümlün olur mu acaßa denicem ama e-kolaydan banlıyım ..

aSii_GeNc

23 Ağustos 2005 23:18

ilk önce ekli olmalı Master
/auser 101 masternick
ondan sonra masternick !ekle nick olarak user eklemeli sonra çalışır..
Herşeyi ayrıntısına kadar anlatmayalım arkadaşlar biraz tahmin edin :D

NeLix

23 Ağustos 2005 23:22

asii_Genc ağßi senden ßir ricam olsa ßu /auser 101 masternick ve !ekle nick eklemeden sadece variables ßölümünde %loginnick Nick şeklinde ekli olunca çalışsa onu yapaßilir miyiz ?

erdem55

23 Ağustos 2005 23:28

Alıntı:

erdem55 Nickli Üyeden Alıntı

<delisin> !login
<erdem55> Zaten Loginsiniz!
<delisin> !puan
<erdem55> Puan:

bi sorun var ama çözemedim puan vermiyor

gözden kaçtı sanırım puanları söylemiyor

goXXip

24 Ağustos 2005 11:04

Ben bir kod yazdım ama çalışıp çalışmadığından emin değilim. Eğer çalışmazsa akşama düzenler, yarın yeniden yollarım...

PHP- Kodu:

   alias _calc {
  if (!$hget(calc)) hmake calc 10
   if ($gettok($2,1,58) > $gettok($1,1,58)) return
   if ($gettok($1,1,58) > 23 || $gettok($2,1,58) > 23) return
   hadd calc top1 $calc($gettok($1,1,58) * 3600 + $gettok($1,2,58) * 60 + $gettok($1,3,58))
   hadd calc top2 $calc($gettok($2,1,58) * 3600 + $gettok($2,2,58) * 60 + $gettok($2,3,58))
   
   hadd calc gun $calc($gettok($3,1,47) - $gettok($4,1,47))
   hadd calc fark $calc($hget(calc,top1) - $hget(calc,top2))
   if $hget(calc,fark) >= 3600 {
     hadd calc saat 1
     :loop
     hadd calc fark $calc($hget(calc,fark) - 3600)
     if $hget(calc,fark) >= 3600 { hinc calc saat | goto loop }
   }
   else { hadd calc saat 0 }
   if $hget(calc,fark) >= 60 {
     hadd calc dakika 1
     :loop2
     hadd calc fark $calc($hget(calc,fark) - 60)
     if $hget(calc,fark) >= 60 { hinc calc dakika | goto loop2 }
   }
   else { hadd calc dakika 0 }
   return $hget(calc,gun) Gün, $hget(calc,saat) Saat, $hget(calc,dakika) dakika, $hget(calc,fark) Saniye
   hfree calc
}
alias puan { return $calc($gettok($1,1,32) * 1440 + $gettok($1,3,32) * 24 + $gettok($1,5,32)) }
on *:TEXT:*:?: {
  if $nick == admin {
    if $1 == !istatistikler {
      var %avril = 1
      while %avril <= $hget(ist,0).item {
        _linedance msg $nick $hget(ist,%avril).data
        inc %avril
      }
    }
  }
  if (!$hget(login)) hmake login 100
  if $1 == !login {
    if $nick ison #mychan {
      if ($hget(login,$nick)) .msg $nick Zaten Login Oldunuz!
      else { 
        hadd login $nick $time $date 
        .msg $nick Hoş Geldiniz, $nick $+ . Login Olduğunuz Saat: $time Tarih: $date 
      }
    }
  }
  elseif $1 == !puan {
    if $nick ison #mychan {
      if (!$hget(login,$nick)) .msg $nick Login Olmamışsınız!..
      else {
        .msg $nick Şu an ki Online Süreniz: $_calc($gettok($hget(login,$nick),1,32),$time,$gettok($hget(login,$nick),2,32),$date)
        .msg $nick Buna göre puanınız: $puan($_calc($gettok($hget(login,$nick),1,32),$time,$gettok($hget(login,$nick),2,32),$date))
      }
    }
  }
  elseif $1 == !logout {
    if $hget(login,$nick) {
      hadd ist $r(0,99999999) $nick $puan($gettok($hget(login,$nick),1,32),$time,$gettok($hget(login,$nick),2,32),$date))
      hsave ist ist.data 
      hdel login $nick
      if (!$hget(login,$nick)) .msg $nick Başarı ile Logout oldunuz
      else .msg $nick Logout İşlemi Sırasında bir hata oluştu
    }
    else .msg $nick Zaten Login değilsiniz.
  }
}
on *:PART:#mychan: { 
  if $hget(login,$nick) {
    hdel login $nick 
    .msg $nick Otomatik Logout!..
    hadd ist $r(0,99999999) $nick $puan($_calc($gettok($hget(login,$nick),1,32),$time,$gettok($hget(login,$nick),2,32),$date))
    hsave ist ist.data
  }
}
on *:START: {
  if !$findfile($mircdir,ist.data,1) { hmake ist 100 | hsave ist ist.data }
  else { hmake ist | hload ist ist.data }
}

goXXip

24 Ağustos 2005 11:06

Bu kodda bir iki açıklama yapayım.

1- Online Süresinde Dakika başına bir puan verir
2- #mychan yerine Kendi kanalını yazacaksınız
3- $nick == admin 'daki "admin" yerine botu kullanacak kişinin nicki yazılmalı...

aSii_GeNc

24 Ağustos 2005 12:23

PHP- Kodu:

    
on 10*:text:*:?: {
if ($ulevel == 101) {
    if ($1 == !puan) {
     if ($2) {
        if (!$($+(%,login.,$2),2)) {
         if ($($+(%,online.,$2),2)) {
            msg $nick $2 online gözüküyor ama login olmadı!
            msg $nick $2 Toplam onLine Süresi $puan($2).toplam
         }
         else { msg $nick $2 Şu an offline }
        }
        else {
         msg $nick $2 Şu anki onLine Süresi $puan($2).puan
         msg $nick $2 Toplam onLine Süresi $puan($2).toplam
        }
     }
     else {
        msg $nick --- Listeleniyor ----
        var %i = $ulist(*,100,0)
        while %i {
         %n = $gettok($ulist(*,100,%i),1,42)
         msg $nick Nick: %n Puan: $puan(%n).toplam Durum: $iif($($+(%,online.,%n),2),Online Login: $iif($($+(%,login.,%n),2),$puan(%n).puan,Login oLmamış! ),Offline)
         dec %i
        }
        msg $nick ----- Son ------
        msg $nick Ayrıntı için "!puan nick"
     }
    }
 
}
else {
    if ($1 == !Login) {
     if ($($+(%,login.,$nick),2)) { msg $nick Zaten Loginsiniz! }
     else { msg $nick Login oLdunuz! }
     set $($+(%,login.,$nick),1) $ctime
    }
    if ($1 == !Puan) {
     msg $nick Toplam: $puan($nick).toplam Şu anki Puan: $puan($nick).puan
    }
}
}
on 100:NOTIFY: { set $($+(%,online.,$nick),1) on }
on 100:UNOTIFY: {
if ($($+(%,login.,$nick),2)) {
    set $($+(%,toplam.,$nick),1) $calc($($+(%,toplam.,$nick),2) + ($ctime - $($+(%,login.,$nick),2)))
}
unset $($+(%,login.,$nick),1)
unset $($+(%,online.,$nick),1)
}
alias puan {
if $prop == puan {
    if ($($+(%,login.,$1),2)) {
     return $duration($calc($ctime - $($+(%,login.,$1),2)),2)
    }
    else { return 0secs }
}
if $prop == toplam {
    set $($+(%,toplam2.,$1),1) $calc($($+(%,toplam.,$1),2) + $iif($($+(%,login.,$1),2),$calc($ctime - $($+(%,login.,$1),2)),0))
    if (!$($+(%,toplam2.,$1),2)) { var %2 = 1 }
    else { var %2 = $($+(%,toplam2.,$1),2) }
    return $duration(%2,2)
}
}

Tekrar düzenledim. Puanlama yok dakikasını snysini gösterir.
Puanlama görüldüğü gibi "puan" identifier inda. Değişiklikleriniz $duration kısmında yapabilirsiniz...

Kod:

 

[12:19] <DarkLord> !login

[12:19] <asd> Login oLdunuz!

[12:19] <DarkLord> !puan

[12:19] <asd> Toplam: 30mins Şu anki Puan: 7secs

Kod:

[12:20] <aSii_GeNc> !ekle DarkPrinCe

[12:20] <asd> DarkPrinCe Eklendi!

[12:20] <aSii_GeNc> !puan

[12:20] <asd> --- Listeleniyor ----

[12:20] <asd> Nick: DarkPrinCe Puan: 1sec Durum: Offline

[12:20] <asd> Nick: DarkLord Puan: 32mins Durum: Online Login: 1min

[12:20] <asd> ----- Son ------

[12:20] <asd> Ayrıntı için "!puan nick"

[12:20] <aSii_GeNc> !puan DarkLord

[12:20] <asd> DarkLord Şu anki onLine Süresi 1min

[12:20] <asd> DarkLord Toplam onLine Süresi 32mins

[12:21] <aSii_GeNc> !puan DarkPrince

[12:21] <asd> DarkPrince Şu an offline

Bir kanal olayı varsa.
on 100:NOTIFY: kısmını on 100:join:#kanal:
on 100:UNOTIFY kısmını on 100:part:#kanal:
değiştirebilirsin...

djiNn

24 Ağustos 2005 13:08

eLine Sağlık Asii_Genc :) Inşallah Senin Bu Yazdıklarını Kendim Yazdım Diye Övünen Olmaz :) Veya Yazacam Diye Kandırmaya Çalışan :DDDDDDDDDDDDD aehuaeh

aSii_GeNc

24 Ağustos 2005 16:24

Ben kimse adımı duysun diyerek bunu yapmıyorum :)
Kullananı görürsem bu beni sevindirir.
Zaten söylemişin işte çalan anca kendini kandırır...

Spectral

18 Haziran 2007 05:35

Cevap: !login !puan v.s. bot komutları...

aradan Çok Zaman Geçmiş Ama Bilen Birisi Cevap Verir Umarım

Ben Bunun Sürelisinin Türkçesini Ve @ Kanalında !durum yazdığım Zaman Bot O An @ Kanalında Olanların Toplam Kanalda Ne Kadar Durduklarını Yazacak

[12:19] <DarkLord> !puan
[12:19] <asd> Toplam: 30mins Şu anki Puan: 7secs

Bunun !durum Yazacam

Bot
x nick = 1 saat
y nick = 10 dk
Toplam o Güne Kadar Kaç Dakka Saat Durduysa

Bide Login Olma Gibi Bİşi Olmıcak Sadece Ben Kullanacam Ve O An Kanalda Olanların

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