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
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
|
#-- vim:sw=2:et
#++
#
# :title: lart/praise plugin for rbot
#
# Author:: Michael Brailsford <brailsmt@yahoo.com> aka brailsmt
# Author:: Giuseppe "Oblomov" Bilotta <giuseppe.bilotta@gmail.com>
#
# Copyright:: (C) 2002 Michael Brailsford. All rights reserved.
# Copyright:: (C) 2006 Giuseppe Bilotta. All rights reserved.
#
# License:: This plugin is licensed under the BSD license. The terms of
# which follow.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
#
# 1. Redistributions of source code must retain the above copyright notice,
# this list of conditions and the following disclaimer.
#
# 2. Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
#
# Purpose:: Provide for humorous larts and praises
class LartPlugin < Plugin
def initialize
@larts = Array.new
@praises = Array.new
@lartfile = ""
@praisefile = ""
@changed = false
super
end
def set_language(lang)
save
# We may be on an old installation, so on the first run read non-language-specific larts
unless defined?(@oldlart)
@oldlart = datafile 'larts'
@oldpraise = datafile 'praise'
end
@lartfile.replace(datafile "larts-#{lang}")
@praisefile.replace(datafile "praises-#{lang}")
@larts.clear
@praises.clear
if File.exists? @lartfile
IO.foreach(@lartfile) { |line|
@larts << line.chomp
}
elsif File.exists? @oldlart
IO.foreach(@oldlart) { |line|
@larts << line.chomp
}
end
if File.exists? @praisefile
IO.foreach(@praisefile) { |line|
@praises << line.chomp
}
elsif File.exists? @oldpraise
IO.foreach(@oldpraise) { |line|
@praises << line.chomp
}
end
@changed = false
end
def save
return unless @changed
Dir.mkdir(datafile) unless FileTest.directory? datafile
Utils.safe_save(@lartfile) { |file|
file.puts @larts
}
Utils.safe_save(@praisefile) { |file|
file.puts @praises
}
@changed = false
end
def help(plugin, topic="")
"Lart: The lart plugin allows you to lart/praise someone in the channel. You can also add new larts and new praises as well as delete them. For the curious, LART is an acronym for Luser Attitude Readjustment Tool. Usage: lart <who> [<reason>] -- larts <who> for <reason>. praise <who> [<reason>] -- praises <who> for <reason>. [add|rm][lart|praise] -- Add or remove a lart or praise."
end
def handle_lart(m, params)
lart = @larts[get_msg_idx(@larts.length)]
if not lart
m.reply "I dunno any larts"
return
end
who = params[:who].to_s
reason = params[:why]
if who == "me"
who = m.sourcenick
end
if who == @bot.nick
who = m.sourcenick
reason = "for trying to make me lart myself"
end
lart = replace_who lart, who
lart << " #{reason}" unless reason.empty?
m.act lart
end
def handle_praise(m, params)
praise = @praises[get_msg_idx(@praises.length)]
if not praise
m.reply "I dunno any praises"
return
end
who = params[:who].to_s
reason = params[:why]
if who == m.sourcenick || who == "me"
params[:who] = m.sourcenick
params[:why] = "for praising himself"
handle_lart(m, params)
return
end
praise = replace_who praise, who
praise << " #{reason}" unless reason.empty?
m.act praise
end
def handle_addlart(m, params)
@larts << params[:lart].to_s
@changed = true
m.okay
end
def handle_rmlart(m, params)
@larts.delete params[:lart].to_s
@changed = true
m.okay
end
def handle_listlart(m, params)
rx = Regexp.new(params[:lart].to_s, true)
list = @larts.grep(rx)
unless list.empty?
m.reply list.join(" | "), :split_at => /\s+\|\s+/
else
m.reply "no lart found matching #{params[:lart]}"
end
end
def handle_addpraise(m, params)
@praises << params[:praise].to_s
@changed = true
m.okay
end
def handle_rmpraise(m, params)
@praises.delete params[:praise].to_s
@changed = true
m.okay
end
def handle_listpraise(m, params)
rx = Regexp.new(params[:praise].to_s, true)
list = @praises.grep(rx)
unless list.empty?
m.reply list.join(" | "), :split_at => /\s+\|\s+/
else
m.reply "no praise found matching #{params[:praise]}"
end
end
# The following are utils for larts/praises
def replace_who(msg, nick)
msg.gsub(/<who>/i, "#{nick}")
end
def get_msg_idx(max)
idx = rand(max)
end
end
plugin = LartPlugin.new
plugin.map "lart *who [*why]", :requirements => { :why => /(?:for|because)\s+.*/ }, :action => :handle_lart
plugin.map "praise *who [*why]", :requirements => { :why => /(?:for|because)\s+.*/ }, :action => :handle_praise
plugin.map "addlart *lart", :action => :handle_addlart
plugin.map "addpraise *praise", :action => :handle_addpraise
plugin.map "rmlart *lart", :action => :handle_rmlart
plugin.map "rmpraise *praise", :action => :handle_rmpraise
plugin.map "listlart *lart", :action => :handle_listlart
plugin.map "listpraise *praise", :action => :handle_listpraise
|
