Главная
Статьи
Форум
Баннерообмен
Файловый хост
Гостевая
Рег-ция доменов
Видео GTA
Страница 1 из 11
Модератор форума: Dav1d[B]lane 
Форум о GTA Multiplayers. GTA SA-MP, MTA, VC-MP, IV-MP » SA:MP » Скрипты » [FS] Снег
[FS] Снег
Offline
Dav1d[B]lane
Дата: Понедельник, 07.12.2009, 21:06 | Сообщение # 1
Группа: Админ
Сообщений:
314
Награды: 12
Репутация: 667
Code
#include <a_samp>

#define SNOW_OBJECT      3003 // ИД обьекта снега
#define SLOTS        500 // Максимум игроков
#define MAX_SNOW        20 // Максимум снежынок

static snowObject[SLOTS][MAX_SNOW+1];
static snowActive[SLOTS];

public OnFilterScriptExit()
{
  for(new i = 0; i < SLOTS; i++)
  {
   if(!IsPlayerConnected(i) || IsPlayerNPC(i))
       continue;
        
      DestroySnow(i);
  }
  return 1;
}

public OnPlayerDisconnect(playerid, reason)
{
  if(!IsPlayerNPC(playerid))
   DestroySnow(playerid);
}

public OnPlayerSpawn(playerid)
{
  CreateSnow(playerid);
}

public OnPlayerCommandText(playerid, cmdtext[])
{
  if(!strcmp(cmdtext, "/snow"))
  {
      if(!snowActive[playerid])
      {
          CreateSnow(playerid);
      }else{
          DestroySnow(playerid);
      }
      return 1;
  }
  return 0;
}

stock CreateSnow(playerid)
{
  if(GetPlayerState(playerid) == 0 || GetPlayerState(playerid) > 6)
      return;

  if(GetPlayerInterior(playerid) != 0)
      return;

  if(snowActive[playerid] == 1)
      return;

  snowActive[playerid] = 1;

  new
      Float:x,
      Float:y,
      Float:z;

  GetPlayerPos(playerid, x, y, z);

  for(new i = 0; i < MAX_SNOW; i++)
  {
   snowObject[playerid][i] = CreatePlayerObject(playerid, SNOW_OBJECT, x, y , z , 0, 0, 0);
   RecreateSnow(playerid, snowObject[playerid][i]);
  }
}

stock DestroySnow(playerid)
{
  snowActive[playerid] = 0;

  for(new i = 0; i < MAX_SNOW; i++)
  {
      DestroyPlayerObject(playerid, snowObject[playerid][i]);
  }
}

stock RecreateSnow(playerid, objectid)
{
  if(snowActive[playerid] == 0)
      return;

  new
      Float:x,
      Float:y,
      Float:z,
      Float:objX,
      Float:objY,
      Float:objZ;
       
  GetPlayerPos(playerid, x, y, z);

     new i = random(random(100));

  if(i < 20)
  {
      SetPlayerObjectPos(playerid, objectid, x - random(random(100)), y + random (random(70)), z + random(20)+20);
  }
  else if(i >= 21 && i <= 30)
  {
   SetPlayerObjectPos(playerid, objectid, x + random(random(100)), y + random (random(70)), z + random(20)+20);
  }
  else if (i >= 31 && i < 40)
  {
   SetPlayerObjectPos(playerid, objectid, x + random(random(70)), y - random (random(100)), z + random(20)+20);
  }
  else
  {
      SetPlayerObjectPos(playerid, objectid, x + random(random(120)), y + random (random(30)), z + random(20)+20);
  }

  GetPlayerObjectPos(playerid, objectid, objX, objY, objZ);

  MovePlayerObject(playerid, objectid, objX, objY, z-10, random(70)+5);

}

public OnPlayerObjectMoved(playerid, objectid)
{

  if(snowActive[playerid] == 0)
      return 1;

  for(new i = 0; i < MAX_SNOW; i++)
  {
      if(objectid == snowObject[playerid][i])
      {
          RecreateSnow(playerid, objectid);
          return 1;
      }
  }
  return 1;
}

Автор: Jay


- [GM]SATDM -
Current Release: SATDM 1.0
Development: SATDM 1.1b
Offline
Dav1d[B]lane
Дата: Понедельник, 07.12.2009, 21:10 | Сообщение # 2
Группа: Админ
Сообщений:
314
Награды: 12
Репутация: 667


- [GM]SATDM -
Current Release: SATDM 1.0
Development: SATDM 1.1b
Offline
Pro::killer
Дата: Вторник, 08.12.2009, 15:49 | Сообщение # 3
Группа: [DH]
Сообщений:
221
Награды: 5
Репутация: 25
О прикольно, было бы ещё круче если бы снег на земле оставался :)










Форум о GTA Multiplayers. GTA SA-MP, MTA, VC-MP, IV-MP » SA:MP » Скрипты » [FS] Снег
Страница 1 из 11
Поиск:
Статистика форума
Лучшие по кол-ву сообщений Лучшие по репутации Лучшие по рангу MP3 Плеер
Dav1d[B]lane 314
Pro::killer 221
IIIu3uK 203
Abibas 141
[DH]MAXIMKA 89
NoNothing 54
KNIAZ 53
MYRZblJlKO 47
qurdo 46
VampDoz 38
Dav1d[B]lane 667
IIIu3uK 40
Pro::killer 25
Abibas 13
KNIAZ 12
qurdo 8
NoNothing 8
VampDoz 7
MYRZblJlKO 6
seregaGT 5
Dav1d[B]lane Генералиссимус
IIIu3uK Генерал-полковник
Pro::killer Полковник
Abibas Полковник
[DH]MAXIMKA Майор
NoNothing Лейтенант
KNIAZ Лейтенант
MYRZblJlKO Лейтенант
qurdo Лейтенант
devil_racer Сержант

Хостинг от uCoz GTAProClan.ru