Sorry your browser is not supported!

cls
`This game was created by Sinani201
gosub mainmenu

mainmenu:
  cls
  print "Welcome to the Ultimate Killing Game"
  print "Put a 1 in the space below to Start a new game."
  print "Put a 2 in the space below to Join a game."
  print "Put a 3 in the space below to view general instructions."
  print "Put a 4 in the space below for help creating a net game."
  print "Put a 5 in the space below to exit."
  input "Enter the number that best suits you>";a#
  if a#=1 then gosub gamesetup
  if a#=2
    PERFORM CHECKLIST FOR NET SESSIONS
    input "Your player name>";newcomer$
    input "Session number of game>";session#
    join net game session#,newcomer$
  endif
  if a#=3 then gosub manual
  if a#=4 then gosub nethelp
  if a#=5 then end
  if a#=791088 then gosub administer
return

gamesetup:
  cls
  input "What is the name of your gameroom?";gameroom$
  input "How many players will be in the gameroom before you can start?";players#
  input "What will your character name be?";character$
  create net game gameroom$,character$,player#
return

manual:
  cls
  print " "
return

nethelp:
  print " "
return

administer:
  cls
  print "Enter a 1 to delete players from the game"
  print "Enter a 2 to delete games"
  print "Enter a 3 to return to the main menu"
  input "Enter number>";b#
  if b#=1 then gosub deleteplayers
  if b#=2 then gosub deletegames
  if b#=3 then gosub mainmenu
return

deleteplayers:
  cls
  print "Enter a 1 in the box to proceed. Enter a 2 to list players."
  input "Enter number>";c#
  if c#=1 then gosub deletepeople
  if c#=2
    PERFORM CHECKLIST FOR NET PLAYERS
    input "Enter something";c$
    gosub deletepeople
  endif
return

deletepeople:
  cls
  input "Enter character ID>";d#
  gosub administer
return

deletegames:
  cls
  print "Enter a 1 in the box to proceed. Enter a 2 to list games."
  input "Enter number>";e#
  if e#=1 then gosub deletethegames
  if e#=2
    PERFORM CHECKLIST FOR NET SESSIONS
    input "Enter something";d$
    gosub deletethegames
  endif
return

deletethegames:
  input "Enter a 1 to confirm";f#
  if f#=1
    free net game
  return
  sync off

Do
 Gosub UpdateScreen
Loop
End

UpdateScreen:
  Rem Update Screen Objects Here
Return