19 function CheckNoTeamOrHH: boolean;

    20 var bRes: boolean;

    21 begin

    22 bRes:= (CurrentTeam = nil) or (CurrentHedgehog^.Gear = nil);

    23 {$IFDEF DEBUGFILE}

    24 if bRes then

    25 if CurrentTeam = nil then AddFileLog('CONSOLE: CurTeam = nil')

    26                         else AddFileLog('CONSOLE: CurTeam <> nil, Gear = nil');

    27 {$ENDIF}

    28 CheckNoTeamOrHH:= bRes;

    29 end;

    76 procedure chAddTeam(var s: shortstring);

    77 var Color: Longword;

    78     ts, cs: shortstring;

    79 begin

    80 cs:= '';

    81 ts:= '';

    82 if isDeveloperMode then

    83 begin

    84 SplitBySpace(s, cs);

    85 SplitBySpace(cs, ts);

    86 val(cs, Color);

    87 TryDo(Color <> 0, 'Error: black team color', true);

    88 

    89 // color is always little endian so the mask must be constant also in big endian archs

    90 Color:= Color or $FF000000;

    91     

    92 AddTeam(Color);

    93 CurrentTeam^.TeamName:= ts;

    94 CurrentTeam^.PlayerHash:= s;

    95 if GameType in [gmtDemo, gmtSave] then CurrentTeam^.ExtDriven:= true;

    96 

    97 CurrentTeam^.voicepack:= AskForVoicepack('Default')

    98 end

    99 end;

   100 

   125 procedure chVoicepack(var s: shortstring);

   126 begin

   127 if CurrentTeam = nil then OutError(errmsgIncorrectUse + ' "/voicepack"', true);

   128 if s[1]='"' then Delete(s, 1, 1);

   129 if s[byte(s[0])]='"' then Delete(s, byte(s[0]), 1);

   130 CurrentTeam^.voicepack:= AskForVoicepack(s)

   131 end;

   132 

   146 end;

   147 

   148 procedure chAddHH(var id: shortstring);

   149 var s: shortstring;

   150     Gear: PGear;

   151 begin

   152 s:= '';

   153 if (not isDeveloperMode) or (CurrentTeam = nil) then exit;

   154 with CurrentTeam^ do

   155     begin

   156     SplitBySpace(id, s);

   157     CurrentHedgehog:= @Hedgehogs[HedgehogsNumber];

   158     val(id, CurrentHedgehog^.BotLevel);

   159     Gear:= AddGear(0, 0, gtHedgehog, 0, _0, _0, 0);

   160     SplitBySpace(s, id);

   161     val(s, Gear^.Health);

   162     TryDo(Gear^.Health > 0, 'Invalid hedgehog health', true);

   163     Gear^.Hedgehog^.Team:= CurrentTeam;

   164     if (GameFlags and gfSharedAmmo) <> 0 then CurrentHedgehog^.AmmoStore:= Clan^.ClanIndex

   165     else if (GameFlags and gfPerHogAmmo) <> 0 then

   166         begin

   167         AddAmmoStore;

   168         CurrentHedgehog^.AmmoStore:= StoreCnt - 1

   169         end

   170     else CurrentHedgehog^.AmmoStore:= TeamsCount - 1;

   171     CurrentHedgehog^.Gear:= Gear;

   172     CurrentHedgehog^.Name:= id;

   173     CurrentHedgehog^.InitialHealth:= Gear^.Health;

   174     CurrHedgehog:= HedgehogsNumber;

   175     inc(HedgehogsNumber)

   176     end

   194 procedure chSetHHCoords(var x: shortstring);

   195 var y: shortstring;

   196     t: Longint;

   197 begin

   198 y:= '';

   199 if (not isDeveloperMode) or (CurrentHedgehog = nil) or (CurrentHedgehog^.Gear = nil) then exit;

   200 SplitBySpace(x, y);

   201 val(x, t);

   202 CurrentHedgehog^.Gear^.X:= int2hwFloat(t);

   203 val(y, t);

   204 CurrentHedgehog^.Gear^.Y:= int2hwFloat(t)

   205 end;

   206 

   549 end;

   550 

   551 procedure chHogSay(var s: shortstring);

   552 var Gear: PVisualGear;

   553     text: shortstring;

   554 begin

   555 text:= copy(s, 2, Length(s)-1);

   556 if CheckNoTeamOrHH

   557 or ((CurrentHedgehog^.Gear^.State and gstHHDriven) = 0) then

   558     begin

   559     chSay(text);

   560     exit

   561     end;

   562 

   563 if not CurrentTeam^.ExtDriven then SendIPC('h' + s);

   564 

   565 if byte(s[1]) < 4 then

   566     begin

   567     Gear:= AddVisualGear(0, 0, vgtSpeechBubble);

   568     if Gear <> nil then

   569     begin

   570     Gear^.Hedgehog:= CurrentHedgehog;

   571     Gear^.Text:= text;

   572     Gear^.FrameTicks:= byte(s[1])

   573     end

   574     end

   575 else

   576     begin

   577     SpeechType:= byte(s[1])-3;

   578     SpeechText:= text

   579     end;

   580 

   639 procedure chSkip(var s: shortstring);

   640 begin

   641 s:= s; // avoid compiler hint

   642 if not CurrentTeam^.ExtDriven then SendIPC(',');

   643 uStats.Skipped;

   644 skipFlag:= true

   645 end;

   646 

   696 procedure chFullScr(var s: shortstring);

   697 var flags: Longword = 0;

   698     ico: PSDL_Surface;

   699 {$IFDEF DEBUGFILE}

   700     buf: array[byte] of char;

   701 {$ENDIF}

   702 begin

   703     s:= s; // avoid compiler hint

   704     if Length(s) = 0 then cFullScreen:= not cFullScreen

   705     else cFullScreen:= s = '1';

   706 

   707 {$IFDEF DEBUGFILE}

   708     buf[0]:= char(0); // avoid compiler hint

   709     AddFileLog('Prepare to change video parameters...');

   710 {$ENDIF}

   711 

   712     flags:= SDL_OPENGL;// or SDL_RESIZABLE;

   713 

   714     if cFullScreen then

   715         flags:= flags or SDL_FULLSCREEN;

   716 

   717 {$IFDEF SDL_IMAGE_NEWER}

   718     WriteToConsole('Init SDL_image... ');

   719     SDLTry(IMG_Init(IMG_INIT_PNG) <> 0, true);

   720     WriteLnToConsole(msgOK);

   721 {$ENDIF}

   722     // load engine icon

   723 {$IFDEF DARWIN}

   724     ico:= LoadImage(Pathz[ptGraphics] + '/hwengine_mac', ifIgnoreCaps);

   725 {$ELSE}

   726     ico:= LoadImage(Pathz[ptGraphics] + '/hwengine', ifIgnoreCaps);

   727 {$ENDIF}

   728     if ico <> nil then

   729     begin

   730         SDL_WM_SetIcon(ico, 0);

   731         SDL_FreeSurface(ico)

   732     end;

   733     

   734     // set window caption

   735     SDL_WM_SetCaption('Hedgewars', nil);

   736     

   737     if SDLPrimSurface <> nil then

   738     begin

   739 {$IFDEF DEBUGFILE}

   740         AddFileLog('Freeing old primary surface...');

   741 {$ENDIF}

   742         SDL_FreeSurface(SDLPrimSurface);

   743         SDLPrimSurface:= nil;

   744     end;

   745     

   746 {$IFDEF SDL13}

   747     if SDLwindow = nil then

   748     begin

   749         SDLwindow:= SDL_CreateWindow('Hedgewars', 0, 0, cScreenWidth, cScreenHeight,

   750                         SDL_WINDOW_OPENGL or SDL_WINDOW_SHOWN    

   751                         {$IFDEF IPHONEOS} or SDL_WINDOW_BORDERLESS{$ENDIF});     

   752         SDL_CreateRenderer(SDLwindow, -1, 0);

   753     end;

   754     

   755     SDL_SetRenderDrawColor(0, 0, 0, 255);    

   756     SDL_RenderFill(nil);     

   757     SDL_RenderPresent();

   758 {$ELSE}

   759     SDLPrimSurface:= SDL_SetVideoMode(cScreenWidth, cScreenHeight, cBits, flags);

   760     SDLTry(SDLPrimSurface <> nil, true);

   761     PixelFormat:= SDLPrimSurface^.format;

   762 {$ENDIF}

   763 

   764 {$IFDEF DEBUGFILE}

   765     AddFileLog('Setting up OpenGL...');

   766     AddFileLog('SDL video driver: ' + shortstring(SDL_VideoDriverName(buf, sizeof(buf))));

   767 {$ENDIF}

   768     SetupOpenGL();

   769 end;

   770 

   851 procedure chLandCheck(var s: shortstring);

   852 begin

   853 {$IFDEF DEBUGFILE}

   854     AddFileLog('CheckLandDigest: ' + s + ' digest : ' + digest);

   855 {$ENDIF}

   856     if digest = '' then

   857         digest:= s

   858     else

   859         TryDo(s = digest, 'Different maps generated, sorry', true);

   860 end;

   861 

   862 procedure chSendLandDigest(var s: shortstring);

   863 var adler, i: LongInt;

   864 begin

   865     adler:= 1;

   866     for i:= 0 to LAND_HEIGHT-1 do

   867         Adler32Update(adler, @Land[i,0], LAND_WIDTH);

   868     s:= 'M' + IntToStr(adler);

   869 

   870     chLandCheck(s);

   871     SendIPCRaw(@s[0], Length(s) + 1)

   872 end;