blob: f0eb41c9df8fb670225ceab493477b3cedd9c610 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
|
# decision.tcl by lookshe (v 1.1)
#
# todo: little bit better coding style
#
# usage: [ ] decision1 [ ] decision2 [ ] desicion3 ...
# no need for space after "]" but before "["
#
# Changelog:
#
# 1.0
# - first working version
#
# 1.1
# - remember answers for 60 minutes
bind pub - \[ proc_decision
bind pub - !zufall proc_zufall
bind pub - !random proc_zufall
proc proc_zufall {nick host hand chan arguments} {
global do_dec
if {[info exists do_dec($nick:$chan)]} {
set act_do_dec $do_dec($nick:$chan)
if {$act_do_dec < 3} {
incr act_do_dec
set do_dec($nick:$chan) $act_do_dec
} else {
putserv "NOTICE $nick :no flooding!"
return 0
}
} else {
set do_dec($nick:$chan) 1
timer 10 "unset do_dec($nick:$chan)"
}
if {$arguments == ""} {
set arguments 0
}
if {![string is integer $arguments]} {
set arguments 0
}
set arg $arguments
set myran 0
if {$arg <= 0} {
set arg 6
}
set myran [expr [rand $arg] + 1]
putserv "PRIVMSG $chan :Der Würfel sagt: $myran ($arg)"
}
proc proc_decision {nick host hand chan arguments} {
global do_dec
if {[info exists do_dec($nick:$chan)]} {
if {$nick == "lookshe"} {
unset do_dec($nick:$chan)
} else {
set act_do_dec $do_dec($nick:$chan)
if {$act_do_dec < 3} {
incr act_do_dec
set do_dec($nick:$chan) $act_do_dec
} else {
putserv "NOTICE $nick :no flooding!"
return 0
}
}
} else {
if {$nick != "lookshe"} {
set do_dec($nick:$chan) 1
timer 10 "unset do_dec($nick:$chan)"
}
}
set allargs [string map {" " _} $arguments]
set arguments [split $arguments]
set count 1
set klammer_count 0
if {([lindex $arguments 0] == "]") || ([string first "]" [lindex $arguments 0]] == 0)} {
incr klammer_count
} else {
return
}
while {$count != [llength $arguments]} {
if {[lindex $arguments $count] == "\["} {
set tmp $count
incr tmp
if {([lindex $arguments $tmp] == "]") || ([string first "]" [lindex $arguments $tmp]] == 0)} {
incr klammer_count
}
}
incr count
}
if {$klammer_count == 1} {
return
}
set count 0
set myrand [rand $klammer_count]
if {[info exists do_dec($allargs)]} {
set myrand $do_dec($allargs)
timer 60 "unset do_dec($allargs)"
} else {
set do_dec($allargs) $myrand
timer 60 "unset do_dec($allargs)"
}
set klammer_count 0
if {$myrand == 0} {
set output "\[X"
while {$count != [llength $arguments]} {
set output "$output[lindex $arguments $count] "
incr count
}
} else {
set output "\["
while {$count != [llength $arguments]} {
if {[lindex $arguments $count] == "\["} {
set tmp $count
incr tmp
if {([lindex $arguments $tmp] == "]") || ([string first "]" [lindex $arguments $tmp]] == 0)} {
incr klammer_count
}
}
if {$klammer_count == $myrand} {
if {([lindex $arguments $count] == "]") || ([string first "]" [lindex $arguments $count]] == 0)} {
set output "[string range $output 0 end]X"
} else {
set output "$output "
}
} else {
set output "$output "
}
set output "$output[lindex $arguments $count]"
incr count
}
}
putserv "PRIVMSG $chan :$output"
}
putlog "decision by lookshe loaded"
|
