Away idle Hakkinda Yardim. - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

tengri · 14 Haziran 2006, 14:10

öncelikle herkeze merhaba arkadaslar.
Takildigim bir konu hakkinda sizden yardim almak istedim..
Merak ettigim konu su.
Ben: /Away (Mesajım)
Yaptıgım zaman...

Tengi Meşgul Durumu: (Mesajım) **(AwaySüresi)**
Away mesajımın sonunda away süremin yazmasını istiyorum.
Ancak Away mesajı 5dk.da bir otomatik artıcak. Yani.
Ben Sadece /Away (Mesajım) yapıcam ve o kendisi aşağıdaki gibi..

Tengi Meşgul Durumu: (Mesajım) (5mins)
Tengi Meşgul Durumu: (Mesajım) (10mins)
Tengi Meşgul Durumu: (Mesajım) (15mins)
Tengi Meşgul Durumu: (Mesajım) (20mins)
.
.
.
.
gibi gidicek..
Tengi Meşgul Durumu: (Mesajım) (1hr 5mins)
Tengi Meşgul Durumu: (Mesajım) (1hr 10min)
.
.
Tengi Meşgul Durumu: (Mesajım) (2hrs 5min)

Olarak gitmesini istiyorum eğer yardımcı olursanız cok teşekkür ederim
Hepinize başarılar..

14 Haziran 2006, 14:21

Alıntı:

on *:Load:{
set %awaymsg
set %%awaytxt
set %%atimermsg 10
set %nicka [aWaY]
set %nickn $me
set %nickb [bUsY]
mkdir away
write $shortfn(away) $+ \privatelog.log
//echo -a Away System Loaded
//echo -a Please configure it from your MenuBar.
//echo -a If you have any suggestions email me at
//echo -a
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

//echo -a If you need help type /run readme.txt
}
on *:INPUT:*: {
if (($1 == /away) && ($2- != $null)) {
set %atime $asctime(hh:nn)
set %awaymsg $?!:"Say public that you'r away ?"
if (%awaymsg == $false) { }
if (%awaymsg == $true) { /ame is away. Left chat at %atime $+ . Reason: $2- }
}
if (($1 == /away) && ($2- == $null)) {
set %awaymsg $?!:"Say public that you'r back ?"
if (%awaymsg == $false) { }
if (%awaymsg == $true) { /ame is back. I was away since %atime Reason $awaymsg }
set %atime
}
}
on *:Text:*:?: {
if ($away == $true) {
notice $nick $me is away. Your messages will be logged.
write $shortfn(away) $+ \privatelog.log < $+ $asctime(hh:nn) $+ > < $+ $nick $+ > $1-
halt
}
}
dialog ckaway {
title "AwaySystem"
size -1 -1 357 209
box "Private log", 7, 191 1 159 79
box "Set your status", 6, 5 1 160 79
button "Set Away", 1, 13 16 66 24
button "Set Back", 2, 93 33 64 24
button "Set Busy", 3, 13 50 66 24
button "Ok", 5, 244 180 65 25, ok
button "Read Log", 8, 199 16 65 25
button "Delete Log", 9, 276 16 65 25
box "Configure Away System", 10, 5 87 159 85
button "Normal Nick", 4, 13 107 65 25
button "Away Nick", 11, 93 107 65 25
button "Busy Nick", 12, 13 141 65 25
text "Coded by: ColdKeyboard", 15, 211 132 121 17
link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
16, 223 147 101 17
}

on 1:dialog:ckaway:sclick:1: {
set %awaytxt $?:"Reason?:"
if (%awaytxt == $null) { set %awaytxt NotSpecified }
set %atime $asctime(hh:nn)
set %awaymsg $?!:"Say public that you are away ?"
if (%awaymsg == $false) { }
if (%awaymsg == $true) { /ame is away. Left chat at %atime $+ . Reason: %awaytxt }
if (%atimermsg == $null) { set %atimermsg $$?:"Say that you'r away every ?? (min):" }
timeraway 0 $calc(%atimermsg * 60.0000.) /ame is away Left chat at %atime $+ . Reason: %awaytxt
away %awaytxt
if (%nicka isin $me) { nick %nickn $+ %nicka | halt }
if (%nickb isin $me) { nick %nickn $+ %nicka | halt }
nick $me $+ %nicka
halt
}
on 1:dialog:ckaway:sclick:2: {
set %awaytxt
set %awaymsg $?!:"Say public that you are back ?"
if (%awaymsg == $false) { }
if (%awaymsg == $true) { /ame is back. I was away since %atime Reason %awaytxt }
timeraway off
away
set %atime
if (%nickb isin $me) { nick %nickn | halt }
if (%nicka isin $me) { nick %nickn | halt }
halt
}
on 1:dialog:ckaway:sclick:3: {
set %awaytxt $?:"Reason?:"
if (%awaytxt == $null) { set %awaytxt NotSpecified }
set %atime $asctime(hh:nn)
set %awaymsg $?!:"Say public that you are busy ?"
if (%awaymsg == $false) { }
if (%awaymsg == $true) { ame busy since %atime $+ . Reason: %awaytxt }
timeraway 0 $calc(%atimermsg * 60.0000.) /ame is busy since %atime $+ . Reason: %awaytxt
away %awaytxt
if (%nickb isin $me) { nick %nickn $+ %nickb | halt }
if (%nicka isin $me) { nick %nickn $+ %nickb | halt }
halt
}
on 1:dialog:ckaway:sclick:8: {
window -ak0 @PrivateLog
aline @PrivateLog 15,1**** Privet Log Start ****
loadbuf @PrivateLog $shortfn(away) $+ \privatelog.log
aline @PrivateLog 15,1**** Private Log End ****
}
on 1:dialog:ckaway:sclick:9: {
write -c $shortfn(away) $+ \privatelog.log
write $shortfn(away) $+ \privatelog.log
write $shortfn(away) $+ \privatelog.log LogCleared at : $time - $date
write $shortfn(away) $+ \privatelog.log
echo -a Log Cleared at : $time - $date
}
on 1:dialog:ckaway:sclick:11: {
set %nicka $$?:"Please input the away nick extension e.g. [Away]"
echo -a Away nick extension changed to %nicka
echo -a Your away nick will look like $me $+ %nicka
}
on 1:dialog:ckaway:sclick:12: {
set %nickb $$?:"Please input the busy nick extension e.g. [Busy]"
echo -a Away nick extension changed to %nickb
echo -a Your away nick will look like $me $+ %nickb
}
on 1:dialog:ckaway:sclick:4: {
set %nickn $$?:"Please input your normal nick"
echo -a Away nick extension changed to %nickn
echo -a Your away nick will look like %nickn
}
menu menubar {
AwaySys
.SetAway:{
set %awaytxt $?:"Reason?:"
if (%awaytxt == $null) { set %awaytxt NotSpecified }
set %atime $asctime(hh:nn)
set %awaymsg $?!:"Say public that you'r away ?"
if (%awaymsg == $false) { }
if (%awaymsg == $true) { /ame is away. Left chat at %atime $+ . Reason: %awaytxt }
if (%atimermsg == $null) { set %atimermsg $$?:"Say that you'r away every ?? (min):" }
timeraway 0 $calc(%atimermsg * 60.0000.) /ame is away Left chat at %atime $+ . Reason: %awaytxt
away %awaytxt
}
.SetBack:{
set %awaytxt
set %awaymsg $?!:"Say public that you'r back ?"
if (%awaymsg == $false) { }
if (%awaymsg == $true) { /ame is back. I was away since %atime Reason %awaytxt }
timeraway off
away
set %atime
}
.SetTimeMsg:{
set %atimermsg $$?:"Every ? (min) ?:"
if ($away == true) {
timeraway 0 $calc(%atimermsg * 60.0000.) /ame is away Left chat at %atime $+ . Reason: %awaytxt
halt
}
}
}
menu Channel,status, {
AwaySystem:/dialog -rm ckaway ckaway
}

Forumdan Alıntıdır..

Alt+R Yapıp Remote'ye Eklerseniz

AwaySystem Diye Bir Eklenti Cıkacak

Burdan Gerekli Ayarlamalarınızı Yapabilirsiniz

Umarım işinize yarar..

tengri · 14 Haziran 2006, 14:52

tesekkur ederim ilgilendigin icin ama away mesajinin sonunda away zamanını yazmıyor
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

14 Haziran 2006, 14:55

Forumu biraz araştırırsan istedigin gibi birşey bulursun...

tengri · 14 Haziran 2006, 15:06

üzgünüm tüm sayfalara baktım aradığım nitelikte yok.
yazdıklarım acıklayıcı olmadıysa tekrar acıklayabilirim?

Doktrin · 14 Haziran 2006, 19:37

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


on *:TEXT:*:?:{
  if $away {
    .msg $nick $me Meşgul Durumu : <mesajın> $int($calc($awaytime / 60)) dk. 
  }
}

Böyle birşey denedim ama eğer away süren 1 saat a kadar çıkarsa yanlış çalışır.Deneme amaçlı bir kod.Kendin geliştirebilirsin belki.

tengri · 15 Haziran 2006, 21:47

MarvinTheMartian Kimlik Bilgisi:
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
* .
MarvinTheMartian is connecting from
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
85.107.75.35
MarvinTheMartian is a registered nick
MarvinTheMartian Bulunduğu Kanallar: #zurna #CuRcUnA #antalya #Bursa #angel
MarvinTheMartian Bağlı Olduğu Server: Rekor.EU.Rekor.NET [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
MarvinTheMartian Meşgul Durumu: yok
MarvinTheMartian Idle süresi: 28secs, Bağlandığı zaman: Fri Jun 16 01:59:12
MarvinTheMartian End of /WHOIS list.

üzgünüm olmadı istediğim şey
/away yok
yazdıgım zaman şu kısımda

MarvinTheMartian Meşgul Durumu: yok [1min]
MarvinTheMartian Meşgul Durumu: yok [5min]
MarvinTheMartian Meşgul Durumu: yok [10min]
gibi belirli aralıklarla artmalı..

yinede teşekkür ederim yardımcı olabilecek ark. cevap bekliyorum

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Çözüldü Bir kod hakkinda yardim	manikdepresif	mIRC Scripting Sorunları	11	14 Nisan 2023 02:21
Sajoin hakkinda yardim	KazeeW	mIRC Scripting Sorunları	6	04 Mayıs 2007 02:08
acil yardim nickserv hakkinda..	ATAHAN	Servisler	3	30 Haziran 2005 14:18

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.