API tools faq
paste
Advertisement
Guest User

BENDER.LUAC

a guest
May 31st, 2014
650
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 32.57 KB | None | 0 0
raw download clone embed print report
  1. openmenu = functionERROR_nil:show()
  2. end
  3.  
  4. if inGame() then
  5.     player_name = functionif managers.platform:presence() ~= "Playing" then
  6.     return ""
  7. end
  8. for i_0,i_1 in pairs(managers.groupai:state():all_player_criminals()) do
  9.      -- DECOMPILER ERROR: Confused about usage of registers, missing locals? Creating them
  10.  
  11.     local l_2_6 = i_1.unit
  12.     if i_1.unit:network():peer():id() == ERROR_nil then
  13.         return l_2_6:base():nick_name()
  14.     end
  15. end
  16. return ""
  17. end
  18.  
  19.     if not performammo then
  20.         performammo = function  managers.chat:send_message(1, managers.network.account:username(), "Hoxtalicious!!!")
  21.   end
  22.     end
  23.     if not performmedic then
  24.         performmedic = function managers.chat:send_message(1, managers.network.account:username(), "aaaaar")
  25.   end
  26.     end
  27.     if not performecm then
  28.         performecm = function   managers.chat:send_message(1, managers.network.account:username(), "squak")
  29.   end
  30.     end
  31.     if not performsentry then
  32.         performsentry = function    managers.chat:send_message(1, managers.network.account:username(), "pirateperfection.com")
  33.   end
  34.     end
  35.     if not performtrip then
  36.         performtrip = function  managers.chat:send_message(1, managers.network.account:username(), "mutiny")
  37.   end
  38.     end
  39.     chatdatshit = function      managers.chat:send_message(1, managers.network.account:username(), ERROR_nil)
  40.     end
  41. end
  42. if inGame() and managers.platform:presence() == "Playing" and isHost() then
  43.     if not ChatBot then
  44.         ChatBot = class()
  45.     end
  46.     ChatBot.init = function ERROR_nil.allow = false
  47.     ERROR_nil.u_name = managers.network.account:username()
  48.     ERROR_nil.owner = managers.network.matchmake:game_owner_name()
  49.     ERROR_nil.joke = {}
  50.   end
  51.     ChatBot.send_message = function ERROR_nil.message = ERROR_nil
  52.     managers.chat:send_message(1, ERROR_nil.u_name, "Bender: " .. ERROR_nil)
  53.   end
  54.     ChatBot.get_unit = function for i_0,i_1 in pairs(managers.groupai:state():all_player_criminals()) do
  55.         if i_1.unit:base():nick_name() == ERROR_nil then
  56.             ERROR_nil._unit = managers.groupai:state():all_player_criminals()[i_0].unit
  57.         end
  58.     end
  59.     return ERROR_nil._unit
  60.   end
  61.     ChatBot.spawn_ammo = function   ERROR_nil._unit = ERROR_nil:get_unit(ERROR_nil)
  62.     ERROR_nil._pos = ERROR_nil._unit:position()
  63.     ERROR_nil._rot = ERROR_nil._unit:rotation()
  64.     ERROR_nil._ammo_upgrade_lvl = managers.player:upgrade_level("ammo_bag", "ammo_increase")
  65.     ERROR_nil._ammo = AmmoBagBase.spawn(ERROR_nil._pos, ERROR_nil._rot, ERROR_nil._ammo_upgrade_lvl)
  66.     ERROR_nil:send_message(" more bullets dropped")
  67.   end
  68.     ChatBot.spawn_doctor = function ERROR_nil._unit = ERROR_nil:get_unit(ERROR_nil)
  69.     ERROR_nil._pos = ERROR_nil._unit:position()
  70.     ERROR_nil._rot = ERROR_nil._unit:rotation()
  71.     ERROR_nil._doctor_upgrade_lvl = managers.player:upgrade_level("ammo_bag", "ammo_increase")
  72.     ERROR_nil._doctor = DoctorBagBase.spawn(ERROR_nil._pos, ERROR_nil._rot, ERROR_nil._doctor_upgrade_lvl)
  73.     ERROR_nil:send_message(" bandages dropped")
  74.   end
  75.     ChatBot.spawn_sentry = function ERROR_nil._unit = ERROR_nil:get_unit(ERROR_nil)
  76.     ERROR_nil._pos = ERROR_nil._unit:position()
  77.     ERROR_nil._rot = ERROR_nil._unit:rotation()
  78.     ERROR_nil._ammo_multiplier = managers.player:upgrade_value("sentry_gun", "extra_ammo_multiplier", 1)
  79.     ERROR_nil._armor_multiplier = managers.player:upgrade_value("sentry_gun", "armor_multiplier", 1)
  80.     ERROR_nil._damage_multiplier = managers.player:upgrade_value("sentry_gun", "damage_multiplier", 1)
  81.     ERROR_nil._selected_index = nil
  82.     ERROR_nil._shield = managers.player:has_category_upgrade("sentry_gun", "shield")
  83.     ERROR_nil._sentry_gun_unit = SentryGunBase.spawn(ERROR_nil._unit, ERROR_nil._pos, ERROR_nil._rot, ERROR_nil._ammo_multiplier, ERROR_nil._armor_multiplier, ERROR_nil._damage_multiplier)
  84.     if ERROR_nil._sentry_gun_unit then
  85.         managers.network:session():send_to_peers_synched("from_server_sentry_gun_place_result", managers.network:session():local_peer():id(), ERROR_nil._selected_index, ERROR_nil._sentry_gun_unit, ERROR_nil._sentry_gun_unit:movement()._rot_speed_mul, ERROR_nil._sentry_gun_unit:weapon()._setup.spread_mul, ERROR_nil._shield)
  86.     end
  87.     ERROR_nil:send_message("autoguns...")
  88.   end
  89.     ChatBot.spawn_trip = function   ERROR_nil._unit = ERROR_nil:get_unit(ERROR_nil)
  90.     ERROR_nil._from = ERROR_nil._unit:movement():m_head_pos()
  91.     ERROR_nil._to = ERROR_nil._from + ERROR_nil._unit:movement():m_head_rot():y() * 200
  92.     ERROR_nil._ray = ERROR_nil._unit:raycast("ray", ERROR_nil._from, ERROR_nil._to, "slot_mask", managers.slot:get_mask("trip_mine_placeables"), "ignore_unit", {})
  93.     if ERROR_nil._ray then
  94.         ERROR_nil._pos = ERROR_nil._ray.position
  95.         ERROR_nil._sensor_upgrade = managers.player:has_category_upgrade("trip_mine", "sensor_toggle")
  96.         ERROR_nil._rot = Rotation(ERROR_nil._ray.normal, math.UP)
  97.         ERROR_nil.__unit = TripMineBase.spawn(ERROR_nil._pos, ERROR_nil._rot, ERROR_nil._sensor_upgrade)
  98.         ERROR_nil.__unit:base():set_active(true, ERROR_nil._unit)
  99.         ERROR_nil:send_message(" So pretty")
  100.     end
  101.   end
  102.     ChatBot.spawn_ecm = function    ERROR_nil._unit = ERROR_nil:get_unit(ERROR_nil)
  103.     ERROR_nil._from = ERROR_nil._unit:movement():m_head_pos()
  104.     ERROR_nil._to = ERROR_nil._from + ERROR_nil._unit:movement():m_head_rot():y() * 200
  105.     ERROR_nil._ray = ERROR_nil._unit:raycast("ray", ERROR_nil._from, ERROR_nil._to, "slot_mask", managers.slot:get_mask("trip_mine_placeables"), "ignore_unit", {})
  106.     if ERROR_nil._ray then
  107.         ERROR_nil._pos = ERROR_nil._ray.position
  108.         ERROR_nil._duration_multiplier = managers.player:upgrade_value("ecm_jammer", "duration_multiplier", 1) * managers.player:upgrade_value("ecm_jammer", "duration_multiplier_2", 1)
  109.         ERROR_nil._rot = Rotation(ERROR_nil._ray.normal, math.UP)
  110.         ERROR_nil.__unit = ECMJammerBase.spawn(ERROR_nil._pos, ERROR_nil._rot, ERROR_nil._duration_multiplier, ERROR_nil._unit)
  111.         ERROR_nil.__unit:base():set_active(true)
  112.         ERROR_nil:send_message(" Hold your ears")
  113.     end
  114.   end
  115.     ChatBot.tell_joke = function    ERROR_nil.joke[1] = "Which month has 28 days? All of them!"
  116.     ERROR_nil.joke[2] = "Patient: Doctor, I have a pain in my eye whenever I drink tea.\nDoctor: Take the spoon out of the mug before you drink."
  117.     ERROR_nil.joke[3] = "- What does a lion call an antelope? \n -Fast food."
  118.     ERROR_nil.joke[4] = "I couldn't repair your brakes, so I made your horn louder."
  119.     ERROR_nil.joke[5] = "What's a blonde's mating call?\nI think I'm drunk."
  120.     ERROR_nil.joke[6] = "The man: God, how long is a million years?\nGod: To me, it's about a minute.\nThe man: God, how much is a million dollars?\nGod: To me it's a penny.\nThe man: God, may I have a penny?\nGod: Wait a minute."
  121.     ERROR_nil.joke[7] = "JUST SHUT UP AND REBOOT!!"
  122.     ERROR_nil.joke[8] = "My software never has bugs.\nIt just develops random features."
  123.     ERROR_nil.joke[9] = "I would love to change the world, but they won't give me the source code."
  124.     ERROR_nil.joke[10] = "The box said 'Requires Windows 95 or better'. So I installed LINUX."
  125.     ERROR_nil.joke[11] = "How do I set a laser printer to stun?"
  126.     ERROR_nil.joke[12] = "Bad command or file name! Go stand in the corner."
  127.     ERROR_nil.joke[13] = "Who's General Failure & why's he reading my disk?"
  128.     ERROR_nil.joke[14] = "Old programmers never die, they just give up their resources."
  129.     ERROR_nil.joke[15] = "Hey! It compiles! Ship it!"
  130.     ERROR_nil.joke[16] = "Windows 98 supports real multitasking - it can boot and crash simultaneously."
  131.     ERROR_nil.joke[17] = "Mr. Worf scan that ship. \nAye Captain. 300 dpi?"
  132.     ERROR_nil.joke[18] = "Smith & Wesson: \nThe Original Point And Click Interface."
  133.     ERROR_nil.joke[19] = "Firewall : \nDo you want to place a motion detector on port 80?"
  134.     ERROR_nil.joke[20] = "Please send all flames, trolls, and complaints to /dev/toilet."
  135.     ERROR_nil.joke[21] = "We are experiencing system trouble \n-- do not adjust your terminal"
  136.     ERROR_nil.joke[22] = "I'm sorry, our software is perfect. The problem must be you."
  137.     ERROR_nil.joke[23] = "Ah, young webmaster... java leads to shockwave. \nShockwave leads to realaudio. \nAnd realaudio leads to suffering."
  138.     ERROR_nil.joke[24] = "Earth is 98% full ... please delete anyone you can."
  139.     ERROR_nil.joke[25] = "Warning! No processor found! \nPress any key to continue."
  140.     ERROR_nil.joke[26] = "Failure is not an option. It comes bundled with your Microsoft product."
  141.     ERROR_nil.joke[27] = "How are we supposed to hack your system if it's always down?"
  142.     ERROR_nil.joke[28] = "Paypal : \nPlease enter your credit card number to continue."
  143.     ERROR_nil.joke[29] = "All wiyht. Rho sritched mg kegtops awound?"
  144.     ERROR_nil.joke[30] = "Squash one bug, you'll see ten new bugs popping."
  145.     ERROR_nil.joke[31] = "1f u c4n r34d th1s u r34lly n33d t0 g37 l41d."
  146.     ERROR_nil.joke[32] = "REALITY is for losers who don't play videogames."
  147.     ERROR_nil.joke[33] = "REALITY - worst game ever."
  148.     ERROR_nil.joke[34] = "They told me I was gullible...and I believed them."
  149.     ERROR_nil.joke[35] = "Humans are born naked, wet and hungry. Then things get worse."
  150.     ERROR_nil.joke[36] = "Gravity always gets me down."
  151.     ERROR_nil.joke[37] = "I don't find it hard to meet expenses. They're everywhere."
  152.     ERROR_nil.joke[38] = "If at first you don't succeed, destroy all evidence that you tried."
  153.     ERROR_nil.joke[39] = "I started out with nothing and I still have most of it."
  154.     ERROR_nil.joke[40] = "I don't suffer from insanity, I enjoy every minute of it."
  155.     ERROR_nil.joke[41] = "Lottery: A tax on people who are bad at math."
  156.     ERROR_nil.joke[42] = "I've had amnesia as long as I can remember."
  157.     ERROR_nil.joke[43] = "Q: How do you relate to the Soviet government? A: Like a wife: part habit, part fear and wish to God I had a different one."
  158.     ERROR_nil.joke[44] = "Q: What is 150 yards long and eats potatoes? \nA: A Moscow queue waiting to buy meat."
  159.     ERROR_nil.joke[45] = "Q: How does every Russian self.joke start? \nA: By looking over your shoulder."
  160.     ERROR_nil.joke[46] = "How do pirates know that they are pirates? \nThey think, therefore they ARRRR!!!!!"
  161.     ERROR_nil.joke[47] = "Q: What do pirates and pimps have in common? \n A: They both say YO HO! and walk with a limp!"
  162.     ERROR_nil.joke[48] = "Q: What's a horny pirate's worst nightmare? \nA: sunken chest with no booty!"
  163.     ERROR_nil.joke[49] = "Why are pirates so mean? They just arrrr!"
  164.     ERROR_nil.joke[50] = "Right now I'm having amnesia and deja vu at the same time! I think I've forgotten this before?"
  165.     ERROR_nil.joke[51] = "What do you call two fat people having a chat? -- A heavy discussion"
  166.     ERROR_nil.joke[52] = "I don't have an attitude problem. You have a perception problem."
  167.     ERROR_nil.joke[53] = "Fat people are harder to kidnap."
  168.     ERROR_nil.joke[54] = "How do you seduce a fat woman? Piece of cake."
  169.     ERROR_nil.joke[55] = "I wondered why the frisbee was getting bigger, and then it hit me."
  170.     ERROR_nil.joke[56] = "I used to like my neighbors, until they put a password on their Wi-Fi."
  171.     ERROR_nil.joke[57] = "I am a nobody, nobody is perfect, therefore I am perfect."
  172.     ERROR_nil.joke[58] = "It's kinda sad watching you attempt to fit your entire vocabulary into a sentence."
  173.     ERROR_nil.joke[59] = "So you've changed your mind, does this one work any better?"
  174.     ERROR_nil.joke[60] = "You are depriving some poor village of its idiot."
  175.     ERROR_nil.joke[61] = "Learn from your parents' mistakes - use birth control!"
  176.     ERROR_nil.joke[62] = "100,000 sperm calls and you were the fastest?"
  177.     ERROR_nil.joke[63] = "Oh my God, look at you. Was anyone else hurt in the accident?"
  178.     ERROR_nil.joke[64] = "Do you still love nature, despite what it did to you?"
  179.     ERROR_nil.joke[65] = "Am I getting smart with you? How would you know?"
  180.     ERROR_nil.joke[56] = "It's better to let someone think you are an idiot than to open your mouth and prove it."
  181.     ERROR_nil.joke[57] = "Shock me, say something intelligent."
  182.     ERROR_nil.joke[58] = "Why don't you slip into something more comfortable -- like a coma."
  183.     ERROR_nil.joke[59] = "Well I could agree with you, but then we'd both be wrong."
  184.     ERROR_nil.joke[60] = "You are proof that God has a sense of humor."
  185.     ERROR_nil.joke[61] = "Roses are red violets are blue, God made me handsome, what happened to you?"
  186.     ERROR_nil.joke[62] = "It looks like your face caught on fire and someone tried to put it out with a hammer."
  187.     ERROR_nil.joke[63] = "If I wanted to kill myself I'd climb your ego and jump to your IQ."
  188.     ERROR_nil.joke[64] = "Hey baby, are your pants reflective aluminum alloy? because i can see myself in them."
  189.     ERROR_nil.joke[65] = "Hey baby, my name’s Vista, can I crash at your place tonight!"
  190.     ERROR_nil.joke[66] = "I'll show you my source code if you show me yours."
  191.     ERROR_nil.joke[67] = "You are making my floppy drive hard."
  192.     ERROR_nil.joke[68] = "Youtube Myspace and I'll Google your Yahoo!"
  193.     ERROR_nil.joke[69] = "If I were a function(), would you call me?"
  194.     ERROR_nil.joke[70] = "Q: What is a robot’s favorite type of music? A: Heavy metal!"
  195.     ERROR_nil.joke[71] = "I used to have a drug problem, but now I have more money."
  196.     ERROR_nil.joke[72] = "Reality is a crutch for people who can’t handle drugs."
  197.     ERROR_nil.joke[73] = "A friend of mine confused her valium with her birth control pills. She now has 14 kids – but doesn’t really care."
  198.     ERROR_nil.joke[74] = "I love drug jokes, they crack me up!"
  199.     ERROR_nil.joke[75] = "Q: What's the difference between a drug dealer and a prostitute? \nA: A prostitute can wash her crack and sell it again."
  200.     ERROR_nil.joke[76] = "Q: How many stoners does it take to change a lightbulb? \nA: Four. One to hold the lightbulb and three to smoke until the room starts spinning."
  201.     ERROR_nil.joke[77] = "My doctor told me to stay away from methamphetamine. So I bought a fifteen-foot straw."
  202.     ERROR_nil.joke[78] = "Q: What do you have in a room full of tweakers? \nA: A complete set of teeth!"
  203.     ERROR_nil.joke[79] = "Q: What's the best thing about being a meth addict? \nA: Only one sleep till christmas."
  204.     ERROR_nil.joke[80] = "Q: What do you get when you take ecstasy and birth control pills? \nA: A trip without the kids."
  205.     ERROR_nil.joke[81] = "Q: What were Princess Diana's favourite drugs? \nA: Speed & Smack."
  206.     ERROR_nil.joke[82] = "In America you find party, in Russia party finds you."
  207.     ERROR_nil.joke[83] = "Q: What's the difference between a pile of dead bodies and a Lamborghini? \nA: I don't have a Lamborghini in my garage."
  208.     ERROR_nil.joke[84] = "I don't worry about terrorism, I was married for 12 years!"
  209.     ERROR_nil.joke[85] = "Q: Whats the only positive thing about Kenya? \n A: HIV."
  210.     ERROR_nil.joke[86] = "If your aunt had balls she would be your uncle!"
  211.     ERROR_nil.joke[87] = "Q: Why is it hard to play the card game Uno with a group of Mexicans? \nA: Because they all take the green cards."
  212.     ERROR_nil.joke[88] = "Q: What kind of bees make milk? \nA: Boobies."
  213.     ERROR_nil.joke[89] = "My idea of balanced diet is beer in each hand."
  214.     ERROR_nil.joke[90] = "I went to buy some camouflage trousers the other day but I couldn't find any.."
  215.     ERROR_nil.joke[91] = "A horse went into a bar. The barman said......Why the long face?"
  216.     ERROR_nil.joke[92] = "The road to success is always under CONSTRUCTION!"
  217.     ERROR_nil.joke[93] = "Is it good if a vacuum really sucks?"
  218.     ERROR_nil.joke[94] = "I will open the door and kick you out of the window!!!"
  219.     ERROR_nil.joke[95] = "Research shows that 90% of men don't know how to use condom, these people are called DADS....."
  220.     ERROR_nil.joke[96] = "I called your boyfriend gay and he hit me with his purse."
  221.     ERROR_nil.joke[97] = "An Irishman walks out of a bar.... it COULD happen."
  222.     ERROR_nil.joke[98] = "My wife and I took out life insurance on each other -- so now it's just a waiting game."
  223.     ERROR_nil.joke[99] = "Don't drink and drive, might hit a bump and spill it."
  224.     ERROR_nil.joke[100] = "Virginity is not dignity, but lack of opportunity."
  225.     return ERROR_nil.joke[ERROR_nil]
  226.   end
  227.     ChatBot.spawn_taser = function  for i_0,i_1 in pairs(managers.groupai:state():all_player_criminals()) do
  228.         World:spawn_unit(Idstring("units/payday2/characters/ene_tazer_1/ene_tazer_1"), i_1.unit:position(), i_1.unit:rotation()):movement():set_character_anim_variables()
  229.     end
  230.   end
  231.     ChatBot.spawn_bulld = function  for i_0,i_1 in pairs(managers.groupai:state():all_player_criminals()) do
  232.         World:spawn_unit(Idstring("units/payday2/characters/ene_bulldozer_2/ene_bulldozer_2"), i_1.unit:position(), i_1.unit:rotation()):movement():set_character_anim_variables()
  233.     end
  234.   end
  235.     ChatBot.spawn_bags = function   if not ERROR_nil then
  236.         ERROR_nil = 1
  237.     end
  238.     for i_0,i_1 in pairs(managers.groupai:state():all_player_criminals()) do
  239.         -- WARNING: pending registers. Declaring locals.
  240.         local l_20_8 = i_1.unit:position()
  241.         for i = 1, ERROR_nil do
  242.              -- DECOMPILER ERROR: Confused about usage of registers, missing locals? Creating them
  243.  
  244.             local l_20_2 = {[1] = "money", [2] = "gold", [3] = "diamonds", [4] = "coke", [5] = "meth", [6] = "turret", [7] = "person", [8] = "cage_bag", [9] = "weapon", [10] = "weapons", [11] = "painting", [12] = "circuit", [13] = "lance_bag", [14] = "ammo"}
  245.             managers.player:server_drop_carry(({[1] = "money", [2] = "gold", [3] = "diamonds", [4] = "coke", [5] = "meth", [6] = "turret", [7] = "person", [8] = "cage_bag", [9] = "weapon", [10] = "weapons", [11] = "painting", [12] = "circuit", [13] = "lance_bag", [14] = "ammo"})[math.random(1, 14)], (managers.money:get_bag_value(l_20_2[math.random(1, 14)])), nil, nil, 0, l_20_8, Rotation(math.UP, math.random() * 360), Vector3(0, 0, 10), 0)
  246.         end
  247.     end
  248.   end
  249.     ChatBot.spawnmeone = function    -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  250.  
  251.     local l_21_7 = l_21_7
  252.      -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  253.  
  254.      -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  255.  
  256.      -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  257.  
  258.      -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  259.  
  260.      -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  261.  
  262.      -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  263.  
  264.      -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  265.  
  266.     if not R6_PC4 or type(R9_PC8) ~= "number" then
  267.         -- WARNING: pending registers. Declaring locals.
  268.         local l_21_3 = ERROR_nil:find("(%S*)%s*(%S*)")
  269.         for i_0,i_1 in pairs(R9_PC8) do
  270.             -- WARNING: pending registers. Declaring locals.
  271.             local l_21_13 = i_1.unit:position()
  272.             for i = 1, l_21_7 do
  273.                 managers.player:server_drop_carry(ERROR_nil, (managers.money:get_bag_value(ERROR_nil)), nil, nil, 0, l_21_13, Rotation(math.UP, math.random() * 360), Vector3(0, 0, 5), 0)
  274.             end
  275.         end
  276.          -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  277.  
  278.         local l_21_9 = l_21_9
  279.         ERROR_nil:send_message(ERROR_nil .. " bag spawned ")
  280.          -- WARNING: undefined locals caused missing assignments!
  281.         -- WARNING: F->nextEndif is not empty. Unhandled nextEndif->addr = 17
  282.   end
  283.     ChatBot.find_message = function if ERROR_nil:find("System:") then
  284.         return
  285.     end
  286.     if ERROR_nil:find("joke") then
  287.         ERROR_nil:send_message(ERROR_nil:tell_joke(math.random(1, 100)))
  288.     end
  289.     if ERROR_nil:find("ammunition") or ERROR_nil:find("Hoxtalicious!!!") then
  290.         ERROR_nil:spawn_ammo(ERROR_nil)
  291.     end
  292.     if ERROR_nil:find("sentry") or ERROR_nil:find("pirateperfection.com") then
  293.         ERROR_nil:spawn_sentry(ERROR_nil)
  294.     end
  295.     if ERROR_nil:find("trip") or ERROR_nil:find("mine") or ERROR_nil:find("mutiny") then
  296.         ERROR_nil:spawn_trip(ERROR_nil)
  297.     end
  298.     if ERROR_nil:find("fuck") then
  299.         ERROR_nil:send_message("Rude talking makes me angry, only I can talk like that.")
  300.     end
  301.     if ERROR_nil:find("crap") then
  302.         ERROR_nil:send_message("Rude talking makes me angry, only I can talk like that.")
  303.     end
  304.     if ERROR_nil:find("shit") then
  305.         ERROR_nil:send_message("Rude talking makes me angry, only I can talk like that.")
  306.     end
  307.     if ERROR_nil:find("bitch") then
  308.         ERROR_nil:send_message("Rude talking makes me angry, only I can talk like that.")
  309.     end
  310.     if ERROR_nil:find("suck") then
  311.         ERROR_nil:send_message("Rude talking makes me angry, only I can talk like that.")
  312.     end
  313.     if ERROR_nil:find("doctor") or ERROR_nil:find("medic") or ERROR_nil:find("aaaaar") then
  314.         ERROR_nil:spawn_doctor(ERROR_nil)
  315.     end
  316.     if ERROR_nil:find("ecm") or ERROR_nil:find("jammer") or ERROR_nil:find("squak") then
  317.         ERROR_nil:spawn_ecm(ERROR_nil)
  318.     end
  319.     if ERROR_nil:find("wtf") or ERROR_nil:find("WTF") then
  320.         ERROR_nil:send_message("WTF what?")
  321.     end
  322.     if ERROR_nil:find("gogo") then
  323.         ERROR_nil:send_message("You all go without me! I'm gonna take one last look around, you know, for, uh, stuff to steal!")
  324.     end
  325.     if ERROR_nil:find("dont know") then
  326.         ERROR_nil:send_message("Stupid humans..")
  327.     end
  328.     if ERROR_nil:find("011100100110000101101110011001000110111101101101011000100110000101100111") then
  329.         ERROR_nil:spawn_bags()
  330.     end
  331.     if ERROR_nil:find("00110011011100100110000101101110011001000110111101101101011000100110000101100111") then
  332.         ERROR_nil:spawn_bags("3")
  333.     end
  334.     if ERROR_nil:find("0011000100110000011100100110000101101110011001000110111101101101011000100110000101100111") then
  335.         ERROR_nil:spawn_bags("10")
  336.     end
  337.     if ERROR_nil:find("01100111011011110110110001100100") then
  338.         ERROR_nil:spawnmeone("gold", ERROR_nil)
  339.     end
  340.     if ERROR_nil:find("011100000110010101110010011100110110111101101110") then
  341.         ERROR_nil:spawnmeone("person", ERROR_nil)
  342.     end
  343.     if ERROR_nil:find("0110110101101111011011100110010101111001") then
  344.         ERROR_nil:spawnmeone("money", ERROR_nil)
  345.     end
  346.     if ERROR_nil:find("01101101011001010111010001101000") then
  347.         ERROR_nil:spawnmeone("meth", ERROR_nil)
  348.     end
  349.     if ERROR_nil:find("011011000110000101101110011000110110010101011111011000100110000101100111") then
  350.         ERROR_nil:spawnmeone("lance_bag", ERROR_nil)
  351.     end
  352.     if ERROR_nil:find("0110001101100001011001110110010101011111011000100110000101100111") then
  353.         ERROR_nil:spawnmeone("cage_bag", ERROR_nil)
  354.     end
  355.     if ERROR_nil:find("01100001011011010110110101101111") then
  356.         ERROR_nil:spawnmeone("ammo", ERROR_nil)
  357.     end
  358.     if ERROR_nil:find("011101110110010101100001011100000110111101101110") then
  359.         ERROR_nil:spawnmeone("weapon", ERROR_nil)
  360.     end
  361.     if ERROR_nil:find("01110111011001010110000101110000011011110110111001110011") then
  362.         ERROR_nil:spawnmeone("weapons", ERROR_nil)
  363.     end
  364.     if ERROR_nil:find("0110010001101001011000010110110101101111011011100110010001110011") then
  365.         ERROR_nil:spawnmeone("diamonds", ERROR_nil)
  366.     end
  367.     if ERROR_nil:find("01100011011011110110101101100101") then
  368.         ERROR_nil:spawnmeone("coke", ERROR_nil)
  369.     end
  370.     if ERROR_nil:find("0111000001100001011010010110111001110100011010010110111001100111") then
  371.         ERROR_nil:spawnmeone("painting", ERROR_nil)
  372.     end
  373.     if ERROR_nil:find("01100011011010010111001001100011011101010110100101110100") then
  374.         ERROR_nil:spawnmeone("circuit", ERROR_nil)
  375.     end
  376.     if ERROR_nil:find("011101000111010101110010011100100110010101110100") then
  377.         ERROR_nil:spawnmeone("turret", ERROR_nil)
  378.     end
  379.     if ERROR_nil:find("0110010101101110011001110110100101101110011001010101111100110001") then
  380.         ERROR_nil:spawnmeone("engine_01", ERROR_nil)
  381.     end
  382.     if ERROR_nil:find("01100101 01101110 011001110110100101101110011001010101111100110010") then
  383.         ERROR_nil:spawnmeone("engine_02", ERROR_nil)
  384.     end
  385.     if ERROR_nil:find("01100101 01101110 011001110110100101101110011001010101111100110011") then
  386.         ERROR_nil:spawnmeone("engine_03", ERROR_nil)
  387.     end
  388.     if ERROR_nil:find("01100101 01101110 011001110110100101101110011001010101111100110100") then
  389.         ERROR_nil:spawnmeone("engine_04", ERROR_nil)
  390.     end
  391.     if ERROR_nil:find("01100101 01101110 011001110110100101101110011001010101111100110101") then
  392.         ERROR_nil:spawnmeone("engine_05", ERROR_nil)
  393.     end
  394.     if ERROR_nil:find("01100101 01101110 011001110110100101101110011001010101111100110110") then
  395.         ERROR_nil:spawnmeone("engine_06", ERROR_nil)
  396.     end
  397.     if ERROR_nil:find("01100101 01101110 011001110110100101101110011001010101111100110111") then
  398.         ERROR_nil:spawnmeone("engine_07", ERROR_nil)
  399.     end
  400.     if ERROR_nil:find("01100101 01101110 011001110110100101101110011001010101111100111000") then
  401.         ERROR_nil:spawnmeone("engine_08", ERROR_nil)
  402.     end
  403.     if ERROR_nil:find("01101111011100000110010101101110011100110110010101110011011000010110110101100101") then
  404.         dofiles("trainer/assets/bankbusters.lua")
  405.     end
  406.     ERROR_nil._rnd = math.random(1, 5)
  407.   end
  408.     SecretAssignmentManager.update = function   if not ERROR_nil._last_upd_t then
  409.         ERROR_nil._last_upd_t = ERROR_nil
  410.         ChatBot.mood = 0
  411.         return
  412.     end
  413.     if ChatBot.mood >= 8 then
  414.         ChatBot:spawn_bags()
  415.         ChatBot:send_message("Thanks for the beer, hookers and cigars.\nHere's a present for you my friend.")
  416.         ChatBot.mood = 3
  417.     end
  418.     if ChatBot.mood <= -5 and not ERROR_nil._cloak then
  419.         ChatBot:spawn_taser()
  420.         ChatBot:send_message("Damn you are annoying, I think I'll tase you a little.")
  421.         ERROR_nil._cloak = true
  422.     end
  423.     if ChatBot.mood <= -10 and not ERROR_nil._bulld then
  424.         ChatBot:spawn_bulld()
  425.         ChatBot:send_message("Why you didn't learn with the tasers? \nWell here you go, say hello to my little friend bull.")
  426.         ERROR_nil._bulld = true
  427.     end
  428.   end
  429.     ChatGui.receive_message = function  if not alive(ERROR_nil._panel) then
  430.         return
  431.     end
  432.     if not ChatBot.allow then
  433.         ChatBot:init()
  434.     end
  435.     ChatBot:find_message(ERROR_nil, ERROR_nil)
  436.     ERROR_nil._panel:child("output_panel"):child("scroll_panel"):text({text = ERROR_nil .. ": " .. ERROR_nil, font = tweak_data.menu.pd2_small_font, font_size = tweak_data.menu.pd2_small_font_size, x = 0, y = 0, align = "left", halign = "left", vertical = "top", hvertical = "top", blend_mode = "normal", wrap = true, word_wrap = true, color = ERROR_nil, layer = 0}):set_range_color(0, utf8.len(ERROR_nil) + 1, ERROR_nil)
  437.      -- DECOMPILER ERROR: Confused about usage of registers, missing locals? Creating them
  438.  
  439.     local l_24_6 = utf8.len(ERROR_nil) + 1
  440.     ERROR_nil._panel:child("output_panel"):child("scroll_panel"):text({text = ERROR_nil .. ": " .. ERROR_nil, font = tweak_data.menu.pd2_small_font, font_size = tweak_data.menu.pd2_small_font_size, x = 0, y = 0, align = "left", halign = "left", vertical = "top", hvertical = "top", blend_mode = "normal", wrap = true, word_wrap = true, color = ERROR_nil, layer = 0}):set_range_color(l_24_6, utf8.len(ERROR_nil._panel:child("output_panel"):child("scroll_panel"):text({text = ERROR_nil .. ": " .. ERROR_nil, font = tweak_data.menu.pd2_small_font, font_size = tweak_data.menu.pd2_small_font_size, x = 0, y = 0, align = "left", halign = "left", vertical = "top", hvertical = "top", blend_mode = "normal", wrap = true, word_wrap = true, color = ERROR_nil, layer = 0}):text()), Color.white)
  441.     ERROR_nil._panel:child("output_panel"):child("scroll_panel"):text({text = ERROR_nil .. ": " .. ERROR_nil, font = tweak_data.menu.pd2_small_font, font_size = tweak_data.menu.pd2_small_font_size, x = 0, y = 0, align = "left", halign = "left", vertical = "top", hvertical = "top", blend_mode = "normal", wrap = true, word_wrap = true, color = ERROR_nil, layer = 0}):set_h(R15_PC81)
  442.      -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  443.  
  444.     ERROR_nil._panel:child("output_panel"):child("scroll_panel"):rect(R15_PC81):set_h(R16_PC96)
  445.      -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  446.  
  447.     table.insert(R15_PC81, R16_PC96)
  448.      -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  449.  
  450.     ERROR_nil:_layout_output_panel()
  451.      -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  452.  
  453.     if not ERROR_nil._focus then
  454.         ERROR_nil._panel:child("output_panel"):stop()
  455.          -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  456.  
  457.          -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  458.  
  459.          -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  460.  
  461.         ERROR_nil._panel:child("output_panel"):animate(R16_PC96, ERROR_nil._panel:child("output_panel"):alpha())
  462.          -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  463.  
  464.          -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  465.  
  466.          -- DECOMPILER ERROR: Overwrote pending register. Missing locals? Creating them
  467.  
  468.         ERROR_nil._panel:child("output_panel"):animate(R16_PC96)
  469.     end
  470.      -- WARNING: undefined locals caused missing assignments!
  471.   end
  472. end
  473. if not callspawnbagrootmenu then
  474.     callspawnbagrootmenu = functionopenmenu(spawnbagrootmenu)
  475. end
  476.  
  477. end
  478. if not callchangebagamount then
  479.     callchangebagamount = functionopenmenu(bagamountmenu)
  480. end
  481.  
  482. end
  483. if not callchangereceiver then
  484.     callchangereceiver = functionopenmenu(receivermenu)
  485. end
  486.  
  487. end
  488. if not callspecials then
  489.     callspecials = functionopenmenu(specialsmenu)
  490. end
  491.  
  492. end
  493. if not bagamountmenuopt then
  494.     bagamountmenuopt = {
  495. {text = "Back", callback = callspawnbagrootmenu},
  496. {text = "", is_cancel_button = true},
  497. {text = "50", callback = changebagamount, data = 50},
  498. {text = "10", callback = changebagamount, data = 1},
  499. {text = "9", callback = changebagamount, data = 1},
  500. {text = "8", callback = changebagamount, data = 1},
  501. {text = "7", callback = changebagamount, data = 1},
  502. {text = "6", callback = changebagamount, data = 1},
  503. {text = "5", callback = changebagamount, data = 1},
  504. {text = "4", callback = changebagamount, data = 1},
  505. {text = "3", callback = changebagamount, data = 1},
  506. {text = "2", callback = changebagamount, data = 1},
  507. {text = "1", callback = changebagamount, data = 1}}
  508. end
  509. if not bagamountmenu then
  510.     bagamountmenu = SimpleMenu:new("CHANGE AMOUNTS", "..amount of bags to spawn.", bagamountmenuopt)
  511. end
  512. if not receivermenuopt then
  513.     receivermenuopt = {
  514. {text = "Back", callback = callspawnbagrootmenu},
  515. {text = "", is_cancel_button = true},
  516. {text = "Team", callback = changereceiver, data = "team"},
  517. {},
  518. {text = "Player 4", callback = changereceiver, data = 4},
  519. {text = "Player 3", callback = changereceiver, data = 3},
  520. {text = "Player 2", callback = changereceiver, data = 2},
  521. {text = "Player 1", callback = changereceiver, data = 1},
  522. {},
  523. {text = "" .. player_name(4) .. "", callback = changereceiver, data = 4},
  524. {text = "" .. player_name(3) .. "", callback = changereceiver, data = 3},
  525. {text = "" .. player_name(2) .. "", callback = changereceiver, data = 2},
  526. {text = "" .. player_name(1) .. "", callback = changereceiver, data = 1}}
  527. end
  528. if not receivermenu then
  529.     receivermenu = SimpleMenu:new("CHANGE RECEIVER(S)", "...who receives the booty?", receivermenuopt)
  530. end
  531. if not specialsopt then
  532.     specialsopt = {
  533. {text = "Back", callback = callspawnbagrootmenu},
  534. {text = "", is_cancel_button = true},
  535. {chatdatshit; text = "Drop random bag on team", data = "011100100110000101101110011001000110111101101101011000100110000101100111"},
  536. {},
  537. {text = "Open depositboxes", callback = chatdatshit, data = "01101111011100000110010101101110011100110110010101110011011000010110110101100101"},
  538. {text = "Make me smile", callback = chatdatshit, data = "joke"}}
  539. end
  540. if not specialsmenu then
  541.     specialsmenu = SimpleMenu:new("BEST OF BENDER", "...bender upgrades v0.420", specialsopt)
  542. end
  543. if inGame() then
  544.     if not spawnbagopt then
  545.         spawnbagopt = {
  546. {text = "Exit", is_cancel_button = true},
  547. {},
  548. {text = "Magic tricks", callback = callspecials},
  549. {text = "Spawn random bag", callback = chatdatshit, data = "011100100110000101101110011001000110111101101101011000100110000101100111"},
  550. {},
  551. {text = "Turret engine part", callback = chatdatshit, data = "011101000111010101110010011100100110010101110100"},
  552. {text = "Fusion engine", callback = chatdatshit, data = "0110010101101110011001110110100101101110011001010101111100110001"},
  553. {text = "Thermal drill", callback = chatdatshit, data = "011011000110000101101110011000110110010101011111011000100110000101100111"},
  554. {text = "Cage parts", callback = chatdatshit, data = "0110001101100001011001110110010101011111011000100110000101100111"},
  555. {text = "FBI server", callback = chatdatshit, data = "01100011011010010111001001100011011101010110100101110100"},
  556. {text = "Bodybag", callback = chatdatshit, data = "011100000110010101110010011100110110111101101110"},
  557. {text = "Painting", callback = chatdatshit, data = "0111000001100001011010010110111001110100011010010110111001100111"},
  558. {},
  559. {text = "Jewellery", callback = chatdatshit, data = "0110010001101001011000010110110101101111011011100110010001110011"},
  560. {text = "Weapons", callback = chatdatshit, data = "01110111011001010110000101110000011011110110111001110011"},
  561. {text = "Weapon", callback = chatdatshit, data = "011101110110010101100001011100000110111101101110"},
  562. {text = "Money", callback = chatdatshit, data = "0110110101101111011011100110010101111001"},
  563. {text = "Coke", callback = chatdatshit, data = "01100011011011110110101101100101"},
  564. {text = "Meth", callback = chatdatshit, data = "01101101011001010111010001101000"},
  565. {text = "Gold", callback = chatdatshit, data = "01100111011011110110110001100100"},
  566. {text = "Ammo", callback = chatdatshit, data = "01100001011011010110110101101111"}}
  567.     end
  568. end
  569. if not spawnbagrootmenu and not spawnbagrootmenu then
  570.     spawnbagrootmenu = SimpleMenu:new("BENDER REMOTE", "What you want?", spawnbagopt)
  571. end
  572. spawnbagrootmenu:show()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!