fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

noch weniger LOL

Uploader:	ytwinky
Datum/Zeit:	04.10.2007 17:30:25

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:

  put #2,, Attribut(1)

  put #2,, Attribut(2)

  put #2,, Attribut(3)

  put #2,, Attribut(4)

  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.