Trainer Codes

Private Sub walkonwalls
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.ENGINE.my_room_movieclips.block_mc._x”, -5000)
End Sub

Private Sub a_Click()
MsgBox (“This Is A Club Penguin Trainer for the purpose of cheating NOT hacking do not reffer to this as a hack, hacking machine, or anything that has to do with hacking!”)
End Sub

Private Sub adopt_Click()
Call ShockwaveFlash1.LoadMovie(6, CurDir & “/flash3.swf?w=catalogue&catalogue=adopt_catalogue”)
End Sub

Private Sub amimem_Click()
MsgBox (“Member Status: ” & ShockwaveFlash1.GetVariable(“_level0.holder_mc.SHELL.my_player.is_member”) & “.”)
End Sub

Private Sub amisafe_Click()
MsgBox (“Safe Chat Status: ” & ShockwaveFlash1.GetVariable(“_level0.holder_mc.SHELL.my_player.is_safemode”) & “.”)
End Sub

Private Sub bath_Click()
Timer11.Enabled = True
End Sub

Private Sub aqua_Click()
Call ShockwaveFlash1.LoadMovie(2, CurDir & “/flash.swf?w=game&thename=aqua”)
End Sub

Private Sub astro_Click()
Call ShockwaveFlash1.LoadMovie(2, CurDir & “/flash.swf?w=game&thename=astro”)
End Sub

Private Sub beamod_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.INTERFACE.is_moderator”, 1)
End Sub

Private Sub bean_Click()
Call ShockwaveFlash1.LoadMovie(2, CurDir & “/flash.swf?w=game&thename=beans”)
End Sub

Private Sub becomebigboybots_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.my_player.player_id”, “54308448″)
End Sub

Private Sub BecomeBillybob_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.my_player.player_id”, “81″)
End Sub

Private Sub BecomeFerrariracer_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.my_player.player_id”, “62529939″)
End Sub

Private Sub BecomeGizmo_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.my_player.player_id”, “81752″)
End Sub

Private Sub BecomeHappy77_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.my_player.player_id”, “22″)
End Sub

Private Sub BecomeHeatblast227_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.my_player.player_id”, “10333688″)
End Sub

Private Sub BecomeRockhopper_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.my_player.player_id”, “11363770″)
End Sub

Private Sub BecomeRsnail_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.my_player.player_id”, “36″)
End Sub

Private Sub BecomeSkate14z_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.my_player.player_id”, “58918487″)
End Sub

Private Sub bemember_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.my_player.is_member”, 1)
End Sub

Private Sub bepcplayer_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.my_player.player_id”, ShockwaveFlash1.GetVariable(“_level0.holder_mc.INTERFACE.active_player_object.player_id”))
End Sub

Private Sub besafe_Click()
Timer5.Enabled = True
End Sub

Private Sub bhpiniggy_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle0″, “http://cppuffles.comze.com/bethatpuff.swf”)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle1″, “http://cppuffles.comze.com/bethatpuff.swf”)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle2″, “http://cppuffles.comze.com/bethatpuff.swf”)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle3″, “http://cppuffles.comze.com/bethatpuff.swf”)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle4″, “http://cppuffles.comze.com/bethatpuff.swf”)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle5″, “http://cppuffles.comze.com/bethatpuff.swf”)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle6″, “http://cppuffles.comze.com/bethatpuff.swf”)
End Sub

Private Sub bidol_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.idle_timeout”, “6000000000#”)
End Sub

Private Sub billybob_Click()
Call ShockwaveFlash1.LoadMovie(2, CurDir & “/flash.swf?w=igloo&theid=81″)
End Sub

Private Sub bob_Click()
Call ShockwaveFlash1.LoadMovie(2, CurDir & “/flash.swf?w=game&thename=book2″)
End Sub

Private Sub body_Click()
Dim txt
txt = InputBox(“What Do You Want Your New Body ID to be?”)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.my_player.body”, txt)
End Sub

Private Sub bpinigloo_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle0″, “http://media1.clubpenguin.com/play/v2/content/global/puffle/sprites/black1″)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle1″, “http://media1.clubpenguin.com/play/v2/content/global/puffle/sprites/black1″)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle2″, “http://media1.clubpenguin.com/play/v2/content/global/puffle/sprites/black1″)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle3″, “http://media1.clubpenguin.com/play/v2/content/global/puffle/sprites/black1″)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle4″, “http://media1.clubpenguin.com/play/v2/content/global/puffle/sprites/black1″)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle5″, “http://media1.clubpenguin.com/play/v2/content/global/puffle/sprites/black1″)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle6″, “http://media1.clubpenguin.com/play/v2/content/global/puffle/sprites/black1″)
End Sub

Private Sub bpppinigloo_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle0″, “http://media1.clubpenguin.com/play/v2/content/global/puffle/sprites/blue1″)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle1″, “http://media1.clubpenguin.com/play/v2/content/global/puffle/sprites/blue1″)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle2″, “http://media1.clubpenguin.com/play/v2/content/global/puffle/sprites/blue1″)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle3″, “http://media1.clubpenguin.com/play/v2/content/global/puffle/sprites/blue1″)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle4″, “http://media1.clubpenguin.com/play/v2/content/global/puffle/sprites/blue1″)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle5″, “http://media1.clubpenguin.com/play/v2/content/global/puffle/sprites/blue1″)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.GLOBAL_CRUMBS.global_path.puffle6″, “http://media1.clubpenguin.com/play/v2/content/global/puffle/sprites/blue1″)
End Sub

Private Sub buyid_Click()
c
End Sub

Private Sub changeage_Click()
Dim txt
txt = InputBox(“Please Enter Your Wanted Age”)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.my_player.player_age”, txt)
End Sub

Private Sub cage_Click()
Dim txt
txt = InputBox(“Please Type Your Wanted Age”)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.my_player.created_date”, txt)
End Sub

Private Sub cart_Click()
Call ShockwaveFlash1.LoadMovie(2, CurDir & “/flash.swf?w=game&thename=cart”)
End Sub

Private Sub catchin_Click()
Call ShockwaveFlash1.LoadMovie(2, CurDir & “/flash.swf?w=game&thename=waves”)
End Sub

Private Sub cclothing_Click()
Call ShockwaveFlash1.LoadMovie(6, CurDir & “/flash3.swf?w=catalogue&catalogue=clothing_catalogue”)
End Sub

Private Sub changecoins_Click()
Dim txt
txt = InputBox(“Please Type Your Wanted Coin Amount”)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.my_player.coins”, txt)
End Sub

Private Sub changefftickets_Click()
Dim txt
txt = InputBox(“Please Type Your Wanted Ticket Amount”)
Call ShockwaveFlash1.SetVariable(“level0.holder_mc.INTERFACE.num_tickets”, txt)
End Sub

Private Sub changeid_Click()
Dim txt
txt = InputBox(“Please Type Your Wanted Player ID”)
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.SHELL.my_player.player_id”, txt)
End Sub

Private Sub cookie_Click()
Timer14.Enabled = True
End Sub

Private Sub co_Click()
Timer7.Enabled = False
End Sub

Private Sub colour_Click()

End Sub

Private Sub con_Click()
Timer7.Enabled = True
End Sub

Private Sub changepass_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.LOGIN_HOLDER.PASSWORD_TXT.text”, InputBox(“What Do you want the Password to be?”))
End Sub

Private Sub changepcname_Click()
Call ShockwaveFlash1.SetVariable(“_level0.holder_mc.INTERFACE.nicknames_mc.p” & ShockwaveFlash1.GetVariable(“_level0.holder_mc.INTERFACE.active_player_object.player_id”) & “.name_txt.text”, InputBox(“Enter the Name.”))
End Sub

Private Sub costume_Click()
Call ShockwaveFlash1.LoadMovie(6, CurDir & “/flash3.swf?w=catalogue&catalogue=costume_catalogue”)
End Sub

Private Sub credits_Click()