Heres mine, that copmes with i dialog, you will notice that the dialog is made by
shaggy, but thats my old name, just incase anybody thinks i ripped it 
--SpAzZ--
dialog ng {
title "Number Guess By: Shaggy"
size -1 -1 134 76
option dbu
tab "Status", 1, 0 0 133 63
box "Game", 2, 4 14 22 26, tab 1
box "Own Number", 3, 30 28 36 30, tab 1
check "On", 4, 6 22 16 8, group tab 1
check "Off", 5, 6 32 16 8, group tab 1
button "Random Number", 6, 30 16 46 10, tab 1
edit "", 7, 32 36 12 8, tab 1
button "Set", 8, 32 46 16 10, tab 1
button "Start", 9, 78 16 30 10, tab 1
button "Off", 10, 78 28 30 10, tab 1
button "Pause", 11, 78 40 30 10, tab 1
button "Unpause", 12, 78 52 30 10, tab 1
button "Done", 13, 56 66 30 10, ok cancel
tab "Credit", 14
edit "This dialog was made by Shaggy. You don't have to give credit in your script, but don't take credit for making it.", 15, 2 14 128 22, tab 14 read multi
}
menu menubar,channel {
Number Guess
.Number Guess: /dialog -m ng ng
}
on *:dialog:ng:sclick:4: set %numberguess.status on
on *:dialog:ng:sclick:5: set %numberguess.status off
on *:dialog:ng:sclick:6: set %numberguess.number $rand(1,1000)
on *:dialog:ng:sclick:8: set %numberguess.number $did($dname,7)
on *:dialog:ng:sclick:9:{ set %numberguess.status on | amsg $chan Number Guess Is Now On. | amsg $chan To make a guess type .guess , for a list of other commands type .ngcmds | set %numberguess.number $rand(1,100) }
on *:dialog:ng:sclick:10:{ set %numberguess.status off | amsg $chan Number Guess Is Now Off. }
on *:dialog:ng:sclick:11:{ set %numberguess.status paused | amsg $chan Number Guess Is Now Paused. }
on *:dialog:ng:sclick:12:{ set %numberguess.status on | amsg $chan Number Guess Is Now Unpaused. }
on *:text:.guess*:#:{
if (%numberguess.status == off ) {
amsg $chan Number Guess is not on right now | amsg $chan To activate Number Guess, type .startng
}
if (%numberguess.status == paused ) {
amsg $chan Number Guess is currently paused. | amsg $chan to unpause Number Guess type .unpauseng
}
if (%numberguess.status == on) {
if ($2 < %numberguess.number ) {
amsg $chan $nick $+ , higher
}
if ($2 > %numberguess.number ) {
amsg $chan $nick $+ , lower
}
if ($2 == %numberguess.number ) {
amsg $chan (*)(*) $nick is the winner! (*)(*)
set %numberguess.status off
}
}
}
on *:text:.startng:#:{
if (%numberguess.status == off) {
/set %numberguess.status on
amsg $chan To make a guess type .guess , for a list of other commands type .ngcmds
set %numberguess.number $rand(1,1000)
}
}
on *:text:.pauseng:#:{
if (%numberguess.status == on) {
set %numberguess.status paused
amsg $chan Number Guess is now paused
}
if (%numberguess.status == off) {
amsg $chan Number Guess is not on right now. | amsg $chan To Start Number Guess type .startng
}
}
on *:text:.unpauseng:#:{
if (%numberguess.status == on) {
amsg $chan Number Guess is not paused right now.
}
if (%numberguess.status == off) {
amsg $chan Number Guess is not on right now. | amsg $chan To Start Number Guess type .startng
}
if (%numberguess.status == paused) {
set %numberguess.status on)
amsg $chan Number Guess is now unpaused.
}
}
on *:text:.stopng:#:{
if (%numberguess.status != off) {
set %numberguess.status off
amsg $chan Number Guess is now off.
}
}
on *:text:.ngcmds:#:{
amsg $chan .:.Number Guess Commands.:. | amsg $chan .startng to start Number Guess. | amsg $chan .stopng to turn off Number Guess. | amsg $chan .pauseng to pause Number Guess. | amsg $chan .unpauseng to unpause Number Guess. | amsg $chan .guess (guess) to place a guess.
