Slasheer

scrabble

Apr 16th, 2011
768
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 2.63 KB | None | 0 0
  1. /*                     SKRYPT ZOSTAŁ STWORZONY PRZEZ SLASHEER
  2.                              © Copyright by Slasheer                          */
  3.  
  4. //=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=INCLUDE=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
  5.  
  6. #include a_samp.inc
  7. #include zcmd.inc
  8. #include sscanf2.inc
  9.  
  10. #define CZERWONY 0xFF0000FF
  11.  
  12. new Trwa, Text:td[2], wyraz[15], podpowiedz[24], string[128];
  13.  
  14. public OnFilterScriptInit()
  15. {
  16.     td[0] = TextDrawCreate(24.000000, 99.000000, "Scrabble");
  17.     TextDrawBackgroundColor(td[0], 255);
  18.     TextDrawFont(td[0], 1);
  19.     TextDrawLetterSize(td[0], 0.349999, 1.700000);
  20.     TextDrawColor(td[0], -1);
  21.     TextDrawSetOutline(td[0], 1);
  22.     TextDrawSetProportional(td[0], 1);
  23.  
  24.     td[1] = TextDrawCreate(17.000000, 109.000000, "~n~rdzow~n~Klon, dab, sosna");
  25.     TextDrawBackgroundColor(td[1], 255);
  26.     TextDrawFont(td[1], 1);
  27.     TextDrawLetterSize(td[1], 0.270000, 1.100000);
  28.     TextDrawColor(td[1], -1);
  29.     TextDrawSetOutline(td[1], 1);
  30.     TextDrawSetProportional(td[1], 1);
  31.     TextDrawUseBox(td[1], 1);
  32.     TextDrawBoxColor(td[1], 100);
  33.     TextDrawTextSize(td[1], 150.000000, 0.000000);
  34.     return 1;
  35. }
  36.  
  37. public OnFilterScriptExit()
  38.     return 1;
  39.  
  40. public OnPlayerText(playerid, text[])
  41. {
  42.     if(Trwa)
  43.     {
  44.         if(strcmp(text, wyraz, true))
  45.             return 1;
  46.  
  47.         format(string, sizeof string, "Gratulacje! %s udzielił dobrej odpowiedzi!", PlayerName(playerid));
  48.         SendClientMessageToAll(CZERWONY, string);
  49.         TextDrawHideForAll(td[0]);
  50.         TextDrawHideForAll(td[1]);
  51.         GivePlayerMoney(playerid, 1000);
  52.         Trwa = 0;
  53.     }
  54.     return 1;
  55. }
  56.  
  57. CMD:scrabble(playerid, params[])
  58. {
  59.     if(!IsPlayerAdmin(playerid))
  60.         return SendClientMessage(playerid, CZERWONY, "Nie jesteś administratorem!");
  61.  
  62.     if(Trwa)
  63.         return SendClientMessage(playerid, CZERWONY, "Trwa już jedno scrabble!");
  64.  
  65.     if(sscanf(params, "s[15]s[24]", wyraz, podpowiedz))
  66.         return SendClientMessage(playerid, CZERWONY, "/scrabble [wyraz] [podpowiedź]");
  67.  
  68.     Trwa = 1;
  69.     format(string, sizeof string, "~n~~b~%s~n~~n~~b~~h~~h~%s", Mieszaj(wyraz), podpowiedz);
  70.     TextDrawSetString(td[1], string);
  71.     TextDrawShowForAll(td[0]);
  72.     TextDrawShowForAll(td[1]);
  73.     return 1;
  74. }
  75.  
  76. stock Mieszaj(tekst[])
  77. {
  78.     new cos[24], r, wyrazik[24];
  79.     strcat(cos, tekst);
  80.     for(new i = 0; i < strlen(tekst); i++)
  81.     {
  82.         r = random(strlen(cos));
  83.         wyrazik[i] = cos[r];
  84.         strdel(cos, r, r+1);
  85.     }
  86.     return wyrazik;
  87. }
  88.  
  89. stock PlayerName(playerid)
  90. {
  91.     new Name[MAX_PLAYER_NAME];
  92.     GetPlayerName(playerid, Name, sizeof Name);
  93.     return Name;
  94. }
Advertisement
Add Comment
Please, Sign In to add comment