Venom Away system

By blackvenomm666 on Feb 12, 2010

this is my first dialogue script let me know what you think i tested it on chatspace works just fine:D post in remotes then right click in the nicklist to get it edited it put in a text box so you can put your own reason for being away in

.Venom Away system.
.Coded  By.
.Ryan.

Menu Menubar,Nicklist,Channel {
  Away System
  .VenomAwaySys:Dialog -dm Away.System Away.System
}

Dialog Away.System {
  Title "VenomAwaySystem"
  Size -1 -1 230 90
  Option dbu
  Button "eating " 1, 02 02 60 20
  Button "walking dog " 2, 02 24 60 20
  Button "Smoking " 3, 02 46 60 20
  Button "Sex " 4, 02 68 60 20
  Button "sleep " 5, 66 02 60 20
  Button "Pot " 6, 66 24 60 20
  Button "Work " 7, 66 46 60 20
  Button "Shopping " 8, 66 68 60 20
  Button "Kids " 9, 130 02 60 20
  Button "Gaming " 10, 130 24 60 20
  Button "Scripting " 11, 130 46 60 20
  edit "", 12, 130 68 60 10, autohs
  button "Edit box ", 13, 130 78 37 10, flat  
  Button "Back" 14, 194 02 30 86
}
on *:dialog:Away.System:sclick:1:{
  .away eating | Scid -a amsg 4,1 brb going to go eat
}
on *:dialog:Away.System:sclick:2:{
  .away walking dog | Scid -a amsg 4,1 brb going to go walk the dog
}
on *:dialog:Away.System:sclick:3:{
  .away smoking | Scid -a amsg 4,1 brb going to go smoke mm nicotine
}
on *:dialog:Away.System:sclick:4:{
  .away sex |  Scid -a amsg 4,1 brb going to go get laid:D
}
on *:dialog:Away.System:sclick:5:{
  .away Sleeping | Scid -a amsg 4,1 be back in a bit taking a nap
}
on *:dialog:Away.System:sclick:6:{
  .away Pot | Scid -a amsg 4,1 i was here but now im not im going to go smoke some pot
}
on *:dialog:Away.System:sclick:7:{
  .away Work | Scid -a amsg 4,1 bbl going to work ugh
}
on *:dialog:Away.System:sclick:8:{
  .away shopping | Scid -a amsg 4,1 bbiab get to go shopping oh yay 
}
on *:dialog:Away.System:sclick:9:{
  .away kids | Scid -a amsg 4,1 bbl have to take care of kids 
}
on *:dialog:Away.System:sclick:10:{
  .away gaming | Scid -a amsg 4,1 bbl playing video games:D
}
on *:dialog:Away.System:sclick:11:{
  .away Scripting | Scid -a amsg 4,1 be back whenever busy scripting
}
on *:dialog:away.system:sclick:13:{
  if (!$did(12).text) { noop $input(Please enter text in box,udho,Error!) }
  else { Scid -a amsg 4,1 $did(12).text } .away away
}
on *:dialog:Away.System:sclick:14:{
  .away | Scid -a amsg 4,1 i am now back
}

blackvenomm666

Like Page Follow Author

Comments

Sign in to comment.
napa182   -  Feb 13, 2010

keeping it at what you have...

Menu channel,nicklist {
  Away System
  .VenomAwaySys:dialog $iif($dialog(Away.System),-v,-md Away.System) Away.System
}
Dialog Away.System {
  Title "VenomAwaySystem"
  Size -1 -1 230 90
  Option dbu
  Button "eating " 119, 02 02 60 20
  Button "walking dog " 120, 02 24 60 20
  Button "Smoking " 121, 02 46 60 20
  Button "Sex " 122, 02 68 60 20
  Button "sleep " 123, 66 02 60 20
  Button "Pot " 124, 66 24 60 20
  Button "Work " 125, 66 46 60 20
  Button "Shopping " 126, 66 68 60 20
  Button "Kids " 127, 130 02 60 20
  Button "Gaming " 128, 130 24 60 20
  Button "Scripting " 129, 130 46 60 20
  Button "Reason?" 130, 130 68 60 20
  Button "Back" 131, 194 02 30 86
}
on *:dialog:Away.System:sclick:*:{
  if ($did == 119) {
    scon -a .away eating 
    scon -a amsg 4,1 brb going to go eat
  }
  if ($did == 120) {
    scon -a .away walking dog  
    scon -a amsg 4,1 going to go walk the dog
  }
  if ($did == 121) {
    scon -a .away smoking
    scon -a amsg 4,1 brb going to go smoke mm nicotine
  }
  if ($did == 122) {
    scon -a .away sex 
    scon -a amsg 4,1 brb going to go get laid:D
  }
  if ($did == 123) {
    scon -a .away Sleeping 
    scon -a amsg 4,1 away be back in a bit taking a nap
  }
  if ($did == 124) {
    scon -a .away pot 
    scon -a amsg 4,1 i was here but now im not im going to go smoke some pot
  }
  if ($did == 125) {
    scon -a .away work
    scon -a amsg 4,1 bbl going to work ugh
  }
  if ($did == 126) {
    scon -a .away shopping
    scon -a amsg 4,1 bbiab get to go shopping oh yay 
  }
  if ($did == 127) {
    scon -a .away kids 
    scon -a amsg 4,1 bbl have to take care of kids
  }
  if ($did == 128) {
    scon -a .away gaming
    scon -a amsg 4,1 bbl playing video games:D
  }
  if ($did == 129) {
    scon -a .away scripting 
    scon -a amsg 4,1 be back whenever busy scripting
  }
  if ($did == 130) {
    scon -a .away $$?="Reason" 
    scon -a amsg 4,1 $!
  }
  if ($did == 131) {
    scon -a .away 
    scon -a amsg 4,1 i am now back
  }
}

or with the pipes put back in along with the menubar as an option to open the dialog.

Menu channel,nicklist,menubar {
  Away System
  .VenomAwaySys:dialog $iif($dialog(Away.System),-v,-md Away.System) Away.System
}
Dialog Away.System {
  Title "VenomAwaySystem"
  Size -1 -1 230 90
  Option dbu
  Button "eating " 119, 02 02 60 20
  Button "walking dog " 120, 02 24 60 20
  Button "Smoking " 121, 02 46 60 20
  Button "Sex " 122, 02 68 60 20
  Button "sleep " 123, 66 02 60 20
  Button "Pot " 124, 66 24 60 20
  Button "Work " 125, 66 46 60 20
  Button "Shopping " 126, 66 68 60 20
  Button "Kids " 127, 130 02 60 20
  Button "Gaming " 128, 130 24 60 20
  Button "Scripting " 129, 130 46 60 20
  Button "Reason?" 130, 130 68 60 20
  Button "Back" 131, 194 02 30 86
}
on *:dialog:Away.System:sclick:*:{
  if ($did == 119) { scon -a .away eating | scon -a amsg 4,1 brb going to go eat }
  if ($did == 120) { scon -a .away walking dog | scon -a amsg 4,1 going to go walk the dog }
  if ($did == 121) { scon -a .away smoking | scon -a amsg 4,1 brb going to go smoke mm nicotine }
  if ($did == 122) { scon -a .away sex | scon -a amsg 4,1 brb going to go get laid:D }
  if ($did == 123) { scon -a .away Sleeping | scon -a amsg 4,1 away be back in a bit taking a nap }
  if ($did == 124) { scon -a .away pot | scon -a amsg 4,1 i was here but now im not im going to go smoke some pot }
  if ($did == 125) { scon -a .away work | scon -a amsg 4,1 bbl going to work ugh }
  if ($did == 126) { scon -a .away shopping | scon -a amsg 4,1 bbiab get to go shopping oh yay }
  if ($did == 127) { scon -a .away kids | scon -a amsg 4,1 bbl have to take care of kids }
  if ($did == 128) { scon -a .away gaming | scon -a amsg 4,1 bbl playing video games:D }
  if ($did == 129) { scon -a .away scripting | scon -a amsg 4,1 be back whenever busy scripting }
  if ($did == 130) { scon -a .away $$?="Reason" | scon -a amsg 4,1 $! }
  if ($did == 131) { scon -a .away | scon -a amsg 4,1 i am now back }
}

dialog is abit big but not bad for ur first go at it.

 Respond  
blackvenomm666   -  Feb 13, 2010

yea i wasnt able to do the edit box but i did make one that people could do themselves if you noticed haha

 Respond  
blackvenomm666   -  Feb 13, 2010

thank you for noticing that i changed it several times musta messed it up the last time i changed it

 Respond  
Ghost-writer   -  Feb 13, 2010

Err, sex returns unknown command. Possibly you should put colours before the command..
Also you could put all this in 1 on dialog event

alias away {
  scid away $1-
  amsg I am now away, Reason: $1-
}
on *:Dialog:Away.system:sclick:*: {
  if ($did == 119) .away eating
  if ($did == 120) .away Walking Dog
  if ($did == 121) .away Smoking pot
  if ($did == 122) .away Having sex with strange hooker
  if ($did == 123) .away Sleeping 
  if ($did == 124) .away Smoking Pot
  if ($did == 125) .away Work
  if ($did == 126) .away Shopping
  if ($did == 127) .away Doing some shit with my stolen kids
  if ($did == 128) .away gaming
  if ($did == 129) .away Scripting
  if ($did == 130) .away $$?"Why are you away?"
  if ($did == 131) { scon -a away | amsg I am now back }
}

Better yet you could add an edit box for away reasons and make a person just type it there :). Good for your first dialog tho :P.

 Respond  
blackvenomm666   -  Feb 12, 2010

there got rid of em

 Respond  
D2K7   -  Feb 12, 2010

Nice, but fúck the |'s :/

 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.