procedure Menu;
var
  BaseMenu : DWORD;
  AddrCodeCave : Pointer;
begin
  try
//------------------------------------------------------------------------------
  PBYTE(basecheat - $1188CC)^:= 1;                      // ativa o menu
  PBYTE(basecheat - $1188E4)^:= 1;                      // ativa a borda
  PDWORD(basecheat - $1188FC)^:= 178;                   // largura da borda
  PDWORD(basecheat - $1188F8)^:= 462;                   // tamanho da borda
  PBYTE(basecheat - $1199C4)^:= 1;                      // corrige o texto
  PBYTE(basecheat - $AB0A7)^:= 1;                       // congelar a tela
  GetMem(AddrCodeCave, $1000);
  PDWORD(basecheat - $1189B8)^:= Integer(AddrCodeCave); // define o texto a ser exibido
  BaseMenu := Integer(PDWORD(basecheat - $1189B8)^+ $-2);
  ZeroMemory (Pointer(PDWORD(basecheat - $1189B8)^+ $0), $720);
//------------------------------------------------------------------------------
  WriteMenu(basemenu, '$2                 OP7World.com  ');

  PBYTE(basemenu + $40)^:= 10;
  WriteMenu(basemenu + $40, '$2 Cheats :                      ');

  PBYTE(basemenu + $80)^:= 10;
  if GM = true then begin
  //WriteMenu(basemenu + $80, '$4 Alt + G = Ghost Mode : ON     ');
    WriteMenu(basemenu + $80, '$1 Ghost Mode - Disabled !!!     ');
  end else begin
  //WriteMenu(basemenu + $80, '$1 Alt + G = Ghost Mode : OFF    ');
    WriteMenu(basemenu + $80, '$1 Ghost Mode - Disabled !!!     ');
  end;

  PBYTE(basemenu + $C0)^:= 10;
  if SH = true then begin
    WriteMenu(basemenu + $C0, '$4 Alt + S = Speed Hack : ON     ');
  end else begin
    WriteMenu(basemenu + $C0, '$1 Alt + S = Speed Hack : OFF    ');
  end;

  PBYTE(basemenu + $100)^:= 10;
  if FH = true then begin
    WriteMenu(basemenu + $100, '$4 Alt + F = Fly Hack : ON       ');
  end else begin
    WriteMenu(basemenu + $100, '$1 Alt + F = Fly Hack : OFF      ');
  end;

  PBYTE(basemenu + $140)^:= 10;
  if WN = true then begin
    WriteMenu(basemenu + $140, '$4 Alt + W = Wall Name : ON      ');
  end else begin
    WriteMenu(basemenu + $140, '$1 Alt + W = Wall Name : OFF     ');
  end;

  PBYTE(basemenu + $180)^:= 10;
  if FP = true then begin
    WriteMenu(basemenu + $180, '$4 Alt + P = Fast PDC : ON       ');
  end else begin
    WriteMenu(basemenu + $180, '$1 Alt + P = Fast PDC : OFF      ');
  end;

  PBYTE(basemenu + $1c0)^:= 10;
  if US = true then begin
    WriteMenu(basemenu + $1c0, '$4 Ctrl + U = Unlimited SP : ON  ');
  end else begin
    WriteMenu(basemenu + $1c0, '$1 Ctrl + U = Unlimited SP : OFF ');
  end;

  PBYTE(basemenu + $200)^:= 10;
  if ER = true then begin
    WriteMenu(basemenu + $200, '$4 Shift + E = Editor Room : ON  ');
  end else begin
    WriteMenu(basemenu + $200, '$1 Shift + E = Editor Room : OFF ');
  end;

  PBYTE(basemenu + $240)^:= 10;
  WriteMenu(basemenu + $240, '$2 Weapon Editor :             ');

  PBYTE(basemenu + $280)^:= 10;
  if NR = true then begin
    WriteMenu(basemenu + $280, '$4 Alt + N = No Recoil : ON      ');
  end else begin
    WriteMenu(basemenu + $280, '$1 Alt + N = No Recoil : OFF     ');
  end;

  PBYTE(basemenu + $2c0)^:= 10;
  if MI = true then begin
    WriteMenu(basemenu + $2c0, '$4 Alt + M = Municion : ON       ');
  end else begin
    WriteMenu(basemenu + $2c0, '$1 Alt + M = Municion : OFF      ');
  end;

  PBYTE(basemenu + $300)^:= 10;
  if RS = true then begin
    WriteMenu(basemenu + $300, '$4 Alt + R = Rapid Shot : ON     ');
  end else begin
    WriteMenu(basemenu + $300, '$1 Alt + R = Rapid Shot : OFF    ');
  end;

  PBYTE(basemenu + $340)^:= 10;
  if AA = true then begin
    WriteMenu(basemenu + $340, '$4 Alt + A = Automatic All : ON  ');
  end else begin
    WriteMenu(basemenu + $340, '$1 Alt + A = Automatic All : OFF ');
  end;

  PBYTE(basemenu + $382)^:= 10;
  if NS = true then begin
    WriteMenu(basemenu + $382, '$4 Ctrl + N = No Spread : ON     ');
  end else begin
    WriteMenu(basemenu + $382, '$1 Ctrl + N = No Spread : OFF    ');
  end;

  PBYTE(basemenu + $3c2)^:= 10;
  if CH = true then begin
    WriteMenu(basemenu + $3c2, '$4 Shift + C = Calibre Hack : ON  ');
  end else begin
    WriteMenu(basemenu + $3c2, '$1 Shift + C = Calibre Hack : OFF ');
  end;


  PBYTE(basemenu + $406)^:= 10;
  WriteMenu(basemenu + $406, '$2 Aimbot :                   ');

  PBYTE(basemenu + $440)^:= 10;
  if Aim = true then begin
    WriteMenu(basemenu + $440, '$4 Alt + Z = Aimbot : ON         ');
  end else begin
    WriteMenu(basemenu + $440, '$1 Alt + Z = Aimbot : OFF        ');
  end;

  PBYTE(basemenu + $480)^:= 10;
  if Aim = true then begin
    if Head = true then begin
      WriteMenu(basemenu + $480, '$4 Alt + X = Target : Head       ');
    end else begin
      WriteMenu(basemenu + $480, '$4 Alt + X = Target : Chest      ');
    end;
  end else begin
    if Head = true then begin
      WriteMenu(basemenu + $480, '$1 Alt + X = Target : Head       ');
    end else begin
      WriteMenu(basemenu + $480, '$1 Alt + X = Target : Head       ');
    end;
  end;

  PBYTE(basemenu + $4c0)^:= 10;
  WriteMenu(basemenu + $4c0, '$2 Others :                      ');

  PBYTE(basemenu + $500)^:= 10;
  WriteMenu(basemenu + $500, '$4 Ctrl + Z = Teleport Save      ');

  PBYTE(basemenu + $540)^:= 10;
  WriteMenu(basemenu + $540, '$4 Ctrl + X = Teleport Move      ');

  PBYTE(basemenu + $580)^:= 10;
  WriteMenu(basemenu + $580, '$4 Ctrl + R = Force Spawn        ');

  PBYTE(basemenu + $5c0)^:= 10;
  WriteMenu(basemenu + $5c0, '$2 Version : 0.3 - Free          ');

  PBYTE(basemenu + $600)^:= 10;
  WriteMenu(basemenu + $600, '$2 Developed by Kaway and V3SGO');
//------------------------------------------------------------------------------
  except
  end;
end;