cyberpresidentvanellope/Polaris
1
0
Fork 0
mirror of https://github.com/PolarisSS13/Polaris.git synced 2026-01-06 15:32:52 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #9004 from Cerebulon/spamspamspam

Browse Source 
PDA: The Spammening
This commit is contained in:
Sypsoti
2023-03-04 15:35:22 -06:00
committed by GitHub
parent 99bd1a5891 85615fe011
commit 875ce57109
1 changed files with 39 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
code/modules/gamemaster/event2/events/everyone/pda_spam.dm
View File

@@ -37,7 +37,7 @@
for(var/obj/item/pda/check_pda in sortAtom(PDAs))
if (!check_pda.owner || check_pda == src || check_pda.hidden)
continue
var/datum/data/pda/app/messenger/M = check_pda.find_program(/datum/data/pda/app/messenger)
if(!M || M.toff)
continue
@@ -78,55 +78,69 @@
/datum/event2/event/pda_spam/proc/generate_spam()
var/sender = null
var/message = null
switch(rand(1, 7))
switch(rand(1, 8))
if(1)
sender = pick("MaxBet","MaxBet Online Casino","There is no better time to register","I'm excited for you to join us")
sender = pick("MaxBet","MaxBet Online Casino","There is no better time to register","I'm excited for you to join us","Join millions of lucky players...")
message = pick("Triple deposits are waiting for you at MaxBet Online when you register to play with us.",\
"You can qualify for a 200% Welcome Bonus at MaxBet Online when you sign up today.",\
"Once you are a player with MaxBet, you will also receive lucrative weekly and monthly promotions.",\
"Life-changing winnings* await when you register with MaxBet today.",\
"You will be able to enjoy over 450 top-flight casino games at MaxBet.")
if(2)
sender = pick(300;"QuickDatingSystem",200;"Find your russian bride",50;"Tajaran beauties are waiting",50;"Find your secret skrell crush",50;"Beautiful unathi brides")
sender = pick(300;"QuickDatingSystem",200;"Find your almachi bride",50;"Tajaran beauties are waiting",50;"Find your secret skrell crush",50;"Beautiful unathi brides")
message = pick("Your profile caught my attention and I wanted to write and say hello (QuickDating).",\
"If you will write to me on my email [pick(first_names_female)]@[pick(last_names)].[pick("ru","ck","tj","ur","nt")] I shall necessarily send you a photo (QuickDating).",\
"If you will write to me on my email [pick(pick(first_names_female),(pick(first_names_male)))]@[pick(last_names)].[pick("xo.vr","ck","tj","ur","gov","nt","xo.sh")] I shall necessarily send you a photo (QuickDating).",\
"I want that we write each other and I hope, that you will like my profile and you will answer me (QuickDating).",\
"Meet local [pick("boys", "girls", "singles", "drones")] in [pick("Vir", "Sif", "Londunseyja", "Low Sif Orbit", "[using_map.station_name]")]",\
"You have (1) new message!",\
"You have (2) new profile views!")
if(3)
sender = pick("Galactic Payments Association","Better Business Bureau","[using_map.starsys_name] E-Payments","NAnoTransen Finance Deparmtent","Luxury Replicas")
message = pick("Luxury watches for Blowout sale prices!",\
sender = pick("Galactic Payments Association","TrustWire","[using_map.starsys_name] E-Payments","NAnoTransen Finance Deparmtent","Luxury Replicas", "Eutopian Encrypted Transfers", "Gilthari Experts")
message = pick("Luxury [pick("cybernetics", "fashions", "watches", "genetics", "narcotics")] for Blowout sale prices!",\
"Watches, Jewelry & Accessories, Bags & Wallets !",\
"Deposit 100$ and get 300$ totally free!",\
" 100K NT.|WOWGOLD <20>nly $89 <HOT>",\
"Deposit 100Th and get 300Th totally free!",\
"Your package is being held at [using_map.starsys_name] customs until payment of fee at (this page)",
"You have a pending transactions ,log in is required for verifcation!",\
" 100K NT.|EUNOIACOIN <20>nly Th89 <HOT>",\
"You have won a FREE [pick("Cyber Solutions household drone", "Xion power drill", "Oasis Vacation", "Bishop Rook fitting session", "NanoThreads makeover experience", "home autofabrication system", "MBT interstellar cruise", "custom cybernetic household companion", "full-immersion VR system", "personal robot chef unit", "ThinkTronic PDA upgrade", "Ward-Takahashi communicator", "Nispean Safari Experience", "case of Lite-Speed beer", "Charlemagne von Rheinland personal voidcraft", "lifetime supply of Cheesie Honkers", "RayZar personal energy weapon", "Kaleidoscope Cosmetics gene-therapy consultation")]!",\
"We have been filed with a complaint from one of your customers in respect of their business relations with you.",\
"We kindly ask you to open the COMPLAINT REPORT (attached) to reply on this complaint..")
if(4)
sender = pick("Buy Dr. Maxman","Having dysfuctional troubles?")
message = pick("DR MAXMAN: REAL Doctors, REAL Science, REAL Results!",\
"Dr. Maxman was created by George Acuilar, M.D, a [using_map.boss_short] Certified Urologist who has treated over 70,000 patients sector wide with 'male problems'.",\
"After seven years of research, Dr Acuilar and his team came up with this simple breakthrough male enhancement formula.",\
"Men of all species report AMAZING increases in length, width and stamina.")
"Dr. Maxman was created by George Acuilar, M.D, a [using_map.boss_short] Certified Urologist who has treated over 70,000 patients region wide with '[pick("male","female", "other")] problems'.",\
"After seven years of research, Dr Acuilar and his team came up with this simple breakthrough [pick("male","female", "other")] enhancement formula.",\
"[pick("Men", "Women", "USR_GENDER")] of all species report AMAZING increases in length, width and stamina.")
if(5)
sender = pick("Dr","Crown prince","King Regent","Professor","Captain")
sender += " " + pick("Robert","Alfred","Josephat","Kingsley","Sehi","Zbahi")
sender += " " + pick("Mugawe","Nkem","Gbatokwia","Nchekwube","Ndim","Ndubisi")
message = pick("YOUR FUND HAS BEEN MOVED TO [uppertext(pick("Salusa","Segunda","Cepheus","Andromeda","Gruis","Corona","Aquila","ARES","Asellus"))] DEVELOPMENTARY BANK FOR ONWARD REMITTANCE.",\
sender = pick("Dr","Crown prince","King Regent","Professor", "Princess", "God King", "Captain")
sender += " " + pick("Charat","Baqari","Saama","Rarakhan","Jiria","Zhabir")
sender += " " + pick("Jivare","Nekhem","Gra'rit","Hakheet","Rrhazmir","Mirruhk","Sanudrra")
message = pick("YOUR FUND HAS BEEN MOVED TO [uppertext(pick("Antananarivo","Rarkajar","Selem","Rakari","Andromeda","Terminus","Sidhe","Corona","Smith","Relan","Atlantis"))] DEVELOPMENTARY BANK FOR ONWARD REMITTANCE.",\
"We are happy to inform you that due to the delay, we have been instructed to IMMEDIATELY deposit all funds into your account",\
"Dear fund beneficiary, We have please to inform you that overdue funds payment has finally been approved and released for payment",\
"Due to my lack of agents I require an off-world financial account to immediately deposit the sum of 1 POINT FIVE MILLION credits.",\
"Greetings sir, I regretfully to inform you that as I lay dying here due to my lack ofheirs I have chosen you to recieve the full sum of my lifetime savings of 1.5 billion credits")
"Due to my lack of agents I require an off-world financial account to immediately deposit the sum of 1 POINT FIVE MILLION thalers.",\
"Greetings [pick("sir", "madame", "esteemed colleague")], I regretfully to inform you that as I lay dying here due to my lack ofheirs I have chosen you to recieve the full sum of my lifetime savings of 1.5 billion thalers")
if(6)
sender = pick("[using_map.company_name] Morale Divison","Feeling Lonely?","Bored?","www.wetskrell.nt")
message = pick("The [using_map.company_name] Morale Division wishes to provide you with quality entertainment sites.",\
"WetSkrell.nt is a xenophillic website endorsed by NT for the use of male crewmembers among it's many stations and outposts.",\
"Wetskrell.nt only provides the higest quality of male entertaiment to [using_map.company_name] Employees.",\
"WetSkrell.nt is a xenophillic website endorsed by NT for the use of discerning crewmembers among it's many stations and colonies.",\
"Wetskrell.nt only provides the higest quality of xenophilic entertaiment to [using_map.company_name] Employees.",\
"Simply enter your [using_map.company_name] Bank account system number and pin. With three easy steps this service could be yours!")
if(7)
sender = pick("You have won free tickets!","Click here to claim your prize!","You are the 1000th vistor!","You are our lucky grand prize winner!")
message = pick("You have won tickets to the newest ACTION JAXSON MOVIE!",\
"You have won tickets to the newest crime drama DETECTIVE MYSTERY IN THE CLAMITY CAPER!",\
"You have won tickets to the newest romantic comedy 16 RULES OF LOVE!",\
"You have won tickets to the newest thriller THE CULT OF THE SLEEPING ONE!")
sender = pick("You have won free tickets!", "Occulum Sweepstakes!", "Click here to claim your prize!","You are the 1000th vistor!","You are our lucky grand prize winner!")
message = pick("You have won tickets to the newest [pick("INTERSTELLAR DIPLOMACY", "CULT OF THE SLEEPING ONE", "CAPTAIN CUTIE", "TERRY THE MAGIC SNAKE", "ERT RANGERS", "GUNDAM", "KNIGHTS OF THE FALLEN STAR", "TESHPETS", "SIXTEEN RULES OF LOVE", "BROTHERS OF WISDOM")] MOVIE!",\
"You have won tickets to an EXCLUSIVE cast screening of [pick("ISHTAR'S GRACE", "SOLDIERS OF THE YEARLONG WAR", "GAME OF DRONES", "FREE DRONE", "THE STARS KNOW LOVE")]!",\
"You have won tickets to the [game_year] [pick("Upstream League Sabremachy", "Eutopian Boxing Championship", "Sivian Laser Golf", "Golden Crescent Basketball League", "Galactic League Spaceball", "Space Cola Call of Battle Extreme e-Sports", "Interstellar Championship Chess")] Finals!",\
"You have won tickets to the [pick("CHAT WITH SALLY", "WEST VIR WAKEUP")] studio audience!",\
"You have won tickets to a [pick("BIG CLEATUS", "ChordMax", "Renegade Sunset", "Criminal Roses", "Organ Farm Dumpster Riot", "Strawberry Idol", "Dying of the Embers", "Lame Lords", "Shoulder of Orion", "Electronic Information Overload")] concert in [using_map.starsys_name]!")
if(8)
sender = pick("[pick("Ward -Takahasi", "Nanotrasan", "Nanotras en Finacne", "Oculuam Broad Cast", "Major Bills' Shiping", "Think Tronnic", "Phantonborne")] Customers Service", "UTILITY BILLING FAILED", "Corprate Payroll", "Account Suspended!", "Your latest bill's has failed.", "ACTION REQUIRED", "ImPortant inFormation", "Your Password Has Been Reset")
message = pick("Your account is under Review due to a problem with your payment Information.",\
"Greetings customer we have locked your account and all pending orders due to a suspicions activity.",\
"Please reset your password at the (attached) link immediately or your account will be deleted in 24 hours.",\
"Your account has been flagged for review by the [pick("Vir Governmental Authroity", "Emergent Intelligence Oversight", "Golden Cresent Alliance Bloc", "Office of Fleet Inteligence")], your action is required.",\
"Verify the recent changes you have made to your customer (account) details.",\
"Billing Information Issue Requiring Your Response Or Action WIll Be Taken.")
return list(sender, message)
/datum/event2/event/pda_spam/proc/send_spam(obj/item/pda/P, sender, message)