Gaming League Project (Help Wanted)
"The Ruins of Terra" (Rebels' Revenge Phase 2.0)
(c)2002 TrueProgramming
Thanx to peet, I can now put my gaming league all together.
But I need some help with it. Lets just say we're working on a digital puzzel with 20,000 pieces. :D
Max Users in League = 256 'Hex ID's = UserID.XFF
Max Units in League = 32 'Hex ID's = UnitID.X1F
Max Members Per Unit = 16
Max Battles in League = 4096 'Hex ID's =BattleID.FF (Cycles When Full; I do this by hand)
First of All is the Main Menu
Diagram Layout:
::frmMain::
>frmLogin as Interupt Login
>Menus Buttons
>>My Unit
>>Report/Confirm Battles
>>Scores & Stats
>>Trials
>>My Stats
::frmLogin::
>Callsign
>Password
>Unit (Combo)
::frmMyUnit::
>Unit Name
>(Scratch Unit Rank, frmScores will handle that.)
>Members
>Leader
>Admins
>::Ranks::
>>10=Leader
>>9=2ndCommand
>>1=Recruit
::frmReportConfirmBattles::
>::REPORTING:: (If msgbox("Did you Win?") = vbNo)
>>::League Battle Type:: (Combo)
>>>Normal
>>>Trial
>>>WAR
>>::Battle Type:: (Combo)
>>>Capture The Flag
>>>Team Attrition
>>>Team Destruction
>>>Team King of the Hill
>>::Visibility:: (Combo)
>>>Clear
>>>Light Fog
>>>Heavy Fog
>>>Pea Soup Fog
>>::Day/Night:: (Combo?)
>>>Day
>>>Night
>>"Won With Mercs?" (Check Box)
><>If Yes Then Mercs.Enabled:
><>>Winning Mercs Team (Combo) As Merc Type Teams
><>>Winning Mercs Players (List Box.Multiselect) As Mercs.Memebrs
><>>Winning Mercs Kills/Score (Text Box.Numbers Only) As MercsBattleScore
>>Winning Team (Combo) As Any Team
>>Winning Team Players (List Box.Multiselect) As Winner.Members
>>Winning Team Kills/Score (Text Box) As WinBattleScore
>>Losing Team (Combo) As Reporter's Team '(Loser Reports)
>>Losing Team Players (List Box.MultiSelect) As Loser.Members
>>Losing Team Kills/Score (Text Box) As LoseBattleScore
>::CONFIRMING::
>Confirmer's Form = Reporter's Form But Winning Team = Confirmer's Team & Losing Team = Combo Select.
><>Prevents Cheating (Somewhat)
>::PREVIEWER::
>>Multilined Text Box
><>Adds Evething Up Like an INI file, into a text box.
>::COMPARE SEQUENCE::
>>If Confirmer Form.Preview <> Download(UplaodedReportedFile) Then BattleID.Filename = "XBattle." & Hex(BattleID) 'Downloading & Uploading is not a problem for me; act like the file is on the Hard Drive.
::frmScoresStats::
>For i = 0 to LobbyFile.EndUnit** 'LobbyFile Shows The Next Value for each SomethingID so that it will not rewright over one another.
>Open i File
>Put on List Box (Sorted)
>UnitStat$ = ReadLine & ReadLine & ReadLine & ...
>UnitStat$ Output = Score &Tab& Name &Tab& UnitType &...
>Next i
::frmTrials::
>(Special Stats) Like Scores/Stats
>Gives Members Experience Ranking.
>This Part I have to do on my own coding.
::frmMyStats::
>Callsign
>Score
>Unit
>Life Kills
>Exp
>Battles
>Wins
>Win%
><Debug>Password
