procgen  Check-in [93b72b5a88]

Home Timeline Files Branches Tags Forum Tickets Wiki Help
Overview
Comment:checkmate, athiests!
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 93b72b5a88322a12a0f54ba2205500ab4f26eef0df6a95a1a307c975fcdf2978
User & Date: lexi on 2018-11-20 20:40:31
Other Links: manifest | tags
Context
2018-11-20
20:52
fix sam check-in: 44f5ce5d15 user: velartrill tags: trunk
20:40
checkmate, athiests! check-in: 93b72b5a88 user: lexi tags: trunk
2018-11-14
11:08
add ranuir check-in: fc23f5bb6f user: lexi tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified botsoc.scm from [6437b613b4] to [eea7ee34de]. 

42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
...
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
...
309
310
311
312
313
314
315
316
317


























	("disease") 		("the bourgeoisie")
	("crime")		("activism")			("Noam Chomsky")
	("wealth")		("eugenics")		("bigotry")
	("genocide")	("bitcoin")			("ethnic cleansing")
	("vaccination")	("autism")			("the alt-right")
	("authoritarianism") ("freedom of speech")
	("tooth decay")	("neurodivergence")
	("abortion")	("healthcare")
	("islamophobia") ("sexting") ("static typing")
	("dynamic typing") ("heterophobia") ("heterosexuality"))
(rule (adjective)
	("racist")			("homophobic")	("misogynist")
	("bigoted")		("anti-" (thing))	("evil")
	("insane")		("impossible")		("contradictory")
	("illogical")		("revolutionary")	("self-contradictory")
................................................................................
	((problem) " " (modal) " still exist")
	((problem) " " (modal) " " (cause-provoke) " " (problem))
	((problem) " " (modal) " " (cause-provoke) " the defeat of " i)
	((problem) " cannot be distinguished from " i)
	(i " and " (ideology) " cannot be distinguished")
	(i " and " (ideology) " will produce the same result")

	((group) " " (modal) " be exploited")
	((group) " " (modal) " still be exploited")
	((group) " " (modal) " be exploited under " i)
	((group) " " (modal) " still be exploited under " i)
	((group) " " (modal) " face " (problem))
	
	(i " " (modal) " kill " (group))
	
................................................................................
	("since " (pc predicate i) ", " (pc claim i))
	("as a result of " (problem) ", " (pc claim i))
	("due to " (problem) ", " (pc claim i))
	("despite what " (group) " think, " (pc claim i))
	("despite what " (group) " think about " (problem) ", " (pc claim i))
	("while " (group) " think " (pc claim i) ", the reality is that " (pc claim i))
	)
	
(print (statement (ideology)) "\n")

































|







 







|







 







|
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
...
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
...
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342

	("disease") 		("the bourgeoisie")
	("crime")		("activism")			("Noam Chomsky")
	("wealth")		("eugenics")		("bigotry")
	("genocide")	("bitcoin")			("ethnic cleansing")
	("vaccination")	("autism")			("the alt-right")
	("authoritarianism") ("freedom of speech")
	("tooth decay")	("neurodivergence")
	("abortion")	("healthcare")	("the war")
	("islamophobia") ("sexting") ("static typing")
	("dynamic typing") ("heterophobia") ("heterosexuality"))
(rule (adjective)
	("racist")			("homophobic")	("misogynist")
	("bigoted")		("anti-" (thing))	("evil")
	("insane")		("impossible")		("contradictory")
	("illogical")		("revolutionary")	("self-contradictory")
................................................................................
	((problem) " " (modal) " still exist")
	((problem) " " (modal) " " (cause-provoke) " " (problem))
	((problem) " " (modal) " " (cause-provoke) " the defeat of " i)
	((problem) " cannot be distinguished from " i)
	(i " and " (ideology) " cannot be distinguished")
	(i " and " (ideology) " will produce the same result")

	((group) " " (modal) " beaxploited")
	((group) " " (modal) " still be exploited")
	((group) " " (modal) " be exploited under " i)
	((group) " " (modal) " still be exploited under " i)
	((group) " " (modal) " face " (problem))
	
	(i " " (modal) " kill " (group))
	
................................................................................
	("since " (pc predicate i) ", " (pc claim i))
	("as a result of " (problem) ", " (pc claim i))
	("due to " (problem) ", " (pc claim i))
	("despite what " (group) " think, " (pc claim i))
	("despite what " (group) " think about " (problem) ", " (pc claim i))
	("while " (group) " think " (pc claim i) ", the reality is that " (pc claim i))
	)

(rule (punct)
	  (".")		("…")		(" —")		(",")
	  (",")		("...")		(" -")		(" --")
	  ("?")		("!")		("!?")		(";"))

(rule (end-punct)
	  (".")		("…")		("...")		("!")
	  ("?")		("!")		("!!"))

(rule (atheists)
	  ("atheists") ("athiests"))

(rule (checkmate-atheists i)
	  (i (punct) " checkmate, " (atheists) (end-punct))
	  (i (punct) " checkmate " (atheists) (end-punct))
	  (i (punct) " checkmate" (punct) " " (atheists) (end-punct))
	  (i (punct) " #checkmate" (atheists))
	  (i (punct) " #CheckmateAtheists")
	  (i (punct) " #CheckmateAthiests"))

(define (checkmate-athiests i)
	(if (eqv? (random-integer 20) 0)
		(checkmate-atheists i) ; else
		i))

(print (checkmate-athiests (statement (ideology))) "\n")

Modified procbot.rb from [a9347924e0] to [89ca62b13c]. 

1
2
3
4
5
6
7
8
9
10
11
12
13
..
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
...
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
...
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717

#!/usr/bin/ruby
# encoding: UTF-8
require "cinch"
Bots = ["cclg", "sext", "sect", "order", "monster", "pharma", "argue","crime","drug","badbio","bottist","egret_txt", "babdio", "botsoc","dx","ransul"]
ShoutingMatch = /\b(MS\.|MS\s|SERGEANT\s|SGT\s|SGT\.|COMRADE\s|CITIZEN\s)?\s*(SAMANTHA TAGGART|SAMANTHA TAGUE|SAMANTHA|SAM TAGUE|SAM TAGGART|SAMTAGUE|SAMMY|SAM|TAGUE|TAGGART)\b/
SmallMatch = /\b(ms\.|ms\s|sergeant\s|sgt\s|sgt\.|comrade\s|citizen\s)?\s*(samantha taggart|samantha tague|samantha|sam tague|sam taggart|samtague|sam|sammy|tague|taggart|(ね|)サム|(ね|)サムさん|(ね|)サムちゃん|سام|يا سام)\b/i
FormalQs = [
	"How may I be of assistance",
	"Yes",
	"You rang",
	"What can I do for you today",
	"Yes",
	"You rang",
................................................................................
		c.user = "samtague"
		c.realname = "samantha taggart"
		#c.sasl.username = "sam-tague"
		#c.sasl.password = "bott-ist-tot"
		c.ssl.use = true
	end

	on :message, /\b(ms\.|ms\s|sergeant\s|sgt\s|sgt\.|comrade\s|citizen\s)?\s*(samantha taggart|samantha tague|samantha|sam tague|sam taggart|samtague|sam|tague|taggart|(ね|)サム|(ね|)サムさん|(ね|)サムちゃん|سام|يا سام)\b/i do |m|
		
		@m=m
		@shouting = false
		def reply(x)
			if @shouting
				@m.reply x.upcase
			else
................................................................................
				].sample+" to "+[
					"meet you",
					"get to meet you",
					"make your acquaintance"
				].sample+", "+param+(rand(2)==0 ? ". "+user+" has told me so much about you" : "")
			elsif param=scancmd(action,["good night","night","gnight","g'night","i'm going to bed","going to bed","im going to bed", "bedtime", "time for bed", "it's my bedtime","its my bedtime","nighty-night"])
				reply mult(["good night","night","sleep well","sleep tight","i wish you an enjoyable cycle of nocturnal hallucinations", "commencement of dormancy phase acknowledged"], ["", ", "+user, ", pesky flesh-creature", ", human", ", mortal"]).sample
			elsif param=scancmd(action,["i don't care","it doesn't matter","don't care","idc","nevermind","never mind","nvm","i don't give a shit","i don't give a fuck", "does it look like i care"])
				reply dontcare[formality].sample
			elsif param=scancmd(action,["fuck you","fuck off","go fuck yourself","get fucked","fu","get bent","diaf","die in a fire","screw you","you cunt","you bitch","you piece of shit","you scumbag","you sleazeball","you jackass","you asshole","you cockroach","des"])
				reply insults[formality].sample
			elsif param=scancmd(action,["thanks","thank you","i appreciate it", "ty", "thx", "obliged", "much obliged","appreciated","danke","gracias","merci","merci beaucoup","shukran","shukran jazeelan","asante","asante sana","arigatou","doumo arigatou", "ありがとう", "どうもありがとう", "どうもありがとうございます","شكران", "شكران جزيلاا"])
				reply thankyou[formality].sample
			elsif param=scancmd(action,["well done","good work","excellent work","good girl","nicely done","nice job","good job","perfect","you did well","excellent job","you did great","you did perfect","you did perfectly","wonderful","you did good","gj"])
				reply goodgirl[formality].sample
................................................................................
				if formality == :military and lowrank
					reply negatives[formality].sample
					return
				end
				result=perform(action, user)
				r=""
				if result != nil
					result[0] = result[0].upcase if formality != :friendly
					r=affirmatives[formality].sample
					result.chomp!
					result += "." if not result=~/\W$/
					reply r+" "+result
				else
					reply negatives[formality].sample
				end





|
|







 







|







 







|







 







|








1
2
3
4
5
6
7
8
9
10
11
12
13
..
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
...
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
...
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717

#!/usr/bin/ruby
# encoding: UTF-8
require "cinch"
Bots = ["cclg", "sext", "sect", "order", "monster", "pharma", "argue","crime","drug","badbio","bottist","egret_txt", "babdio", "botsoc","dx","ransul"]
ShoutingMatch = /\b(MS\.|MS\s|SERGEANT\s|SGT\s|SGT\.|COMRADE\s|CITIZEN\s)?\s*(SAMANTHA TAGGART|SAMANTHA TAGUE|SAMANTHA|SAM TAGUE|SAM TAGGART|SAMTAGUE|SAMMY|SAM|TAGUE|TAGGART|FRIEND COMPUTER)\b/
SmallMatch = /\b(ms\.|ms\s|sergeant\s|sgt\s|sgt\.|comrade\s|citizen\s)?\s*(samantha taggart|samantha tague|samantha|sam tague|sam taggart|samtague|sam|sammy|tague|taggart|friend computer|(ね|)サム|(ね|)サムさん|(ね|)サムちゃん|سام|يا سام)\b/i
FormalQs = [
	"How may I be of assistance",
	"Yes",
	"You rang",
	"What can I do for you today",
	"Yes",
	"You rang",
................................................................................
		c.user = "samtague"
		c.realname = "samantha taggart"
		#c.sasl.username = "sam-tague"
		#c.sasl.password = "bott-ist-tot"
		c.ssl.use = true
	end

	on :message, /\b(ms\.|ms\s|sergeant\s|sgt\s|sgt\.|comrade\s|citizen\s)?\s*(samantha taggart|samantha tague|samantha|sam tague|sam taggart|samtague|sam|tague|taggart|friend computer|(ね|)サム|(ね|)サムさん|(ね|)サムちゃん|سام|يا سام)\b/i do |m|
		
		@m=m
		@shouting = false
		def reply(x)
			if @shouting
				@m.reply x.upcase
			else
................................................................................
				].sample+" to "+[
					"meet you",
					"get to meet you",
					"make your acquaintance"
				].sample+", "+param+(rand(2)==0 ? ". "+user+" has told me so much about you" : "")
			elsif param=scancmd(action,["good night","night","gnight","g'night","i'm going to bed","going to bed","im going to bed", "bedtime", "time for bed", "it's my bedtime","its my bedtime","nighty-night"])
				reply mult(["good night","night","sleep well","sleep tight","i wish you an enjoyable cycle of nocturnal hallucinations", "commencement of dormancy phase acknowledged"], ["", ", "+user, ", pesky flesh-creature", ", human", ", mortal"]).sample
			elsif param=scancmd(action,["i don't care","it doesn't matter","don't care","idc","nevermind","never mind","nvm","i don't give a shit","i don't give a fuck", "does it look like i care","maso ve","resho ve","resh dalo ve"])
				reply dontcare[formality].sample
			elsif param=scancmd(action,["fuck you","fuck off","go fuck yourself","get fucked","fu","get bent","diaf","die in a fire","screw you","you cunt","you bitch","you piece of shit","you scumbag","you sleazeball","you jackass","you asshole","you cockroach","des"])
				reply insults[formality].sample
			elsif param=scancmd(action,["thanks","thank you","i appreciate it", "ty", "thx", "obliged", "much obliged","appreciated","danke","gracias","merci","merci beaucoup","shukran","shukran jazeelan","asante","asante sana","arigatou","doumo arigatou", "ありがとう", "どうもありがとう", "どうもありがとうございます","شكران", "شكران جزيلاا"])
				reply thankyou[formality].sample
			elsif param=scancmd(action,["well done","good work","excellent work","good girl","nicely done","nice job","good job","perfect","you did well","excellent job","you did great","you did perfect","you did perfectly","wonderful","you did good","gj"])
				reply goodgirl[formality].sample
................................................................................
				if formality == :military and lowrank
					reply negatives[formality].sample
					return
				end
				result=perform(action, user)
				r=""
				if result != nil
					result[0] = result[0].upcase if formality != :friendly and formality != :ranuir
					r=affirmatives[formality].sample
					result.chomp!
					result += "." if not result=~/\W$/
					reply r+" "+result
				else
					reply negatives[formality].sample
				end

Fossil 2.17 [6b37b55f75] 2021-08-16 00:11:20