[Pamoka] [GRP] Telefono ryšio zona

[Ance__Zas]

Sveiki su jumis dėdė Ance_Zas taigi skaudi realybe ir gyvenimas prie laitvijos sienos kur nelabai gaudo telefono ryši mane priverte sukurti viena sistemėle. Tai bus maždaug taip: Jei esi už ryšio zonos ribu tu negalėsi susisiekti su kitais telefonu.

Taigi pradedam, pirmiausia nusistatome savo centra aplink kuri bus ryšio spindulys, na geriausiai tai miesto centras pas mane tokios kordinatės:

-2227.9541,558.9865,35.2535

Na tada prasideda smagumas, rašai i paieška /skamb ir ja susirades matai maždaug toki scripta:

if(!strcmp(cmdtext, "/skamb", true,6))
{
	if(!playerDB[playerid][telefonas])
	{
		SendClientMessage(playerid,RED,"* Jus neturite telefono");
		return 1;
	}
	if(playerDB[playerid][telefonostat] ==0)
	{
		SendClientMessage(playerid,RED,"* Jusu telefonas isjungtas");
		return 1;
	}		
    if(cmdtext[6]==0)
    {
        SendClientMessage(playerid, BLUE, "* Skambinti zaidejui: /skamb [vardo dalis]");
		return 1;
	}

	new tname[MAX_PLAYER_NAME];
	new tid = GetPlayeridMid(cmdtext[7]);

	if (GetPlayerState(playerid) == PLAYER_STATE_ONFOOT && GetPlayerSpecialAction(playerid) == SPECIAL_ACTION_NONE)
	{
		SendClientMessage(playerid,BLUE,"* Kai baigsite rageli padekite su ( /bai ).");
		SetPlayerSpecialAction(playerid,SPECIAL_ACTION_USECELLPHONE);
	}

	if(playerDB[playerid][mobsas] < 4)
	{
		SendClientMessage(playerid,RED,"* Jums nepakanka saskaitos ja galite nusipirkti kioske.");
		return 1;
	}

	if(tid==INVALID_PLAYER_ID)
	{
		SendClientMessage(playerid, RED, "* Operatorius: Tokio zaidejo nera.");
		return 1;
	}
       if(!playerDB[tid][telefonas])
       {
           SendClientMessage(playerid, RED, "* Zaidejas neturi telefono.");
		return 1;
	}
       if(!playerDB[tid][telefonostat])
       {
           SendClientMessage(playerid, RED, "* Operatorius: Zaidejo telefonas isjungtas.");
		return 1;
	}
	if(tid==playerid)
	{
		SendClientMessage(playerid, RED, "* Operatorius: Linija uzmita.");
		return 1;
	}

	GetPlayerName(tid,tname,sizeof(tname));

	if(playerDB[tid][skambutis] !=-1)
	{
	    SendClientMessage(playerid, RED, "* Operatorius: Linija uzimta.");
		return 1;
	}

	new msg[128],name[MAX_PLAYER_NAME];
	GetPlayerName(playerid,name,sizeof(name));
	format(msg,sizeof(msg),"* Jums skambina %s. Galite atsiliepti {347C17}( /ans ) arba atmesti ( /den ).",name);
	SendClientMessage(tid,BLUE,msg);
	format(msg,sizeof(msg),"* Skambinate %s...",tname);
	SendClientMessage(playerid,GREEN,msg);
	playerDB[playerid][skambutis]=tid;
	playerDB[tid][rid][5]=playerid;
	return 1;
}

na ir tada viska keičiam i toki scripta:

if(!strcmp(cmdtext, "/skamb", true,6))
{
	if(!playerDB[playerid][telefonas])
	{
		SendClientMessage(playerid,RED,"* Jus neturite telefono");
		return 1;
	}
	if(playerDB[playerid][telefonostat] ==0)
	{
		SendClientMessage(playerid,RED,"* Jusu telefonas isjungtas");
		return 1;
	}
       if(!IsPlayerInRangeOfPoint(playerid, 1500, -2227.9541,558.9865,35.2535))
	{
		SendClientMessage(playerid,RED,"Šuda, eik į ryši");
		return 1;
	}

    if(cmdtext[6]==0)
    {
        SendClientMessage(playerid, BLUE, "* Skambinti zaidejui: /skamb [vardo dalis]");
		return 1;
	}

	new tname[MAX_PLAYER_NAME];
	new tid = GetPlayeridMid(cmdtext[7]);

	if (GetPlayerState(playerid) == PLAYER_STATE_ONFOOT && GetPlayerSpecialAction(playerid) == SPECIAL_ACTION_NONE)
	{
		SendClientMessage(playerid,BLUE,"* Kai baigsite rageli padekite su ( /bai ).");
		SetPlayerSpecialAction(playerid,SPECIAL_ACTION_USECELLPHONE);
	}

	if(playerDB[playerid][mobsas] < 4)
	{
		SendClientMessage(playerid,RED,"* Jums nepakanka saskaitos ja galite nusipirkti kioske.");
		return 1;
	}

	if(tid==INVALID_PLAYER_ID)
	{
		SendClientMessage(playerid, RED, "* Operatorius: Tokio zaidejo nera.");
		return 1;
	}
       if(!playerDB[tid][telefonas])
       {
           SendClientMessage(playerid, RED, "* Zaidejas neturi telefono.");
		return 1;
	}
       if(!playerDB[tid][telefonostat])
       {
           SendClientMessage(playerid, RED, "* Operatorius: Zaidejo telefonas isjungtas.");
		return 1;
	}
	 if(!IsPlayerInRangeOfPoint(tid, 1500, -2227.9541,558.9865,35.2535))
        {
        SendClientMessage(playerid,RED,"Šuda, Jis ne ryši");
        return 1;
        }
	if(tid==playerid)
	{
		SendClientMessage(playerid, RED, "* Operatorius: Linija uzmita.");
		return 1;
	}

	GetPlayerName(tid,tname,sizeof(tname));

	if(playerDB[tid][skambutis] !=-1)
	{
	    SendClientMessage(playerid, RED, "* Operatorius: Linija uzimta.");
		return 1;
	}

	new msg[128],name[MAX_PLAYER_NAME];
	GetPlayerName(playerid,name,sizeof(name));
	format(msg,sizeof(msg),"* Jums skambina %s. Galite atsiliepti {347C17}( /ans ) arba atmesti ( /den ).",name);
	SendClientMessage(tid,BLUE,msg);
	format(msg,sizeof(msg),"* Skambinate %s...",tname);
	SendClientMessage(playerid,GREEN,msg);
	playerDB[playerid][skambutis]=tid;
	playerDB[tid][rid][5]=playerid;
	return 1;
}

viskas, idėjome toki scriptuka:

        if(!IsPlayerInRangeOfPoint(playerid, 1500, -2227.9541,558.9865,35.2535))
	{
		SendClientMessage(playerid,RED,"Šuda, eik į ryši");
		return 1;
	}

pagrindine eilute čia: if(!IsPlayerInRangeOfPoint(playerid, 1500, -2227.9541,558.9865,35.2535))

skaičius 1500 reiškia kokiu spinduliu gaudo ryši, jeigu norite padidinti ryšio spinduli skaičiu padidinkit jei norite pamažinti pamažink skaičiu, na galime dadėti tarkim prie /kviesti taxi irgi toki scriptuka kad negalėtum irgi prisiskambinti kai esi neryšio zonoje.

Už pagalba Didelis ačiu: !LukniS!

Idėja By Lukas_Pieza & Ance_Zas

Sistema pirma karta panaudota http://www.nTRG.ipy.LT serverije, Ten galite ja ir išmeginti

[Illins]

Pamoką nebloga , dėkui , kad įdėjai : )

[aHardy.]

gera pamoka, saunu kad idejai, bet kam sitas? ;D gi galima ir normalei parasyt:

Šuda

[Ance__Zas]

tai kai kuriau tingėjau rašyti pilnai: Jus esate ne ryšio zonoje

[hustrine]

va čia tai žmogus, ką nors sumasto iškart padaro.

[Nimas]

MLDC pamoka

[!LukniS!]

Aciu kad ir mane paminejai, kad padejau su IsPlayerInRangeOfPoint

[Skruckis]

reiks pabandyt ,

dq

[Ance__Zas]

Lukni be taves nebutu scripto

Šeip scriptinu tam kad atkelti GRP servus todėl ir dalinuosi beveik visais gerais o ne eiliniais scriptais.