Paste code

// ОТСКОК От ВЫСТРЕЛА ===============

//====================================== ТЕЛЕПОРТ ПРИ ПОПАДАНИИ БФГ ===========
//   if (player1<>nil) then
//   begin
//for n := 0 to 1000 do
// //if GetObjStruct(n).dead=0 then
// if GetObjStruct(n).objname='rocket' then

//for i:=0 to 7 do
//if (players[i]<>nil) then
//if (trunc(players[i].x)=trunc(GetObjStruct(n).x)) and (trunc(players[i].y)=trunc(GetObjStruct(n).y)) then
////or (trunc(players[i].y/16)+1=trunc(GetObjStruct(n).y/16)) or (trunc(players[i].y/16)-1=trunc(GetObjStruct(n).y/16))
//if GetObjStruct(n).spawnerDXID<>players[i].dxid  then
///////////if GetBrickStruct(trunc(GetObjStruct(n).x/32), trunc(GetObjStruct(n).y/16)).image=149 then

 //if trunc(GetObjStruct(n).x/32)=  trunc(GetObjStruct(n).y/16)
//begin
// pObj(n).clippixel:=10;
//ChangeBrickImage(trunc(GetObjStruct(n).x/32), trunc(GetObjStruct(n).y/16)), 35, 2);
/////ChangeBrickImage(trunc(GetObjStruct(n).x/32), (trunc(GetObjStruct(n).y/16)), 0, 2);
//PatchBot(players[i].dxid, BP_DEAD, 1);
//end;
// end;


{
///////////////// ВЗРЫВНОЙ БРИК (мочитцо тока от плазмы)   SUPAPLEX MODE
  If (copy(GetSystemVariable('mapname'), 1, 12)='Trx-Supaplex') then
  begin
  if (player1<>nil) then
  begin
for n := 0 to 1000 do
begin
if GetObjStruct(n).objname='plasma' then
if (GetBrickStruct(trunc(GetObjStruct(n).x/32), trunc(GetObjStruct(n).y/16)).image=57) or (GetBrickStruct(trunc(GetObjStruct(n).x/32), trunc(GetObjStruct(n).y/16)).image=62) then
 begin
if GetObjStruct(n).dead>0 then
 // pObj(n).clippixel:=10;
//ChangeBrickImage(trunc(GetObjStruct(n).x/32), trunc(GetObjStruct(n).y/16)), 35, 2);
ChangeBrickImage(trunc(GetObjStruct(n).x/32), (trunc(GetObjStruct(n).y/16)), 0, 2);
end;
end;
end;
end;
    If (copy(GetSystemVariable('mapname'), 1, 12)='Trx-Supaplex') then
    begin
  if (player1<>nil) then
  begin
  PatchBot(player1.dxid, BP_HAVE_PLASMA, 1);
  PatchBot(player1.dxid, BP_AMMO_PLASMA, 50);
  end;
  end;

 If (gametype='CTF') and (copy(GetSystemVariable('mapname'), 1, 12)='Trx-Supaplex') then
  begin
//for i:=0 to 7 do
  if (players[i]<>nil) then
   if not (players[i].bot) then
 // if itembrick<400 then
 begin
  if GetBrickStruct(trunc(players[i].x/32), trunc(players[i].y/16)+1).image=110 then
  begin
  ChangeBrickImage(trunc(players[i].x/32), (trunc(players[i].y/16)+1), 0, 2);
  ChangeBrickImage(trunc(players[i].x/32), (trunc(players[i].y/16)), 0, 2);
  //SendConsoleHCommand('exec_script defused.act');
 // SendConsoleHCommand('say ^#^!Bomb has been defused !');
// hznumber:=(hznumber+1);
// counter:=(counter-1);
  PlaySoundFile&#40;'item.wav'&#41;;
  end;
    if GetBrickStruct(trunc(players[i].x/32), trunc(players[i].y/16)+0).image=110 then
  begin
  ChangeBrickImage(trunc(players[i].x/32), (trunc(players[i].y/16)-1), 0, 2);
  ChangeBrickImage(trunc(players[i].x/32), (trunc(players[i].y/16)), 0, 2);
  //SendConsoleHCommand('exec_script defused.act');
 // SendConsoleHCommand('say ^#^!Bomb has been defused !');
// hznumber:=(hznumber+1);
// counter:=(counter-1);
  PlaySoundFile&#40;'item.wav'&#41;;
  end;
      if GetBrickStruct(trunc(players[i].x/32), trunc(players[i].y/16)-1).image=110 then
  begin
  ChangeBrickImage(trunc(players[i].x/32), (trunc(players[i].y/16)-1), 0, 2);
  ChangeBrickImage(trunc(players[i].x/32), (trunc(players[i].y/16)-2), 0, 2);
  //SendConsoleHCommand('exec_script defused.act');
 // SendConsoleHCommand('say ^#^!Bomb has been defused !');
// hznumber:=(hznumber+1);
// counter:=(counter-1);
  PlaySoundFile&#40;'item.wav'&#41;;
  end;

        if GetBrickStruct(trunc(players[i].x/32), trunc(players[i].y/16)+2).image=110 then
  begin
  ChangeBrickImage(trunc(players[i].x/32), (trunc(players[i].y/16)+2), 0, 2);
  ChangeBrickImage(trunc(players[i].x/32), (trunc(players[i].y/16)+1), 0, 2);
  //SendConsoleHCommand('exec_script defused.act');
 // SendConsoleHCommand('say ^#^!Bomb has been defused !');
// hznumber:=(hznumber+1);
// counter:=(counter-1);
  PlaySoundFile&#40;'item.wav'&#41;;
  end;

   end;
   end;


   If (gametype='CTF') and (copy(GetSystemVariable('mapname'), 1, 12)='Trx-Supaplex') then
  begin
  for i:=0 to 7 do
  if (players[i]<>nil) then
   if not (players[i].bot) then
 // if itembrick<400 then
 begin
  if GetBrickStruct(trunc(players[i].x/32), trunc(players[i].y/16)+1).image=109 then
  begin
 // ChangeBrickImage(trunc(players[i].x/32), (trunc(players[i].y/16)+1), 0, 2);
 // ChangeBrickImage(trunc(players[i].x/32), (trunc(players[i].y/16)), 0, 2);
 SendConsoleHCommand('restart');
 // SendConsoleHCommand('say ^#^!Bomb has been defused !');
// hznumber:=(hznumber+1);
// counter:=(counter-1);
  PlaySoundFile&#40;'cool3.wav'&#41;;
  end;
    if GetBrickStruct(trunc(players[i].x/32), trunc(players[i].y/16)+0).image=109 then
  begin
  ChangeBrickImage(trunc(players[i].x/32), (trunc(players[i].y/16)-1), 0, 2);
  ChangeBrickImage(trunc(players[i].x/32), (trunc(players[i].y/16)), 0, 2);
   SendConsoleHCommand('restart');
  //SendConsoleHCommand('exec_script defused.act');
 // SendConsoleHCommand('say ^#^!Bomb has been defused !');
// hznumber:=(hznumber+1);
// counter:=(counter-1);
  PlaySoundFile&#40;'cool3.wav'&#41;;
  end;
      if GetBrickStruct(trunc(players[i].x/32), trunc(players[i].y/16)-1).image=109 then
  begin
  ChangeBrickImage(trunc(players[i].x/32), (trunc(players[i].y/16)-1), 0, 2);
  ChangeBrickImage(trunc(players[i].x/32), (trunc(players[i].y/16)-2), 0, 2);
  SendConsoleHCommand('restart');
  //SendConsoleHCommand('exec_script defused.act');
 // SendConsoleHCommand('say ^#^!Bomb has been defused !');
// hznumber:=(hznumber+1);
// counter:=(counter-1);
  PlaySoundFile&#40;'cool3.wav'&#41;;
  end;

        if GetBrickStruct(trunc(players[i].x/32), trunc(players[i].y/16)+2).image=109 then
  begin
  ChangeBrickImage(trunc(players[i].x/32), (trunc(players[i].y/16)+2), 0, 2);
  ChangeBrickImage(trunc(players[i].x/32), (trunc(players[i].y/16)+1), 0, 2);
  SendConsoleHCommand('restart');
  //SendConsoleHCommand('exec_script defused.act');
 // SendConsoleHCommand('say ^#^!Bomb has been defused !');
// hznumber:=(hznumber+1);
// counter:=(counter-1);
  PlaySoundFile&#40;'cool3.wav'&#41;;
  end;

   end;
   end;
    }


 // <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
{if (player1<>nil) then
  begin
  for n := 0 to 1000 do
 if GetObjStruct(n).objname='grenade' then
begin
 debug_textout(509, 20, '^2Name OBJ: '+GetObjStruct(n).objname);
 debug_textout(509, 30, '^2Spawner ID: '+inttostr(GetObjStruct(n).spawnerDXID));
 debug_textout(509, 40, '^2ClipPixel: '+inttostr(GetObjStruct(n).clippixel));
 debug_textout(509, 50, '^2Inertia X: '+inttostr(trunc(GetObjStruct(n).inertiax)));
 debug_textout(509, 60, '^2Inertia Y: '+inttostr(trunc(GetObjStruct(n).inertiay)));
 debug_textout(509, 70, '^2Fspeed OBJ: '+inttostr(trunc(GetObjStruct(n).fspeed)));
 debug_textout(509, 80, '^2Refire OBJ: '+inttostr(GetObjStruct(n).refire));
 debug_textout(509, 90, '^2Weapon OBJ: '+inttostr(GetObjStruct(n).weapon));
 debug_textout(509, 100, '^2Image ID: '+inttostr(GetObjStruct(n).imageindex));
 debug_textout(509, 110, '^2Health NUM: '+inttostr(GetObjStruct(n).health));

 end;
  end;    }

{  if (player1<>nil) then
  begin
  for n := 0 to 1000 do
 if GetObjStruct(n).objname='rocket' then
begin
 debug_textout(509, 20, '^2Name OBJ: '+GetObjStruct(n).objname);
 debug_textout(509, 30, '^2Spawner ID: '+inttostr(GetObjStruct(n).spawnerDXID));
 debug_textout(509, 40, '^2ClipPixel: '+inttostr(GetObjStruct(n).clippixel));
 debug_textout(509, 50, '^2Inertia X: '+inttostr(trunc(GetObjStruct(n).inertiax)));
 debug_textout(509, 60, '^2Inertia Y: '+inttostr(trunc(GetObjStruct(n).inertiay)));
 debug_textout(509, 70, '^2Fspeed OBJ: '+inttostr(trunc(GetObjStruct(n).fspeed)));
 debug_textout(509, 80, '^2Refire OBJ: '+inttostr(GetObjStruct(n).refire));
 debug_textout(509, 90, '^2Weapon OBJ: '+inttostr(GetObjStruct(n).weapon));
 debug_textout(509, 100, '^2Image ID: '+inttostr(GetObjStruct(n).imageindex));
 debug_textout(509, 110, '^2Health NUM: '+inttostr(GetObjStruct(n).health));

 end;
  end;       }

{ if (player1<>nil) then

   begin
   debug_textout(509, 20, '^!MY PING: '+ GetSystemVariable('localping'));
   debug_textout(509, 30, '^!MY DX ID: '+ GetSystemVariable('localdxid'));
   debug_textout(509, 40, '^!P1 DX ID: '+ inttostr(player1.dxid));
    end;   }

//=========================================================================

 { GOOOD INERTIA
// for i:=0 to 7 do
if (player1<>nil) and (GetBrickStruct(trunc(player1.x/32), trunc(player1.y/16)+1).image=138) then
//begin
//if GetBrickStruct(trunc(player1.x/32), trunc(player1.y/16)-1).image=138 then
begin
PatchBot(player1.dxid, DP_INERTIA_Y, -0.056);
//player1.inertiay := 0;  || -0.056 - FULLSTOP ;)))
end;
//end;
      }