Mercurial > hg > egg-tcls
annotate tj.tcl @ 125:42cf6a768c46
tj: Add support for years in the output.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Sun, 27 May 2012 10:36:03 +0300 |
| parents | d9de3870b72e |
| children | 86500b3ac599 |
| rev | line source |
|---|---|
| 70 | 1 ########################################################################## |
| 0 | 2 # |
| 3 # TJ (Army Mornings Left-counter) v0.60 by ccr/TNSP | |
|
5
5ac4fd6d011a
tj: Handle command arguments better.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
4 # (C) Copyright 2000,2009,2011 Tecnic Software productions (TNSP) |
| 0 | 5 # Send comments and shit via e-mail: <ccr@tnsp.org> |
| 6 # | |
| 7 # This script is freely distributable under GNU GPL (version 2) license. | |
| 8 # | |
| 9 # Laskee aamuja tiettyyn paivamaaraan. TJ-paivamaara annettava | |
| 10 # tietenkin etta toimii, oletuksena skripti asettaa (uudelle kayttajalle) | |
| 11 # sen hetkisen ajan + 180 aamua. Esimerkkeja kaytosta: | |
| 12 # !tj [nick] | |
| 13 # /msg TheBot tj [nick] | |
| 14 # | |
| 15 # Ja TJ:n asetus toimii nain: | |
| 16 # !tjaamut <[-]aamujen lkm tasta hetkesta laskien> [+/- tunnit] | |
| 17 # !tjset dd.mm.yyyy hh:mm | |
| 18 # | |
| 70 | 19 ########################################################################## |
| 0 | 20 |
| 21 # Default starting TJ | |
| 22 set tj_defstarttj 180 | |
| 23 | |
| 24 | |
| 25 | |
| 70 | 26 ########################################################################## |
| 0 | 27 # No need to look below this line |
| 70 | 28 ########################################################################## |
|
5
5ac4fd6d011a
tj: Handle command arguments better.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
29 set tj_message "TJ (SA-INT model) v0.65 by ccr/TNSP" |
| 0 | 30 set tj_dateident "tjdate" |
| 31 set tj_preferredmsg "PRIVMSG" | |
| 32 | |
| 33 putlog "$tj_message" | |
| 34 bind pub - !tj tj_pubmsg | |
| 35 bind pub - !tjaamut tj_pubaamut | |
| 36 bind pub - !tjset tj_pubset | |
| 37 | |
| 70 | 38 # ------------------------------------------------------------------------ |
| 0 | 39 proc tj_correctnickcase { jnick } { |
| 40 | |
| 41 if {![validuser $jnick]} { return "" } | |
| 42 set nicklwr [string tolower $jnick] | |
| 43 foreach juser [userlist] { | |
| 44 if {[string tolower $juser] == $nicklwr} { | |
| 45 unset nicklwr | |
| 46 return "$juser" | |
| 47 } | |
| 48 } | |
| 49 | |
| 50 return "" | |
| 51 } | |
| 52 | |
| 53 | |
| 70 | 54 # ------------------------------------------------------------------------ |
| 0 | 55 proc tj_smsg {udest umsg} { |
| 56 global tj_preferredmsg | |
| 57 | |
| 58 putserv "$tj_preferredmsg $udest :$umsg" | |
| 59 } | |
| 60 | |
| 61 | |
| 70 | 62 # ------------------------------------------------------------------------ |
| 0 | 63 proc tj_pubmsg {nick uhost hand chan args} { |
|
5
5ac4fd6d011a
tj: Handle command arguments better.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
64 set args [string trim [join $args ""]] |
|
5ac4fd6d011a
tj: Handle command arguments better.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
65 if {$args == ""} { set args $hand } |
| 0 | 66 |
| 67 tj_smsg $chan [tj_gettj $args $chan] | |
| 68 return 1 | |
| 69 } | |
| 70 | |
| 71 | |
| 70 | 72 # ------------------------------------------------------------------------ |
| 0 | 73 proc tj_ctime { utime } { |
| 74 return [clock format $utime -format "%d.%m.%Y %H:%M"] | |
| 75 } | |
| 76 | |
| 77 | |
| 70 | 78 # ------------------------------------------------------------------------ |
| 0 | 79 proc tj_pubaamut {unick uhost uhand uchan uargs} { |
| 80 set foo [split $uargs " "] | |
| 81 set tjdays [lindex $foo 0] | |
| 82 set tjhours [lindex $foo 1] | |
| 83 if {$tjdays == ""} { | |
| 84 tj_smsg $uchan "Hälärm." | |
| 85 return 1 | |
| 86 } | |
| 87 | |
| 88 if {$tjhours == ""} { set tjhours 0 } | |
| 89 | |
| 90 set udate [expr [unixtime] + ($tjdays * 86400) + ($tjhours * 3600)] | |
| 91 tj_smsg $uchan [tj_settj $uhand $unick $udate] | |
| 92 return 1 | |
| 93 } | |
| 94 | |
| 95 | |
| 70 | 96 # ------------------------------------------------------------------------ |
| 0 | 97 proc tj_pubset {unick uhost uhand uchan uargs} { |
| 98 | |
| 99 set udate [clock scan $uargs -format "%d.%N.%Y %H:%M"] | |
| 100 tj_smsg $uchan [tj_settj $uhand $unick $udate] | |
| 101 return 1 | |
| 102 } | |
| 103 | |
| 104 | |
| 70 | 105 # ------------------------------------------------------------------------ |
| 0 | 106 proc tj_settj { uuser unick udate } { |
| 107 global tj_dateident | |
| 108 | |
| 109 if {![validuser $uuser]} { | |
| 110 return "Tuntematon käyttäjä $uuser." | |
| 111 } | |
| 112 | |
| 113 setuser $uuser XTRA $tj_dateident $udate | |
| 114 return "$unick:n ($uuser) TJ asetettu. ([tj_ctime $udate])" | |
| 115 } | |
| 116 | |
| 117 | |
| 70 | 118 # ------------------------------------------------------------------------ |
|
125
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
119 proc tj_append { qlause qaika qstr qadd } { |
|
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
120 upvar $qlause lause |
|
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
121 if {$qaika > 0} { |
|
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
122 if {$lause != ""} { append lause $qadd } |
|
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
123 append lause $qstr |
|
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
124 } |
|
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
125 } |
|
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
126 |
|
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
127 # ------------------------------------------------------------------------ |
| 0 | 128 proc tj_gettj {ihandle ichan} { |
| 129 global tj_defstarttj | |
| 130 global tj_dateident | |
| 131 | |
| 132 # Tarkistetaan onko kayttaja OK | |
| 133 if {![validuser $ihandle]} { | |
| 134 if {$ichan == ""} { | |
| 135 return "$ihandle, Mene pois." | |
| 136 } else { | |
| 137 if {$ihandle == "*"} { | |
| 138 return "En tiedä kuka olet, mene pois." | |
| 139 } else { | |
| 140 return "En tiedä kuka $ihandle on." | |
| 141 } | |
| 142 } | |
| 143 } | |
| 144 | |
| 145 set chandle [tj_correctnickcase $ihandle] | |
| 146 | |
| 147 # Haetaan TJ aloitus paivamaara | |
| 148 set tjpaiva [getuser $chandle XTRA $tj_dateident] | |
| 149 | |
| 150 if {$tjpaiva == ""} { | |
| 151 return "$chandle ei ole asettanut itselleen TJ päivämäärää." | |
| 152 } | |
| 153 | |
| 154 # Lasketaan tamanhetkinen TJ aika | |
| 155 set deltatj [expr $tjpaiva - [unixtime]] | |
| 156 | |
| 157 if {$deltatj < 0} { | |
| 158 set tmp [expr [unixtime] - $tjpaiva] | |
| 159 } else { | |
| 160 set tmp $deltatj | |
| 161 } | |
| 162 | |
| 163 # Lasketaan TJ aamut, tunnit jne | |
|
125
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
164 set vuodet [expr ($tmp / (365*24*60*60))] |
|
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
165 set rem [expr ($tmp % (365*24*60*60))] |
|
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
166 set aamut [expr ($rem / (24*60*60))] |
|
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
167 set rem [expr ($rem % (24*60*60))] |
|
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
168 set tunnit [expr ($rem / (60*60))] |
| 0 | 169 |
| 170 # Maaritetaan sanalause | |
| 171 if {$ichan != ""} { | |
| 172 set tjmt "$chandle:lla on" | |
| 173 set tjmi "$chandle on" | |
| 174 } else { | |
| 175 set tjmt "Sinulla on" | |
| 176 set tjmi "Sinä olet" | |
| 177 } | |
| 178 | |
|
125
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
179 set lause "" |
|
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
180 tj_append lause $vuodet "$vuodet vuotta" "" |
|
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
181 tj_append lause $aamut "$aamut aamua" ", " |
|
42cf6a768c46
tj: Add support for years in the output.
Matti Hamalainen <ccr@tnsp.org>
parents:
108
diff
changeset
|
182 tj_append lause $tunnit "$tunnit tuntia" " ja " |
| 0 | 183 |
| 184 if {$aamut == 0 && $deltatj > 0} { | |
| 185 if {$tunnit == 0} { | |
| 186 return "$tjmt TOSI WÄINÖ! TJ 0!!" | |
| 187 } else { | |
| 188 return "$tjmt AIKA WÄBÄ -- TJ $tunnit tuntia!" | |
| 189 } | |
| 190 } else { | |
| 191 if {$deltatj > 0} { | |
| 192 return "$tjmt $lause jäljellä... ([tj_ctime $tjpaiva])" | |
| 193 } else { | |
| 194 return "$tjmi ollut reservissä jo $lause! ([tj_ctime $tjpaiva])" | |
| 195 } | |
| 196 } | |
| 197 | |
| 198 } | |
| 199 | |
| 70 | 200 # ------------------------------------------------------------------------ |