All pastes #382036 Raw Edit

Stuff

public text v1 · immutable
·published 2007-03-05 07:27 UTC
rendered paste body
dialog mm {
  size -1 -1 250 50
  title "Game Panel"
  option dbu
  box "Games and Messangers", 8, -1 -1 138 30
  button "Msn", 1, 0 7 25 20
  button "Yahoo", 2, 25 7 25 20
  button "SwiftSwitch", 3, 50 7 33 20
  button "SilkRoad", 4, 83 7 30 20
  button "WoW", 5, 113 7 20 20
  box "Other", 9, 140 -1 250 30
  button "Calc" 6, 141 7 25 20
  button "Paint" 10, 166 7 20 20
  button "Windows Media Player" 11, 186 7 60 20
  text "*NOTE: You need these programs to play them.", 7, 4 30 120 100
  button "Close" 12, 120 30 30 20
  button "Away" 13, 210 30 20 20
  button "Back" 14, 230 30 20 20
  button "volume +" 15, 150 30 30 20
  button "volume -", 16, 180 30 30 20
}

on *:DIALOG:mm:menu:43:{
  dialog -dm mmh mmh
}

alias short {
  dialog -dm mm mm
}

on *:dialog:mm:sclick:1:{
  run C:\Program Files\MSN Messenger/msnmsgr
}

on *:dialog:mm:sclick:2:{
  run C:\Program Files\Yahoo!\Messenger/YahooMessenger
}

on *:dialog:mm:sclick:3:{
  run C:\Program Files\SwiftSwitch/SwiftSwitch
}

on *:dialog:mm:sclick:4:{
  run C:\Program Files\Silkroad/silkroad
}

on *:dialog:mm:sclick:5:{
  run C:\Program Files\World of Warcraft/Launcher
}

on *:dialog:mm:sclick:6:{
  run C:\Documents and Settings\All Users\Start Menu\Programs\Accessories\Calculator
}

on *:dialog:mm:sclick:10:{
  run C:\Documents and Settings\All Users\Start Menu\Programs\Accessories\Paint
}

on *:dialog:mm:sclick:11:{
  run C:\Program Files\Windows Media Player\wmplayer
}

on *:dialog:mm:sclick:12:{
  dialog -x mm mm
}

on *:dialog:mm:sclick:13:{
  if (!%away) {
    .timer 1 1 nick $me $+ |AWAY
    set %awaynick $me
    set %away yo
  }
  else echo -a 10You are already Away
}

on *:dialog:mm:sclick:14:{
  if (%away) {
    nick %awaynick
    unset %away 
  }
  else echo -a 10You are not away
}

menu * {
  .game panel:/dialog -dm mm mm
}

on *:dialog:mm:sclick:15:{ 
  /vol -v $calc( $vol(master) + 5000) 
} 

on *:dialog:mm:sclick:16:{ 
  /vol -v  $calc( $vol(master) - 5000) 
}