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

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

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

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

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 ?

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

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

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

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

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

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

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