<
<
Dogdugunuz tarihi yazın ve hesapla tusuna basin
designed by okanka www.karamsar.lobisi.com dj.rapsody@hotmail.com dj_baris1905@hotmail.com unit Buffers; {$R-} { isaretleme yok } interface uses Crt, VGA256; const CanHoldYou = [#0..#13, '0'..'Z']; CanStandOn = [#14..#16, 'a'..'f']; Hidden = ['$']; var Timer: LongInt absolute $0000:$046C; wTimer: Word absolute $0000:$046C; bTimer: Byte absolute $0000:$046C; const W = 20; H = 14; NH = 16; NV = 13; MaxWorldSize = 236; EX = 1; EY1 = 8; EY2 = 3; dirLeft = 0; dirRight = 1; mdSmall = 0; mdLarge = 1; mdFire = 2; Deha = 0; Fatih = 1; QuitGame: Boolean = FALSE; BeeperSound: Boolean = TRUE; type GameData = record NumPlayers: Integer; Progress: array[Deha..Fatih] of Integer; Lives: array[Deha..Fatih] of Integer; Coins: array[Deha..Fatih] of Integer; Score: array[Deha..Fatih] of LongInt; Mode: array[Deha..Fatih] of Byte; end; const PlayerName: array [Deha..Fatih] of string [5] = ('MARIO', 'LUICE'); var Player: Byte; Data: GameData; WorldNumber: string[3]; LevelScore: LongInt; type ImageBufferPtr = ^ImageBuffer; ImageBuffer = array [1 .. H, 1 .. W] of Char; ScreenBuffer = array [0 .. MAX_PAGE] of ImageBuffer; PicBuffer = array [1 .. 2 * H, 1 .. W] of Char; PictureBufferPtr = ^PictureBuffer; PictureBuffer = array [Deha .. Fatih, mdSmall .. mdFire, 0 .. 3, dirLeft .. dirRight] of PicBuffer; MapBufferPtr = ^MapBuffer; MapBuffer = array [1 .. MaxWorldSize, 1 .. NV] of Char; StarBufferPtr = ^StarBuffer; StarBuffer = array [0 .. MAX_PAGE, 0 .. 319] of Byte; WorldBufferPtr = ^WorldBuffer; WorldBuffer = array [-EX .. MaxWorldSize - 1 + EX, -EY1 .. NV - 1 + EY2] of Char; WorldOptions = Record InitX, InitY: Word; SkyType, WallType1, WallType2, WallType3, PipeColor, GroundColor1, GroundColor2, Horizon, BackGrType, BackGrColor1, BackGrColor2, Stars, Clouds, Design: Byte; C2r, C2g, C2b, C3r, C3g, C3b, BrickColor, WoodColor, XBlockColor: Byte; BuildWall: Boolean; XSize: Word; end; var GameDone, Passed: Boolean; WorldMap, SaveWorldMap: WorldBufferPtr; Options, SaveOptions: WorldOptions; XView, YView: Integer; LastXView: array [0 .. MAX_PAGE] of Integer; StarBackGr: StarBufferPtr; Size: Word; Pictures: PictureBufferPtr; Demo, TextCounter: Integer; LavaCounter: Byte; const dmNoDemo = 0; dmDownInToPipe = 1; dmUpOutOfPipe = 2; dmUpInToPipe = 3; dmDownOutOfPipe = 4; dmDead = 5; procedure ReadWorld (var Map; W: WorldBufferPtr; var Opt); procedure Swap; procedure BeeperOn; procedure BeeperOff; procedure Beep (Freq: Word); procedure InitLevelScore; procedure AddScore (N: LongInt); implementation procedure ReadWorld (var Map; W: WorldBufferPtr; var Opt); var M: MapBufferPtr; i, j, X: Integer; begin Move (Opt, Options, SizeOf (Options)); M := @Map; FillChar (W^, SizeOf (W^), ' '); for i := -EX to -1 do for j := -EY1 to NV - 1 + EY2 do W^ [i, j] := '@'; X := 0; While (M^ [X + 1, 1] <> #0) and (X < MaxWorldSize) do begin for i := 1 to NV do W^ [X, NV - i] := M^ [X + 1, i]; W^ [X, -EY1] := #0; for i := 1 to EY2 do W^ [X, NV - 1 + i] := W^ [X, NV - 1]; Inc (X); end; Options.XSize := X; for i := X to X + EX - 1 do for j := -EY1 to NV - 1 + EY2 do W^ [i, j] := '@'; end; procedure Swap; var TempOptions: WorldOptions; C: Char; i, j: Integer; begin Move (Options, TempOptions, SizeOf (TempOptions)); Move (SaveOptions, Options, SizeOf (Options)); Move (TempOptions, SaveOptions, SizeOf (SaveOptions)); for i := -EX to MaxWorldSize - 1 + EX do for j := -EY1 to NV - 1 + EY2 do begin C := WorldMap^ [i, j]; WorldMap^ [i, j] := SaveWorldMap^ [i, j]; SaveWorldMap^ [i, j] := C; end; end; procedure BeeperOn; begin BeeperSound := TRUE; NoSound; end; procedure BeeperOff; begin BeeperSound := FALSE; NoSound; end; procedure Beep (Freq: Word); begin if BeeperSound then if Freq = 0 then Crt.NoSound else Crt.Sound (Freq); end; procedure InitLevelScore; begin LevelScore := 0; end; procedure AddScore (N: LongInt); begin Inc (LevelScore, N); { Inc (Score[Player], LevelScore); } end; begin Size := 2 * SizeOf (WorldBuffer) + SizeOf (StarBuffer) + SizeOf (PictureBuffer); if MemAvail < Size then begin System.WriteLn ('Not enough memory'); Halt end; GetMem (WorldMap, SizeOf (WorldBuffer)); GetMem (SaveWorldMap, SizeOf (WorldBuffer)); GetMem (StarBackGr, SizeOf (StarBuffer)); GetMem (Pictures, SizeOf (PictureBuffer)); end.