Szerző Téma: Reakcioteszt  (Megtekintve 655 alkalommal)

Reakcioteszt
« Dátum: 2016. Február 19. - 21:08:15 »
0
Olyan reakcio teszt kéne ami számolja hányszor oldottam meg pl : matek, teleport, szovegesreakcio! De eleg lenne pl a telleportos vagy a matekod abbol ki tudnek indulni ! Eloreis koszonom!

Nem elérhető !Adam

Reakcioteszt
« Válasz #1 Dátum: 2016. Február 20. - 21:16:41 »
0
Szia!

Találtam neked egyet, remélem hogy megfelel a célodra.


Nem írtam sajátot, mivel 2 kattintással ezt is megtaláltam.

 
/*
Release:
       » Reaction-Test Filterscript
Author:
        » » RyDeR «
Last Update:
        » 25/05/2010
ChangeLog:
        » v0.1a:
      - Initial release
Bugs:
        » No bugs
Version:
   » v0.1a
Functions:
   » /
Credits:
        » /
*/
#include <a_samp>
#if !defined Loop
#define Loop(%0,%1) \\
for(new %0 = 0; %0 != %1; %0++)
#endif
#if !defined function
#define function%0(%1) \\
forward%0(%1); public%0(%1)
#endif
#if !defined PURPLE
#define PURPLE \\
    0xBF60FFFF
#endif
#if !defined GREEN
#define GREEN \\
    0x94D317FF
#endif
#if !defined TIME
#define TIME \\
    180000
#endif
new
xCharacters[][] =
{
    \"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\",
    \"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\",
    \"0\", \"1\", \"2\", \"3\", \"4\", \"5\", \"6\", \"7\", \"8\", \"9\"
},
xChars[16] = \"\",
xReactionTimer,
xCash,
xScore,
bool: xTestBusy
;
public OnFilterScriptInit()
{
xReactionTimer = SetTimer(\"xReactionTest\", TIME, 1);
return 1;
}
public OnFilterScriptExit()
{
KillTimer(xReactionTimer);
return 1;
}
public OnPlayerText(playerid, text[])
{
switch(xTestBusy)
{
    case true:
    {
   if(!strcmp(xChars, text, false))
   {
       new
           string[128],
           pName[MAX_PLAYER_NAME]
      ;
      GetPlayerName(playerid, pName, sizeof(pName));
      format(string, sizeof(string), \"« \\%s\\\" has won the reaction test. »\", pName);
       SendClientMessageToAll(GREEN, string);
       format(string, sizeof(string), \"« You have earned $%d + %d score points. »\", xCash, xScore);
       SendClientMessage(playerid, GREEN, string);
       GivePlayerMoney(playerid, xCash);
      SetPlayerScore(playerid, GetPlayerScore(playerid) + xScore);
      xReactionTimer = SetTimer(\"xReactionTest\", TIME, 1);
       xTestBusy = false;
   }
}
}
return 1;
}
function xReactionProgress()
{
    switch(xTestBusy)
{
    case true:
    {
    new
        string[128]
   ;
   format(string, sizeof(string), \"« No-one won the reaction-test. New one starting in %d minutes. »\", (TIME/60000));
    SendClientMessageToAll(PURPLE, string);
        xReactionTimer = SetTimer(\"xReactionTest\", TIME, 1);
        }
}
return 1;
}
function xReactionTest()
{
new
xLength = (random(8) + 2),
string[128]
;
xCash = (random(10000) + 20000);
xScore = (random(2)+1);
format(xChars, sizeof(xChars), \"\");
Loop(x, xLength) format(xChars, sizeof(xChars), \"%s%s\", xChars, xCharacters[random(sizeof(xCharacters))][0]);
format(string, sizeof(string), \"« Who first types %s wins $%d + %d score points. »\", xChars, xCash, xScore);
SendClientMessageToAll(PURPLE, string);
KillTimer(xReactionTimer);
xTestBusy = true;
SetTimer(\"xReactionProgress\", 30000, 0);
return 1;
}

 
Pastebin: http://pastebin.com/5f0pjpWB
Remélem tudtam segíteni.. :)
« Utoljára szerkesztve: 2016. Február 21. - 09:53:12 írta anGeL »

Reakcioteszt
« Válasz #2 Dátum: 2016. Február 21. - 08:53:17 »
0
Köszi! :)

 

SimplePortal 2.3.7 © 2008-2024, SimplePortal