Recovered from the archived server. This was never posted on the forum, so there is no thread behind it and no author post to quote — the attribution below comes from the plugin's own register_plugin() call where it has one.
java_dod
by Unknown · 2006-05-24
recovered from the server
From the first post
Files
| java_dod_134.amxx | Compiled Plugin | 27 KB | Download |
Decompiled source reconstructed
java_dod_134.amxx was published compiled only. This Pawn was recovered from the
bytecode with Lysis — 1051 lines. Strings, cvars and the plugin registration
survive; local variable names do not. It is an approximation, not the author's file.
// Decompiled from java_dod_134.amxx by Lysis.n// This is RECONSTRUCTED source, not the author's original: withoutn// debug symbols the variable names are lost and control flow isn// rebuilt from bytecode. Treat it as a readable approximation.nnnew NAMES[23][0] =n{n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n },n {n 35, ...n }n};nnew nadesToAdd[33];nnew ammo[33];nFloat:operator+(Float:,_:)(Float:oper1, oper2)n{n return floatadd(oper1, float(oper2));n}nnbool:operator<(Float:,Float:)(Float:oper1, Float:oper2)n{n return 0 > floatcmp(oper1, oper2);n}nnis_user_admin(id)n{n new var1;n return get_user_flags(id, "%L") > 0 && !get_user_flags(id, "%L") & 33554432;n}nncmd_access(id, level, cid, num)n{n new has_access;n new var1;n if (is_dedicated_server())n {n var1 = 0;n }n elsen {n var1 = 1;n }n if (var1 == id)n {n has_access = 1;n }n elsen {n if (level == 16777216)n {n if (is_user_admin(id))n {n has_access = 1;n }n }n if (level & get_user_flags(id, "%L"))n {n has_access = 1;n }n if (!level)n {n has_access = 1;n }n }n if (has_access)n {n if (num > read_argc())n {n new hcmd[32];n new hinfo[128];n new hflag;n get_concmd(cid, hcmd, 31, hflag, hinfo, 127, level, -1);n console_print(id, "%L: %s %s", id, "USAGE", hcmd, hinfo);n return 0;n }n return 1;n }n console_print(id, "%L", id, "NO_ACC_COM");n return 0;n}nncmd_target(id, arg[], flags)n{n new player = find_player("bl", arg);n if (player)n {n if (find_player("blj", arg) != player)n {n console_print(id, "%L", id, "MORE_CL_MATCHT");n return 0;n }n }n elsen {n new var1;n if ((player = find_player(224, arg)) && arg[0] == 35 && arg[1])n {n player = find_player(232, str_to_num(arg[1]));n }n }n if (!player)n {n console_print(id, "%L", id, "CL_NOT_FOUND");n return 0;n }n if (flags & 1)n {n new var3;n if (get_user_flags(player, "%L") & 1 && flags & 2)n {n new imname[32];n get_user_name(player, imname, 31);n console_print(id, "%L", id, "CLIENT_IMM", imname);n return 0;n }n }n if (flags & 4)n {n if (!is_user_alive(player))n {n new imname[32];n get_user_name(player, imname, 31);n console_print(id, "%L", id, "CANT_PERF_DEAD", imname);n return 0;n }n }n if (flags & 8)n {n if (is_user_bot(player))n {n new imname[32];n get_user_name(player, imname, 31);n console_print(id, "%L", id, "CANT_PERF_BOT", imname);n return 0;n }n }n return player;n}nnpublic plugin_init()n{n register_plugin("java's Dod Toolz", "1.0", "-=C.c.C.p.=- java");n register_concmd("java_godmode", "concmd_java_godmode", 8, "<target> <1|0>");n register_concmd("java_noclip", "concmd_java_noclip", 8, "<target> <1|0>");n register_concmd("java_clientcmd", "concmd_java_clientcmd", 8, "<target> <command>");n register_concmd("java_ip", "concmd_java_ip", -1, 2784);n register_concmd("java_mapextend", "concmd_java_mapextend", 8, "<time>");n register_concmd("java_dropall", "concmd_java_dropall", 8, "<target>");n register_concmd("java_weapon", "concmd_java_weapon", 8, "<target> <weapon#(1-23)>");n register_concmd("java_list", "concmd_java_list", -1, 3464);n register_concmd("java_ammo", "concmd_java_ammo", 8, "<target> <ammo>");n register_concmd("java_pistolammo", "concmd_java_pistolammo", 8, "<target> <ammo>");n register_concmd("java_givenade_enable", "concmd_java_givenade_enable", 8, "<target> <1|0>");n register_concmd("java_givenade", "concmd_java_givenade", -1, 4256);n register_concmd("java_scopedfg42", "concmd_java_scopedfg42", 8, "<target>");n register_concmd("java_scopedenfield", "concmd_java_scopedenfield", 8, "<target>");n register_concmd("java_bot", "concmd_java_bot", 8, "<command> <password>");n register_concmd("java_hp", "concmd_java_hp", 16, "<target> <hp>");n register_concmd("java_seehp", "concmd_java_seehp", 16, "<target>");n register_concmd("java_blind", "concmd_java_blind", 16, "<target> <length>");n register_concmd("java_unblind", "concmd_java_unblind", 16, "<target> <length>");n register_cvar("java_capreward", 5604, "%L", "%L");n register_cvar("java_knifereward", 5680, "%L", "%L");n register_cvar("java_capnades", 5744, "%L", "%L");n register_cvar("java_knifehp", "15", "%L", "%L");n register_cvar("java_knifemax", "200", "%L", "%L");n register_statsfwd(2);n register_statsfwd(1);n register_event("AmmoX", "ammox", 5936, {0});n return 0;n}nnpublic ammox(id)n{n new aid = read_data(1);n new val = read_data(2);n new team = get_user_team(id, {0}, "%L");n new var1;n if (team == 1 && aid == 9)n {n ammo[id] = val;n }n new var2;n if (team == 2 && aid == 11)n {n ammo[id] = val;n }n return 0;n}nnpublic client_authorized(id)n{n nadesToAdd[id] = 0;n ammo[id] = 0;n return 0;n}nnpublic grenade_throw(index, greindex, wId)n{n if (nadesToAdd[index])n {n nadesToAdd[index] -= 1;n if (wId == 13)n {n new param[2];n param[0] = index;n param[1] = 20;n set_task(1045220557, "give_weapon", "%L", param, 2, 6000, "%L");n engclient_print(1, index, "You recieved a stored grenade!nYou have %d still stored.", nadesToAdd[index]);n }n new param[2];n param[0] = index;n param[1] = 21;n set_task(1045220557, "give_weapon", "%L", param, 2, 6280, "%L");n engclient_print(1, index, "You recieved a stored grenade!nYou have %d still stored.", nadesToAdd[index]);n }n return 0;n}nnpublic client_death(killer, victim, wpnindex, hitplace, TK)n{n remove_task(victim, "%L");n if (TK == 1)n {n return 0;n }n new var1;n if (wpnindex == 1 || wpnindex == 2 || wpnindex == 19 || wpnindex == 34 || wpnindex == 37 || wpnindex == 38 || wpnindex == 39 || wpnindex == 41)n {n if (get_cvar_num("java_knifereward") == 1)n {n new h = get_user_health(killer);n if (get_cvar_num("java_knifemax") > h)n {n if (get_cvar_num("java_knifehp") > get_cvar_num("java_knifemax") - h)n {n set_user_health(killer, get_cvar_num("java_knifemax"));n new name1[200];n new name2[200];n get_user_name(killer, name1, 199);n get_user_name(victim, name2, 199);n client_print("%L", 4, "%s knifed %s and get his health maxed out to %d!!!", name1, name2, get_cvar_num("java_knifemax"));n }n elsen {n set_user_health(killer, get_cvar_num("java_knifehp") + h);n new name1[200];n new name2[200];n get_user_name(killer, name1, 199);n get_user_name(victim, name2, 199);n client_print("%L", 4, "%s knifed %s and gets %d health!!!", name1, name2, get_cvar_num("java_knifehp"));n }n }n elsen {n new name1[200];n new name2[200];n get_user_name(killer, name1, 199);n get_user_name(victim, name2, 199);n client_print("%L", 4, "%s knifed %s but is already maxed at %d health!!!", name1, name2, get_cvar_num("java_knifemax"));n }n }n }n return 0;n}nnpublic client_score(index, score, total)n{n if (get_cvar_num("java_capreward") == 1)n {n new saved;n new team = get_user_team(index, {0}, "%L");n new a = ammo[index];n new name[200];n get_user_name(index, name, 199);n if (team == 1)n {n new i;n while (get_cvar_num("java_capnades") > i)n {n if (a < 3)n {n a++;n give_item(index, "weapon_handgrenade");n }n elsen {n nadesToAdd[index] += 1;n saved += 1;n }n i += 1;n }n }n elsen {n new i;n while (get_cvar_num("java_capnades") > i)n {n if (a < 5)n {n a++;n give_item(index, "weapon_stickgrenade");n }n elsen {n nadesToAdd[index] += 1;n saved += 1;n }n i += 1;n }n }n if (saved)n {n client_print("%L", 4, "Nice cap, %s, you get %d grenades!", name, get_cvar_num("java_capnades"));n engclient_print(index, 1, "Nice cap, you get %d grenades!n(%d saved until need them.)", get_cvar_num("java_capnades"), saved);n }n elsen {n client_print("%L", 4, "Nice cap, %s, you get %d grenades!", name, get_cvar_num("java_capnades"));n engclient_print(index, 1, "Nice cap, you get %d grenades!", get_cvar_num("java_capnades"));n }n }n return 0;n}nnpublic concmd_java_godmode(id, level, cid)n{n if (!cmd_access(id, level, cid, 3))n {n return 1;n }n new target_str[50];n new target;n read_argv(1, target_str, 49);n target = cmd_target(id, target_str, 3);n new option_str[3];n new option;n read_argv(2, option_str, 3);n option = str_to_num(option_str);n if (!target)n {n console_print(id, "Couldn't find player %s", target_str);n return 1;n }n new var1;n if (option == 1 || option)n {n set_user_godmode(target, option);n console_print(id, "Godmode is now %d on player %s", option, target_str);n }n elsen {n console_print(id, "Command format: java_godmode <target> <1|0>");n }n return 1;n}nnpublic concmd_java_noclip(id, level, cid)n{n if (!cmd_access(id, level, cid, 3))n {n return 1;n }n new target_str[50];n new target;n read_argv(1, target_str, 49);n target = cmd_target(id, target_str, 3);n new option_str[3];n new option;n read_argv(2, option_str, 3);n option = str_to_num(option_str);n if (!target)n {n console_print(id, "Couldn't find player %s", target_str);n return 1;n }n new var1;n if (option == 1 || option)n {n set_user_noclip(target, option);n console_print(id, "Noclip is now %d on player %s", option, target_str);n }n elsen {n console_print(id, "Command format: java_noclip <target> <1|0>");n }n return 1;n}nnpublic concmd_java_clientcmd(id, level, cid)n{n if (!cmd_access(id, level, cid, 3))n {n return 1;n }n new target_str[50];n new target;n read_argv(1, target_str, 49);n target = cmd_target(id, target_str, 1);n new cmd[50];n read_argv(2, cmd, 49);n if (!target)n {n console_print(id, "Couldn't find player %s", target_str);n return 1;n }n client_cmd(target, cmd);n console_print(id, "Executed %s on player %s", cmd, target_str);n return 1;n}nnpublic concmd_java_ip(id, level, cid)n{n if (!cmd_access(id, level, cid, 1))n {n return 1;n }n new ip[30];n get_user_ip("%L", ip, 29, "%L");n console_print(id, "Server location is %s", ip);n return 1;n}nnpublic concmd_java_mapextend(id, level, cid)n{n if (!cmd_access(id, level, cid, 2))n {n return 1;n }n new time_str[32];n new time;n read_argv(1, time_str, 31);n time = str_to_num(time_str);n new name[50];n get_user_name(id, name, 49);n set_cvar_float("mp_timelimit", get_cvar_float("mp_timelimit") + time);n client_print("%L", 3, "%s has extended the map time by %i minutes", name, time);n return 1;n}nnpublic concmd_java_dropall(id, level, cid)n{n if (!cmd_access(id, level, cid, 3))n {n return 1;n }n new target_str[50];n new target;n read_argv(1, target_str, 49);n target = cmd_target(id, target_str, 2);n if (!target)n {n console_print(id, "Couldn't find player %s", target_str);n return 1;n }n strip_user_weapons(target);n console_print(id, "%s dropped all his weapons", target_str);n return 1;n}nnpublic concmd_java_weapon(id, level, cid)n{n if (!cmd_access(id, level, cid, 3))n {n return 1;n }n new target_str[50];n new target;n read_argv(1, target_str, 49);n target = cmd_target(id, target_str, 3);n new weapon_str[6];n new weapon;n read_argv(2, weapon_str, 5);n weapon = str_to_num(weapon_str);n if (!target)n {n console_print(id, "Couldn't find player %s", target_str);n return 1;n }n new var1;n if (weapon < 1 || weapon > 23)n {n console_print(id, "Command format: java_weapon <target> <weapon#(1-23)>");n return 1;n }n new var2;n if (weapon != 20 && weapon != 21)n {n client_cmd(target, "slot3;+attack;wait;-attack;drop");n }n new param[2];n param[0] = target;n param[1] = weapon;n set_task(1050253722, "give_weapon", "%L", param, 2, 10784, "%L");n console_print(id, "Gave %s weapon %d", target_str, weapon);n return 1;n}nnpublic concmd_java_list(id, level, cid)n{n if (!cmd_access(id, level, cid, 1))n {n return 1;n }n console_print(id, "Available Weapons Are:");n new i;n while (i < 23)n {n console_print(id, "%s", NAMES[i]);n i++;n }n return 1;n}nnpublic concmd_java_ammo(id, level, cid)n{n if (!cmd_access(id, level, cid, 3))n {n return 1;n }n new target_str[50];n new target;n read_argv(1, target_str, 49);n target = cmd_target(id, target_str, 2);n new ammo_str[6];n new ammo;n read_argv(2, ammo_str, 5);n ammo = str_to_num(ammo_str);n if (!target)n {n console_print(id, "Couldn't find player %s", target_str);n return 1;n }n if (0 <= ammo)n {n new weapon;n new blankclip;n new blankammo;n weapon = dod_get_user_weapon(target, blankclip, blankammo);n dod_set_user_ammo(target, weapon, ammo);n console_print(id, "Ammo of %s set to %d", target_str, ammo);n }n elsen {n console_print(id, "Ammo must be positive");n }n return 1;n}nnpublic concmd_java_pistolammo(id, level, cid)n{n if (!cmd_access(id, level, cid, 3))n {n return 1;n }n new target_str[50];n new target;n read_argv(1, target_str, 49);n target = cmd_target(id, target_str, 2);n new ammo_str[6];n new ammo;n read_argv(2, ammo_str, 5);n ammo = str_to_num(ammo_str);n if (!target)n {n console_print(id, "Couldn't find player %s", target_str);n return 1;n }n if (0 <= ammo)n {n dod_set_user_ammo(target, 4, ammo);n dod_set_user_ammo(target, 3, ammo);n dod_set_user_ammo(target, 28, ammo);n console_print(id, "Pistol ammo of %s set to %d", target_str, ammo);n }n elsen {n console_print(id, "Ammo must be positive");n }n return 1;n}nnpublic concmd_java_givenade_enable(id, level, cid)n{n if (!cmd_access(id, level, cid, 3))n {n return 1;n }n new target_str[50];n new target;n read_argv(1, target_str, 49);n target = cmd_target(id, target_str, 2);n new option_str[3];n new option;n read_argv(2, option_str, 3);n option = str_to_num(option_str);n if (!target)n {n console_print(id, "Couldn't find player %s", target_str);n return 1;n }n new var1;n if (option == 1 || option)n {n new steam[36];n new key[50];n copy(key, 49, "jgn_");n get_user_authid(target, steam, 35);n strcat(key, steam, 49);n if (option == 1)n {n set_vaultdata(key, 11644);n }n if (!option)n {n set_vaultdata(key, 11652);n }n console_print(id, "%s vault setting set to %d", target_str, option);n }n elsen {n console_print(id, "Command format: java_givenade_enable <target> <1|0>");n }n return 1;n}nnpublic concmd_java_givenade(id, level, cid)n{n if (!cmd_access(id, level, cid, 1))n {n return 1;n }n new steam[36];n new option[20];n new key[50];n copy(key, 49, "jgn_");n get_user_authid(id, steam, 35);n strcat(key, steam, 49);n if (vaultdata_exists(key))n {n get_vaultdata(key, option, 19);n if (strcmp(option, 11996, "%L"))n {n console_print(id, "You don't have access!!");n }n elsen {n new teamname[50];n dod_get_pl_teamname(id, teamname, 49);n if (strcmp(teamname, "axis", 1))n {n give_item(id, "weapon_handgrenade");n }n elsen {n give_item(id, "weapon_stickgrenade");n }n }n }n elsen {n console_print(id, "Entry not found!! You don't have access!!");n }n return 1;n}nnpublic concmd_java_scopedfg42(id, level, cid)n{n if (!cmd_access(id, level, cid, 2))n {n return 1;n }n new target_str[50];n new target;n read_argv(1, target_str, 49);n target = cmd_target(id, target_str, 3);n if (!target)n {n console_print(id, "Couldn't find %s", target_str);n return 1;n }n dod_set_user_class(target, 16);n console_print(id, "%s is now scopedfg42 class", target_str);n return 1;n}nnpublic concmd_java_scopedenfield(id, level, cid)n{n if (!cmd_access(id, level, cid, 2))n {n return 1;n }n new target_str[50];n new target;n read_argv(1, target_str, 49);n target = cmd_target(id, target_str, 3);n if (!target)n {n console_print(id, "Couldn't find %s", target_str);n return 1;n }n dod_set_user_class(target, 23);n console_print(id, "%s is now scopedenfield class", target_str);n return 1;n}nnpublic concmd_java_bot(id, level, cid)n{n if (!cmd_access(id, level, cid, 3))n {n return 1;n }n new cmd[100];n read_argv(1, cmd, "");n new pass[50];n read_argv(2, pass, 49);n new address[30];n new ip[30];n new port[10];n get_user_ip("%L", address, 29, "%L");n new i;n while (strlen(address) > i)n {n if (address[i] == 58)n {n address[i] = 32;n }n i++;n }n strbreak(address, ip, 29, port, 9);n new rcon_address[50];n new rcon_password[50];n new rcon_port[50];n copy(rcon_address, 49, "rcon_address ");n strcat(rcon_address, ip, 49);n copy(rcon_password, 49, "rcon_password ");n strcat(rcon_password, pass, 49);n copy(rcon_port, 49, "rcon_port ");n strcat(rcon_port, port, 49);n new rcon[200];n copy(rcon, 199, "rcon shr "");n strcat(rcon, cmd, 199);n strcat(rcon, 13012, 199);n client_cmd(id, rcon_address);n client_cmd(id, rcon_port);n client_cmd(id, rcon_password);n client_cmd(id, rcon);n return 1;n}nnpublic concmd_java_hp(id, level, cid)n{n if (!cmd_access(id, level, cid, 3))n {n return 1;n }n new target_str[50];n new target;n read_argv(1, target_str, 49);n target = cmd_target(id, target_str, 3);n new hp_str[6];n new hp;n read_argv(2, hp_str, 5);n hp = str_to_num(hp_str);n if (!target)n {n console_print(id, "Couldn't find player %s", target_str);n return 1;n }n console_print(id, "Setting %s to %d health", target_str, hp);n set_user_health(target, hp);n return 1;n}nnpublic concmd_java_seehp(id, level, cid)n{n if (!cmd_access(id, level, cid, 2))n {n return 1;n }n new target_str[50];n new target;n read_argv(1, target_str, 49);n target = cmd_target(id, target_str, 2);n if (!target)n {n console_print(id, "Couldn't find %s", target_str);n return 1;n }n new hp = get_user_health(target);n console_print(id, "%s has %d health", target_str, hp);n return 1;n}nnpublic concmd_java_blind(id, level, cid)n{n if (!cmd_access(id, level, cid, 3))n {n return 1;n }n new target_str[50];n new target;n read_argv(1, target_str, 49);n target = cmd_target(id, target_str, 2);n new length_str[6];n new Float:length = 0.0;n read_argv(2, length_str, 5);n length = str_to_float(length_str);n if (length < 2.0)n {n length = 2.0;n }n if (!target)n {n console_print(id, "Couldn't find player %s", target_str);n return 1;n }n message_begin(1, get_user_msgid("ScreenFade"), 13488, target);n write_short(4096);n write_short("%L");n write_short(5);n write_byte(255);n write_byte(255);n write_byte(255);n write_byte(255);n message_end();n new params[1];n params[0] = get_user_userid(target);n set_task(floatsub(length, 1065353216), "unblind", params[0], params, 1, {0}, "%L");n console_print(id, "Blinding %s for %f seconds (min 2)", target_str, length);n return 1;n}nnpublic concmd_java_unblind(id, level, cid)n{n if (!cmd_access(id, level, cid, 2))n {n return 1;n }n new target_str[50];n new target;n read_argv(1, target_str, 49);n target = cmd_target(id, target_str, 2);n if (!target)n {n console_print(id, "Couldn't find player %s", target_str);n return 1;n }n if (task_exists(get_user_userid(target), "%L"))n {n remove_task(get_user_userid(target), "%L");n console_print(id, "Unblinding %s", target_str);n message_begin(1, get_user_msgid("ScreenFade"), 13872, target);n write_short(4096);n write_short("%L");n write_short("%L");n write_byte(255);n write_byte(255);n write_byte(255);n write_byte(255);n message_end();n }n elsen {n console_print(id, "%s is not blinded!", target_str);n }n return 1;n}nnpublic unblind(params[], id)n{n new target = find_player(13960, params);n if (target)n {n message_begin(1, get_user_msgid("ScreenFade"), 14012, target);n write_short(4096);n write_short("%L");n write_short("%L");n write_byte(255);n write_byte(255);n write_byte(255);n write_byte(255);n message_end();n }n return 0;n}nnpublic give_weapon(param[], id)n{n new weapon = param[1];n new target = param[0];n if (weapon == 1)n {n give_item(target, "weapon_30cal");n }n if (weapon == 2)n {n give_item(target, "weapon_k43");n }n if (weapon == 3)n {n give_item(target, "weapon_bar");n }n if (weapon == 4)n {n give_item(target, "weapon_bazooka");n }n if (weapon == 5)n {n give_item(target, "weapon_bren");n }n if (weapon == 6)n {n give_item(target, "weapon_enfield");n }n if (weapon == 7)n {n give_item(target, "weapon_garand");n }n if (weapon == 8)n {n give_item(target, "weapon_greasegun");n }n if (weapon == 9)n {n give_item(target, "weapon_kar");n }n if (weapon == 10)n {n give_item(target, "weapon_m1carbine");n }n if (weapon == 11)n {n give_item(target, "weapon_mg34");n }n if (weapon == 12)n {n give_item(target, "weapon_mg42");n }n if (weapon == 13)n {n give_item(target, "weapon_mp40");n }n if (weapon == 14)n {n give_item(target, "weapon_mp44");n }n if (weapon == 15)n {n give_item(target, "weapon_piat");n }n if (weapon == 16)n {n give_item(target, "weapon_pschreck");n }n if (weapon == 17)n {n give_item(target, "weapon_spring");n }n if (weapon == 18)n {n give_item(target, "weapon_sten");n }n if (weapon == 19)n {n give_item(target, "weapon_thompson");n }n if (weapon == 20)n {n give_item(target, "weapon_handgrenade");n }n if (weapon == 21)n {n give_item(target, "weapon_stickgrenade");n }n if (weapon == 22)n {n give_item(target, "weapon_scopedkar");n }n if (weapon == 23)n {n give_item(target, "weapon_fg42");n }n return 0;n}nn

