Jump to content

script Jednoduchý náhodný text.

rEf

Od rEf,
v Snippets

 Share

Recommended Posts

rEf

rEf 53

Odesláno:
Odesláno: (upraveno)

Zdravím dám vám sem jeden menší script který funguje na principu že se vypíše do chatu:

 

[ Text ] Kdo jako první napíše náhodný text '' SAFRWERSDG '' získá náhodnou částku.

 

Následně pokud jako první napíšete text vypíše se do chatu:

 

[ Text ] Jako první napsal náhodný text '' SAFRWERSDG '' hráč rEf a získal $20.000.

 

Předem upozorňuji případné inteligenty že ano mohl jsem udělat určité věci jinak, mohl jsem použít třeba YSI a podobné hovadiny ale já to dělal prakticky bez použití ničeho až na stock PlayerName.

 

A teď samotný script:

#include <a_samp>

new RandText[10]; //samotný text má 10 písmen max můžete si přidat/měnit potom ale nezapomente zmenit aj cisla
new LetterList[26][] = {
	"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"
}; // seznam písmen
new RText=0;

forward RandomText(); //forward pro publick RandomText

public OnFilterScriptInit(){
	SetTimer("RandomText", 5*60000, true); //timer
	return true;
}

public RandomText(){
	new string[30], str[256];
	format(string, sizeof(string), "%s%s%s%s%s%s%s%s%s%s" 
	, LetterList[random(sizeof(LetterList))], LetterList[random(sizeof(LetterList))]
	, LetterList[random(sizeof(LetterList))], LetterList[random(sizeof(LetterList))]
	, LetterList[random(sizeof(LetterList))], LetterList[random(sizeof(LetterList))]
	, LetterList[random(sizeof(LetterList))], LetterList[random(sizeof(LetterList))]
	, LetterList[random(sizeof(LetterList))], LetterList[random(sizeof(LetterList))]); // 10 random písmen
        RandText = string; //uloží písmena na RandText
        RText=1;
        format(str, sizeof(str), "[ {C2A2DA}Text{FFFFFF} ] Kdo jako první napíše náhodný text '' %s '' získá náhodnou částku.",RandText);
	SendClientMessageToAll(-1,str); //vypíše zprávu pro všechny hráče
	return true;
}

public OnFilterScriptExit(){
	return true;
}

public OnPlayerText(playerid, text[]){
	new string[256];
	new cash = random(50000); //náhodný cash od 0 do 50 000 je lepší použít RandomEx (najdete na samp foru) a nastavit si třeba od 5000 do 1500
	if(RText == 1){ //pokud je RaText na 1 bude to reagovat
		if(!strcmp(text, RandText, true)){ //zjistí jestli někdo napsal ten text
			format(string, sizeof(string), "[ {C2A2DA}Text{FFFFFF} ] Jako první napsal náhodný text '' %s '' hráč %s a získal {33AA33}$%d{FFFFFF}.",RandText,PlayerName(playerid),cash);
			SendClientMessageToAll(-1,string); //vypíše zprávu pro všechny hráče
			GivePlayerMoney(playerid, cash); //dá tomu co napsal jako první cash
		        RText=0;
		}
        
	}
	return true;
}

stock PlayerName(playerid){ //klasickej stock PlayerName
	new pname[MAX_PLAYER_NAME];
	GetPlayerName(playerid, pname, MAX_PLAYER_NAME);
	return pname;
}

For můžete nahradit třeba ForPlayers a další další blbosti... 

Celý to funguje na principu že to vybere náhodně 10 písmen které dá se říct uloží na RandText a nastaví RaText na 1.

Potom když napíšete správně těch 10 písmen tak vám to dá peníze a nastaví RaText na 0.

 

Nevím co víc k tomu říct...

Jestli se to někomu nelíbí je mi to jedno, kdo to ocení nějak i kdyby si to upravoval budu rád.

Edited by rEf
  • Líbí se mi to! (+1) 1
Link to comment
Share on other sites
  • Hlavní moderátor
vEnd

vEnd 279

Odesláno:
  • Hlavní moderátor
Odesláno:

kdybys ta jednotlivá písmena použil jako znaky ('A', 'B' a pak %c%c atd.), nemusel bys mít LetterList jako 2D pole... neber to ani tak jako výtku, jako spíš možnost ušetřit trochu paměti

 

btw, nepřehánějte to s tím YSI, taky to nemusí být v každém 50řádkovém scriptu

Link to comment
Share on other sites
TheRohlikar

TheRohlikar 21

Odesláno:
Odesláno:

Good job ! :)

 

Jen...

    format(string, sizeof(string), "%s%s%s%s%s%s%s%s%s%s"
    , LetterList[random(sizeof(LetterList))], LetterList[random(sizeof(LetterList))]
    , LetterList[random(sizeof(LetterList))], LetterList[random(sizeof(LetterList))]
    , LetterList[random(sizeof(LetterList))], LetterList[random(sizeof(LetterList))]
    , LetterList[random(sizeof(LetterList))], LetterList[random(sizeof(LetterList))]
    , LetterList[random(sizeof(LetterList))], LetterList[random(sizeof(LetterList))]);

Nebylo by lepší to hodit do "strcat" ?

Link to comment
Share on other sites
arci224

arci224 11

Odesláno:
Odesláno:

JSi feťák ? Není to TUT, je to script. Takže pokud chce, tak ho zveřejnit může. A hádám, že mu nějaká CTRLská lama nemířila zbraní na hlavu, aby to sem hodil.

Nejsem, a vím že to je script.. ale přece jenom .. je to CTRL + C... 

Link to comment
Share on other sites
Tedy

Tedy 8

Odesláno:
Odesláno:

Nejsem, a vím že to je script.. ale přece jenom .. je to CTRL + C... 

A to jsi vzal prosím tě kde? -_-  

 

K scriptu - pěkně udělané, a hlavně se s tím dá ještě pracovat ( přidat do číslice... )

 

9,5 / 10 :);) 

Link to comment
Share on other sites
  • Administrátor
Ewwe

Ewwe 434

Odesláno:
  • Administrátor
Odesláno: (upraveno)

Strašně nadšenej bude ten co vyhraje 0$

 

BTW je strašně užasně skvělý jak cpeš 30 znaků do 10 znaků ... 

 

Tten pvar tam má taky smyslu jak brejle pro mrtvýho

Edited by Ewwe
Link to comment
Share on other sites
Tedy

Tedy 8

Odesláno:
Odesláno:

Strašně nadšenej bude ten co vyhraje 0$

 

BTW je strašně užasně skvělý jak cpeš 30 znaků do 10 znaků ... 

 

Tten pvar tam má taky smyslu jak brejle pro mrtvýho

 

Však i kdyby vyhrál 0 $ ... Je to realita, ne?

Link to comment
Share on other sites
Lax.

Lax. 28

Odesláno:
Odesláno: (upraveno)

Nejsem, a vím že to je script.. ale přece jenom .. je to CTRL + C... 

 

Keď si si nevšimol - "PAWN - Scripty", takú ... napíšeš dokonca 2x, no konec..

 

:rofl: :rofl:

 

Edited by Lax.
Link to comment
Share on other sites
  • Hlavní moderátor
vEnd

vEnd 279

Odesláno:
  • Hlavní moderátor
Odesláno:

Dej tam místo new string[30], str[256]; new string[10], str[256];. Je tam jen 10 písmen 

když mu chceš poradit, tak alespoň správně, velikost musí být 11 (EOS)

Link to comment
Share on other sites
TheRohlikar

TheRohlikar 21

Odesláno:
Odesláno:

Good job ! :)

 

Jen...

    format(string, sizeof(string), "%s%s%s%s%s%s%s%s%s%s"
    , LetterList[random(sizeof(LetterList))], LetterList[random(sizeof(LetterList))]
    , LetterList[random(sizeof(LetterList))], LetterList[random(sizeof(LetterList))]
    , LetterList[random(sizeof(LetterList))], LetterList[random(sizeof(LetterList))]
    , LetterList[random(sizeof(LetterList))], LetterList[random(sizeof(LetterList))]
    , LetterList[random(sizeof(LetterList))], LetterList[random(sizeof(LetterList))]);

Nebylo by lepší to hodit do "strcat" ?

 

Může prosím někdo odpovědět ? Díík.

Link to comment
Share on other sites
  • Administrátor
Ewwe

Ewwe 434

Odesláno:
  • Administrátor
Odesláno:

Dej tam místo new string[30], str[256]; new string[10], str[256];. Je tam jen 10 písmen 

 

Jo 2O zbytečnejch znaků je větší zátěž než 11O zbytečnejch znaků...

Link to comment
Share on other sites
rEf

rEf 53

Odesláno:
  • Author
Odesláno: (upraveno)

Když jsem to dělal nějaký stringy jsem neřešil prostě mě to chytlo a musel sem to za každou cenu zrealizovat nějakou optimalizaci si může udělat člověk sám v případě že umí počítat a podobně.

 

Samozřejmě to lze vytvořit i mnohem jednodušeji no.

Edited by rEf
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Přejít na seznam témat
×
×
  • Create New...