Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

Laden-Code:

Uploader:MitgliedThe_Muh
Datum/Zeit:03.10.2007 16:07:25

DIM AS INTEGER Attribut(1 TO 4),karte , posY ,posX
DIM AS STRING user1,user2,user3,auswahl
'Laden der Master-Settings:
OPEN "setting.LIB" FOR INPUT AS #1
INPUT #1, user1,user2,user3
CLOSE #1
'Abfrage nach dem Speicherslot:
PRINT "Spielstand auswählen:"
IF LEN(user1) > 1 THEN
    PRINT user1 & " = 1"
ELSE
    PRINT "Slot 1 ist leer"
END IF

IF LEN(user2) > 1 THEN
    PRINT user1 & " = 2"
ELSE
    PRINT "Slot 2 ist leer"
END IF

IF LEN(user3) > 1 THEN
    PRINT user1 & " = 3"
ELSE
    PRINT "Slot 3 ist leer"
END IF

INPUT "Waehle einen Speicher-Slot (1,2,3): ",auswahl
'Das eigentliche Speichern:
SELECT CASE auswahl

Attribut(1) = BIN(Attribut(1))
Attribut(2) = BIN(Attribut(2))
Attribut(3) = BIN(Attribut(3))
Attribut(4) = BIN(Attribut(4))
karte       = BIN(karte)
posY        = BIN(posY)
posX        = BIN(posX)

CASE "1"
    OPEN user1+".sav" FOR OUTPUT AS #2
    WRITE #2, Attribut(1),Attribut(2),Attribut(3),Attribut(4),karte,posY,posX
    CLOSE #2
CASE "2"
    OPEN user2+".sav" FOR OUTPUT AS #2
    WRITE #2, Attribut(1),Attribut(2),Attribut(3),Attribut(4),karte,posY,posX
    CLOSE #2
CASE "3"
    OPEN user3+".sav" FOR OUTPUT AS #2
    WRITE #2, Attribut(1),Attribut(2),Attribut(3),Attribut(4),karte,posY,posX
    CLOSE #2
END SELECT
SLEEP