0
|
1 ############################################################################
|
|
2 #
|
|
3 # Laske v0.2 by ccr/TNSP <ccr@tnsp.org>
|
|
4 # (C) Copyright 2008 Tecnic Software productions (TNSP)
|
|
5 #
|
|
6 # This script is freely distributable under GNU GPL (version 2) license.
|
|
7 #
|
|
8 ############################################################################
|
|
9
|
|
10 set laske_preferredmsg "PRIVMSG"
|
|
11
|
|
12
|
|
13 ############################################################################
|
|
14 # No need to look below this line
|
|
15 ############################################################################
|
|
16 set laske_message "Laske v0.2 by ccr/TNSP"
|
|
17 set laske_reps [split "\$|| ||^|**|pi|3.14159265|e|2.71828183" "|"]
|
|
18
|
|
19 putlog "$laske_message"
|
|
20 bind pub - !laske laske_pubmsg
|
|
21 bind msg - laske laske_msg
|
|
22
|
|
23
|
|
24 # -------------------------------------------------------------------------
|
|
25 proc laske_smsg {udest umsg} {
|
|
26 global laske_preferredmsg
|
|
27 putserv "$laske_preferredmsg $udest :$umsg"
|
|
28 }
|
|
29
|
|
30 # -------------------------------------------------------------------------
|
|
31 proc laske_do {args} {
|
|
32 global laske_reps
|
|
33
|
|
34 # Tama on jotain ihan uskomattoman perverssia
|
|
35 set lasku [join [join [string map $laske_reps $args] ""] ""]
|
|
36
|
|
37 # putlog "Laske: $args :: $lasku"
|
|
38 if {[catch { set res [expr $lasku] } errmsg]} {
|
|
39 return $errmsg
|
|
40 } else {
|
|
41 return "$lasku = $res"
|
|
42 }
|
|
43 }
|
|
44
|
|
45 # -------------------------------------------------------------------------
|
|
46 proc laske_pubmsg {nick uhost hand chan args} {
|
|
47 if {$args == {} || $args == ""} {
|
|
48 laske_smsg $chan "Laa laalis paski."
|
|
49 return 1
|
|
50 }
|
|
51
|
|
52 set result [laske_do $args]
|
|
53 laske_smsg $chan "$nick, $result"
|
|
54 return 1
|
|
55 }
|
|
56
|
|
57 # -------------------------------------------------------------------------
|
|
58 proc laske_msg {nick uhost hand args} {
|
|
59 if {$args == {} || $args == ""} {
|
|
60 laske_smsg $nick "Laa laalis paski."
|
|
61 return 1
|
|
62 }
|
|
63
|
|
64 set result [laske_do $args]
|
|
65 laske_smsg $nick "$result"
|
|
66 return 1
|
|
67 }
|
|
68
|
|
69 # -------------------------------------------------------------------------
|