equal
deleted
inserted
replaced
40 numsquares : LongInt; |
40 numsquares : LongInt; |
41 ProgrTex: PTexture; |
41 ProgrTex: PTexture; |
42 MissionIcons: PSDL_Surface; |
42 MissionIcons: PSDL_Surface; |
43 ropeIconTex: PTexture; |
43 ropeIconTex: PTexture; |
44 |
44 |
45 procedure init_uStore; |
45 procedure initModule; |
46 procedure free_uStore; |
46 procedure freeModule; |
47 |
47 |
48 procedure StoreLoad; |
48 procedure StoreLoad; |
49 procedure StoreRelease; |
49 procedure StoreRelease; |
50 procedure DrawSpriteFromRect(Sprite: TSprite; r: TSDL_Rect; X, Y, Height, Position: LongInt); |
50 procedure DrawSpriteFromRect(Sprite: TSprite; r: TSDL_Rect; X, Y, Height, Position: LongInt); |
51 procedure DrawSprite (Sprite: TSprite; X, Y, Frame: LongInt); |
51 procedure DrawSprite (Sprite: TSprite; X, Y, Frame: LongInt); |
1518 FreeTexture(WeaponTooltipTex); |
1518 FreeTexture(WeaponTooltipTex); |
1519 WeaponTooltipTex:= nil |
1519 WeaponTooltipTex:= nil |
1520 {$ENDIF} |
1520 {$ENDIF} |
1521 end; |
1521 end; |
1522 |
1522 |
1523 procedure init_uStore; |
1523 procedure initModule; |
1524 begin |
1524 begin |
1525 PixelFormat:= nil; |
1525 PixelFormat:= nil; |
1526 SDLPrimSurface:= nil; |
1526 SDLPrimSurface:= nil; |
1527 {$IFNDEF IPHONEOS}cGPUVendor:= gvUnknown;{$ENDIF} |
1527 {$IFNDEF IPHONEOS}cGPUVendor:= gvUnknown;{$ENDIF} |
1528 |
1528 |
1530 SupportNPOTT:= false; |
1530 SupportNPOTT:= false; |
1531 Step:= 0; |
1531 Step:= 0; |
1532 ProgrTex:= nil; |
1532 ProgrTex:= nil; |
1533 end; |
1533 end; |
1534 |
1534 |
1535 procedure free_uStore; |
1535 procedure freeModule; |
1536 begin |
1536 begin |
1537 end; |
1537 end; |
1538 |
1538 |
1539 end. |
1539 end. |