fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

22 zeilen =P

Uploader:	The_Muh
Datum/Zeit:	04.10.2007 17:36:12

dim as integer Attribut(1 to 4),karte, posY, posX, i, auswahl

dim as string user(1 to 3), s

open "setting.lib" for input as #1 'Laden der Master-Settings:

  get #1,, user(1)

  get #1,, user(2)

  get #1,, user(3)

close #1

print "Spielstand auswählen:"'Abfrage nach dem Speicherslot:

for i = 1 to 3

  s="Slot "& i &" ist leer"

  if len(user(i)) then s=user(i) & " = "& i

  Print s

next

input "Waehle einen Charakter (1, 2, 3): ", auswahl

open user(auswahl)".sav" for input as #2 'Das eigentliche Speichern:

for i = 1 to 4

  put #2,, Attribut(i)

next i

  put #2,, karte

  put #2,, posY

  put #2,, posX

close #2

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.