home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 3_2004-2005.ISO / Data / Zips / Enigma_X18288312132004.psc / Source / cd.bas next >
BASIC Source File  |  2004-12-11  |  11KB  |  261 lines
  1. Attribute VB_Name = "cd"
  2. Option Explicit 'Makes sure all the variables are declared
  3.  
  4. '**********************************************************************************
  5. 'This module contains all the code for the del command. ie "del readme.txt" etc.
  6. 'I put it in here to clean up the code on the frmGame a bit :-)
  7. '**********************************************************************************
  8.  
  9.  
  10. 'They want to change directory to the Documents folder
  11. Public Sub CdDocuments()
  12.     GetLevel 'Where are we? Loads the GetLevel Sub in (main.bas)
  13.     If Disconnected = False Then
  14.         Select Case Server
  15.             Case "Server X10 - Home Computer"
  16.                 Select Case Level
  17.                     Case "home"
  18.                         Level = "documents" 'Makes it so we are in the Documents Folder
  19.                         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "C:\Documents\" & vbCrLf
  20.                         Exit Sub
  21.                         
  22.                 End Select 'Level Select
  23.  
  24.             'Case "Somwhere Else"
  25.                 'Blah blah blah
  26.  
  27.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "cd Recieved" & vbCrLf
  28.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Recieved" & vbCrLf
  29.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  30.             Exit Sub
  31.         End Select 'Server Select
  32.     Else
  33.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  34.     End If
  35.     Exit Sub 'Ends the Current Sub
  36. End Sub
  37.  
  38.  
  39. 'They want to change directory to the Recieved folder
  40. Public Sub CdRecieved()
  41.     GetLevel 'Where are we? Loads the GetLevel Sub in (main.bas)
  42.     If Disconnected = False Then
  43.         Select Case Server 'Are we home or at another server?
  44.             Case "Server X10 - Home Computer"
  45.                 Select Case Level
  46.                     Case "documents"
  47.                         Level = "homerecieved"
  48.                         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "C:\Documents\Recieved\" & vbCrLf
  49.                         Exit Sub
  50.                 End Select 'Level Select
  51.                 
  52.             'Case "Somwhere Else"
  53.                 'Blah blah blah
  54.                 
  55.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "cd Recieved" & vbCrLf
  56.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Recieved" & vbCrLf
  57.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  58.             Exit Sub
  59.         End Select 'Server Select
  60.     Else
  61.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  62.     End If
  63.     Exit Sub
  64. End Sub
  65.  
  66.  
  67. 'They want to change directory to the Images folder
  68. Public Sub CdImages()
  69.     GetLevel 'Where are we? Loads the GetLevel Sub in (main.bas)
  70.     If Disconnected = False Then
  71.         Select Case Server 'Are we home or at another server?
  72.             Case "Server X10 - Home Computer"
  73.                 Select Case Level
  74.                     Case "documents"
  75.                         Level = "homedocimages"
  76.                         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "C:\Documents\Images\" & vbCrLf
  77.                         Exit Sub
  78.                 End Select 'Level Select
  79.                 
  80.             'Case "Somwhere Else"
  81.                 'Blah blah blah
  82.                 
  83.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "cd Images" & vbCrLf
  84.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Images" & vbCrLf
  85.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  86.             Exit Sub
  87.         End Select 'Server Select
  88.     Else
  89.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  90.     End If
  91.     Exit Sub
  92. End Sub
  93.  
  94.  
  95. 'They want to change directory to the Downloads folder
  96. Public Sub CdDownloads()
  97.     GetLevel 'Where are we? Loads the GetLevel Sub in (main.bas)
  98.     If Disconnected = False Then
  99.         Select Case Server 'Are we home or at another server?
  100.             Case "Server X10 - Home Computer"
  101.                 Select Case Level
  102.                     Case "home"
  103.                         Level = "homedownloads"
  104.                         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "C:\Downloads\" & vbCrLf
  105.                         Exit Sub
  106.                 End Select 'Level Select
  107.                 
  108.             'Case "Somwhere Else"
  109.                 'Blah blah blah
  110.                 
  111.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "cd Downloads" & vbCrLf
  112.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Downloads" & vbCrLf
  113.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  114.             Exit Sub
  115.         End Select 'Server Select
  116.     Else
  117.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  118.     End If
  119.     Exit Sub
  120. End Sub
  121.  
  122.  
  123. 'They want to change directory to the Software folder
  124. Public Sub CdSoftware()
  125.     GetLevel 'Where are we? Loads the GetLevel Sub in (main.bas)
  126.     If Disconnected = False Then
  127.         Select Case Server 'Are we home or at another server?
  128.             Case "Server X10 - Home Computer"
  129.                 Select Case Level
  130.                     Case "home"
  131.                         Level = "homesoftware"
  132.                         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "C:\Software\" & vbCrLf
  133.                         Exit Sub
  134.                 End Select 'Level Select
  135.                 
  136.             'Case "Somwhere Else"
  137.                 'Blah blah blah
  138.                 
  139.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "cd Software" & vbCrLf
  140.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Software" & vbCrLf
  141.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  142.             Exit Sub
  143.         End Select 'Server Select
  144.     Else
  145.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  146.     End If
  147.     Exit Sub
  148. End Sub
  149.  
  150.  
  151. 'They want to change directory to the System folder
  152. Public Sub CdSystem()
  153.     GetLevel 'Where are we? Loads the GetLevel Sub in (main.bas)
  154.     If Disconnected = False Then
  155.         Select Case Server 'Are we home or at another server?
  156.             Case "Server X10 - Home Computer"
  157.                 Select Case Level
  158.                     Case "home"
  159.                         Level = "homesystem"
  160.                         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "C:\System\" & vbCrLf
  161.                         Exit Sub
  162.                 End Select 'Level Select
  163.                 
  164.             'Case "Somwhere Else"
  165.                 'Blah blah blah
  166.                 
  167.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "cd System" & vbCrLf
  168.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "System" & vbCrLf
  169.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  170.             Exit Sub
  171.         End Select 'Server Select
  172.     Else
  173.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  174.     End If
  175.     Exit Sub
  176. End Sub
  177.  
  178.  
  179. 'They want to change directory to the Boot folder in the System folder
  180. Public Sub CdSysBoot()
  181.     GetLevel 'Where are we? Loads the GetLevel Sub in (main.bas)
  182.     If Disconnected = False Then
  183.         Select Case Server 'Are we home or at another server?
  184.             Case "Server X10 - Home Computer"
  185.                 Select Case Level
  186.                     Case "homesystem"
  187.                         Level = "homesysboot"
  188.                         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "C:\System\Boot\" & vbCrLf
  189.                         Exit Sub
  190.                 End Select 'Level Select
  191.                 
  192.             'Case "Somwhere Else"
  193.                 'Blah blah blah
  194.                 
  195.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "cd Boot" & vbCrLf
  196.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Boot" & vbCrLf
  197.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  198.             Exit Sub
  199.         End Select 'Server Select
  200.     Else
  201.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  202.     End If
  203.     Exit Sub
  204. End Sub
  205.  
  206.  
  207. 'They want to change directory to the Kernel folder in the System folder
  208. Public Sub CdSysKernel()
  209.     GetLevel 'Where are we? Loads the GetLevel Sub in (main.bas)
  210.     If Disconnected = False Then
  211.         Select Case Server 'Are we home or at another server?
  212.             Case "Server X10 - Home Computer"
  213.                 Select Case Level
  214.                     Case "homesystem"
  215.                         Level = "homesyskernel"
  216.                         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "C:\System\Kernel\" & vbCrLf
  217.                         Exit Sub
  218.                 End Select 'Level Select
  219.                 
  220.             'Case "Somwhere Else"
  221.                 'Blah blah blah
  222.                 
  223.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "cd Kernel" & vbCrLf
  224.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Kernel" & vbCrLf
  225.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  226.             Exit Sub
  227.         End Select 'Server Select
  228.     Else
  229.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  230.     End If
  231.     Exit Sub
  232. End Sub
  233.  
  234.  
  235. 'They want to change directory to the System folder
  236. Public Sub CdHomeHelp()
  237.     GetLevel 'Where are we? Loads the GetLevel Sub in (main.bas)
  238.     If Disconnected = False Then
  239.         Select Case Server 'Are we home or at another server?
  240.             Case "Server X10 - Home Computer"
  241.                 Select Case Level
  242.                     Case "home"
  243.                         Level = "homehelp"
  244.                         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "C:\Help\" & vbCrLf
  245.                         Exit Sub
  246.                 End Select 'Level Select
  247.                 
  248.             'Case "Somwhere Else"
  249.                 'Blah blah blah
  250.                 
  251.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & "cd Help" & vbCrLf
  252.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & "Could not Find " & Lvl & "Help" & vbCrLf
  253.             frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & Lvl & vbCrLf
  254.             Exit Sub
  255.         End Select 'Server Select
  256.     Else
  257.         frmGame.txtConsole.Text = frmGame.txtConsole.Text & vbCrLf & "Computer is Disconnected" & vbCrLf
  258.     End If
  259.     Exit Sub
  260. End Sub
  261.