fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Geht nicht: BLOAD-Code

Uploader:	Jojo
Datum/Zeit:	06.11.2007 18:40:55

Sub Menu_LoadPart(File As String, pX As Integer, pY As Integer)

    Dim tempptr As Any Ptr, fr As Integer, sx As Integer, sy As Integer

    File = "gamedata" + slash + "img" + slash + File + ".bmp"

    fr = FreeFile

    Open File For Binary As #fr

    Get #fr,19,sx

    Get #fr,23,sy

    Close #fr

    tempptr = ImageCreate(sx,sy)

    BLoad File, tempptr

    Put(pX, pY), tempptr, trans

    ImageDestroy tempptr

End Sub

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.