Sorry your browser is not supported!

;Variables
Username=0
Password=0
Input1=0
Input2=0
Input3=0
Input4=0
Input5=0
Input6=0
Input7=0
Input8=0
Input9=0
Input10=0
RQST1=0
RQST2=0
RQST3=0
RQST4=0
RQST5=0
Addmoney=0
Jobs=0
Employees=0
Budget=0
BudgetTotal=0
RemoveBudget=0
Pinpoint1=0
PinpointMain=0
TorrentTraps=0
;Main commands, begin system
AppTitle "Carnage Productions Corperate Management"
;Data Search Script
.Logout
Username=Input$("Carnage Productions Corperate Management System, Please enter your Username.")
;Username System
If Username=160011
;Password System
	Password=Input$("Username Granted, You may now enter your password")
	If Password=ES123098
	Print"Verifying"
	Delay 1000
	.PinpointMain
	Print"System Access Granted, Welcome"+Username+"! What would you like to do?"
;Ask User what they wish to do
	Delay 2000
	Print "1=Corp Files"
	Delay 500
	Print "2=Budget Management"
	Delay 500
	Print "3=Current Torrent Traps Online"
	Delay 500
	Print "4=Projects"
	Delay 500
	Input1=Input$("5=Log Out")
;Log user out, bring back to .logout
	If Input1=5 Then
		Goto .Logout
	If Input1=1 Then
;Corp Files 
.Pinpoint1
			Print"1=Add Number of Employees"
			Delay 500
			Print"2=Make a Employee Request"
			Delay 500
			Print"3=Show data"
			Delay 500
			Print"4=Return to Main Screen"
			If Input2=4 Then Goto .
			Input2=Input$("What would you like to do in Corperate Management?")
			If Input2=1 Then
			;Add employees
				Input3=Input$("How many Employees?")
					Delay 2000
					Print "You now have" +Employees+Input3+ "Employees."
					Return1=Input$("Would you like to return to the home screen? Y/N")
						If Return1=y Then Goto .Pinpoint1
		;Make Request
		If Input2=2 Then
		;Type Title
			Input4=Input$("Type your title for your request")
			Delay 5000
			;Type Request
			Input5=Input$("Type the request")
			Delay 2000
			;Confirm Keeping Request
			Print"Here is your Request, Type Y/N if you want to keep it."+Input4+
			Input6=Input$("Request-"+Input5+)
			If Input6=Y Then
				Input4+Input5=RQST1
				
		If Input2=3 Then
		;Shows ammount of Employees
			Print"Number of Employees =" +Employees+
			Delay 500
			;Job Positions Open
			Print"Number of Job Positions Open =" +Jobs+
If Input1=2 Then
;Ask what they want to do in Budget Management
	Print"What would you like to do?"
	Delay 500
	Print"1=Add Money to the Budget
	Delay 500
	Print"2=Check Budget"
	Delay 500
	Print"3=Remove from Budget"
	Delay 500
	Print"4=Return to Main"
	Input7=Input$("Pick what you would like to do.")
		If Input7=1 Then
		;Asks how much money they want to add
			Addmoney=Input$("How much would you like to add?")
			Delay 500
			;Shows how much they have 
			Print"You now have"+Addmoney+Budget+"American Dollars."
			;Generate
			+Addmoney+Budget=BudgetTotal+
			;Shows how much is currently in vault.
		If Input7=2 Then
		Print"There is currently"+BudgetTotal+"In the Vault"
	If Input7 = 3 Then
		RemoveBudget=Input$("How much money would you like to remove?")
		Delay 500
		Print"You now have" +BudgetTotal-RemoveBudget+"."
	If Input7=4 Then
		Goto .PinpointMain
	If Input1=3 Then
		Print"There are currently"+TorrentTraps+"Released."
		Delay 500
		TorrentTraps2=Input$("Would you like to see which Torrents have traps released in them? Y/N")
			If TorrentTraps2=Y Then
				Print"Torrent1-1Trap"
				Print"Torrent2=2Traps"
				Print"Torrent3=3Traps"
				Print"Torrnet4=2Traps"
				Delay 2000
				Input8=Input$("Would you like to return to the main screen? Y/N")
					If Input8=Y Then
						Goto .Pinpointmain