Time dialog

By Gemster on May 03, 2008

Hi,
I made this snippet as a request and it turned out good so im now useing it and thought id share too (arnt I good :D).

Anyways this is a time dialog that shows u all times,dates,uptimes,connected time and idle time in edit boxes with an option to msg the active channel.

Some credit must go to RusselB for helping with parts of this code.

To use copy and paste into remotes (alt+r).

Enjoy :D

dialog atime {
  title "Time/date System"
  size -1 -1 161 232
  option dbu
  text "Time/date System by Gemster", 1, 56 8 46 13, center
  text "Time is            --", 2, 8 32 40 8
  text "Today is          -- ", 3, 8 48 41 8
  text "This Month is   --", 4, 8 64 41 8
  text "This Year is      --", 5, 8 80 41 8
  text "Full Date is       --", 7, 8 96 42 8
  edit "", 8, 56 32 50 10, read autohs
  edit "", 10, 56 48 50 10, read autohs
  edit "", 11, 56 64 50 10, read autohs
  edit "", 12, 56 80 50 10, read autohs
  edit "", 13, 56 96 50 10, read autohs
  text "All                    --", 14, 8 112 42 8
  edit "", 15, 56 112 73 10, read autohs
  button "Say", 16, 112 32 17 9
  button "Say", 18, 112 48 17 9
  button "Say", 19, 112 64 17 9
  button "Say", 20, 112 80 17 9
  button "Say", 21, 112 96 17 9
  button "Say", 22, 136 112 17 9
  button "Done", 23, 64 216 37 12, ok cancel
  text "Extra times", 6, 64 136 40 8, center
  text "Mirc uptime       --", 9, 8 152 42 8
  text "System uptime  --", 17, 8 168 43 8
  text "Connected        --", 24, 8 184 44 8
  text "Idle Time           --", 25, 8 200 44 8
  edit "", 26, 56 152 50 10, read autohs
  edit "", 27, 56 168 50 10, read autohs
  edit "", 28, 56 184 50 10, read autohs
  edit "", 29, 56 200 50 10, read autohs
  button "Say", 30, 112 152 17 9
  button "Say", 31, 112 168 17 9
  button "Say", 32, 112 184 17 9
  button "Say", 33, 112 200 17 9
  box "", 34, 3 24 154 102
  box "", 35, 4 145 129 69
}
On *:DIALOG:atime:INIT:*:{ 
  .timertabletime 0 1 dt $dname 
} 
on *:dialog:atime:close:*:{ 
  .timertabletime off 
} 
alias -l dt { 
  did -ra $1 8 $time
  did -ra $1 10 $asctime(dddd ddoo)
  did -ra $1 11 $asctime(mmmm)
  did -ra $1 12 $asctime(yyyy)
  did -ra $1 13 $asctime(dd/mm/yyyy)
  did -ra $1 15 My Time is now $time on $asctime(dddd ddoo) of $asctime(mmmm yyyy)
  did -ra $1 26 $uptime(mirc, 1)
  did -ra $1 27 $uptime(system, 1)
  did -ra $1 28 Seconds Connected $online
  did -ra $1 29 $idle
} 
on *:DIALOG:atime:sclick:16:{ /msg $active My time is now $did(8) }
on *:DIALOG:atime:sclick:18:{ /msg $active Today it is $did(10) }
on *:DIALOG:atime:sclick:19:{ /msg $active This Month is $did(11) }
on *:DIALOG:atime:sclick:20:{ /msg $active Can you guess it, this Year is $did(12) }
on *:DIALOG:atime:sclick:21:{ /msg $active Full Date is $did(13) }
on *:DIALOG:atime:sclick:22:{ /msg $active $did(15) }
on *:DIALOG:atime:sclick:30:{ /msg $active My mirc Uptime is $did(26) }
on *:DIALOG:atime:sclick:31:{ /msg $active My system Uptime is $did(27) }
on *:DIALOG:atime:sclick:32:{ /msg $active Number of $did(28) ,since I conected to mirc }
on *:DIALOG:atime:sclick:33:{ /msg $active My idle time is $did(29) seconds }
alias atime { 
  dialog $iif(!$dialog(atime),-md,-ev) atime atime 
} 

Menu Channel {
  Times:/atime
}

Comments

Sign in to comment.
RagBot   -  May 31, 2008

Other than the many typos. This script is great! small,neat and easy to edit, good job!
10/10

 Respond  
Phoenix847   -  May 04, 2008

[10:32:07 PM] <@PhoenixBot> Number of Seconds Connected 4179753 ,since I conected to mirc

A little typo ;O. Need a $+ so its the number, since and... messed up the word \"connected.\" Lol

Anyways, good stuff :D I like it.

 Respond  
SpotRedDog   -  May 03, 2008

Sweet I look forward to it!!!

 Respond  
Gemster   -  May 03, 2008

Thanks SpotRedDog, typos fixed :D and the calender count down timer is a good idea so ill see what I can do for a future update of this.

 Respond  
SpotRedDog   -  May 03, 2008

/msg $active Can you guest it, this Year is $did(12) }

The guest I think should be guess??? Otherwise I am lost, I like it any chance you could add a working calender to it were you could set stuff up I know there are others around but with the timer I think you could maybe add a count down timer to up coming dates and it wouldn\'t be to difficult although I am not sure so thats why I am asking here good luck and I like the code its nice and short as it can be its nice 8/10 keep it up!!

/msg $active Number of $did(28) ,since i conected to mirc }

Also shouldn\'t the i be capitalized I just a guess :)

 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.