(*

 * Hedgewars, a worms-like game

 * Copyright (c) 2004, 2005 Andrey Korotaev <unC0Rr@gmail.com>

 *

 * This program is free software; you can redistribute it and/or modify

 * it under the terms of the GNU General Public License as published by

 * the Free Software Foundation; version 2 of the License

 *

 * This program is distributed in the hope that it will be useful,

 * but WITHOUT ANY WARRANTY; without even the implied warranty of

 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 * GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA

 *)

function CheckNoTeamOrHH: boolean;

begin

{$IFDEF DEBUGFILE}

if Result then

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

{$ENDIF}

end;

////////////////////////////////////////////////////////////////////////////////

procedure chQuit(var s: shortstring);

begin

SendIPC('Q');

GameState:= gsExit

end;

procedure chCheckProto(var s: shortstring);

var i, c: integer;

begin

if isDeveloperMode then

   begin

   val(s, i, c);

   if (c <> 0) or (i = 0) then exit;

   TryDo(i <= cNetProtoVersion, 'Protocol version mismatch: engine is too old', true);

   TryDo(i >= cNetProtoVersion, 'Protocol version mismatch: engine is too new', true)

   end

end;

procedure chAddTeam(var s: shortstring);

const TeamsCount: Longword = 0;

begin

if isDeveloperMode then

   begin

   inc(TeamsCount);

   TryDo(TeamsCount <= 5, 'Too many teams', true);

   AddTeam

   end;

end;

procedure chTeamLocal(var s: shortstring);

begin

if not isDeveloperMode then exit;

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

end;

procedure chName(var id: shortstring);

var s: shortstring;

begin

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

SplitBySpace(id, s);

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

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

else if (id[1] = 'h') and (id[2] = 'h')

     and (id[3] >= '0') and (id[3] <= chr(ord('0')+cMaxHHIndex)) then

end;

procedure chGrave(var s: shortstring);

begin

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

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

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

end;

procedure chFort(var s: shortstring);

begin

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

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

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

end;

procedure chColor(var id: shortstring);

var c: integer;

begin

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

end;

procedure chAddHH(var id: shortstring);

var s: shortstring;

    c: integer;

    Gear: PGear;

begin

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

with CurrentTeam^ do

     begin

     SplitBySpace(id, s);

     val(id, Hedgehogs[HedgehogsNumber].BotLevel, c);

     Hedgehogs[HedgehogsNumber].AmmoStore:= 0;

     Hedgehogs[HedgehogsNumber].Gear:= Gear;

     inc(HedgehogsNumber)

     end

end;

procedure chAddAmmoStore(var descr: shortstring);

begin

AddAmmoStore(descr)

end;

procedure chBind(var id: shortstring);

var s: shortstring;

    b: integer;

begin

if CurrentTeam = nil then exit;

SplitBySpace(id, s);

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

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

b:= KeyNameToCode(id);

end;

procedure chLeft_p(var s: shortstring);

begin

if CheckNoTeamOrHH then exit;

bShowFinger:= false;

    Message:= Message or gm_Left

end;

procedure chLeft_m(var s: shortstring);

begin

if CheckNoTeamOrHH then exit;

     Message:= Message and not gm_Left

end;

procedure chRight_p(var s: shortstring);

begin

if CheckNoTeamOrHH then exit;

bShowFinger:= false;

    Message:= Message or gm_Right

end;

procedure chRight_m(var s: shortstring);

begin

if CheckNoTeamOrHH then exit;

     Message:= Message and not gm_Right

end;

procedure chUp_p(var s: shortstring);

begin

if CheckNoTeamOrHH then exit;

bShowFinger:= false;

    Message:= Message or gm_Up

end;

procedure chUp_m(var s: shortstring);

begin

if CheckNoTeamOrHH then exit;

     Message:= Message and not gm_Up

end;

procedure chDown_p(var s: shortstring);

begin

if CheckNoTeamOrHH then exit;

bShowFinger:= false;

    Message:= Message or gm_Down

end;

procedure chDown_m(var s: shortstring);

begin

if CheckNoTeamOrHH then exit;

     Message:= Message and not gm_Down

end;

procedure chLJump(var s: shortstring);

begin

if CheckNoTeamOrHH then exit;

bShowFinger:= false;

    Message:= Message or gm_LJump

end;

procedure chHJump(var s: shortstring);

begin

if CheckNoTeamOrHH then exit;

bShowFinger:= false;

    Message:= Message or gm_HJump

end;

procedure chAttack_p(var s: shortstring);

begin

if CheckNoTeamOrHH then exit;

bShowFinger:= false;

     begin

     if ((State and gstHHDriven)<>0)and((State and (gstAttacked or gstHHChooseTarget or gstMoving)) = 0) then

        begin

        Message:= Message or gm_Attack

        end

     end

end;

procedure chAttack_m(var s: shortstring);

begin

if CheckNoTeamOrHH then exit;

     begin

        ((Message and gm_Attack) <> 0) then SendIPC('a');

     Message:= Message and not gm_Attack

     end

end;

procedure chSwitch(var s: shortstring);

begin

if CheckNoTeamOrHH then exit;

     Message:= Message or gm_Switch

end;

procedure chNextTurn(var s: shortstring);

begin

if AllInactive then

   begin

   {$IFDEF DEBUGFILE}AddFileLog('Doing SwitchHedgehog: time '+inttostr(GameTicks));{$ENDIF}

   SwitchHedgehog;

   end

end;

procedure chSay(var s: shortstring);

begin

WriteLnToConsole('> ' + s);

SendIPC('s'+s)

end;

procedure chTimer(var s: shortstring);

begin

if (s[0] <> #1) or (s[1] < '1') or (s[1] > '5') or (CurrentTeam = nil) then exit;

bShowFinger:= false;

        begin

        with CurrentTeam^ do

             ApplyAmmoChanges(Hedgehogs[CurrHedgehog]);

        end

end;

procedure chSlot(var s: shortstring);

var slot: LongWord;

    caSlot, caAmmo: PLongword;

begin

if (s[0] <> #1) or CheckNoTeamOrHH then exit;

bShowFinger:= false;

slot:= byte(s[1]) - 49;

if slot > cMaxSlotIndex then exit;

with CurrentTeam^ do

     begin

     with Hedgehogs[CurrHedgehog] do

          begin

          if CurAmmoGear = nil then begin caSlot:= @CurSlot; caAmmo:= @CurAmmo end

                               else begin caSlot:= @AltSlot; caAmmo:= @AltAmmo end;

          if caSlot^ = slot then

             begin

             inc(caAmmo^);

             end else

                begin

                caSlot^:= slot;

                caAmmo^:= 0;

                end;

          end;

     ApplyAmmoChanges(Hedgehogs[CurrHedgehog])

     end

end;

procedure chPut(var s: shortstring);

begin

if CheckNoTeamOrHH then exit;

if bShowAmmoMenu then

   begin

   bSelected:= true;

   exit

   end;

     if (State and gstHHChooseTarget) <> 0 then

        begin

        isCursorVisible:= false;

           begin

           SDL_GetMouseState(@TargetPoint.X, @TargetPoint.Y);

           dec(TargetPoint.X, WorldDx);

           dec(TargetPoint.Y, WorldDy);

           SendIPCXY('p', TargetPoint.X, TargetPoint.Y);

           end;

        State:= State and not gstHHChooseTarget;

           Message:= Message or gm_Attack;

end;

procedure chCapture(var s: shortstring);

begin

flagMakeCapture:= true

end;

procedure chSkip(var s: shortstring);

begin

TurnTimeLeft:= 0

end;

procedure chSetMap(var s: shortstring);

begin

if isDeveloperMode then

   begin

   Pathz[ptMapCurrent]:= Pathz[ptMaps] + '/' + s;

   InitStepsFlags:= InitStepsFlags or cifMap

   end

end;

procedure chSetTheme(var s: shortstring);

begin

if isDeveloperMode then

   begin

   Pathz[ptCurrTheme]:= Pathz[ptThemes] + '/' + s;

   InitStepsFlags:= InitStepsFlags or cifTheme

   end

end;

procedure chSetSeed(var s: shortstring);

begin

if isDeveloperMode then

   begin

   SetRandomSeed(s);

   cSeed:= s;

   InitStepsFlags:= InitStepsFlags or cifRandomize

   end

end;

procedure chAmmoMenu(var s: shortstring);

begin

if CheckNoTeamOrHH then exit;

with CurrentTeam^ do

     with Hedgehogs[CurrHedgehog] do

          begin

          bSelected:= false;

          if bShowAmmoMenu then bShowAmmoMenu:= false

          end

end;

procedure chFullScr(var s: shortstring);

var flags: Longword;

{$IFDEF DEBUGFILE}

    buf: array[byte] of char;

{$ENDIF}

begin

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

                 else cFullScreen:= s = '1';

if cFullScreen then flags:= flags or SDL_FULLSCREEN

               else SDL_WM_SetCaption('Hedgewars', nil);

SDL_FreeSurface(SDLPrimSurface);

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

{$IFDEF DEBUGFILE}

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

{$ENDIF}

TryDo(SDLPrimSurface <> nil, errmsgCreateSurface, true);

end;

procedure chVol_p(var s: shortstring);

begin

inc(cVolumeDelta, 3)

end;

procedure chVol_m(var s: shortstring);

begin

dec(cVolumeDelta, 3)

end;

procedure chFindhh(var s: shortstring);

begin

if CheckNoTeamOrHH then exit;

bShowFinger:= true;

end;

procedure chPause(var s: shortstring);

begin

isPaused:= not isPaused;

SDL_ShowCursor(ord(isPaused))

end;