/ScriptServ

; AwSys
; by ch1zra
; ch1zra@gmail.com
; #Sobica_Zr #Scripters @ irc.krstarica.com
; http://uptheirons.co.sr/
; Copyright © Up The Irons ! inc. Scripting Team

on 1:load: {
  if ($version > 6.0) { echo  AwSys v1.0 by ch1zra succesfully loaded 
    echo 4ch1zra@beotel.yu 
    set %awsys.awpwd 0
    set %awsys.backpwd  0
    set %awsys.reason - Enter Your AwaY Reason -
    set  %awsys.nick - Enter AwaY Nick -
  }
  else { 
    echo  Version 6.0 or higher required, get a newer version of mirc at http://www.mirc.com  
    unload -rs $script 
  }
}

on 1:unload: {
  echo - Unloading AwSys v1.0 by ch1zra...
  echo - Unsetting variables...
  unset %awsys.*
}

alias awsys {
  if ($dialog(awsystem)) {
    dialog -vro awsystem awsystem
  }
  else { dialog -maod awsystem awsystem }
}

alias awsys.about {
  if ($dialog(awsys.about)) {
    dialog -vro awsys.about awsys.about
  }
  else { dialog -maod awsys.about awsys.about }
}

alias awsysaway {
  /ame is [AwaY] - %awsys.reason - 14[AwaY SysteM by ch1zra]
  set %awsys.oldnick $me
  nick %awsys.nick
  away %awsys.reason
  if (%awsys.awpwd == 1) {
    /ns identify %awsys.awaypass
  }
}

alias awsysback {
  /ame is [BacK] from - %awsys.reason - 14[AwaY SysteM by ch1zra]
  nick %awsys.oldnick
  away
  if (%awsys.backpwd == 1) {
    /ns identify %awsys.backpass
  }
}

alias awsys.check {
  if ($away == $true) { echo -a 14Your current status is 4[AwaY] }
  if ($away == $false) { echo -a 14Your current status is 4[NoT AwaY] }
}

dialog awsystem {
  title "AwSys by ch1zra"
  size -1 -1 95 125
  option dbu
  text "Away Nick :", 1, 5 5 28 10
  text "Reason :", 2, 5 70 25 10
  edit "", 3, 35 5 55 10, %awsys.nick
  edit "", 4, 5 80 85 10, autohs %awsys.reason
  button "Go Away", 5, 5 95 40 10, flat 
  button "Back !", 6, 50 95 40 10, flat 
  button "OK", 7, 50 110 40 10, flat ok
  button "About", 8, 5 110 40 10, flat
  check "Password for away nick", 9, 5 15 80 10
  edit "", 10, 5 30 85 10, %awsys.awaypass
  check "Password for back nick", 11,  5 45 80 10
  edit "", 12, 5 60 85 10, %awsys.backpass
}

dialog awsys.about {
  title "About AwSys by ch1zra"
  size 100 100 100 70
  option dbu
  text "AwaY SysteM by ch1zra", 1, 5 5 90 10, center
  text "Simple setings, option to use passwords for away and back nicks...", 2, 5 15 90 20, center
  link "ch1zra@gmail.com", 3, 5 40 45 15
  link "Close", 4, 80 63 15 6
  link "http://uptheirons.co.sr/", 5, 5 47 70 10
  link "#Sobica_Zr @ irc.krstarica.com", 6, 5 54 90 10
}

on *:dialog:awsystem:init:*: {
  did -a $dname 3 %awsys.nick
  did -a $dname 4 %awsys.reason
  did -a $dname 10 %awsys.awaypass
  did -a $dname 12 %awsys.backpass
  if ($away == $false) {
    did -b $dname 6
    did -e $dname 5
  }
  if ($away == $true) {
    did -e $dname 6
    did -b $dname 5
  }
  if (%awsys.awpwd == 1) {
    did -e $dname 10
    did -e $dname 11
    did -c $dname 9
  }
  if (%awsys.awpwd == 0) {
    did -b $dname 10

  }
  if (%awsys.backpwd == 1) {
    did -c $dname 11
    did -e $dname 12
  }
  if (%awsys.backpwd == 0) {
    did -b $dname 12
  }
}

on *:dialog:awsystem:sclick:5 {
  dialog -x awsystem
  awsysaway
}

on *:dialog:awsystem:sclick:9: {
  if ($did(9).state == 1) {
    did -e $dname 10
    set %awsys.awpwd 1
  }
  if ($did(9).state == 0) {
    did -b $dname 10
    set %awsys.awpwd 0
  }
}

on *:dialog:awsystem:sclick:11: {
  if ($did(11).state == 1) {
    did -e $dname 12
    set %awsys.backpwd 1
  }
  if ($did(11).state == 0) {
    did -b $dname 12
    set %awsys.backpwd 0
  }
}

on *:dialog:awsystem:sclick:6 {
  dialog -x awsystem
  awsysback
}
on *:dialog:awsystem:sclick:8 {
  awsys.about
}

on *:dialog:awsys.about:sclick:3 {
  .run mailto:ch1zra@gmail.com
}

on *:dialog:awsys.about:sclick:4 {
  dialog -x awsys.about
}

on *:dialog:awsys.about:sclick:5 {
  .run http://uptheirons.co.sr/
}

on *:dialog:awsys.about:sclick:6 {
  .run irc://irc.krstarica.com/Sobica_zr
}

on 1:OPEN:?:*: {
  if ($away == true) {
    notice $nick -[ I am [AwaY] ]- (-( %awsys.reason )-)
  }
}

menu channel,nicklist,query,status {
  AwSys
  .Settings:awsys
  .Check Status:awsys.check
}

menu menubar {
  AwSys
  .Settings:awsys
  .Check Status:awsys.check
  .Unload
  ..Yes:unload -rs $script
}

; AwSys
; by ch1zra
; ch1zra@gmail.com
; #Sobica_Zr #Scripters @ irc.krstarica.com
; http://uptheirons.co.sr/
; Copyright © Up The Irons ! inc. Scripting Team