#away on
alias _rsfile { return $readini($shortfn($mircdir $+ settings\set.ini),$1,$2) }
alias _wsfile { writeini $shortfn($mircdir $+ settings\set.ini) $1 $2 $3- }
alias _rawfile { return $readini($shortfn($mircdir $+ settings\away.ini),$1,$2) }
alias _wawfile { writeini $shortfn($mircdir $+ settings\away.ini) $1 $2 $left($3-,800) }
alias _gawfile { return $ini($shortfn($mircdir $+ settings\away.ini),$1) }
alias _cawfile { return $ini($shortfn($mircdir $+ settings\away.ini),$1,0) }
alias goaway {
var %awaymsg $iif($1,$1-,$_rsfile(away,amsg))
$_wawfile(away,atime,$time) | $_wawfile(away,btime,0)
echo 12 -ta * artık away'siniz.. 4away mesajı: %awaymsg 4logger: $iif($_rsfile(away,logger) == on,açık,kapalı) 4agent: $iif($_rsfile(away,agent) == on,açık,kapalı) 4zaman: $time
away %awaymsg
var %x 1
while ($gettok($_rsfile(away,aperform),%x,152)) {
$ifmatch
inc %x
}
tnick $me $+ $_rsfile(away,anick)
}
alias back {
away
$_wawfile(away,btime,$time)
echo 12 -ta * artık away değilsiniz..logları okumak için 4/logoku yazın.. 4away zamanı: $_rawfile(away,atime) 4dönüş zamanı: $_rawfile(away,btime)
nick $remove($me,$_rsfile(away,anick))
var %x 1
while ($gettok($_rsfile(away,bperform),%x,152)) {
$ifmatch
inc %x
}
}
alias -l nmodes {
if ($1 isreg $2) return
var %mode = $left($nick($2,$1).pnick,1)
if (%mode = $chr(64)) return $+ $_rsfile(mdclr,op) $+ @
if (%mode = $chr(37)) return $+ $_rsfile(mdclr,hop) $+ % $+
if (%mode = +) return $+ $_rsfile(mdclr,voice) $+ +
if (%mode = $chr(46)) return $+ $_rsfile(mdclr,founder) $+ . $+
}
on ^*:TEXT:*:*: {
var %target = $iif($chan,$target,$query($nick))
if ((!$chan) && ($away) && ($_rsfile(away,logger) == on)) {
$_wawfile($nick,msg $+ $calc($_cawfile($nick) + 1),$1- $+ $chr(152) $+ $time $+ $chr(152) $+ ozel)
$_wawfile(away,count,$calc($_rawfile(away,count) + 1))
}
if ($me isin $1-) {
if (($chan) && ($away) && ($_rsfile(away,logger) == on)) {
$_wawfile($nick,msg $+ $calc($_cawfile($nick) + 1),$1- $+ $chr(152) $+ $time $+ $chr(152) $+ $chan)
$_wawfile(away,count,$calc($_rawfile(away,count) + 1))
}
if ($_rsfile(memsg,memsn) == on) {
if $nick == HTSC { halt }
if $nick == HTYS { halt }
echo $colour(normal) -t %target $_rsfile(other,nsep1) $+ $iif($chan,$nmodes($nick,#)) $+ $nick $+ $_rsfile(other,nsep2) $iif($_rsfile(memsg,mecol) == on,$replace($1-,$me, $+ $_rsfile(memsg,mecolor) $+ $me $+ ),$1-)
window -g2 %target
set % [ $+ target $+ . $+ [ %target ] ] 1
$iif($_rsfile(memsg,meflash) == on,flash $target)
if ($appactive) && (%target == $active) { halt }
var %pass $iif($away,$iif($_rsfile(away,agent) == on,1,0),$iif($_rsfile(memsg,meagent) == on,1,-1))
if (%pass == 1) {
if (!$agent(notagent)) .gload -h notagent
var %text $nick $iif($chan,$ifmatch kanalında,özelde) size sesleniyor: $1-
.gopts -b notagent on nopace
.gtalk -l notagent %text
}
elseif (%pass == -1) {
echo $colour(info2) -ta * 4 $+ $iif($chan,$ifmatch,Özelde) $+ : $_clr(notify) $_rsfile(other,nsep1) $+ $nick $+ $_rsfile(other,nsep2) $_clr(notice,[) $+ $_clr(notify) $+ $colour(normal) $+ $1- $_clr(notice,])
}
halt
}
}
echo $colour(normal) -t %target $_rsfile(other,nsep1) $+ $iif($chan,$nmodes($nick,#)) $+ $nick $+ $_rsfile(other,nsep2) $1-
halt
}
on *:ACTIVE:*: { unset % [ $+ target $+ . $+ [ $target ] ] }
on *:INPUT:*: {
if ($target == Status Window) return
if ($ctrlenter || $left($1,1) != /) {
echo $colour(own) -t # $_rsfile(other,nsep1) $+ $iif($chan,$nmodes($me,#)) $+ $me $+ $_rsfile(other,nsep2) $1-
.quote privmsg $target : $+ $1-
halt
}
}
alias _remall {
var %x 1,%total
while ($_gawfile(%x)) {
%total = $addtok(%total,$ifmatch,152)
inc %x
}
%x = 1
while ($gettok(%total,%x,152)) {
remini $shortfn($mircdir $+ settings\away.ini) $ifmatch
inc %x
}
}
alias logoku {
if (!$window(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) window -ek0 @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] tahoma 12
titlebar @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Away Log Okuma Penceresi
clear @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
var %atime $iif($_rawfile(away,atime),$ifmatch,belirsiz),%btime $iif($iif($away,away,$_rawfile(away,btime)),$ifmatch,belirsiz),%atotal $iif($duration($iif($away,$awaytime,$iif($calc($duration(%btime) - $duration(%atime)),$ifmatch,belirsiz))),$ifmatch,belirsiz)
echo 12 @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $chr(91) $+ $time $+ $chr(93) Away Zamanı: 4 %atime Dönüş Zamani: 4 %btime Away Kalma Süresi: 4 %atotal Mesaj Sayisi: 4 $iif($_rawfile(away,count),$ifmatch,0)
var %x 1,%y,%match
while ($_gawfile(%x)) {
%y = 1 | %match = $ifmatch
while ($_rawfile(%match,msg $+ %y)) {
echo @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $chr(91) $+ $gettok($ifmatch,2,152) $+ $chr(93) $chr(91) $+ $gettok($ifmatch,3,152) $+ $chr(93) < $+ %match $+ > $gettok($ifmatch,1,152)
inc %y
}
inc %x
}
}
menu channel,status {
-
» Away Menü
.$iif(!$away,Away Ol):goaway
.$iif(!$away,Away Sebep):goaway $$?="Away Mesaji"
.$iif($away,Geri Dön):back
.-
.Logları oku:logoku
.-
.Away ayarlari:awayset
-
}
alias awayset { if (!$dialog(_awaydiag)) dialog -m _awaydiag _awaydiag }
dialog _awaydiag {
title "Script Ayarları"
size -1 -1 170 120
option dbu
tab "Genel", 25, 2 2 142 113
box "Genel Ayarlar", 26, 5 20 135 90, tab 25
check " Bağlantıda Lagmetre:", 27, 10 31 70 10, tab 25
text "Ctcp Süresi:", 28, 80 32 30 8, tab 25
edit "", 29, 112 30 17 10, tab 25
text "Whois Gosterme Penceresi:", 30, 10 46 67 8, tab 25
radio "Whois", 31, 80 45 26 10, tab 25
radio "Aktif", 32, 112 45 22 10, tab 25
text "Kullanılacak Nick Ayıracları:", 33, 10 59 67 8, tab 25
edit "", 35, 80 57 13 10, tab 25
text "Mode Renkleri:", 37, 10 72 37 8, tab 25
text "+u", 38, 49 72 8 8, tab 25
edit "", 39, 58 70 13 10, tab 25
text "Toolbar Arka Plan Rengi:", 46, 10 85 59 8, tab 25
edit "", 47, 80 83 58 10, tab 25
text "nick", 48, 98 59 10 8, tab 25
text "sn.", 49, 130 32 7 8, tab 25
tab "Away", 1
box "Away ayarlari", 2, 5 20 135 90, tab 1
text away sebebi, 3, 10 35 50 10, tab 1
combo 4, 50 32 85 90, tab 1 drop
text away nick şekli, 5, 10 55 80 10, tab 1
edit "", 6, 50 52 30 10, tab 1
text "sebep", 7, 85 55 20 10, tab 1
button "ekle", 8, 103 52 15 10, tab 1
button "sil", 9, 120 52 15 10, tab 1
check " logger açık", 10, 10 75 40 10, tab 1
check " agent açık", 11, 10 90 40 10, tab 1
button "away olunca yapılacaklar", 12, 50 75 85 10, tab 1
button "away dönüşünde yapılacaklar", 13, 50 90 85 10, tab 1
tab "Bildirici", 14
box "Bildirici ayarlari", 15, 5 20 135 90, tab 14
check " nickim geçtiğinde bana bildir", 16, 10 35 100 10, tab 14
check " nickim geçtiğinde nickimi renkli goster", 17, 10 50 100 10, tab 14
edit "", 18, 10 65 13 10, tab 14 autohs
text "renk kodu 0-15 arası rakam girin", 19, 28 67 90 10, tab 14
check " nickimin geçtiği pencere yanıp sönsün", 20, 10 80 100 10, tab 14
radio " agent ile", 21, 10 95 33 10, group tab 14
radio " text ile", 22, 45 95 30 10, tab 14
text "bildirme şekli", 23, 80 96 40 10, tab 14
button "Kaydet", 24, 145 15 23 20
button "Çıkış", 34, 145 35 23 20, cancel
edit "", 36, 112 57 13 10,tab25
text "+o", 40, 72 72 8 8,tab25
edit "", 41, 80 70 13 10,tab25
text "+h", 42, 94 72 8 8,tab25
edit "", 43, 102 70 13 10,tab25
text "+v", 44, 116 72 8 8,tab25
edit "", 45, 125 70 13 10,tab25
}
on *:dialog:_awaydiag:init:*: {
did -a $dname 6 $_rsfile(away,anick)
did $iif($_rsfile(away,logger) == on,-c,-u) $dname 10
did $iif($_rsfile(away,agent) == on,-c,-u) $dname 11
did $iif($_rsfile(memsg,memsn) == on,-c,-u) $dname 16
did $iif($_rsfile(memsg,mecol) == on,-c,-u) $dname 17
did -a $dname 18 $_rsfile(memsg,mecolor)
did $iif($_rsfile(memsg,meflash) == on,-c,-u) $dname 20
did -c $dname $iif($_rsfile(memsg,meagent) == on,21,22)
_rcombo $dname 4
did $iif($_rsfile(other,lagmeter) == on,-c,-u) $dname 27
did -a $dname 29 $_rsfile(other,lagtime)
did -a $dname 35 $_rsfile(other,nsep1)
did -a $dname 36 $_rsfile(other,nsep2)
did -a $dname 41 $_rsfile(mdclr,op)
did -a $dname 43 $_rsfile(mdclr,hop)
did -a $dname 45 $_rsfile(mdclr,voice)
did -a $dname 39 $_rsfile(mdclr,founder)
did -a $dname 47 $_rsfile(other,toolbg)
did -c $dname $iif($_rsfile(other,whois) == whois,31,32)
}
on *:dialog:_awaydiag:sclick:24: {
if ($did == 24) {
$iif($did(6),$_wsfile(away,anick,$ifmatch))
$iif($did(4),$_wsfile(away,amsg,$ifmatch))
$_wsfile(away,logger,$iif($did(10).state,on,off))
$_wsfile(away,agent,$iif($did(11).state,on,off))
$_wsfile(memsg,memsn,$iif($did(16).state,on,off))
$_wsfile(memsg,mecol,$iif($did(17).state,on,off))
$_wsfile(memsg,meflash,$iif($did(20).state,on,off))
$_wsfile(memsg,meagent,$iif($did(21).state,on,off))
$iif($did(18) isnum 0-15,$_wsfile(memsg,mecolor,$ifmatch))
$iif($did(29),$_wsfile(other,lagtime,$ifmatch))
$iif($did(35),$_wsfile(other,nsep1,$ifmatch))
$iif($did(36),$_wsfile(other,nsep2,$ifmatch))
$iif($did(41) isnum 0-15,$_wsfile(mdclr,op,$ifmatch))
$iif($did(43) isnum 0-15,$_wsfile(mdclr,hop,$ifmatch))
$iif($did(45) isnum 0-15,$_wsfile(mdclr,voice,$ifmatch))
$iif($did(39) isnum 0-15,$_wsfile(mdclr,founder,$ifmatch))
$_wsfile(other,lagmeter,$iif($did(27).state,on,off))
$_wsfile(other,whois,$iif($did(31).state,whois,active))
}
}
on *:dialog:_awaydiag:sclick:8,9,12,13: {
if ($did == 8) $_wsfile(away,msg,$addtok($_rsfile(away,msg),$$?="Eklenecek Away Mesajini Girin",152))
if ($did == 9) $_wsfile(away,msg,$remtok($_rsfile(away,msg),$$did(4),152))
if ($did == 12) _crdiagaw aperform
if ($did == 13) _crdiagaw bperform
_rcombo $dname 4
}
alias -l _rcombo {
did -r $1 $2
var %x 1
while ($gettok($_rsfile(away,msg),%x,152)) {
did -a $1 $2 $ifmatch
inc %x
}
did -c $1 $2 $iif($findtok($_rsfile(away,msg),$_rsfile(away,amsg),152),$ifmatch,1)
}
alias -l _rawdiag {
var %x 1
did -r $1 $2
while ($gettok($_rsfile(away,%diag3),%x,152)) {
did -a $1 $2 $ifmatch
inc %x
}
}
alias _crdiagaw {
if ($dialog(_awlist)) dialog -x _awlist
set %diag3 $1
dialog -m _awlist _awlist
}
dialog _awlist {
title "Away Ayarları"
size -1 -1 250 200
text Yapılacak İşlemler Listesi, 1, 11 10 200 180
list 2, 10 30 195 175,autohs
button Ekle, 3, 210 30 35 35,
button Sil, 4, 210 64 35 35,
button Çıkış, 5, 210 98 35 35,cancel
}
on *:dialog:_awlist:init:*: { _rawdiag $dname 2 }
on *:dialog:_awlist:sclick:3,4: {
if ($did == 3) $_wsfile(away,%diag3,$addtok($_rsfile(away,%diag3),$$?="Eklenecek İşlemi Girin",152))
if (($did == 4) && ($did(2).seltext)) $iif($did(2).lines <= 1,$_wsfile(away,%diag3,|),$_wsfile(away,%diag3,$remtok($_rsfile(away,%diag3),$did(2).seltext,152)))
_rawdiag $dname 2
}
on *:dialog:_awlist:close:*: { unset %diag3 }
on *:AGENT:{ if ($agentname == notagent) .gunload notagent }
on *:DISCONNECT:{ _remall }
raw 353:* { if (%names.x) halt }
raw 366:* {
if (%names.x) {
unset %names.x
halt
}
}
alias refchan {
set %names.x 1
names #
}
#away end
25 Eylül 2014, 18:32
Benzer Konular 
Normal
