Oh noes (invisible) monsters ;_;

Decided to implement a counter which upon reaching 0 will trigger a form to appear in which a random battle will occur (in a similar vein to how the first couple of Final Fantasy games handled random encounters)

Private Sub Random_Encounter(ByRef Counter As Integer)

Counter = Counter - 5
If Counter <= 0 Then

FrmBattle.ShowDialog()

Counter = CInt(Int((255 - 50 + 1) * Rnd())) + 50 + 1

End If

End Sub

I've so far only built the trigger, the subsequent building of what appears on the form and the battle mechanics of the monsters while be done later on :)

This is also the start of a big block of updates as I've been pretty bad with updating my blog, I'm sorry!