[Pamoka] Komanda /duoti (duoda žaidėjui pinigų) ZCMD, SSCANF

djtomis123 · Sausio 28, 2015

Sveiki SupeGames.lt forumo lankytojai!

Taigi šiandien nusprendžiau sukurti pamoka.

Šioje pamokoje pamokinsiu jus kaip reikia sukurti komanda /duoti

Mums reikės:

1. ZMCD

2. SSCANF

Na ką pradėkime!

Visu pirma modo viršuje prirašom:

#include <zcmd>
#include <sscanf2>

Na ką sekantis žingsnis, prie jūsų komandų rašysime šį kodą:

CMD:duoti(playerid, params[])
{
	new
	    pID, //Skirtas išgauti žaidėjo id kuriam norima pervesti pinigus
	    pKiekis, //Pinigų suma
	    Float: SavePos[3] //Skirtas išgauti žaidėjo pozicijai
	;
	if(!sscanf(params, "ud", pID, pKiekis))//Įrašome į kintamuosius informacija kuria įvedė žaidėjas
	{
		if( pID != INVALID_PLAYER_ID )//Jei žaidėjo ID yra teisingas, tesiam toliau
		{
			if(GetPlayerMoney(playerid) >= pKiekis)//Jei žaidėjas turi daugiau pinigų už įvesta pinigų skaičiu, tesiam toliau
			{
				if( pKiekis > 1 )//Jei pinigų skaičius yra didesnis už 1, tesiam toliau
				{
					GetPlayerPos( pID, SavePos[ 0 ],SavePos[ 1 ],SavePos[ 2 ] );//Išgaunam žaidėjo pozicija kuriam norima pervesti pinigus
					if( IsPlayerInRangeOfPoint( playerid, 10.0, SavePos[ 0 ],SavePos[ 1 ],SavePos[ 2 ] ) ) //Tikrinam ar žaidėjas norinti pervesti pinigus yra netoliau kaip 10Metrų (Nežinau ar tikslus vienetas  )
					{
						GiveMoney( playerid, -pKiekis );//Jei viska tvarkoje, nuimame žaidėjui pinigus iš jo kišenės ir perduodame kitam (gali būti kad kiti naudoja kita pinigų davimo funkcija tad pasikeiskite "GiveMoney" į savo)
						GiveMoney( pID, pKiekis );//Duodame žaidėjui pinigus

						//Išsiunčiame žinutes
						format( String,280,"{33CCFF}* Gavote [{E08B1B}%d {33CCFF}LT] iš {E08B1B}%s.", pKiekis, zVardas(playerid));
						SendClientMessage( pID, -1, String );

						format( String,280,"{33CCFF}* Davėte [{E08B1B}%d {33CCFF}LT] žaidėjui {E08B1B}( %s ).",pKiekis, zVardas(pID));
						SendClientMessage( playerid, -1, String );
					}
					else//Jei žaidėjas yra toliau nei 10 metrų tai siunčiame žinute.
					{
					    SendErrorMSG(playerid, "{FF6600}Žaidėjas per toli nuo jūsų!");
					}
				}
				else//Jei įrašyta pinigų suma buvo mažesnė už 1
				{
				    SendErrorMSG(playerid, "{FF6600}Minimali pinigų davimo suma 1LT!");
				}
			}
			else//Jei žaidėjas neturi tiek pinigų
			{
			    SendErrorMSG(playerid, "{FF6600}Savo rankose neturi tiek pinigų!");
			}
		}
		else//Jei žaidėjas nera prisijungęs arba neteisingas ivestas name arba id
		{
		    SendErrorMSG(playerid, "{FF6600}Žaidėjas neprisijungęs!");
		}
	}
	else// Jei blogai suvede duomenis duodame informacija ka reikia vesti
	{
	    SendUseMSG(playerid, "{FF6600}/duoti [Žaidėjo vardas/ID][Kiekis].");
	}
	return (true);
}

Blogai suligiuota, bet kodas yra iskaitomas

Pamoka kurta Tomas C++ (Miša)

Redaguota Sausio 28, 2015, nario Tomas C++

bebras · Sausio 28, 2015

O kuo ši tema netiko? http://www.supergames.lt/topic/208428-pamoka-komanda-duoti-duoda-%C5%BEaid%C4%97jui-pinig%C5%B3-zcmd-sscanf/

djtomis123 · Sausio 28, 2015

Ten užstrigo ir taip gavosi kad be kodo susikūrė tema

Rolas* · Sausio 28, 2015

Ten užstrigo ir taip gavosi kad be kodo susikūrė tema

Yra Mygtukas „REDAGUOTI“ Temos Savininkui

_Mantas_ · Sausio 28, 2015

C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(544) : error 017: undefined symbol "GiveMoney"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(545) : error 017: undefined symbol "GiveMoney"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(548) : error 017: undefined symbol "String"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(549) : error 017: undefined symbol "String"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(551) : error 017: undefined symbol "String"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(552) : error 017: undefined symbol "String"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(556) : error 017: undefined symbol "SendErrorMSG"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(561) : error 017: undefined symbol "SendErrorMSG"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(566) : error 017: undefined symbol "SendErrorMSG"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(571) : error 017: undefined symbol "SendErrorMSG"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(576) : error 017: undefined symbol "SendUseMSG"

Kas čia blogai?Nesmerkit, dar tik pradėjau mokytis.

bebras · Sausio 28, 2015

C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(544) : error 017: undefined symbol "GiveMoney"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(545) : error 017: undefined symbol "GiveMoney"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(548) : error 017: undefined symbol "String"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(549) : error 017: undefined symbol "String"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(551) : error 017: undefined symbol "String"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(552) : error 017: undefined symbol "String"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(556) : error 017: undefined symbol "SendErrorMSG"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(561) : error 017: undefined symbol "SendErrorMSG"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(566) : error 017: undefined symbol "SendErrorMSG"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(571) : error 017: undefined symbol "SendErrorMSG"
C:\Users\mantas\Desktop\GM mokymosi tikslams\gamemodes\GM.pwn(576) : error 017: undefined symbol "SendUseMSG"

Kas čia blogai?Nesmerkit, dar tik pradėjau mokytis.

Blogai jo kodas, naudoja neegzistuojančias funkcijas. Žinoma jas galima susikurti pačiam.... Bet KĄ jos turėtų daryti galima tik spėti iš pavadinimo.

djtomis123 · Sausio 28, 2015

GiveMoney parašyta kad pasikeisti į savo.

SendInfoMSG(...); Naudok SendClientMessage(...);

SendErrorMSG(...); Naudok SendClientMessage(...);

SendUseMSG(...); Naudok SendClientMessage(...);

Na jei neturi susikūręs funkcijos duoti pinigams, štai duodu:

Ši funkcija atstato žaidėjo pinigus į 0

stock ResetMoney(playerid)
{
	zInfo[playerid][Pinigai]=0;
	ResetPlayerMoney(playerid);
}

Su šia funkcija galima žaidėjui pridėti bei atimti pinigus

Jei nori atimti skaičių rašyk su minuso ženkliuku, jei pridėti tiesiog skaičių rašyk be jokio ženkliuko

stock GiveMoney( playerid, gmoney )
{
	new
		rmoney = GetPlayerMoney( playerid );

	if( rmoney < zInfo[ playerid ][ Pinigai ] && rmoney > -1 )
	{
		zInfo[ playerid ][ Pinigai ] = rmoney;
	}

	zInfo[ playerid ][ Pinigai ] +=  gmoney;
	ResetPlayerMoney( playerid );
	GivePlayerMoney( playerid, zInfo[ playerid ][ Pinigai ] );

}

Jį dėk modo gale

Tik kintamuosius pasikeisk į savo

Redaguota Sausio 28, 2015, nario Tomas C++

Zero Two · Sausio 28, 2015

Taipat būtu bugų, jeigu nori duoti lygiai tiekpat kiek turi savo rankose neišeis

djtomis123 · Sausio 28, 2015

Taipat būtu bugų, jeigu nori duoti lygiai tiekpat kiek turi savo rankose neišeis

Ištaisyta

Fexurious · Sausio 28, 2015

CMD:duoti(playerid, params[])

{

new

LT,

id,

msg [ 75 ]

;

if(sscanf(params, "ud", id, LT)) return SendClientMessage(playerid, -1, "Naudojimas: /duoti V_P");

if(GetPlayerMoney(playerid) < LT) return SendClientMessage(playerid, -1, "Jus neturite man pinigu!");

if(id == INVALID_PLAYER_ID) return SendClientMessage(playerid, -1, "Tokio zaidejo nera!");

format(msg, sizeof msg, "davei %s zaidejui %dLT!", GetPlayerNameEx(id), LT);

SendClientMessage(playerid, -1, msg);

format(msg, sizeof msg, "gavai %dLT is %s", LT, GetPlayerNameEx(playerid));

SendClientMessage(id, -1, msg);

GivePlayerMoney(playerid, -LT);

return GivePlayerMoney(id, LT);

}

stock GetPlayerNameEx(playerid)

{

new

name [ MAX_PLAYER_NAME ]

;

GetPlayerName(playerid, name, MAX_PLAYER_NAME);

return name;

}

Redaguota Sausio 28, 2015, nario Matas F.

JimmyEXE · Sausio 29, 2015

Zjbs, sau money persivedi Nice

Redaguota Sausio 29, 2015, nario JimmyEXE

geimeris2004LTU · Sausio 29, 2015

absoliuciai bjauru

djtomis123 · Sausio 30, 2015

Zjbs, sau money persivedi Nice

Bus sutvarkyta

Weedle · Vasario 2, 2015

Normaliai kodą sudėk su normaliais tarpais ir t.t.
Arba įdėk kodą į pastebin.

Hospital · Vasario 6, 2015

man meta toki error padėkit

C:\Users\user\Desktop\samp03z_svr_R1_win32\gamemodes\sarm.pwn(2) : fatal error 100: cannot read from file: "zcmd"

Compilation aborted.Pawn compiler 3.2.3664 Copyright © 1997-2006, ITB CompuPhase

1 Error.

Tuk1s · Vasario 17, 2015

Neturi isikėlęs include zcmd :/. Arba viršuje neprirašiai prie visu include zcmd

Redaguota Vasario 18, 2015, nario Tukas14

Expert* · Vasario 19, 2015

So, ar kartais GetPlayerMoney( playerid ) nenuskaito čytintų pinigų ? Tai default fukcija ir litus tikrinam ne iš kintamojo, o jau GiveMoney viskas gerai. ( išskyrus tai, kad jis non defined ) Nebent aš klystu ir tai buvo ištaisyta samp xx.xxx.xx versijoje. :blink:

Redaguota Vasario 19, 2015, nario Expert*

bebras · Vasario 20, 2015

So, ar kartais GetPlayerMoney( playerid ) nenuskaito čytintų pinigų ? Tai default fukcija ir litus tikrinam ne iš kintamojo, o jau GiveMoney viskas gerai. ( išskyrus tai, kad jis non defined ) Nebent aš klystu ir tai buvo ištaisyta samp xx.xxx.xx versijoje.

Ne tu neklysti, bet nėra reikalo į kiekvieną skripto gabalą dėti savo kintamojo. Naudotojas pats turėtų susiprasti ir pasikeisti atitinkamai pagal savo modifikaciją.

LietuvosPilietis. · Vasario 20, 2015

ačiū prireiks

Expert* · Vasario 20, 2015

Ne tu neklysti, bet nėra reikalo į kiekvieną skripto gabalą dėti savo kintamojo. Naudotojas pats turėtų susiprasti ir pasikeisti atitinkamai pagal savo modifikaciją.

Tiesiog žmogus padares su default funkcijom ir su modofikuotom, 25% skripto. Čia įspėjimas būtų nenaudoti GetPlayerMoney

Dabest part is that - niekas nepadaro normalaus kodo. Mantas F. variantas irgi neužbaigtas.

Laukiam teisingo kodo, kas bus šios noob skripterio dvikovos čempijonas ? Stay Toond.

Redaguota Vasario 20, 2015, nario Expert*

Prisijungti

[Pamoka] Komanda /duoti (duoda žaidėjui pinigų) ZCMD, SSCANF

Recommended Posts

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Nuoroda į komentarą

Dalintis per kitą puslapį

Prisijungti prie diskusijos

Šiame puslapyje naršo: 0 nariai

Skelbimai

Naujausios temos

Naujausi būsenos atnaujinimai Nustatymai Teksto formatavimas Nario nuotrauka Member Išsaugoti

Nustatymai

Populiariausi nariai

Naujausi būsenos atnaujinimai

Nustatymai

Teksto formatavimas

Nario nuotrauka

Member