PICHU.
[B]Public Class Form1[/B]
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = "bind BUTTON_start (recommended), bind BUTTON_back bind BUTTON_RSHLDR bind BUTTON_LSHLDR bind BUTTON_LSTICK bind BUTTON_RSTICK bind BUTTON_A bind BUTTON_B bind BUTTON_X bind BUTTON_Y "
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = "bind DPAD_UP bind DPAD_DOWN bind DPAD_RIGHT bind DPAD_LEFT"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = "toggle cg_fov 80 105 54 65 (Pro Mod) toggle cg_thirdperson (Third Person) toggle r_fullbright 1 0 (Cartoon Mode) toggle timescale 1 5 10 0.2 (Game Speed) toggle g_speed 100 200 450 (Sprint Speed) toggle r_colorMap 1 2 3 0 (Snow Visions) toggle arcademode 1 0 (Arcade Mode) toggle r_flameFX_enable 1 0 (Flame) toggle g_gravity 99 200 500 (Gravity) toggle jump_height 100 500 999 (Jump Height) cg_laserForceOn 1 0 (Laser Sight) toggle r_specularMap 2 0 (Chrome Vision) toggle R_Fog 0 1 (Fog)"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
TextBox1.Text = "arcademode_score_revive 100000 arcademode_score assist 1000 arcademode_score_kill 10000 arcademode_score_headshot 1000 arcademode_score_laststand 10000 arcademode_score_suicide 10000 arcademode_score_morphine 100000000"
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.Text = "perk_altMeleeDamage 10000 (Bowie Knife) perk_altMeleeLerpTime 5 (Fast Knife React) perk_weapRateMultiplier 0.001 (Triple Tap) perk_armorvest 0 (Increased Jugernaught) perk_weapReloadMultiplier 0.001 (Speed Cola)"
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
TextBox1.Text = "clientkick1 (Kicks Player 2) clientkick2 (Kicks Player 3) clientkick3 (Kicks Player 4) kick all (Kicks All Players)"
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
TextBox1.Text = "party_(Your Gamertag Here) (Host's Name) party_iamhost 1 (Force Host) party_host 1 (Force Host) party_connectToOthers 0 (New Party)"
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
TextBox1.Text = "bg_fallDamageMaxHeight 9999 (Needed) bg_fallDamageMinHeight 9998 (Needed)"
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
TextBox1.Text = "collectible_add collectible_paintball (Paintball) collectible_add collectible_morphine (Revive) collectible_add collectible_dirtyharry (Explve Colt) To remove, Change add to 'remove'"
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
TextBox1.Text = "put these with bind BUTTON's or DPAD binds god (God Mode) give all (Give's All Weapons) dropweapon (Drops Current Weapon) developeruser 1 (Dev ClanTags/ RAIN, MOVE) r_znear 35 (Wallhack) demigod (Half God Mode)"
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
TextBox1.Text = "player_sustainAmmo 1 (Unlimited Ammo) revive_trigger_radius 99999 (Far Revive) player_meleeRange 999 (Far Revive) phys_gravity 99 (Zombies Float When Dead) ai axis delete (Delete All Zombies on Map)magic_chest_movable 0 (Magic Box Dont Move) player_lastStandBleedoutTime 250 (Bleed Out) bullet_penetrationEnabled 1 (Penetrate Bullets) revive_time_taken 1 (Revive Faster)"
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
TextBox1.Text = "player_strafeSpeedScale1 1.5 (Side Movement) player_sprintSpeedScale 4.0 (Fast Sprint) player_sprintunlimited 1 (Unlimited Sprint) player_backSpeedScale 2.0 (Fast Back Walk) G_SPEED 600 (Player Speed)"
End Sub
Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
TextBox1.Text = "r_fullbright 1 (Cartoon Mode) r_specularMap 2 (Chrome Mode) r_colormap 2 (Christmas) r_revivefx_debug 1 (Black & White) sf_use_invert (Thermal) sf_bwself (Black & White) sf_use_chaplin (Old Time) sf_use_contrast (Contrast)"
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
TextBox1.Text = "Put these with bind BUTTONS or DPAD binds toggle r_fullbright 1 0 (Cartoon) toggle r_colorMap 1 2 3 0 (Snow) toggle r_flameFX_enable 1 0 (Flame) toggle r_specularMap 2 0 (Chrome) toggle r_poisonFX_debug_enable 1 0 (Gas) toggle r_watersheetingfx_enable 1 0 (Water)"
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
TextBox1.Text = "toggle G_Ai 0 1 (Freeze Zombies) toggle g_speed 0 (Freeze Player) toggle jump_height 0 (Freeze Jump)"
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
TextBox1.Text = "zombiemode 1 (Default Zombie Mode)"
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
TextBox1.Text = "give ray_gun (Give's Ray Gun) give tesla_gun (Give's Tesla Gun) give m2_flamethrower_zombie (Flamethrower) give zombie_mg42 (Give's MG42) give zombie_ppsh (Give's PPSH) give zombie_stg44 (Give's STG44) give zombie_thompson (Give's Thompson)"
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
TextBox1.Text = "aim_autoaim_enabled 1 aim_autoaim_lerp 100 aim_autoaim_region_height 120 aim_autoaim_region_width 99999999 aim_autoAimRangeScale 2 aim_lockon_debug 1 aim_lockon_enabled 1 aim_lockon_region_height 1386 aim_lockon_region_width 0 aim_lockon_strength 1 aim_lockon_deflection 0.05 aim_input_graph_debug 0 aim_input_graph_enabled 1 auto_aim_enabled 1;aim_slowdown_yaw_scale 0;aim_slowdown_yaw_scale_ads 0"
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
TextBox1.Text = "cg_tracerchange 0.2 cg_tracerlength 160 cg_tracerscale 1"
End Sub
[B]End Class[/B]
Copyright © 2026, NextGenUpdate.
All Rights Reserved.