Hi dalamar,
Firstly, I just discovered a small problem with the source currently available. I've fixed the issue, but you'll need to download the code again.
Secondly, you've already taken the first steps by getting the source code and Visual Basic 2008. All you need to do to "access" the source is to extract the code to a folder and double-click on the "Zafehouse.sln" file in the Zafehouse folder. The code itself is reasonably commented, so you can track down the various variables that control things.
One suggestion I can make to get you started is to check out the Game.vb file in the Core library (not the one in Zafehouse). You can access it by double-clicking on its file icon in the top right-hand window, once you've loaded Zafehouse.sln. This file contains a number of variables you can easily change to alter the gameplay - this includes starting supplies and the number of hours per game.
If you'd like to change/add weapons, here's what you need to do:
1) Open Game.vb in the Core library (as mentioned above).
2) Look for the following code in that file:
Public Function Bat() As WeaponType
Dim tempWeapon As New WeaponType
With tempWeapon
.Name = "Baseball bat"
.Damage = 2
.AmmoNeed = 0
.IsMelee = True
End With
Return tempWeapon
End Function
3) Copy this code, and paste it immediately below the original text, making sure you paste it after the "End Function" line.
4) Replace "Baseball bat" with a new name, and then replace the word "Bat" in "Public Function Bat() As WeaponType" to the name of your new weapon (without spaces). Keep a note of this name.
5) Edit the weapon variables. They are self-explanatory, so you shouldn't have too much trouble. For instance, AmmoNeed determines how much ammo the weapon needs to fire a single round, while IsMelee lets the game know how to treat the weapon in a fight.
6) Open the frmEncounter.vb file in the Zafehouse library
7) Find the line that reads "If ifChanceWithin(RewardChance, RaidPriority_Weapons) Then"
8) Directly below this line, change "WeaponsAvailable(7)" to "WeaponsAvailable(8)"
9) Directly below this line, change the part that reads "RND.Next(1, 8)" to "RND.Next(1, 9)"
10) Find the line that reads "WeaponsAvailable(7) = Shotgun()". Copy it and paste it just below the original line.
11) Replace the "(7)" with "(8)" and "Shotgun()" with the name you noted earlier. Be sure to include the closed brackets after the name.
12) Press F5 to run the game. Your new weapon will be available to find during raids.
That's a fairly speedy run-through of adding a new weapon. If you have any questions, let me know.
I'd recommending talking to flap when he gets back. He should be able to give you some tips.
