-------------------misc----------------------------------- ---------------clantag_changer---------------------------- local label1 = ui.new_label("Misc", "Miscellaneous", '[------[MEGASHIT]------]') local label1 = ui.new_label("Misc", "Miscellaneous", ' >>|MISC|<<') local client_set_clan_tag, client_set_event_callback, client_system_time, entity_get_local_player, entity_get_player_resource, entity_get_prop, entity_is_alive, globals_curtime, math_floor, string_format, string_rep, table_insert, table_sort, ui_get, ui_new_checkbox, ui_new_combobox, ui_new_slider, ui_new_textbox, ui_set_callback, ui_set_visible, pairs = client.set_clan_tag, client.set_event_callback, client.system_time, entity.get_local_player, entity.get_player_resource, entity.get_prop, entity.is_alive, globals.curtime, math.floor, string.format, string.rep, table.insert, table.sort, ui.get, ui.new_checkbox, ui.new_combobox, ui.new_slider, ui.new_textbox, ui.set_callback, ui.set_visible, pairs local function collect_keys(tbl, custom) local keys = {} for k in pairs(tbl) do keys[#keys + 1] = k end table_sort(keys) if custom then table_insert(keys, 1, "Disabled") table_insert(keys, "Custom") end return keys end local tags = { ["JoKer"] = "JoKer", ["Skeet"] = "skeet.cc", ["Aimware"] = "AIMWARE.net", ["OmniAim"] = "OmniAim.net", ["NOVOLINEHOOK"] = "NOVOLINEHOOK", ["MegaShit"] = "MegaShit", } local tag = "" local tag_index = 0 local tag_length = 0 local tag_reverse = 0 local tag_last_index = 0 local commands = 0 local function static() if tag == "Disabled" then return end local local_player = entity_get_local_player() local current_tag = entity_get_prop(entity_get_player_resource(), "m_szClan", local_player) if tag:len() == 0 and current_tag:len() ~= 0 then client_set_clan_tag("\0") elseif current_tag ~= tag then client_set_clan_tag(tag) end end local function time() local h, m, s = client_system_time() local time_tag = string_format("%d:%02d:%02d", h, m, s) client_set_clan_tag(time_tag) end local function default() if tag_index == tag_last_index then return end client_set_clan_tag(tag_index == 0 and "\0" or tag:sub(1, tag_index)) end local function reverse() if tag_index == tag_last_index then return end if tag_reverse <= tag_length then client_set_clan_tag(tag:sub(1, tag_index)) else client_set_clan_tag(tag_length - tag_index == 0 and "\0" or tag:sub(1, tag_length - tag_index)) end end local function loop() if tag_index == tag_last_index then return end local result = "" local loop_tag = tag for i=1, tag_index do loop_tag = loop_tag .. loop_tag:sub(1, 1) loop_tag = loop_tag:sub(2, loop_tag:len()) end client_set_clan_tag(loop_tag) end local animations = { ["Static"] = static, ["Time"] = time, ["Default"] = default, ["Reverse"] = reverse, ["Classic"] = loop, ["Loop"] = loop, } local menu = { enabled = ui_new_checkbox("misc", "Miscellaneous", "Clan tag changer"), tags = ui_new_combobox("misc", "Miscellaneous", "Tags", collect_keys(tags, true)), text = ui_new_textbox("misc", "Miscellaneous", "Text"), styles = ui_new_combobox("misc", "Miscellaneous", "Animation", collect_keys(animations, false)), speed = ui_new_slider("misc", "Miscellaneous", "Speed", 0, 100, 30, true, "%") } local function handle_menu() local state = ui_get(menu.enabled) local menu_tag = ui_get(menu.tags) ui_set_visible(menu.tags, state) ui_set_visible(menu.styles, state) ui_set_visible(menu.speed, state) ui_set_visible(menu.text, state and menu_tag == "Custom") if not state then client_set_clan_tag("\0") end end handle_menu() ui_set_callback(menu.enabled, handle_menu) ui_set_callback(menu.tags, handle_menu) local function net_update_end() if not ui_get(menu.enabled) then return end local local_player = entity_get_local_player() local menu_tag = ui_get(menu.tags) local tag_style = ui_get(menu.styles) local update_tag = commands == 0 or entity_is_alive(local_player) == false if menu_tag == "Disabled" then return end tag = menu_tag == "Custom" and ui_get(menu.text) or tags[menu_tag] tag = tag_style == "Loop" and tag .. " " or tag tag = tag_style == "Classic" and tag .. string_rep(" ", math_floor(tag:len() * 2)) or tag tag_length = tag:len() tag_index = math_floor((globals_curtime() * ui_get(menu.speed) / 10) % tag_length + 1) tag_reverse = math_floor((globals_curtime() * ui_get(menu.speed) / 10) % (tag_length * 2) + 1) if not update_tag then return end local animation = animations[tag_style] animation() tag_last_index = tag_index end local function run_command(cmd) if not ui_get(menu.enabled) then return end commands = cmd.chokedcommands end local function shutdown() client_set_clan_tag("\0") end client_set_event_callback("net_update_end", net_update_end) client_set_event_callback("run_command", run_command) client_set_event_callback("shutdown", shutdown) --------------------------------------------------- --------------------------------------------------- -----------------Auto_report----------------------- local client_log, client_set_event_callback, entity_get_player_name, entity_get_players, entity_get_steam64, json_parse, panorama_open, plist_get, string_format, ui_get, ui_new_button, ui_new_checkbox, ui_reference, print = client.log, client.set_event_callback, entity.get_player_name, entity.get_players, entity.get_steam64, json.parse, panorama.open, plist.get, string.format, ui.get, ui.new_button, ui.new_checkbox, ui.reference, print local http = require "gamesense/http" local js = panorama_open() local GameStateAPI = js.GameStateAPI local steamid3 = {} local report = ui_new_checkbox("Misc", "Miscellaneous", "Auto report cheaters") client_set_event_callback("paint", function() if not ui_get(report) then return end local plists = entity_get_players(true) for i = 1, #plists do local enemy = plists[i] local name = entity_get_player_name(enemy) local steamid = entity_get_steam64(enemy) local xuid = GameStateAPI.GetPlayerXuidStringFromEntIndex(enemy) if steamid3[steamid] then return end if plist_get(enemy, "Correction active") then steamid3[steamid] = "" GameStateAPI.SubmitPlayerReport(xuid, "wallhack, aimbot, speedhack") client_log("[REPORT] Ennemy reported: " .. name) end end end) client_set_event_callback("round_announce_warmup", function() steamid3 = {} end) -------------------------------------------------- -----------------Bomb_timer------------------------- local render = ui_new_checkbox("MISC", "Miscellaneous", "Bomb timer") local function get_bomb_time(bomb) local bomb_time = entity.get_prop(bomb, "m_flC4Blow") - globals.curtime() if bomb_time == nil then return 0 end if bomb_time > 0 then return bomb_time end return 0 end local function round(num, numDecimalPlaces) local mult = 10^(numDecimalPlaces or 0) return math.floor(num * mult + 0.5) / mult end local function on_paint(c) local bomb = entity.get_all("CPlantedC4")[1] if bomb == nil then return end local blowtime = round(get_bomb_time(bomb),3) local width = renderer.measure_text("",blowtime) local x,y,z = entity.get_prop(bomb, "m_vecOrigin") local w2x,w2y = renderer.world_to_screen(x,y,z) if w2x ~= nil and w2y ~= nil then if not ui_get(render) then return end renderer.text(w2x - 10,w2y + 18,255, 0, 0, 255,"b",0,"C4") renderer.rectangle(w2x - 14,w2y + 6, width + 4,12,30,30,30,200) renderer.text(w2x - 12,w2y + 5,100, 200, 200, 255,"",0,blowtime) end end client.set_event_callback("paint", on_paint) -------------------------------------------------- ----------------------RQ-------------------------- local function rq() client.exec("quit") end ui.new_button("Misc", "settings", "RAGE QUIT!", rq) -------------------------------------------------- --------------------disconnect-------------------- local antipastedbot = ui.new_checkbox("Misc", "Miscellaneous", "leave when match end") client.set_event_callback("cs_win_panel_match", function () if not ui.get(antipastedbot) then return end client.log("match ended") --will disconnect after the match ends client.delay_call(3, function() client.exec("disconnect") end) end) -------------------------------------------------- --------------Resolver_override------------------- client_draw_text, client_draw_indicator, client_set_event_callback, client_screen_size, ui_new_slider, ui_new_combobox, ui_reference, ui_set_visible, ui_is_menu_open, ui_new_color_picker, ui_set_callback, ui_set, ui_new_checkbox, ui_new_hotkey, ui_new_button, ui_new_multiselect, ui_get = client.draw_text, client.draw_indicator, client.set_event_callback, client.screen_size, ui.new_slider, ui.new_combobox, ui.reference, ui.set_visible, ui.is_menu_open, ui.new_color_picker, ui.set_callback, ui.set, ui.new_checkbox, ui.new_hotkey, ui.new_button, ui.new_multiselect, ui.get override = ui.new_checkbox("MISC", "Miscellaneous", "Resolver override") override_key = ui.new_hotkey("MISC", "Miscellaneous", "Override key",true) local function update_menu(visible) if ui.get(override, true) then ui.set_visible(override_key, true) else ui.set_visible(override_key, false) end end client.set_event_callback("paint", update_menu) forceyaw = ui.reference("PLAYERS", "Adjustments", "Force body yaw") toall = ui.reference("players", "Adjustments", "Apply to all") yawslider = ui.reference("PLAYERS", "Adjustments", "Force body yaw value") function setbodyyaw() if ui.get(override, true) then else return end if ui.get(yawslider) == 0 and key == true then ui.set(forceyaw, true) ui.set(yawslider, 22) ui.set(toall, true) key = false end if ui.get(yawslider) == 22 and key == true then ui.set(forceyaw, false) ui.set(yawslider, 0) ui.set(toall, true) key = false end end function on_paint() if ui.get(override, true) then else return end if ui.get(override_key) then if key == true then setbodyyaw() key = false end else key = true end end client.set_event_callback("paint", on_paint) client.register_esp_flag("lowdelta", 225, 0, 0, function(c) if ui.get(yawslider) == 22 then return true end end) client.set_event_callback("paint", function() local w, h = client_screen_size() local center = { w/2, h/2 } local y = (center[2]) if ui.get(override, true) then if ui.get(yawslider) == 22 then renderer.indicator(255, 0, 51, 255, "DANGEROUS") elseif ui.get(forceyaw) == false then renderer.indicator(245, 19, 215, 255, "DEFAULT") end end end) client.set_event_callback("round_start", function() ui.set(yawslider, 0) ui.set(forceyaw, false) ui.set(toall, true) end) ---------------------------------------------------------- --------------------------------------------------------- ------------------By_bass_valve-------------------------- local ffi = require"ffi" local client_delay_call, ui_get = client.delay_call, ui.get local enabled = ui.new_checkbox("MISC", "Miscellaneous", "Load files bypass") local sv_pure_bypass = ui.reference("MISC", "Miscellaneous", "Disable sv_pure") local file_system = ffi.cast("int*", client.create_interface("filesystem_stdio.dll", "VFileSystem017") or error("VFileSystem017 not found")) ui.set_callback(enabled, function() if ui.get(enabled) then ui.set(sv_pure_bypass, true) set_files_is_checked_porperly() end end) function set_files_is_checked_porperly() if ui_get(enabled) then file_system[56] = 1 client_delay_call(0.04, set_files_is_checked_porperly ) end end --------------------------------------------------------- ---------------------spectator_list---------------------- local svg_patterns = {} local function gen_pattern(width, height) local svg = [[ <svg width="]] .. width .. [[" height="]] .. height .. [[" viewBox="0 0 ]] .. width .. [[ ]] .. height .. [["> <rect width="]] .. width .. [[" height="]] .. height .. [[" y="0" x="0" fill="#151515"/> #pattern </svg> ]] for x=0, width, 4 do for y=0, height, 4 do local pattern = [[ <rect height="3" width="1" x="]] .. x+1 .. [[" y="]] .. y .. [[" fill="#0d0d0d"/> <rect height="1" width="1" x="]] .. x+3 .. [[" y="]] .. y .. [[" fill="#0d0d0d"/> <rect height="2" width="1" x="]] .. x+3 .. [[" y="]] .. y+2 .. [[" fill="#0d0d0d"/> ]] svg = svg:gsub("#pattern", pattern .. "#pattern") end end svg = svg:gsub("#pattern\n", "") return svg end local function rectangle_outline(x, y, w, h, r, g, b, a, s) s = s or 1 renderer.rectangle(x, y, w, s, r, g, b, a) -- top renderer.rectangle(x, y+h-s, w, s, r, g, b, a) -- bottom renderer.rectangle(x, y+s, s, h-s*2, r, g, b, a) -- left renderer.rectangle(x+w-s, y+s, s, h-s*2, r, g, b, a) -- right end local function draw_container(x, y, w, h, a) a = a or 255 h = h+10 rectangle_outline(x, y, w, h, 18, 18, 18, a) rectangle_outline(x+1, y+1, w-2, h-2, 62, 62, 62, a) rectangle_outline(x+2, y+2, w-4, h-4, 44, 44, 44, a, 3) rectangle_outline(x+5, y+5, w-10, h-10, 62, 62, 62, a) local rw, ph, lxa, pw = w-12, h-12, 0 for i=6, 2, -1 do pw = 2^i if rw % pw < 7 then break end end for i=1, 2 do if svg_patterns[pw] == nil or svg_patterns[pw][ph] == nil then svg_patterns[pw] = svg_patterns[pw] or {} svg_patterns[pw][ph] = renderer.load_svg(gen_pattern(pw, ph), pw, ph) or -1 end if svg_patterns[pw][ph] ~= -1 then for xa=0, rw-pw, pw do renderer.texture(svg_patterns[pw][ph], x+6+xa+lxa, y+6, pw, ph, 255, 255, 255, a) end end if rw % pw == 0 then break end lxa, pw = rw - (rw % pw), rw % pw rw = pw end local x, y = x+7, y+7 local w1, w2 = math.floor((w-14)/2), math.ceil((w-14)/2) for i=1, 2 do renderer.gradient(x, y, w1, 1, 59, 175, 222, a, 202, 70, 205, a, true) renderer.gradient(x+w1, y, w2, 1, 202, 70, 205, a, 201, 227, 58, a, true) y, a = y+1, a*0.2 end renderer.text(x+w1, y+5, 255, 255, 255, 255, "c", 0, "Spectator List") end local x, y, w = 1200, 15, 300 local function draw_spectator_list() local spectators = {} for i = 1, 64 do if entity.get_prop(i, "m_hObserverTarget") ~= nil and not entity.is_alive(i) then spectators[#spectators+1] = i end end local h = (24 + #spectators*10) draw_container(x, y, w, h, 255) for i = 1, #spectators do local r, g, b = 255, 255, 255 local spectator = spectators[i] local targetid = entity.get_prop(spectator, "m_hObserverTarget") if targetid == entity.get_local_player() then g, b = 0, 0 end local observer = "" local obsmode = entity.get_prop(spectator, "m_iObserverMode") if obsmode == 4 or obsmode == 5 then observer = entity.get_player_name(entity.get_prop(spectator, "m_hObserverTarget")) elseif obsmode == 6 then observer = "Freelook" r = 0 else b = 0 end renderer.text(x+10, y+13+(i*10), r, g, b, 255, nil, 0, entity.get_player_name(spectator)) renderer.text(x+10+w/2-14, y+13+(i*10), r, g, b, 255, nil, 0, "->") renderer.text(x+10+w-20, y+13+(i*10), r, g, b, 255, "r", 0, observer) end if ui.is_menu_open() then if client.key_state(1) then local mx, my = ui.mouse_position() if (mx > x and mx < x+w) and (my > y and my < y+h) then x = mx-(w/2) y = my-(h/2) database.write("spectator_list_coordinates", {x, y}) end end end end local ui_enabled = ui.new_checkbox("Misc", "Miscellaneous", "Spectator list") local ui_width = ui.new_slider("Misc", "Miscellaneous", "Width", 150, 600, 300, true, "px") local function script_toggle() local state = ui.get(ui_enabled) local update_callback = state and client.set_event_callback or client.unset_event_callback update_callback("paint", draw_spectator_list) x, y = unpack(database.read("spectator_list_coordinates") or {1200, 15}) ui.set_visible(ui_width, state) end ui.set_callback(ui_width, function() w = ui.get(ui_width) end) w = ui.get(ui_width) ui.set_callback(ui_enabled, script_toggle) script_toggle() ---------------------------------------------------- ---------------------------------------------------- local check = ui.new_checkbox("MISC", "Miscellaneous", "Disable Ragebot,Antiaim") local enabled = ui.reference("AA", "Anti-aimbot angles", "Enabled") local enabled2 = ui.reference("RAGE", "Aimbot", "Enabled") client.set_event_callback("cs_win_panel_match", function() if ui.get(check) then ui.set(enabled, false) ui.set(enabled2, false) end end) client.set_event_callback("round_announce_match_start", function() if ui.get(check) then ui.set(enabled, true) ui.set(enabled2, true) end end) ---------------------------------------------- ------------enemy_desync_indicator------------ local client_register_esp_flag, entity_is_enemy, plist_get = client.register_esp_flag, entity.is_enemy, plist.get local enaablee = ui.new_checkbox("MISC", "Miscellaneous", "enemy desync indicator") client_register_esp_flag("desync", 255, 255, 255, function(c) if not ui_get(enaablee) then return end if entity_is_enemy(c) then return plist_get(c, "Correction active") end end) local label1 = ui.new_label("MISC", "Miscellaneous", ' [MEGASHIT]') ---------------------------------------------------------- -----------------------legit------------------------------ -------------------Trigger_magnet------------------------- local ref = { ui.reference("LEGIT", "Aimbot", "Enabled") } local trigger = { ui.reference("LEGIT", "Triggerbot", "Enabled") } local label1 = ui.new_label("LEGIT", "Other", '[------[MEGASHIT]------]') local label1 = ui.new_label("LEGIT", "Other", ' >>|legitbot|<<') local master = ui.new_checkbox("LEGIT", "Other", "Trigger magnet") local master = ui.new_hotkey("LEGIT", "Other", "Trigger magnet", true) local hotkey = ui.new_hotkey("LEGIT", "Other", "legit awall", false) local auto_penetration_ref = ui_reference("LEGIT", "Triggerbot", "Automatic penetration") local indicatormt = ui.new_checkbox("LEGIT", "Other", "trigger indicator") local indicatorbox = ui.new_checkbox("LEGIT", "Other", "legit awall indicator") client.set_event_callback("net_update_end", function() if ui.get(master) then ui.set(trigger[2], "Always on") ui.set(ref[2], "Always on") else ui.set(ref[2], "On hotkey") ui.set(trigger[2], "On hotkey") end end) local ref = { ui.reference("LEGIT", "Aimbot", "Enabled") } local trigger = { ui.reference("LEGIT", "Triggerbot", "Enabled") } client.set_event_callback("net_update_end", function() if not ui.get(master) then return end if ui.get(trigger[2]) then ui.set(ref[2], "Always on") else ui.set(ref[2], "On hotkey") end end) client.set_event_callback("paint", function() if not ui.get(indicatormt) then return else if ui.get(trigger[2]) then renderer.indicator(124, 195, 13, 255, "MT") else renderer.indicator(0, 0, 0, 80, "MT") end end end) ----------------legit_awll------------------------ function legitawall() if ui.get(hotkey) then ui.set(auto_penetration_ref, true) if ui.get(indicatorbox) then renderer.indicator(76, 255, 0, 255, "awll") end else ui.set(auto_penetration_ref, false) if ui.get(indicatorbox) then renderer.indicator(255, 0, 0, 255, "awll") end end end client.set_event_callback("paint", legitawall) --------------------------------------------------- -------------------------------------------------- local countries = require("gamesense/countries") local enabled = ui.new_checkbox("MISC", "Miscellaneous", "Country welcomer") client.set_event_callback("player_connect_full", function(e) if(not countries.server_has_plugin()) then return end if(not ui.get(enabled)) then return end local entindex = client.userid_to_entindex(e.userid) if(entindex == entity.get_local_player()) then return end client.delay_call(2, function() local player_name = entity.get_player_name(entindex):gsub(";", "") local country_code = countries.get_player_country(entindex) local country_name = countries.get_country_name(country_code) if(country_name ~= "Unknown") then client.exec("say ", ("a warm welcome for %s from %s"):format(player_name:lower(), country_name:lower())) end end) end) local checkbox = ui.new_checkbox("MISC", "Miscellaneous", "Gamesense Steam Presence") local ffi = require("ffi") ffi.cdef[[ typedef struct { void* steam_client; void* steam_user; void* steam_friends; void* steam_utils; void* steam_matchmaking; void* steam_user_stats; void* steam_apps; void* steam_matchmakingservers; void* steam_networking; void* steam_remotestorage; void* steam_screenshots; void* steam_http; void* steam_unidentifiedmessages; void* steam_controller; void* steam_ugc; void* steam_applist; void* steam_music; void* steam_musicremote; void* steam_htmlsurface; void* steam_inventory; void* steam_video; } S_steamApiCtx_t; typedef bool(__thiscall* fnSetRichPresence)(void*, const char*, const char*); ]] local signature = client.find_signature("client_panorama.dll", "\xFF\x15\xCC\xCC\xCC\xCC\xB9\xCC\xCC\xCC\xCC\xE8\xCC\xCC\xCC\xCC\x6A") or error("invalid interface") local steam_ctx = ffi.cast("S_steamApiCtx_t**", ffi.cast("char*", signature) + 7)[0] or error("signature not found") local steam_friends = steam_ctx.steam_friends local vtable = ffi.cast("void***", steam_friends)[0] or error("steam_friends issue") local SetRichPresence = ffi.cast("fnSetRichPresence", vtable[43]) local function update() if ui.get(checkbox) then SetRichPresence(steam_friends, "steam_display", "#bcast_teamvsteammap") SetRichPresence(steam_friends, "team1", "gamesense.pub ") -- looks bad, but works SetRichPresence(steam_friends, "team2", ".") SetRichPresence(steam_friends, "map", "de_dust2") SetRichPresence(steam_friends, "game:mode", "competitive") SetRichPresence(steam_friends, "system:access", "private") end client.delay_call(5, update) -- very lame way, but other stuff doesn't really work. end update() -------------------------------------------------- ---------------------antiaim---------------------- ---------------slowwalk_switch-------------------- local ref_fake = ui.reference("AA", "Other", "Slow motion type") local label1 = ui.new_label("aa", "anti-aimbot angles", '[------[MEGASHIT]------]') local enable = ui.new_checkbox("aa", "anti-aimbot angles", "Slowalk switch") local hkey = ui.new_hotkey("AA", "Anti-aimbot angles", "Slowalk Switch", true) local label1 = ui.new_label("aa", "anti-aimbot angles", ' [MEGASHIT]') local function Slow() if not ui.get(enable) then return end if ui.get(hkey) then ui.set(ref_fake, "Favor high speed") renderer.indicator(255, 0, 0, 255, "Favor HS") else ui.set(ref_fake, "Favor anti-aim") renderer.indicator(76, 255, 0, 255, "Favor AA") end end client.set_event_callback("paint", Slow) ---------------------------------------------------- -----------------effects---------------------------- ---------------cleanscope--------------------------- local get, get_lp, add_event, find_materials, uidtoentindex, checkbox = ui.get, entity.get_local_player, client.set_event_callback, materialsystem.find_materials, client.userid_to_entindex, ui.new_checkbox local label1 = ui.new_label("visuals", "effects", '[------[MEGASHIT]------]') local label1 = ui.new_label("visuals", "effects", ' >>|EFFECTS|<<') local enabled = checkbox("visuals", "effects", "Remove scope lens") add_event("paint", function(ctx) if (enabled) then local sleeve = find_materials("overlays/scope_lens") for i=#sleeve, 1, -1 do sleeve[i]:set_material_var_flag(2, get(enabled)) end end end) ------------Remove_Danger_Zone_Grass------------ local ui_get, ui_new_checkbox = ui.get,ui.new_checkbox local find_materials = materialsystem.find_materials local client_set_event_callback = client.set_event_callback local remove_grass = ui_new_checkbox("VISUALS", "Effects", "Remove Danger Zone Grass") local label1 = ui.new_label("visuals", "effects", ' [MEGASHIT]') local grass_state = false local function grass_on_update() grass_state = false end ui.set_callback(remove_grass, grass_on_update) local function grass_remove() local map_name = globals.mapname() local bool = ui_get(remove_grass) if ( map_name == ("dz_blacksite") ) then local grass1 = find_materials("detail/detailsprites_survival") for a = 1, #grass1 do grass1[a]:set_material_var_flag(2, bool) end elseif ( map_name == ("dz_sirocco") ) then local grass2 = find_materials("detail/dust_massive_detail_sprites") for b = 1, #grass2 do grass2[b]:set_material_var_flag(2, bool) end --Junglety was removed from the game elseif ( map_name == ("dz_frostbite") ) then local grass4 = find_materials("ski/detail/detailsprites_overgrown_ski") for c = 1, #grass4 do grass4[c]:set_material_var_flag(2, bool) end end end client_set_event_callback("net_update_end", function() if not grass_state then grass_remove() grass_state = true end end) client_set_event_callback("shutdown", function() grass_state = false end) ---------------------------------------------------- ---------------*******Help*******------------------- -----------------steam1d3_check--------------------- ----local Player2 = someones steamid3 ----if (playersteamid == Player1 or playersteamid == Player2) then --------------------steamid3------------------------ whitelistsucess = false local Player1 = 1112042143 --megarage local Player2 = 454482231 ---mega ------^^steamID3^^------- local playerid = entity.get_local_player() if (playerid == nil) then return end local playersteamid = entity.get_steam64(playerid) local api = js.MyPersonaAPI local name = api.GetName() ----add player------------------------------ if (playersteamid == Player1 or playersteamid == Player2 or playersteamid == Player3 or playersteamid == Player4 or playersteamid == Player5 ) then -------------------------------------------- whitelistsucess = true client.color_log(180, 238, 0, ' <---<[\0') client.color_log(180, 0, 0, 'M\0') client.color_log(180, 238, 0, 'EGA\0') client.color_log(180, 0, 0, 'S\0') client.color_log(180, 238,0, 'HIT]\0') client.color_log(180, 238,0, '>--->') client.color_log(180, 238, 0, ' Welcome\0' ) client.color_log(255, 77, 44, ' '.. name .. '\0 ') client.color_log(180, 238, 0, '!') client.color_log(33, 238, 0, ' Last update:\0') client.color_log(255, 10, 249, ' 31.1.2021') else whitelistsucess = false client.color_log(180, 238, 0, ' <---<[\0') client.color_log(180, 0, 0, 'M\0') client.color_log(180, 238, 0, 'EGA\0') client.color_log(180, 0, 0, 'S\0') client.color_log(180, 238,0, 'HIT]\0') client.color_log(180, 238,0, '>--->') client.color_log(180, 238,0, 'user not whitelistet contact to: \0') client.color_log(255, 10, 249, 'Mega#4132\0') client.color_log(180, 238,0, ' get whitelistet!!') client.delay_call(10, function() client.color_log(255, 200, 0, ' close game after 30 second') end) client.delay_call(40, function() client.exec("quit") end) end -------------------
Write, Run & Share Lua code online using OneCompiler's Lua online compiler for free. It's one of the robust, feature-rich online compilers for Lua language, running the latest Lua version 5.4. Getting started with the OneCompiler's Lua editor is easy and fast. The editor shows sample boilerplate code when you choose language as Lua and start coding.
OneCompiler's Lua online editor supports stdin and users can give inputs to programs using the STDIN textbox under the I/O tab. Following is a sample Lua program which takes name as input and prints hello message with your name.
name = io.read("*a")
print ("Hello ", name)
Lua is a light weight embeddable scripting language which is built on top of C. It is used in almost all kind of applications like games, web applications, mobile applications, image processing etc. It's a very powerful, fast, easy to learn, open-source scripting language.
-- global variables
a = 10
-- local variables
local x = 30
Value Type | Description |
---|---|
number | Represents numbers |
string | Represents text |
nil | Differentiates values whether it has data or not |
boolean | Value can be either true or false |
function | Represents a sub-routine |
userdata | Represents arbitary C data |
thread | Represents independent threads of execution. |
table | Can hold any value except nil |
While is also used to iterate a set of statements based on a condition. Usually while is preferred when number of iterations are not known in advance.
while(condition)
do
--code
end
Repeat-Until is also used to iterate a set of statements based on a condition. It is very similar to Do-While, it is mostly used when you need to execute the statements atleast once.
repeat
--code
until( condition )
For loop is used to iterate a set of statements based on a condition.
for init,max/min value, increment
do
--code
end
Function is a sub-routine which contains set of statements. Usually functions are written when multiple calls are required to same set of statements which increase re-usuability and modularity.
optional_function_scope function function_name( argument1, argument2, argument3........, argumentn)
--code
return params with comma seperated
end