Away System V1.0

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Aug 07, 2007
Last Updated	Aug 07, 2007
Tags	away back noumero simple system

Introduction

A simple away system
Copy the code and paste it into a new remote file ;p

Grab the Code

dialog away {
  title "Away System v1.0"
  size -1 -1 214 143
  option dbu
  box "Away System", 1, 3 3 208 137
  check "Change nick?", 2, 7 15 44 16
  edit "", 4, 44 31 74 10, disabled
  check "Keep old nick?", 5, 21 43 55 10, disabled
  text "Away Reason", 6, 7 57 36 9
  check "Logging ? ", 7, 7 72 50 10
  check "Away msg @ prv msges ?", 9, 7 86 74 10
  edit "", 10, 52 99 147 10, disabled
  text "Message:", 11, 22 100 25 8
  edit "", 12, 52 56 147 10
  text "Nick:", 8, 21 32 15 9
  button "Go Away", 13, 18 119 42 17, ok cancel
  button "Cancel", 14, 151 119 42 17, cancel
  
}
dialog back {
  title "Away System v1.0"
  size -1 -1 157 94
  option dbu
  box "Away System", 1, 3 2 151 89
  
  edit "(Type /away_time to see it.)", 3, 60 15 81 10, disabled
  text "You're away for:", 4, 12 16 42 8
  button "Welcome Back !", 5, 24 31 51 21, ok cancel
  button "Cancel", 6, 82 31 51 21, cancel
  text "A script written by NouMeRo", 7, 44 78 75 9
}
 
on *:dialog:away:sclick:2:{ 
  if ($did($dname,4).enabled != $true) { 
    did -e $dname 4 
    did -c $dname 5 
    set %aw.old.nick $me
  }
  else { 
    did -b $dname 5 
    did -b $dname 4
    did -u $dname 5
    unset %aw.old.nick
  }
}
on *:dialog:back:sclick:5:{
  if (%aw.reason != $null) {
    nick %aw.old.nick
    ame Iz back. Was away for: $duration($awaytime) - Away Reason: %aw.reason
    .timeraw 1 2 away
    .timerusett 1 2 unset %aw.*
  }
}
on *:dialog:away:edit:12:{
  set %aw.reason $did($dname,12)
}
on *:dialog:away:sclick:7:{
  set %aw.log on
}
on *:dialog:away:edit:4:{
  set %aw.nick $did($dname,4) 
}
on *:dialog:away:sclick:9:{ 
  if ($did($dname,10).enabled != $true) {
    did -e $dname 10
  }
  else {
    did -b $dname 10
  }
}
on *:dialog:away:edit:10:{
  set %aw.prv.msg $did($dname,10)
}
on *:dialog:away:sclick:14:{
  unset %aw.*
}
on *:Dialog:away:sclick:13:{
  if (%aw.reason != $null) {
    if (%aw.nick != $null) {
      if (%aw.log != on) {
        away %aw.reason
        ame iz away. Reason: %aw.reason - Logging: Off
        .timernc 1 1 nick %aw.nick
      }
      else {
        away %aw.reason
        ame iz away. Reason: %aw.reason - Logging: On
        .timernc 1 1 nick %aw.nick
      }
    }
    else {
      if (%aw.log != on) {
        away %aw.reason
        ame iz away. Reason: %aw.reason - Logging: Off
      }
      if (%aw.log == on) {
        away %aw.reason
        ame iz away. Reason: %aw.reason - Logging: On
      }
    }
  }
}
on *:disconnect:{ 
  unset %aw.*
}
on *:connect:{
  unset %aw.*
}
on !^*:open:?:*:{ 
  if (%aw.reason != $null) {
    if (%aw.log == on) {
      inc %aw.msges-today
      msg $nick 7,1[-4 I am 11away 7-][-4 Away Reason:11 %aw.reason 7-][-4 Away Time:11 $duration($awaytime) 7-][-4 Logging:11 On 7-]
      write logs.txt <>=> Time: $time <>=> Date: $date <>=> Nick: $nick <>=> Said: $1- <=<>
    }
    else { 
      msg $nick 7,1[-4 I am 11away 7-][-4 Away Reason:11 %aw.reason 7-][-4 Away Time:11 $duration($awaytime) 7-][-4 Logging:11 Off 7-]
    }
  }
}
alias away_time {
  if ($away) {
    echo -a 4You are away for: $duration($awaytime)
    echo -a 4Away reason: %aw.reason
  }
}
Menu channel,status,nicklist,menubar,query {
  Away System v1.0
  .Info:info
  .-
  .$iif(%aw.reason == $null,Go Away,$style(2) Go Away) :dialog -mr away away
  .$iif(%aw.reason != $null,Back,$style(2) Back) :dialog -mr back back
}
alias info {
  echo -a 4� Away Script 
  echo -a 4� Author: NouMeRo
  echo -a 4� Version: v1.0
  echo -a 4� Contact: vaggelakhs@hotmail.com
}

Comments

(1) RSS

Go to Bottom

NouMeRo

Comments: 26

mIRC Snippet: Away System V1.0
Posted on Aug 7, 2007 11:05 am

this is not ripped.this is my work & only my work!Do u like it or not ?

Away System V1.0

Introduction

Grab the Code

Comments

NouMeRo

My Snippet Tags

Contact

Sponsors

		Student Greece
Last seen: Oct 30, 2007 Profile \| Website Scripts (1) Snippets (5) Images (9) Comments Received (44) Comments Submitted (26) Forum Posts (2)