951 lines
26 KiB
QBasic
951 lines
26 KiB
QBasic
DECLARE SUB DoRandomEvents ()
|
|
DECLARE FUNCTION GetPackageIndexInMyDistro (PackType AS INTEGER) AS INTEGER
|
|
'$FORM Pack
|
|
DECLARE SUB LogEvent (NewMessage AS STRING)
|
|
DECLARE SUB NewUsersMe ()
|
|
DECLARE SUB NewUsersAll ()
|
|
DECLARE SUB NewBugs ()
|
|
DECLARE SUB SortAllDistros ()
|
|
DECLARE SUB InitGameData ()
|
|
DECLARE SUB BuildDistroList ()
|
|
' Software Types Constants
|
|
CONST kTypeWebBrowser = 1
|
|
CONST kTypeOfficeSuite = 2
|
|
CONST kTypeDesktopEnvironment = 3
|
|
CONST kTypeGame = 4
|
|
CONST kTypeGraphics = 5
|
|
CONST kTypeProgramming = 6
|
|
CONST kTypeCommunication = 7
|
|
CONST kTypeUtility = 8
|
|
CONST kTypeMultimedia = 9
|
|
|
|
' Packages
|
|
TYPE Package
|
|
Name AS STRING * 30
|
|
Bugs AS INTEGER
|
|
Description AS STRING * 80
|
|
NerdCred AS INTEGER
|
|
Popularity AS INTEGER
|
|
SizeInMB AS INTEGER
|
|
Version AS INTEGER
|
|
isOpenSource AS INTEGER
|
|
TypeOfSoftware AS INTEGER
|
|
END TYPE
|
|
|
|
' Distro storage
|
|
TYPE Distro
|
|
Name AS STRING * 30
|
|
Bugs AS INTEGER
|
|
Hype AS INTEGER
|
|
PackPop AS INTEGER
|
|
PackCred AS INTEGER
|
|
|
|
Size AS INTEGER
|
|
Users AS LONG
|
|
Version AS INTEGER
|
|
AgeInDays AS INTEGER
|
|
WorkersPaid AS INTEGER
|
|
WorkersVolunteers AS INTEGER
|
|
END TYPE
|
|
|
|
DIM SHARED AllPackages(40) AS Package
|
|
DIM SHARED AllDistros(20) AS Distro
|
|
DIM SHARED MyDistro AS Distro
|
|
DIM SHARED tempDistro AS Distro
|
|
DIM SHARED tempPackage AS Package
|
|
DIM SHARED MyDistroPackages(40) AS INTEGER
|
|
DIM SHARED CurrentDay AS INTEGER
|
|
DIM SHARED gameSpeed AS INTEGER
|
|
|
|
|
|
'$FORM GameForm
|
|
|
|
InitGameData
|
|
gameSpeed = 1
|
|
MyDistro.Name = INPUTBOX$("Name your new Linux Distro.", "", "MyDistro")
|
|
IF LTRIM$(RTRIM$(MyDistro.Name)) = "" THEN
|
|
MyDistro.Name = "Nuthin'"
|
|
ELSE
|
|
GameForm.SHOW
|
|
GameForm.timeUpdate.Interval = 1
|
|
GameForm.timeRank.Interval = 1
|
|
END IF
|
|
|
|
SUB BuildDistroList ()
|
|
|
|
'Build out the Package List
|
|
|
|
AllPackages(1).Name = "Midget"
|
|
AllPackages(1).Bugs = 2
|
|
AllPackages(1).Description = "Lightweight, simple desktop envrionment"
|
|
AllPackages(1).NerdCred = 3
|
|
AllPackages(1).Popularity = 20
|
|
AllPackages(1).SizeInMB = 20
|
|
AllPackages(1).Version = 1
|
|
AllPackages(1).isOpenSource = 1
|
|
AllPackages(1).TypeOfSoftware = kTypeDesktopEnvironment
|
|
|
|
AllPackages(2).Name = "QDE"
|
|
AllPackages(2).Bugs = 3
|
|
AllPackages(2).Description = "The Q Desktop Environment. Lots of widgets."
|
|
AllPackages(2).NerdCred = 3
|
|
AllPackages(2).Popularity = 10
|
|
AllPackages(2).SizeInMB = 50
|
|
AllPackages(2).Version = 1
|
|
AllPackages(2).isOpenSource = 1
|
|
AllPackages(2).TypeOfSoftware = kTypeDesktopEnvironment
|
|
|
|
AllPackages(3).Name = "UCDE"
|
|
AllPackages(3).Bugs = 0
|
|
AllPackages(3).Description = "The Ultra Confusing Desktop Environment"
|
|
AllPackages(3).NerdCred = 20
|
|
AllPackages(3).Popularity = 1
|
|
AllPackages(3).SizeInMB = 1
|
|
AllPackages(3).Version = 1
|
|
AllPackages(3).isOpenSource = 1
|
|
AllPackages(3).TypeOfSoftware = kTypeDesktopEnvironment
|
|
|
|
AllPackages(4).Name = "START"
|
|
AllPackages(4).Bugs = 2
|
|
AllPackages(4).Description = "The Start Desktop Environment"
|
|
AllPackages(4).NerdCred = 1
|
|
AllPackages(4).Popularity = 1
|
|
AllPackages(4).SizeInMB = 2
|
|
AllPackages(4).Version = 1
|
|
AllPackages(4).isOpenSource = 1
|
|
AllPackages(4).TypeOfSoftware = kTypeDesktopEnvironment
|
|
|
|
|
|
|
|
AllPackages(4).Name = "FlamingRodent"
|
|
AllPackages(4).Bugs = 4
|
|
AllPackages(4).Description = "A big, powerful web browser"
|
|
AllPackages(4).NerdCred = 3
|
|
AllPackages(4).Popularity = 15
|
|
AllPackages(4).SizeInMB = 10
|
|
AllPackages(4).Version = 1
|
|
AllPackages(4).isOpenSource = 1
|
|
AllPackages(4).TypeOfSoftware = kTypeWebBrowser
|
|
|
|
AllPackages(5).Name = "ShmoogleShrome"
|
|
AllPackages(5).Bugs = 2
|
|
AllPackages(5).Description = "Lightweight and superfast browser"
|
|
AllPackages(5).NerdCred = 3
|
|
AllPackages(5).Popularity = 10
|
|
AllPackages(5).SizeInMB = 10
|
|
AllPackages(5).Version = 1
|
|
AllPackages(5).isOpenSource = 1
|
|
AllPackages(5).TypeOfSoftware = kTypeWebBrowser
|
|
|
|
AllPackages(6).Name = "Text-O-Web"
|
|
AllPackages(6).Bugs = 0
|
|
AllPackages(6).Description = "A text only web browser that runs in the terminal"
|
|
AllPackages(6).NerdCred = 20
|
|
AllPackages(6).Popularity = 0
|
|
AllPackages(6).SizeInMB = 1
|
|
AllPackages(6).Version = 1
|
|
AllPackages(6).isOpenSource = 1
|
|
AllPackages(6).TypeOfSoftware = kTypeWebBrowser
|
|
|
|
|
|
|
|
AllPackages(7).Name = "ReallyFreeOfiice"
|
|
AllPackages(7).Bugs = 4
|
|
AllPackages(7).Description = "A big, powerful office suite"
|
|
AllPackages(7).NerdCred = 5
|
|
AllPackages(7).Popularity = 15
|
|
AllPackages(7).SizeInMB = 60
|
|
AllPackages(7).Version = 1
|
|
AllPackages(7).isOpenSource = 1
|
|
AllPackages(7).TypeOfSoftware = kTypeOfficeSuite
|
|
|
|
AllPackages(8).Name = "SpAnDeX"
|
|
AllPackages(8).Bugs = 1
|
|
AllPackages(8).Description = "Hard to use and complicated way to build documents"
|
|
AllPackages(8).NerdCred = 15
|
|
AllPackages(8).Popularity = 2
|
|
AllPackages(8).SizeInMB = 3
|
|
AllPackages(8).Version = 1
|
|
AllPackages(8).isOpenSource = 1
|
|
AllPackages(8).TypeOfSoftware = kTypeOfficeSuite
|
|
|
|
AllPackages(9).Name = "OkayOffice"
|
|
AllPackages(9).Bugs = 1
|
|
AllPackages(9).Description = "This office suite... is pretty ok"
|
|
AllPackages(9).NerdCred = 10
|
|
AllPackages(9).Popularity = 10
|
|
AllPackages(9).SizeInMB = 40
|
|
AllPackages(9).Version = 1
|
|
AllPackages(9).isOpenSource = 1
|
|
AllPackages(9).TypeOfSoftware = kTypeOfficeSuite
|
|
|
|
|
|
|
|
AllPackages(10).Name = "PenguinZoomer"
|
|
AllPackages(10).Bugs = 1
|
|
AllPackages(10).Description = "Race around and pretend that penguins are like cars"
|
|
AllPackages(10).NerdCred = 3
|
|
AllPackages(10).Popularity = 8
|
|
AllPackages(10).SizeInMB = 20
|
|
AllPackages(10).Version = 1
|
|
AllPackages(10).isOpenSource = 1
|
|
AllPackages(10).TypeOfSoftware = kTypeGame
|
|
|
|
AllPackages(11).Name = "FragBlast4000"
|
|
AllPackages(11).Bugs = 5
|
|
AllPackages(11).Description = "Fancy 3D graphics and fast paced shooting of other people"
|
|
AllPackages(11).NerdCred = 1
|
|
AllPackages(11).Popularity = 15
|
|
AllPackages(11).SizeInMB = 120
|
|
AllPackages(11).Version = 1
|
|
AllPackages(11).isOpenSource = 0
|
|
AllPackages(11).TypeOfSoftware = kTypeGame
|
|
|
|
AllPackages(12).Name = "BurstABubble"
|
|
AllPackages(12).Bugs = 0
|
|
AllPackages(12).Description = "There are bubbles. You hate bubbles. Pop those bubbles."
|
|
AllPackages(12).NerdCred = 0
|
|
AllPackages(12).Popularity = 20
|
|
AllPackages(12).SizeInMB = 25
|
|
AllPackages(12).Version = 1
|
|
AllPackages(12).isOpenSource = 1
|
|
AllPackages(12).TypeOfSoftware = kTypeGame
|
|
|
|
AllPackages(13).Name = "JustCards"
|
|
AllPackages(13).Bugs = 0
|
|
AllPackages(13).Description = "It's a card game"
|
|
AllPackages(13).NerdCred = 0
|
|
AllPackages(13).Popularity = 5
|
|
AllPackages(13).SizeInMB = 20
|
|
AllPackages(13).Version = 1
|
|
AllPackages(13).isOpenSource = 1
|
|
AllPackages(13).TypeOfSoftware = kTypeGame
|
|
|
|
AllPackages(14).Name = "TapYerToes"
|
|
AllPackages(14).Bugs = 1
|
|
AllPackages(14).Description = "Tap your toes to the beat of very boring music."
|
|
AllPackages(14).NerdCred = 0
|
|
AllPackages(14).Popularity = 1
|
|
AllPackages(14).SizeInMB = 15
|
|
AllPackages(14).Version = 1
|
|
AllPackages(14).isOpenSource = 1
|
|
AllPackages(14).TypeOfSoftware = kTypeGame
|
|
|
|
AllPackages(15).Name = "CityLimits"
|
|
AllPackages(15).Bugs = 2
|
|
AllPackages(15).Description = "Design and run a very fancy city."
|
|
AllPackages(15).NerdCred = 3
|
|
AllPackages(15).Popularity = 15
|
|
AllPackages(15).SizeInMB = 120
|
|
AllPackages(15).Version = 1
|
|
AllPackages(15).isOpenSource = 1
|
|
AllPackages(15).TypeOfSoftware = kTypeGame
|
|
|
|
AllPackages(16).Name = "CoutTrainer"
|
|
AllPackages(16).Bugs = 3
|
|
AllPackages(16).Description = "Teach a couch how to be a good couch."
|
|
AllPackages(16).NerdCred = 0
|
|
AllPackages(16).Popularity = 5
|
|
AllPackages(16).SizeInMB = 65
|
|
AllPackages(16).Version = 1
|
|
AllPackages(16).isOpenSource = 1
|
|
AllPackages(16).TypeOfSoftware = kTypeGame
|
|
|
|
|
|
|
|
|
|
AllPackages(17).Name = "PixelPusher"
|
|
AllPackages(17).Bugs = 0
|
|
AllPackages(17).Description = "A very simple image editor."
|
|
AllPackages(17).NerdCred = 1
|
|
AllPackages(17).Popularity = 2
|
|
AllPackages(17).SizeInMB = 2
|
|
AllPackages(17).Version = 1
|
|
AllPackages(17).isOpenSource = 1
|
|
AllPackages(17).TypeOfSoftware = kTypeGraphics
|
|
|
|
AllPackages(18).Name = "The Dork"
|
|
AllPackages(18).Bugs = 2
|
|
AllPackages(18).Description = "Robust, powerful graphics editor."
|
|
AllPackages(18).NerdCred = 5
|
|
AllPackages(18).Popularity = 12
|
|
AllPackages(18).SizeInMB = 65
|
|
AllPackages(18).Version = 1
|
|
AllPackages(18).isOpenSource = 1
|
|
AllPackages(18).TypeOfSoftware = kTypeGraphics
|
|
|
|
AllPackages(19).Name = "Pictures-In-Folders"
|
|
AllPackages(19).Bugs = 0
|
|
AllPackages(19).Description = "A simple photo gallery for organizing images."
|
|
AllPackages(19).NerdCred = 0
|
|
AllPackages(19).Popularity = 8
|
|
AllPackages(19).SizeInMB = 8
|
|
AllPackages(19).Version = 1
|
|
AllPackages(19).isOpenSource = 1
|
|
AllPackages(19).TypeOfSoftware = kTypeGraphics
|
|
|
|
AllPackages(20).Name = "PainterMcPaint"
|
|
AllPackages(20).Bugs = 1
|
|
AllPackages(20).Description = "Good for painting. Bad for anything else."
|
|
AllPackages(20).NerdCred = 0
|
|
AllPackages(20).Popularity = 3
|
|
AllPackages(20).SizeInMB = 150
|
|
AllPackages(20).Version = 1
|
|
AllPackages(20).isOpenSource = 1
|
|
AllPackages(20).TypeOfSoftware = kTypeGraphics
|
|
|
|
|
|
|
|
|
|
AllPackages(21).Name = "LunarBlackout"
|
|
AllPackages(21).Bugs = 4
|
|
AllPackages(21).Description = "A good, flexible integrated development environment."
|
|
AllPackages(21).NerdCred = 10
|
|
AllPackages(21).Popularity = 4
|
|
AllPackages(21).SizeInMB = 120
|
|
AllPackages(21).Version = 1
|
|
AllPackages(21).isOpenSource = 1
|
|
AllPackages(21).TypeOfSoftware = kTypeProgramming
|
|
|
|
AllPackages(22).Name = "JustPascal"
|
|
AllPackages(22).Bugs = 0
|
|
AllPackages(22).Description = "Pascal compiler."
|
|
AllPackages(22).NerdCred = 11
|
|
AllPackages(22).Popularity = 1
|
|
AllPackages(22).SizeInMB = 40
|
|
AllPackages(22).Version = 1
|
|
AllPackages(22).isOpenSource = 1
|
|
AllPackages(22).TypeOfSoftware = kTypeProgramming
|
|
|
|
AllPackages(23).Name = "Lunduke Development Kit"
|
|
AllPackages(23).Bugs = 0
|
|
AllPackages(23).Description = "The most awesome programming language. Ever."
|
|
AllPackages(23).NerdCred = 15
|
|
AllPackages(23).Popularity = 15
|
|
AllPackages(23).SizeInMB = 10
|
|
AllPackages(23).Version = 1
|
|
AllPackages(23).isOpenSource = 1
|
|
AllPackages(23).TypeOfSoftware = kTypeProgramming
|
|
|
|
AllPackages(24).Name = "LargeTalk"
|
|
AllPackages(24).Bugs = 0
|
|
AllPackages(24).Description = "The grand-daddy of programming tools."
|
|
AllPackages(24).NerdCred = 20
|
|
AllPackages(24).Popularity = 2
|
|
AllPackages(24).SizeInMB = 10
|
|
AllPackages(24).Version = 1
|
|
AllPackages(24).isOpenSource = 1
|
|
AllPackages(24).TypeOfSoftware = kTypeProgramming
|
|
|
|
AllPackages(25).Name = "EchsCode"
|
|
AllPackages(25).Bugs = 7
|
|
AllPackages(25).Description = "This is a terrible development environment. Nobody likes it."
|
|
AllPackages(25).NerdCred = 0
|
|
AllPackages(25).Popularity = 0
|
|
AllPackages(25).SizeInMB = 900
|
|
AllPackages(25).Version = 1
|
|
AllPackages(25).isOpenSource = 0
|
|
AllPackages(25).TypeOfSoftware = kTypeProgramming
|
|
|
|
|
|
|
|
|
|
AllPackages(26).Name = "Mailinator"
|
|
AllPackages(26).Bugs = 1
|
|
AllPackages(26).Description = "Super advanced email client"
|
|
AllPackages(26).NerdCred = 0
|
|
AllPackages(26).Popularity = 12
|
|
AllPackages(26).SizeInMB = 80
|
|
AllPackages(26).Version = 1
|
|
AllPackages(26).isOpenSource = 1
|
|
AllPackages(26).TypeOfSoftware = kTypeCommunication
|
|
|
|
AllPackages(27).Name = "Chatchatchat"
|
|
AllPackages(27).Bugs = 1
|
|
AllPackages(27).Description = "You know. For chatting."
|
|
AllPackages(27).NerdCred = 0
|
|
AllPackages(27).Popularity = 5
|
|
AllPackages(27).SizeInMB = 50
|
|
AllPackages(27).Version = 1
|
|
AllPackages(27).isOpenSource = 1
|
|
AllPackages(27).TypeOfSoftware = kTypeCommunication
|
|
|
|
AllPackages(28).Name = "Fir"
|
|
AllPackages(28).Bugs = 0
|
|
AllPackages(28).Description = "Terminal-only email client."
|
|
AllPackages(28).NerdCred = 5
|
|
AllPackages(28).Popularity = 1
|
|
AllPackages(28).SizeInMB = 1
|
|
AllPackages(28).Version = 1
|
|
AllPackages(28).isOpenSource = 1
|
|
AllPackages(28).TypeOfSoftware = kTypeCommunication
|
|
|
|
AllPackages(29).Name = "IRC-o-Matic"
|
|
AllPackages(29).Bugs = 3
|
|
AllPackages(29).Description = "The only IRC client that matters."
|
|
AllPackages(29).NerdCred = 4
|
|
AllPackages(29).Popularity = 2
|
|
AllPackages(29).SizeInMB = 6
|
|
AllPackages(29).Version = 1
|
|
AllPackages(29).isOpenSource = 1
|
|
AllPackages(29).TypeOfSoftware = kTypeCommunication
|
|
|
|
|
|
|
|
|
|
AllPackages(30).Name = "Calculator"
|
|
AllPackages(30).Bugs = 0
|
|
AllPackages(30).Description = "You do want a calculator, don't you?"
|
|
AllPackages(30).NerdCred = 0
|
|
AllPackages(30).Popularity = 1
|
|
AllPackages(30).SizeInMB = 1
|
|
AllPackages(30).Version = 1
|
|
AllPackages(30).isOpenSource = 1
|
|
AllPackages(30).TypeOfSoftware = kTypeUtility
|
|
|
|
|
|
|
|
|
|
AllPackages(31).Name = "Video Player Thing"
|
|
AllPackages(31).Bugs = 3
|
|
AllPackages(31).Description = "Plays videos. Sometimes. Then it crashes."
|
|
AllPackages(31).NerdCred = 0
|
|
AllPackages(31).Popularity = 1
|
|
AllPackages(31).SizeInMB = 10
|
|
AllPackages(31).Version = 1
|
|
AllPackages(31).isOpenSource = 1
|
|
AllPackages(31).TypeOfSoftware = kTypeMultimedia
|
|
|
|
AllPackages(32).Name = "vidCastGrabber"
|
|
AllPackages(32).Bugs = 1
|
|
AllPackages(32).Description = "Downloads and plays video podcasts."
|
|
AllPackages(32).NerdCred = 0
|
|
AllPackages(32).Popularity = 3
|
|
AllPackages(32).SizeInMB = 55
|
|
AllPackages(32).Version = 1
|
|
AllPackages(32).isOpenSource = 1
|
|
AllPackages(32).TypeOfSoftware = kTypeMultimedia
|
|
|
|
AllPackages(33).Name = "emTeeVee"
|
|
AllPackages(33).Bugs = 2
|
|
AllPackages(33).Description = "Automatically generates music videos."
|
|
AllPackages(33).NerdCred = 0
|
|
AllPackages(33).Popularity = 2
|
|
AllPackages(33).SizeInMB = 120
|
|
AllPackages(33).Version = 1
|
|
AllPackages(33).isOpenSource = 0
|
|
AllPackages(33).TypeOfSoftware = kTypeMultimedia
|
|
|
|
|
|
'Set MyDistro
|
|
MyDistro.Name = "MyDistro"
|
|
MyDistro.Users = 0
|
|
|
|
|
|
'Build out the Distro List
|
|
AllDistros(1).Name = "Ooboontoo"
|
|
AllDistros(1).Users = 100000
|
|
AllDistros(2).Name = "FloppyBeanie"
|
|
AllDistros(2).Users = 50000
|
|
AllDistros(3).Name = "xTr333m3"
|
|
AllDistros(3).Users = 25000
|
|
AllDistros(4).Name = "CuteLittleDoggy"
|
|
AllDistros(4).Users = 15000
|
|
AllDistros(5).Name = "Trumpet"
|
|
AllDistros(5).Users = 1
|
|
AllDistros(6).Name = "Kooboontoo"
|
|
AllDistros(6).Users = 45000
|
|
AllDistros(7).Name = "LooseWare"
|
|
AllDistros(7).Users = 5000
|
|
AllDistros(8).Name = "OpenSnuggle"
|
|
AllDistros(8).Users = 500
|
|
AllDistros(9).Name = "TeddyBearLinux"
|
|
AllDistros(9).Users = 50
|
|
AllDistros(10).Name = "ReduntantLinux"
|
|
AllDistros(10).Users = 200
|
|
AllDistros(11).Name = "Plebian"
|
|
AllDistros(11).Users = 8500
|
|
AllDistros(12).Name = "b00nd0x"
|
|
AllDistros(12).Users = 2500
|
|
AllDistros(13).Name = "FreeHugz"
|
|
AllDistros(13).Users = 900
|
|
AllDistros(14).Name = "Derpnix"
|
|
AllDistros(14).Users = 800
|
|
AllDistros(15).Name = "Unpronounceable"
|
|
AllDistros(15).Users = 1500
|
|
AllDistros(16).Name = "Lozenge"
|
|
AllDistros(16).Users = 4200
|
|
AllDistros(17).Name = "Gat3way"
|
|
AllDistros(17).Users = 3350
|
|
AllDistros(18).Name = "Prune"
|
|
AllDistros(18).Users = 810
|
|
AllDistros(19).Name = "ChakaLaka"
|
|
AllDistros(19).Users = 2100
|
|
AllDistros(20).Name = "SunGlassesNix"
|
|
AllDistros(20).Users = 15
|
|
|
|
|
|
|
|
END SUB
|
|
|
|
SUB CalculateSize ()
|
|
DIM i AS INTEGER
|
|
DIM totalSize AS INTEGER
|
|
DIM totalBugs AS INTEGER
|
|
DIM totalCred AS INTEGER
|
|
DIM totalPop AS INTEGER
|
|
DIM packIndex AS INTEGER
|
|
|
|
|
|
totalSize = 0
|
|
totalBugs = 0
|
|
totalCred = 0
|
|
totalPop = 0
|
|
|
|
FOR i = 1 TO 39
|
|
|
|
IF MyDistroPackages(i) = 1 THEN
|
|
tempPackage = AllPackages(i)
|
|
totalSize = totalSize + tempPackage.SizeInMB
|
|
totalBugs = totalBugs + tempPackage.Bugs
|
|
totalCred = totalCred + tempPackage.NerdCred
|
|
totalPop = totalPop + tempPackage.Popularity
|
|
END IF
|
|
|
|
NEXT i
|
|
|
|
MyDistro.Size = totalSize
|
|
MyDistro.Bugs = totalBugs
|
|
MyDistro.PackPop = totalPop
|
|
MyDistro.PackCred = totalCred
|
|
|
|
END SUB
|
|
|
|
SUB DoDailyUpdates ()
|
|
|
|
IF gameSpeed > 0 THEN
|
|
|
|
'Decrease Hype
|
|
IF MyDistro.Hype > 0 THEN
|
|
MyDistro.Hype = MyDistro.Hype - 1
|
|
ELSEIF MyDistro.Hype < 0 THEN
|
|
MyDistro.Hype = MyDistro.Hype + 1
|
|
END IF
|
|
|
|
|
|
'Increment Age and Day
|
|
MyDistro.AgeInDays = MyDistro.AgeInDays + 1
|
|
CurrentDay = CurrentDay + 1
|
|
|
|
'Add new bugs
|
|
NewBugs
|
|
|
|
'Calculate User Gain/Loss for MyDistro
|
|
NewUsersMe
|
|
|
|
'Calculate User Gain/Loss for AllDistros
|
|
NewUsersAll
|
|
|
|
'Run Random Events
|
|
DoRandomEvents
|
|
|
|
END IF
|
|
|
|
END SUB
|
|
|
|
SUB DoRandomEvents ()
|
|
|
|
DIM userGain AS INTEGER
|
|
DIM rndGain AS SINGLE
|
|
DIM theNum AS INTEGER
|
|
|
|
rndGain = RND
|
|
|
|
theNum = rndGain * 500
|
|
|
|
IF theNum = 20 THEN
|
|
LogEvent ("Your latest version got reviewed favorably in a major magazine! Hype boost!")
|
|
MyDistro.Hype = MyDistro.Hype + 10
|
|
END IF
|
|
|
|
IF theNum = 21 THEN
|
|
LogEvent ("Your latest version got reviewed poorly in a major magazine! Ut-Oh!")
|
|
MyDistro.Hype = MyDistro.Hype - 10
|
|
END IF
|
|
|
|
IF theNum = 22 THEN
|
|
LogEvent ("A new version of Windews is out! And... it's not so good. Linux usage goes up!")
|
|
MyDistro.Hype = MyDistro.Hype + 10
|
|
END IF
|
|
|
|
IF theNum = 23 THEN
|
|
LogEvent ("A new version of Windows is out! And... it's... actually pretty good.")
|
|
MyDistro.Hype = MyDistro.Hype - 10
|
|
END IF
|
|
|
|
IF theNum = 24 THEN
|
|
IF MyDistro.AgeInDays > 100 THEN
|
|
LogEvent ("It's been a long time since your last release. Users are getting bored.")
|
|
MyDistro.Hype = MyDistro.Hype - 10
|
|
END IF
|
|
END IF
|
|
|
|
IF theNum = 25 THEN
|
|
LogEvent ("Bryan's goats chewed on your power cables. Productivity goes down.")
|
|
MyDistro.Hype = MyDistro.Hype - 10
|
|
END IF
|
|
|
|
IF theNum = 26 THEN
|
|
IF MyDistro.Size < 40 THEN
|
|
LogEvent ("Your Distro has gained a reputation as being super lightweight. Well done!")
|
|
MyDistro.Hype = MyDistro.Hype + 20
|
|
END IF
|
|
END IF
|
|
|
|
IF theNum = 27 THEN
|
|
IF MyDistro.Size > 800 THEN
|
|
LogEvent ("Your Distro is too big to fit on a CD. That makes people cranky.")
|
|
MyDistro.Hype = MyDistro.Hype - 20
|
|
END IF
|
|
END IF
|
|
|
|
IF theNum = 28 THEN
|
|
LogEvent ("The new version of Windows is awful!")
|
|
MyDistro.Hype = MyDistro.Hype + 20
|
|
END IF
|
|
|
|
|
|
|
|
END SUB
|
|
|
|
SUB DoUpdateRank ()
|
|
|
|
DIM i AS INTEGER
|
|
DIM dName AS STRING * 30
|
|
|
|
SortAllDistros
|
|
|
|
'Clear the list
|
|
IF GameForm.ListDistroRank.ListCount > 0 THEN
|
|
FOR i = 1 TO GameForm.ListDistroRank.ListCount
|
|
GameForm.ListDistroRank.REMOVEITEM 0
|
|
NEXT i
|
|
END IF
|
|
|
|
|
|
'Add Everything
|
|
FOR i = 1 TO 20
|
|
tempDistro = AllDistros(i)
|
|
dName$ = STR$(tempDistro.Users) + " - " + tempDistro.Name$
|
|
GameForm.ListDistroRank.ADDITEM dName
|
|
NEXT i
|
|
|
|
END SUB
|
|
|
|
SUB DoUpdateUI ()
|
|
DIM tempStr AS STRING * 10
|
|
DIM tempInt AS INTEGER
|
|
DIM tempLong AS LONG
|
|
|
|
GameForm.lblName.caption = RTRIM$(MyDistro.Name)
|
|
|
|
tempInt = MyDistro.Version
|
|
GameForm.lblVer.caption = LTRIM$(STR$(tempInt)) + ".0"
|
|
|
|
tempLong = MyDistro.Users
|
|
GameForm.lblUsers.caption = LTRIM$(STR$(tempLong))
|
|
|
|
tempInt = MyDistro.AgeInDays
|
|
IF MyDistro.Version > 0 THEN
|
|
GameForm.lblAge.caption = LTRIM$(STR$(tempInt)) + " days"
|
|
ELSE
|
|
GameForm.lblAge.caption = "UNRELEASED"
|
|
END IF
|
|
|
|
GameForm.lblGameAge.caption = STR$(CurrentDay)
|
|
|
|
tempInt = MyDistro.WorkersPaid
|
|
GameForm.lblPaid.caption = LTRIM$(STR$(tempInt)) + "/" + LTRIM$(STR$(tempInt))
|
|
|
|
tempInt = MyDistro.WorkersVolunteers
|
|
GameForm.lblVol.caption = LTRIM$(STR$(tempInt)) + "/" + LTRIM$(STR$(tempInt))
|
|
|
|
tempInt = MyDistro.Hype
|
|
GameForm.lblHype.caption = LTRIM$(STR$(tempInt))
|
|
|
|
tempInt = MyDistro.Bugs
|
|
GameForm.lblBugs.caption = LTRIM$(STR$(tempInt))
|
|
|
|
tempInt = MyDistro.Size
|
|
GameForm.lblSize.caption = LTRIM$(STR$(tempInt))
|
|
|
|
|
|
END SUB
|
|
|
|
FUNCTION GetPackageIndexInMyDistro (PackType AS INTEGER) AS INTEGER
|
|
|
|
' DIM i AS INTEGER
|
|
' DIM theIndex AS INTEGER
|
|
|
|
' theIndex = -1
|
|
|
|
' FOR i = 1 TO 39
|
|
|
|
' IF MyDistroPackages(i) = PackType THEN
|
|
' theIndex = i
|
|
' END IF
|
|
|
|
' NEXT
|
|
|
|
' GetPackageIndexInMyDistro = theIndex
|
|
|
|
END FUNCTION
|
|
|
|
SUB InitGameData ()
|
|
BuildDistroList
|
|
END SUB
|
|
|
|
SUB LogEvent (NewMessage AS STRING)
|
|
|
|
DIM TheMessage AS STRING
|
|
|
|
TheMessage = "[Day: " + LTRIM$(STR$(CurrentDay)) + "] - " + NewMessage + CHR$(13) + CHR$(13)
|
|
|
|
GameForm.txtEvents.text = RTRIM$(TheMessage) + GameForm.txtEvents.text
|
|
|
|
|
|
END SUB
|
|
|
|
SUB MakeNewRelease ()
|
|
|
|
'Increment version number
|
|
MyDistro.Version = MyDistro.Version + 1
|
|
|
|
'Add to Hype
|
|
MyDistro.Hype = MyDistro.Hype + 5
|
|
|
|
'Display Release message
|
|
MSGBOX ("Version " + LTRIM$(STR$(MyDistro.Version)) + ".0 of " + RTRIM$(MyDistro.Name) + " has been released! Time to sit back and enjoy fame and fortune.")
|
|
LogEvent ("Version " + LTRIM$(STR$(MyDistro.Version)) + ".0 of " + RTRIM$(MyDistro.Name) + " has been released!")
|
|
|
|
'Reset Age In Days
|
|
MyDistro.AgeInDays = 0
|
|
|
|
END SUB
|
|
|
|
SUB NewBugs ()
|
|
DIM i AS INTEGER
|
|
DIM rndBug AS SINGLE
|
|
DIM packIndex AS INTEGER
|
|
|
|
FOR i = 1 TO 39
|
|
|
|
rndBug = RND
|
|
'GameForm.txtEvents.text = GameForm.txtEvents.text + STR$(rndBug)
|
|
IF rndBug > .995 THEN
|
|
|
|
tempPackage = AllPackages(i)
|
|
tempPackage.Bugs = tempPackage.Bugs + 1
|
|
'GameForm.txtEvents.text = GameForm.txtEvents.text + tempPackage.Name
|
|
|
|
END IF
|
|
|
|
|
|
NEXT i
|
|
|
|
END SUB
|
|
|
|
SUB NewUsersAll ()
|
|
|
|
DIM i AS INTEGER
|
|
DIM dName AS STRING * 30
|
|
DIM userGain AS INTEGER
|
|
DIM rndGain AS SINGLE
|
|
|
|
'Loop Through each Distro
|
|
FOR i = 1 TO 20
|
|
tempDistro = AllDistros(i)
|
|
rndGain = RND
|
|
|
|
IF rndGain > .5 THEN
|
|
userGain = rndGain * 10
|
|
tempDistro.Users = tempDistro.Users + userGain
|
|
AllDistros(i) = tempDistro
|
|
END IF
|
|
|
|
|
|
IF rndGain < .5 THEN
|
|
userGain = rndGain * 5
|
|
tempDistro.Users = tempDistro.Users - userGain
|
|
AllDistros(i) = tempDistro
|
|
|
|
END IF
|
|
|
|
NEXT i
|
|
|
|
|
|
END SUB
|
|
|
|
SUB NewUsersMe ()
|
|
|
|
DIM i AS INTEGER
|
|
DIM userGain AS LONG
|
|
DIM rndGain AS SINGLE
|
|
DIM gainPotential AS LONG
|
|
|
|
gainPotential = MyDistro.PackCred + MyDistro.PackPop
|
|
|
|
rndGain = RND
|
|
|
|
'Set the usergain
|
|
userGain = (rndGain * gainPotential) / 2
|
|
|
|
userGain = userGain + MyDistro.Hype
|
|
|
|
'If Distro doesn't fit on a CD
|
|
IF MyDistro.Size > 700 THEN
|
|
userGain = userGain * .5
|
|
END IF
|
|
|
|
IF MyDistro.Version > 0 THEN
|
|
MyDistro.Users = MyDistro.Users + userGain
|
|
END IF
|
|
|
|
|
|
END SUB
|
|
|
|
SUB PackIncludeChecked ()
|
|
IF Pack.chkInclude.value = 1 THEN
|
|
|
|
MyDistroPackages(Pack.listPackages.listindex + 1) = 1
|
|
|
|
ELSE
|
|
|
|
MyDistroPackages(Pack.listPackages.listindex + 1) = 0
|
|
|
|
|
|
END IF
|
|
|
|
END SUB
|
|
|
|
SUB PackRefreshList ()
|
|
|
|
'Loop through and add all of the packages
|
|
|
|
|
|
DIM i AS INTEGER
|
|
DIM dName AS STRING * 30
|
|
|
|
'Clear the list
|
|
IF Pack.listPackages.ListCount > 0 THEN
|
|
FOR i = 1 TO Pack.listPackages.ListCount
|
|
Pack.listPackages.REMOVEITEM 0
|
|
NEXT i
|
|
END IF
|
|
|
|
|
|
'Add All Packages
|
|
FOR i = 1 TO 39
|
|
tempPackage = AllPackages(i)
|
|
IF tempPackage.TypeOfSoftware > 0 THEN
|
|
dName$ = RTRIM$(tempPackage.Name)
|
|
Pack.listPackages.ADDITEM dName
|
|
END IF
|
|
NEXT i
|
|
|
|
|
|
|
|
END SUB
|
|
|
|
SUB PackSelectedDetail ()
|
|
|
|
'Populate the UI with details of the selected package
|
|
|
|
tempPackage = AllPackages(Pack.listPackages.listindex + 1)
|
|
|
|
|
|
Pack.lblName.caption = tempPackage.Name
|
|
Pack.lblDesc.caption = tempPackage.Description
|
|
Pack.lblBugs.caption = LTRIM$(STR$(tempPackage.Bugs))
|
|
Pack.lblNerdCred.caption = LTRIM$(STR$(tempPackage.NerdCred))
|
|
Pack.lblPop.caption = LTRIM$(STR$(tempPackage.Popularity))
|
|
Pack.lblSize.caption = LTRIM$(STR$(tempPackage.SizeInMB))
|
|
Pack.lblVer.caption = LTRIM$(STR$(tempPackage.Version))
|
|
|
|
Pack.lblOS.caption = LTRIM$(STR$(tempPackage.isOpenSource))
|
|
|
|
IF tempPackage.isOpenSource = 0 THEN
|
|
Pack.lblOS.caption = "No"
|
|
ELSE
|
|
Pack.lblOS.caption = "Yes"
|
|
END IF
|
|
|
|
|
|
'Pack.lblType.caption = LTRIM$(STR$(tempPackage.TypeOfSoftware))
|
|
IF tempPackage.TypeOfSoftware = kTypeWebBrowser THEN
|
|
Pack.lblType.caption = "Web Browser"
|
|
ELSEIF tempPackage.TypeOfSoftware = kTypeOfficeSuite THEN
|
|
Pack.lblType.caption = "Office Suite"
|
|
ELSEIF tempPackage.TypeOfSoftware = kTypeDesktopEnvironment THEN
|
|
Pack.lblType.caption = "Desktop Environment"
|
|
ELSEIF tempPackage.TypeOfSoftware = kTypeGame THEN
|
|
Pack.lblType.caption = "Game"
|
|
ELSEIF tempPackage.TypeOfSoftware = kTypeGraphics THEN
|
|
Pack.lblType.caption = "Graphics"
|
|
ELSEIF tempPackage.TypeOfSoftware = kTypeProgramming THEN
|
|
Pack.lblType.caption = "Programming"
|
|
ELSEIF tempPackage.TypeOfSoftware = kTypeCommunication THEN
|
|
Pack.lblType.caption = "Communication"
|
|
ELSEIF tempPackage.TypeOfSoftware = kTypeUtility THEN
|
|
Pack.lblType.caption = "Utility"
|
|
ELSEIF tempPackage.TypeOfSoftware = kTypeMultimedia THEN
|
|
Pack.lblType.caption = "Multimedia"
|
|
END IF
|
|
|
|
IF MyDistroPackages(Pack.listPackages.listindex + 1) = 1 THEN
|
|
Pack.chkInclude.value = 1
|
|
ELSE
|
|
Pack.chkInclude.value = 0
|
|
END IF
|
|
|
|
|
|
'IF GetPackageIndexInMyDistro(tempPackage.TypeOfSoftware) > -1 THEN
|
|
' chkInclude.value = 1
|
|
'ELSE
|
|
' chkInclude.value = 0
|
|
'END IF
|
|
|
|
|
|
|
|
END SUB
|
|
|
|
SUB PauseClicked ()
|
|
IF GameForm.btnPause.caption = "||" THEN
|
|
GameForm.btnPause.caption = ">>"
|
|
gameSpeed = 0
|
|
ELSEIF GameForm.btnPause.caption = ">>" THEN
|
|
GameForm.btnPause.caption = "||"
|
|
gameSpeed = 1
|
|
END IF
|
|
|
|
END SUB
|
|
|
|
SUB SortAllDistros ()
|
|
|
|
FOR i = 1 TO UBOUND(AllDistros) - 1
|
|
FOR j = 1 TO UBOUND(AllDistros) - 1
|
|
|
|
tempDistro = AllDistros(j)
|
|
jUsers = tempDistro.Users
|
|
tempDistro = AllDistros(j + 1)
|
|
jPlusUsers = tempDistro.Users
|
|
|
|
IF jUsers < jPlusUsers THEN
|
|
SWAP AllDistros(j), AllDistros(j + 1)
|
|
END IF
|
|
|
|
NEXT j
|
|
NEXT i
|
|
|
|
END SUB
|
|
|