Srecne Novogodisnje i Bozicne praznike zeli Vam BalkanIRC Forum :)


    Away Systems

    Share
    avatar
    Marvi-Konvic
    Administrator
    Administrator

    Number of posts : 99
    Registration date : 2008-09-24

    Away Systems

    Post by Marvi-Konvic on Sat Sep 27, 2008 6:06 pm

    Prost away sistem

    Samo Copy/Paste u remote
    [/code]
    menu * {
    Away System
    .Away: setaway
    .Back: setback
    .-
    .Slient
    ..Silent Away: quietaway
    ..Silent Back: quietback
    .Pager
    ..Pager je ( $+ $iif(%options.pager, On, Off) $+ ) : {
    if (%options.pager) echo -a *** Pager - DISABLED ***
    else echo -a *** Pager - ACTIVE ***
    %options.pager = $iif(%options.pager, 0, 1)
    }
    ..Procitaj Paging: run NotePad.exe $scriptdir\page.txt
    ..Obrisi: {
    write -c $scriptdir\page.txt clearing all pages on $fulldate
    echo -at *** Paging obrisan ***
    }
    }

    alias setaway {
    if ($1 == $null) set %away.reason $$?="Upisi Razlog"
    else set %away.reason $1-
    away ( $+ %away.reason $+ )
    set %away.time $ctime
    if (%options.pager) {
    ame Away : [ $+ %away.reason $+ ] PAGE: /ctcp $me page < vasa poruka >
    .timer(away) 0 $?="Vreme u sec ?" ame still Away : [ $+ %away.reason $+ ] PAGE: /ctcp $me page < vasa poruka >
    }
    else {
    ame Away : [ $+ %away.reason $+ ]
    .timer(away) 0 $?="Vreme u sec ?" ame still Away : [ $+ %away.reason $+ ]
    }
    }

    alias setback {
    if ($away == $false) { echo -at ** Nisi vise Away! ** | halt }
    .timer(away) off
    ame Back : [ $+ %away.reason $+ ] Away : [ $duration($calc($ctime - %away.time)) ] Jesam li vam ne dostajao ?
    away
    unset %away.*
    }

    alias quietaway {
    set %away.reason $$?="Upisi Razlog"
    away ( $+ %away.reason $+ )
    }

    alias quietback {
    if ($away == $false) { echo -at *** Nisi vise Away! *** | halt }
    away
    unset %away.*
    }

    ctcp *:page:*: {
    if (%options.pager) .notice $nick > Hello. Trenutno sam zazet ili sam AFK...Javicu ti se kasnije...
    echo -at ** [ PAGED by $nick ] $address on $fulldate
    write $scriptdir\page.txt paged by : $nick $address $fulldate MSG : $2-
    }

    alias rtime return $time(h:nntt)
    [/code]

    Jos jedan Away

    Download Link
    avatar
    Zika023
    Super Admin
    Super Admin

    Number of posts : 1456
    Age : 23
    Локација : Melenci
    Registration date : 2008-09-20

    Re: Away Systems

    Post by Zika023 on Sat Sep 27, 2008 8:00 pm

    Hmm... lepo imam i ja moj away system v.2
    avatar
    Cool
    Moderator
    Moderator

    Number of posts : 66
    Registration date : 2008-10-27

    Re: Away Systems

    Post by Cool on Mon Oct 27, 2008 1:01 am

    Evo ja sto sam sad na brzinu ga odradio.

    Code:
    menu * {
      -
      AWAY SISTEM:
      .Upali:/set %awayrazlog $$?="razlog za away :"|  /ame 12je Odsutan od: $time razlog odsustva: %awayrazlog | /nick $$?="Nick za away:"
      .Ugasi:/away | /ame  JE PONOVO PRISUTAN OD: $time razlog odsustva: %awayrazlog | /unset %awayime | /unset %awayrazlog | /nick $$?="Nick:"  | /ame koristim nick $me
    avatar
    Zika023
    Super Admin
    Super Admin

    Number of posts : 1456
    Age : 23
    Локација : Melenci
    Registration date : 2008-09-20

    Re: Away Systems

    Post by Zika023 on Mon Oct 27, 2008 12:31 pm

    Cool otvori temu AWAY SYSTEM by CHESLEA i eto Very Happy nemoj u marvijevu temu Very Happy

    Sponsored content

    Re: Away Systems

    Post by Sponsored content


      Current date/time is Tue Dec 12, 2017 8:36 pm