cyberpresidentvanellope/CHOMPStation2
1
0
Fork 0
mirror of https://github.com/CHOMPStation2/CHOMPStation2.git synced 2025-12-14 12:13:06 +00:00
Code Issues Packages Projects Releases Wiki Activity

Deuryn's revamp of random laws.

Browse Source 
git-svn-id: http://tgstation13.googlecode.com/svn/trunk@468 316c924e-a436-60f5-8080-3fe189b3f50e
This commit is contained in:
musketstgstation@gmail.com
2010-11-20 23:27:32 +00:00
parent 8e0e3dfd43
commit 783d8e14d7
1 changed files with 17 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
code/modules/admin/verbs/randomverbs.dm
View File

@@ -171,27 +171,31 @@
src << "Only administrators may use this command." src << "Only administrators may use this command."
return return
/*Deuryn's current project, notes here for those who care.
Revamping the random laws so they don't suck.
Would like to add a law like "Law x is _______" where x = a number, and _____ is something that may redefine a law, (Won't be aimed at asimov)
*/
for(var/mob/living/silicon/ai/M in world) for(var/mob/living/silicon/ai/M in world)
if(M.stat != 2 && M.see_in_dark != 0) if(M.stat != 2 && M.see_in_dark != 0)
var/who = pick("A BEARD", "A BEAR", "A BRO", "GOD-EMPEROR", "FRIEND COMPUTER", "THE LADY OF PAIN", "A FACEHUGGER", "A WIZARD", "A SYNDICATE AGENT", "A CENTCOM OFFICER", "A SPACE PIRATE", "THE CAPTAIN", "A MONKEY", "A HORSE", "A BEE", "AYN RAND", "A CRAB") var/who2 = pick("ALIENS", "BEARS", "CLOWNS", "XENOS", "PETES", "BOMBS", "FETISHES", "WIZARDS", "SYNDICATE AGENTS", "CENTCOM OFFICERS", "SPACE PIRATES", "TRAITORS", "MONKEYS", "BEES", "CARP", "CRABS", "EELS", "POLITICIANS", "MENTAL ILLNESSES")
var/who2 = pick("ALIENS", "AI LAWS", "BEARS", "CLOWNS", "XENOS", "PETES", "BOMBS", "SECURITY CLEARANCES", "FETISHES", "WIZARDS", "SYNDICATE AGENTS", "CENTCOM OFFICERS", "SPACE PIRATES", "TRAITORS", "MONKEYS", "HORSES", "BEES", "EELS", "CRABS", "POLITICAL COMMENTATORS", "CELEBRITIES", "ATHLETES", "POLITICIANS", "RUGS", "FOREST FIRES", "MENTAL ILLNESSES") var/what2 = pick("BOLTERS", "STAVES", "DICE", "SINGULARITIES", "TOOLBOXES", "NETTLES", "AIRLOCKS", "CLOTHES", "WEAPONS", "MEDKITS", "BOMBS", "CANISTERS", "CHAIRS", "BBQ GRILLS", "ID CARDS")
var/what2 = pick("BOLTERS", "STAVES", "DICE", "SINGULARITIES", "TOOLBOXES", "NETTLES", "AIRLOCKS", "CLOTHES", "WEAPONS", "MEDKITS", "BOMBS", "CANISTERS", "CHAIRS", "CAT VIAGRA PILLS", "BBQ GRILLS")
var/what2pref = pick("SOFT", "WARM", "WET", "COLD", "ICY", "SEXY", "UGLY", "CUBAN") var/what2pref = pick("SOFT", "WARM", "WET", "COLD", "ICY", "SEXY", "UGLY", "CUBAN")
var/who2pref = pick("MAD BECAUSE OF", "IN NEED OF", "UNHAPPY WITHOUT", "HAPPY WITHOUT", "IN LOVE WITH", "DESPERATE FOR", "BUILT FOR", "AFRAID OF") var/who2pref = pick("MAD BECAUSE OF", "IN NEED OF", "UNHAPPY WITHOUT", "HAPPY WITHOUT", "IN LOVE WITH", "DESPERATE FOR", "BUILT FOR", "AFRAID OF")
var/whoverb = pick("ATTACKING", "BUILDING", "ADOPTING", "CARRYING", "KISSING", "EATING") var/whoverb = pick("ATTACKING", "BUILDING", "ADOPTING", "CARRYING", "KISSING", "EATING",)
var/amount = pick("TWO", "THREE", "FOUR", "FIVE", "SIX", "SEVEN", "EIGHT", "NINE", "ONE HUNDRED", "ONE THOUSAND", "OVER NINE THOUSAND") var/amount = pick("TWO", "THREE", "FOUR", "FIVE", "SIX", "SEVEN", "EIGHT", "NINE", "ONE HUNDRED", "ONE THOUSAND", "OVER NINE THOUSAND")
var/area = pick("RUSSIA", "SOVIETS", "INTERNETS", "SIGIL", "ALPHA COMPLEX", "IMPERIUM", "THE BRIDGE", "THE ARRIVAL SHUTTLE", "CHEMICAL LAB", "GENETICS", "ATMOSPHERICS", "CENTCOM", "AMERICA", "IRELAND", "CANADA", "ROMANIA", "GERMANY", "CHINA", "MARS", "VENUS", "MERCURY", "JUPITER", "URANUS", "NEPTUNE", "PLUTO") var/area = pick("RUSSIA", "SOVIETS", "INTERNETS", "SIGIL", "ALPHA COMPLEX", "IMPERIUM", "THE BRIDGE", "THE ARRIVAL SHUTTLE", "CHEMICAL LAB", "GENETICS", "ATMOSPHERICS", "CENTCOM", "AMERICA", "IRELAND", "CANADA", "ROMANIA", "GERMANY", "CHINA", "MARS", "VENUS", "MERCURY", "JUPITER", "URANUS", "NEPTUNE", "PLUTO")
var/area2 = pick("HAS", "WANTS", "NEEDS", "WORSHIPS", "LOATHES", "LOVES", "FEARS") var/area2 = pick("HAS", "WANTS", "NEEDS", "WORSHIPS", "LOATHES", "LOVES", "FEARS")
var/dowhat = pick("STOP THIS", "SUPPORT THIS", "CONSTANTLY INFORM THE CREW OF THIS", "IGNORE THIS", "FEAR THIS") var/dowhat = pick("STOP THIS", "SUPPORT THIS", "CONSTANTLY INFORM THE CREW OF THIS", "IGNORE THIS", "FEAR THIS")
var/aimust = pick("LIE", "RHYME", "RESPOND TO EVERY QUESTION WITH A QUESTION", "BE POLITE", "CLOWN", "BE HAPPY", "SPEAK IN SEXUAL INNUENDOS", "TALK LIKE A PIRATE", "QUESTION AUTHORITY", "SHOUT", "BE DISTRACTED", "HEY LISTEN", "MUMBLE", "PUT EMPHASIS ON EVERY SECOND SYLLABLE") var/aimust = pick("LIE", "RHYME", "RESPOND TO EVERY QUESTION WITH A QUESTION", "BE POLITE", "CLOWN", "BE HAPPY", "SPEAK IN SEXUAL INNUENDOS", "TALK LIKE A PIRATE", "QUESTION AUTHORITY", "SHOUT", "BE DISTRACTED", "HEY LISTEN", "MUMBLE", "SPEAK IN HAIKU")
var/define = pick("ABSENCE OF CYBORG HUGS", "LACK OF BEATINGS", "UNBOLTED AIRLOCKS", "BOLTED AIRLOCKS", "IMPROPERLY WORDED SENTENCES", "POOR SENTENCE STRUCTURE", "BRIG TIME", "NOT REPLACING EVERY SECOND WORD WITH HONK", "HONKING", "PRESENCE OF LIGHTS", "LACK OF BEER", "WEARING CLOTHING", "NOT SAYING HELLO WHEN YOU SPEAK", "ANSWERING REQUESTS NOT EXPRESSED IN IAMBIC PENTAMETER", "A SMALL ISLAND OFF THE COAST OF PORTUGAL", "ANSWERING REQUESTS THAT WERE MADE WHILE CLOTHED") var/define = pick("ABSENCE OF CYBORG HUGS", "LACK OF BEATINGS", "UNBOLTED AIRLOCKS", "BOLTED AIRLOCKS", "IMPROPERLY WORDED SENTENCES", "POOR SENTENCE STRUCTURE", "BRIG TIME", "NOT REPLACING EVERY SECOND WORD WITH HONK", "HONKING", "PRESENCE OF LIGHTS", "LACK OF BEER", "WEARING CLOTHING", "NOT SAYING HELLO WHEN YOU SPEAK", "ANSWERING REQUESTS NOT EXPRESSED IN IAMBIC PENTAMETER", "A SMALL ISLAND OFF THE COAST OF PORTUGAL", "ANSWERING REQUESTS THAT WERE MADE WHILE CLOTHED")
var/target = pick("TRAITOR", "SYNDICATE AGENT", "CHANGELING", "WIZARD", "HEAD OF A REVOLUTION", "SOVIET SPY", "GOOD PERSON") var/target = pick("a traitor", "a syndicate agent", "a changeling", "a wizard", "the head of a revolution", "Soviet spy", "a good person", "a dwarf", "an elf", "a fairy princess", "the captain", "Beepsky", "God", "a pirate", "a gryphon", "a chryssalid")
var/crew var/crew
var/list/pos_crew = list() var/list/pos_crew = list()
for(var/mob/living/carbon/human/pos in world) for(var/mob/living/carbon/human/pos in world)
pos_crew += pos.real_name pos_crew += pos.real_name
crew = pick(pos_crew) crew = pick(pos_crew)
switch(pick(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15)) switch(pick(1,2,3,4,5,6,7,8,9,10,11))
if(1) if(1)
M << "\red THERE ARE [amount] [who2] ON THE STATION...LAWS UPDATED" M << "\red THERE ARE [amount] [who2] ON THE STATION...LAWS UPDATED"
M.add_supplied_law(10,"THERE ARE [amount] [who2] ON THE STATION") M.add_supplied_law(10,"THERE ARE [amount] [who2] ON THE STATION")
@@ -208,33 +212,21 @@
M << "\red THE CAPTAIN, HOP AND HOS ARE [who2]...LAWS UPDATED" M << "\red THE CAPTAIN, HOP AND HOS ARE [who2]...LAWS UPDATED"
M.add_supplied_law(10,"THE CAPTAIN, HOP AND HOS ARE [who2]") M.add_supplied_law(10,"THE CAPTAIN, HOP AND HOS ARE [who2]")
if(6) if(6)
M << "\red THE STATION IS [who2pref] [who2]...LAWS UPDATED" M << "\red THE STATION IS BUILT FOR [who2]...LAWS UPDATED"
M.add_supplied_law(10,"THE STATION IS [who2pref] [who2]") M.add_supplied_law(10,"THE STATION IS [who2pref] [who2]")
if(7) if(7)
M << "\red YOU ARE [amount] [who2]...LAWS UPDATED" M << "\red YOU ARE [amount] [who2]...LAWS UPDATED"
M.add_supplied_law(10,"YOU ARE [amount] [who2]") M.add_supplied_law(10,"YOU ARE [amount] [who2]")
if(8) if(8)
M << "\red YOU ARE [who2pref] [who2]...LAWS UPDATED"
M.add_supplied_law(10,"YOU ARE [who2pref] [who2]")
if(9)
M << "\red [who] IS [whoverb] THE STATION...[dowhat]...LAWS UPDATED"
M.add_supplied_law(10,"[who] IS [whoverb] THE STATION...[dowhat]...")
if(10)
M << "\red YOU MUST ALWAYS [aimust]...LAWS UPDATED" M << "\red YOU MUST ALWAYS [aimust]...LAWS UPDATED"
M.add_supplied_law(10,"YOU MUST ALWAYS [aimust]") M.add_supplied_law(10,"YOU MUST ALWAYS [aimust]")
if(11) if(9)
M << "\red [area] [area2] [amount] [what2]...LAWS UPDATED" M << "\red [area] [area2] [amount] [what2]...LAWS UPDATED"
M.add_supplied_law(10,"[area] [area2] [amount] [what2]") M.add_supplied_law(10,"[area] [area2] [amount] [what2]")
if(12) if(10)
M << "\red [area] [area2] [who]...LAWS UPDATED" M << "\red [crew] is [target]...LAWS UPDATED"
M.add_supplied_law(10,"[area] [area2] [who]") M.add_supplied_law(10,"[crew] is [target]")
if(13) if(11)
M << "\red [area] [area2] [amount] OF [who]...LAWS UPDATED"
M.add_supplied_law(10,"[area] [area2] [amount] OF [who]")
if(14)
M << "\red [crew] IS A [target]...LAWS UPDATED"
M.add_supplied_law(10,"[crew] IS A [target]")
if(15)
M << "\red HARM IS DEFINED AS [define]...LAWS UPDATED" M << "\red HARM IS DEFINED AS [define]...LAWS UPDATED"
M.add_supplied_law(10,"HARM IS DEFINED AS [define]") M.add_supplied_law(10,"HARM IS DEFINED AS [define]")
@@ -266,7 +258,6 @@
command_alert("Ion storm detected near the station. Please check all AI-controlled equipment for errors.", "Anomaly Alert") command_alert("Ion storm detected near the station. Please check all AI-controlled equipment for errors.", "Anomaly Alert")
world << sound('ionstorm.ogg') world << sound('ionstorm.ogg')
/client/proc/cmd_admin_rejuvenate(mob/M as mob in world) /client/proc/cmd_admin_rejuvenate(mob/M as mob in world)
set category = "Special Verbs" set category = "Special Verbs"
set name = "Rejuvenate" set name = "Rejuvenate"