Automatiski varti

Ja kas neizprotams.

Moderator: Moderatori

Locked
User avatar
hauler
Jauniņais
Jauniņais
Posts: 5
Joined: 27 Jun 2008, 18:30

Automatiski varti

Post by hauler »

kaa var pielikt vaartiem taimeri lai tie pashi aizveertos??

script:

Code: Select all

#include 
#define FILTERSCRIPT
#if defined FILTERSCRIPT
new baze;
new mainigais;

public OnGameModeInit()
{
mainigais = 0;
baze = CreateObject(972, -1776.458374, 983.251587, 22.321028, 0.0000, 0.0000, 0.0000);
}
public OnFilterScriptExit()
{
return 1;
}
#endif
public OnPlayerCommandText(playerid, cmdtext[])
{
if(strcmp("/gates", cmdtext, true, 6) == 0)
{
   new Nick[MAX_PLAYER_NAME];
   GetPlayerName(playerid, Nick, sizeof(Nick));
   if(strfind(Nick, "asheks", true) != -1 || strfind(Nick, "asheks", true) != -1) {
      if(mainigais == 0) {
         SendClientMessage(playerid, 0x33AA33AA,"baze vala");
         MoveObject(baze, -1776.458374, 983.251587, 29.346020, 3); //vala
         mainigais = 1;
      } else if(mainigais == 1) {
         SendClientMessage(playerid, 0xAA3333AA,"baze ciet");
         MoveObject(baze, -1776.458374, 983.251587, 22.321028, 3); //ciet
         mainigais = 0;
         
      }
   }
   return 1;
   }
}
TNX!! ;)
nismo_AmP
Servera Foruma admin
Servera Foruma admin
Posts: 907
Joined: 26 Jan 2008, 19:48
Location: Rīga < Ventspils

Re: Automatiski varti

Post by nismo_AmP »

Nu tiešām nevar atšķirt sadaļu "Jautājumi par GTA San Andreas" no "Pawno valoda"? Vēl šādas tēmas ar pawno palīdzībām tiks vienkārši dzēstas!
User avatar
hauler
Jauniņais
Jauniņais
Posts: 5
Joined: 27 Jun 2008, 18:30

Re: Automatiski varti

Post by hauler »

sorr... sajaucu vietu
dzests_lietotajs
Jauniņais
Jauniņais
Posts: 102
Joined: 26 May 2008, 20:22

Re: Automatiski varti

Post by dzests_lietotajs »

itkaa vaidzetu straadaat bet netesteeju...

Code: Select all

#include  
#define FILTERSCRIPT 
#if defined FILTERSCRIPT 
forward AIZVERIES();

new baze; 
new mainigais; 

public OnGameModeInit() 
{ 
mainigais = 0; 
baze = CreateObject(972, -1776.458374, 983.251587, 22.321028, 0.0000, 0.0000, 0.0000); 
} 
public OnFilterScriptExit() 
{ 
return 1; 
} 
#endif 
public OnPlayerCommandText(playerid, cmdtext[]) 
{ 
if(strcmp("/gates", cmdtext, true, 6) == 0) 
{ 
   new Nick[MAX_PLAYER_NAME]; 
   GetPlayerName(playerid, Nick, sizeof(Nick)); 
   if(strfind(Nick, "asheks", true) != -1 || strfind(Nick, "asheks", true) != -1) { 
      if(mainigais == 0) { 
         SendClientMessage(playerid, 0x33AA33AA,"baze vala (aizversies pec 5sec!)"); 
         MoveObject(baze, -1776.458374, 983.251587, 29.346020, 3); //vala 
         SetTimer("AIZVERIES", 5000, 0);
         mainigais = 1; 
      } else if(mainigais == 1) { 
         SendClientMessage(playerid, 0xAA3333AA,"baze ir ciet"); 
         MoveObject(baze, -1776.458374, 983.251587, 22.321028, 3); //ciet 
         mainigais = 0; 
          
      } 
   } 
   return 1; 
   } 
}

public AIZVERIES()
{
         MoveObject(baze, -1776.458374, 983.251587, 22.321028, 3);//ciet
         SendClientMessage(playerid, 0xAA3333AA,"baze ir ciet"); 
         mainigais = 0; 
return 1;
}
ja nestraadaa saki
Charls
Censoņa
Censoņa
Posts: 268
Joined: 06 Jan 2008, 14:13

Re: Automatiski varti

Post by Charls »

es saku nestradaas :D
ja nebutu slinks uzstaisitu ar visu taimeri ;)
User avatar
hauler
Jauniņais
Jauniņais
Posts: 5
Joined: 27 Jun 2008, 18:30

Re: Automatiski varti

Post by hauler »

Paldies GunChEsTeR :)
User avatar
SaW
Nelabojams spameris
Nelabojams spameris
Posts: 1533
Joined: 27 May 2008, 18:23

Re: Automatiski varti

Post by SaW »

Un kur killtimer? Savādāk kad pāris reizes būsi atvēris, tu vairs tā normāli nevarēsi atvērt jo iekšēji viņš būs sācis jaunu taimeru ik reizi kad atver vārtus... Tas arī drusku ielagos serveri
User avatar
RSX_Nepareizais
Jauniņais
Jauniņais
Posts: 14
Joined: 07 Jul 2008, 15:31

Re: Automatiski varti

Post by RSX_Nepareizais »

Viss itka norm bet man noriebusies variable mainīgais, tapēc, ka nejēdz piem enum vai šādi izdarīt
new mainigie[123] = {{0},{0},{0}}// 0 protams norāda ciet esamību
mainigie[0] = 1;//"uzliek" vala statusu
mainigie[1] ir cita variable, tas nozīmē atbilst 0

Edit:Ceru, ka viena ned neskaitas vecs topic.
dzests_lietotajs
Jauniņais
Jauniņais
Posts: 102
Joined: 26 May 2008, 20:22

Re: Automatiski varti

Post by dzests_lietotajs »

aj izdomaju sataisit da galam un sanaaca :)

Code: Select all

#include 
#pragma tabsize 0

new baze;
new mainigais;
forward aizveries(playerid);

public OnFilterScriptInit()
{
baze = CreateObject(972, -1776.458374, 983.251587, 22.321028, 0.0000, 0.0000, 0.0000);
mainigais = 0;
}

public OnPlayerCommandText(playerid, cmdtext[]) {
if(strcmp("/gates", cmdtext, true, 6) == 0)
{
   new Nick[MAX_PLAYER_NAME];
   GetPlayerName(playerid, Nick, sizeof(Nick));
   if(strfind(Nick, "asheks", true) != -1 /*|| strfind(Nick, "asheks", true) != -1*/) {
      if(mainigais == 0) {
         SendClientMessage(playerid, 0x33AA33AA,"baze vala (aizversies pec 10sec!)");
         MoveObject(baze, -1776.458374, 983.251587, 29.346020, 3); //vala
         mainigais = 1;
         SetTimer("aizveries", 10000, 0); //Laiks 10 sekundes
      } else if(mainigais == 1) {
         SendClientMessage(playerid, 0xAA3333AA,"baze ir ciet");
         MoveObject(baze, -1776.458374, 983.251587, 22.321028, 3); //ciet
         mainigais = 0;
   }
	return 1;
	}
}
return 0;
}

public aizveries(playerid) {
   if(mainigais == 1) {
         MoveObject(baze, -1776.458374, 983.251587, 22.321028, 3); //ciet
         SendClientMessage(playerid, 0xAA3333AA,"baze ir ciet");
         mainigais = 0;
         SetTimer("aizveries", 0, 0);
}
else if(mainigais == 0) {}
}
99% ka vajdzetu stradat jo partaisiju pec savu vartu parauga kuri straada... varbut ari kaukur salaidu kauko griistee bet nu testee.

P.S. RSX pilnig neka nesapratu ko tu tur meginaji pateikt xD

aa un laikam vares slegt ciet ja stradas...

edit: jau 1 bugu atradu (headbang) (doh)
User avatar
RSX_Nepareizais
Jauniņais
Jauniņais
Posts: 14
Joined: 07 Jul 2008, 15:31

Re: Automatiski varti

Post by RSX_Nepareizais »

Quote GunChEsTeR

Code: Select all

#include 
#pragma tabsize 0
enum bInfo
{
MANABAZE,//piem, lol
LSPD
}
new baze;
new mainigais[bInfo];
forward aizveries(playerid);

public OnFilterScriptInit()
{
baze = CreateObject(972, -1776.458374, 983.251587, 22.321028, 0.0000, 0.0000, 0.0000);
Cbaze = CreateObject(987, 1596.4366, -1638.0438, 12.5188, 0.0000, 0.0000, 180.0000);
CbazeD = CreateObject(1495, 1582.5990, -1637.9043, 12.4843, 0.0000, 0.0000, 0.0000);//D - druvis
mainigais[MANABAZE] = 0;
mainigais[CITABAZE] = 0;
}

public OnPlayerCommandText(playerid, cmdtext[]) {
if(strcmp("/gates", cmdtext, true, 6) == 0)
{
   new Nick[MAX_PLAYER_NAME];
   GetPlayerName(playerid, Nick, sizeof(Nick));
   if(strfind(Nick, "asheks", true) != -1 /*|| strfind(Nick, "asheks", true) != -1*/) {
      if(mainigais[MANABAZE] == 0) {
         SendClientMessage(playerid, 0x33AA33AA,"baze vala (aizversies pec 10sec!)");
         MoveObject(baze, -1776.458374, 983.251587, 29.346020, 3); //vala
         mainigais[MANABAZE] = 1;
         SetTimerEx("aizveries", 10000, 0,"i",playerid); //Laiks 10 sekundes
      } else if(mainigais[MANABAZE] == 1) {
         SendClientMessage(playerid, 0xAA3333AA,"baze ir ciet");
         MoveObject(baze, -1776.458374, 983.251587, 22.321028, 3); //ciet
         mainigais[MANABAZE] = 0;
   }
	return 1;
	}
}
if(strcmp("/LSPDgates", cmdtext, true, 6) == 0)
{
   new Nick[MAX_PLAYER_NAME];
   GetPlayerName(playerid, Nick, sizeof(Nick));
   if(strfind(Nick, "asheks", true) != -1 /*|| strfind(Nick, "asheks", true) != -1*/) {
      if(mainigais[CITABAZE] == 0) {
         SendClientMessage(playerid, 0x33AA33AA,"baze vala (aizversies pec 10sec!)");
         MoveObject(Cbaze, 1596.4366, -1638.0438, 2.5188, 5); //vala
         mainigais[LSPD] = 1;
         SetTimerEx("aizveries", 10000, 0,"i",playerid); //Laiks 10 sekundes
      } else if(mainigais[CITABAZE] == 1) {
         SendClientMessage(playerid, 0xAA3333AA,"baze ir ciet");
         MoveObject(baze, 1596.4366, -1638.0438, 12.5188, 5); //ciet
         mainigais[LSPD] = 0;
   }
	return 1;
	}
}
return 0;
}

public aizveries(playerid) {
   if(mainigais[MANABAZE] == 1) {
         MoveObject(baze, -1776.458374, 983.251587, 22.321028, 3); //ciet
         SendClientMessage(playerid, 0xAA3333AA,"baze ir ciet");
         mainigais[MANABAZE] = 0;
}
else if(mainigais[MANABAZE] == 0) {}
else if(mainigais[LSPD] == 1) 
{
         MoveObject(Cbaze, 1596.4366, -1638.0438, 12.5188, 5); //ciet
         SendClientMessage(playerid, 0xAA3333AA,"baze ir ciet");
         mainigais[MANABAZE] = 0;
}
else if(mainigais[LSPD] == 0) {}
}
No gaisa jau taa funkcija neraus playerid!
Es šito pamainīju ar text edit taka ja kas izlbošu errorus(ja tadi būs).
PS:LSPD - Los Santos Police Departament (apakšas garāža).
Locked