Awayness 1.0

By ZabuzaMomochi on Aug 04, 2006

Lol im so bored.. Iv been making so many dialogs and such. Im learning more and more every day. Well basically, Just type /Adialog or /Away ( /back ) And uh, my friend wanted one so, i made a fake ip system thats.. pointless. It just randomizing numbers seperated with .'s! ((Type /fakeip))

alias Awayness {
  if (%Awaymsg == $null) {
    if (%Amsg == Yes) {
      Set %Away Yes
      Set %TimeToBeBack $$?="Around what time will you be back?"
      amsg 4,0I am away. Reason: %AAmessage On messenger: %Messenger Messenger ID: %messengerID I will be back around: %TimeToBeBAck
    } 
    if (%amsg == no) {
      set %Away Yes      
      Set %TimeToBeBack $$?="Around what time will you be back?"
      msg $Active 4,0I am away. Reason: %AAmessage On messenger: %Messenger Messenger ID: %messengerID I will be back around: %TimeToBeBAck
    }
  } 
  Elseif (%Awaymsg != $Null) {  
    if (%Amsg == Yes) {
      set %away Yes
      Set %TimeToBeBack $$?="Around what time will you be back"
      set %Awaymsg $$?="What is your away message?"
      Amsg 4,0I am away. Reason: %Awaymsg On messenger: %Messenger Messenger ID: %messengerID I will be back around: %TimeToBeBAck
    }
    If (%Amsg == no) {
      set %away Yes
      Set %TimeToBeBack $$?="Around what time will you be back"
      set %Awaymsg $$?="What is your away message?"
      msg $Active 4,0I am away. Reason: %Awaymsg On messenger: %Messenger Messenger ID: %messengerID I will be back around: %TimeToBeBAck
    }
  }
}
alias back {
  unset %Away
  unset %TimeToBeBack
  Amsg 4,0I am back from: %Awaymsg %AAmessage
  timer 1 3 unset %Awaymsg
}
Alias ADialog {
  Dialog -m awayness awayness
}
Dialog awayness {
  Title "Itachi's Away Dialog"
  size -1 -1 262 180
  option Dbu
  Button "Set away", 1, 0 0 70 12
  Button "Set Back", 2, 0 12 70 12
  Text "You are using Alkora's(Itachi's) Away system!", 3, 100 12 80 80
  Button "Messenger ON", 4, 192 0 70 12
  Button "Messenger OFF", 5, 192 12 70 12
  Text "Please put your messenger ID below:", 6, 90 50 90 15
  Edit "", 7, 90 60 100 10, autohs %MessengerID
  Button "Done!" 9, 115 100 40 20, ok
  Edit "", 10, 80 158 130 10, autohs %AAmessage
  Text "Enter auto away message below!", 11, 80 150 90 6
  Button "Amsg On", 12, 0 168 70 12
  Button "Amsg Off", 13, 192 168 70 12
}
on *:DIALOG:Awayness:*:*: {
  if ($Devent = Sclick) {
    If ($Did = 1) {
      if (%Away == Yes) {
        echo -a You're already away!
      }
      Else {
        awayness
      }
    }
    If ($Did = 2) {
      if (%Away == Yes) {
        Back
      }
      Else {
        echo -a Your not away!
      }
    }
    if ($did = 4) {
      set %Messenger Yes
    }
    if ($did = 5) {
      set %Messenger No 
    }
    if ($did = 12) {
      set %Amsg Yes
    }
    if ($did = 13) {
      set %Amsg No
    }
  } 
}
on *:OPEN:?: {
if (%Away == Yes) {
Msg $nick 4,0Sorry, i am currently away. Please wait until i set back. Thanks! ^-^
close -m $nick
}
}
on *:TEXT:*: {
if ($me iswm $1- && %away == Yes) {
beep 5
msg $chan 4,0 Sorry $nick $+ , but i am currently away. Thanks!
}
}
alias fakeip {
  msg $Active $rand(10,90) $+ . $+ $Rand(100,900) $+ . $+ $Rand(10,90) $+ . $+ $Rand(10,90)
}

Comments

Sign in to comment.
Lindrian   -  Mar 20, 2007

A lil old, but aint your on text and open events wrong?
I mean, should it be
on :TEXT::#: { or on :TEXT::: {
and u can use what ur using now, or
if ($wildtok($1-,$+(
,$me,*),1,32)) {

both works I assume.
And aswell, put a . (dot) infront of msg, so it wont show in ur status window xP

As I said, sorry for bringing such a old snippet up lol, just got to see it.

 Respond  
BackoffJackson   -  Jan 23, 2007

Not bad. :).

 Respond  
ZabuzaMomochi   -  Aug 07, 2006

No comments? Not even a rating? D:

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.