Many people want to know how to make a CP trainer, so I decided to show you how. First off, we need to open visual basic and select standard exe. A blank form will appear. Right-click on the toolbox (on the left) and select 'Components'. A new windows comes up. Scroll down until you find a check box labeled 'Shockwave Flash'. Tick this checkbox. Press OK, and we come back to the form. If you have got it right, there should be a new icon on the toolbox like a piece of blank paper. Click it, then drag an area of how big you want Club Penguin to be. You may want to make the form bigger before doing this. Once you have drawn your Shockwave Flash, there should be a big white area on the form. Double-click the form (not the blank area) and type the following code:
ShockwaveFlash1.Movie = App.Path & "/load.swf" Call ShockwaveFlash1.Play
This code needs to go in between the 'Private Sub Form_Load()' and the 'End Sub'. That will load Club Penguin when you make the program. Because CP have changed all their SWFs, you need to download the SWF files from the link at the bottom of the post (something about downloading source code), extract them and put the load.swf file in the same folder as the cp trainer when you make it. Now we need to make some menus, so right-click the form and select 'Menu Editor'. Make some menus with the following captions and names:
|Walk on Walls||walkonwalls|
|Ice Rink Walk||icerinkwalk|
|Go to Town||gototown|
Now double click the form and highlight it all and paste this code in:
Private Sub Form_Load() ShockwaveFlash1.Movie = App.Path & "/load.swf" Call ShockwaveFlash1.Play End Sub Private Sub walkonwalls_Click() Call ShockwaveFlash1.SetVariable("_level0.holder_mc.ENGINE.my_room_movieclips.block_mc._x", "-5000") End Sub Private Sub icerinkwalk_Click() Call ShockwaveFlash1.SetVariable("_level0.holder_mc.ENGINE.my_room_movieclips.room_mc.ease_method", "easeInOutQuad") End Sub Private Sub makemember_Click() Call ShockwaveFlash1.SetVariable("_level0.holder_mc.SHELL.my_player.is_member", 0) End Sub Private Sub gototown_Click() Call ShockwaveFlash1.LoadMovie(2, App.Path & "/navigator.swf?roomname=town") End Sub
Oh, and by the way, you need to get the navigator.swf file from the folder you downloaded and put it in the same folder as the program. Finally, go the the File menu, select 'Make Project1.exe' and put it in the same folder as the one you put load.swf and navigator.swf in.
There! You're done!