Advertisement
Hardware

IMC

Sep 21st, 2011
172
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 3.55 KB | None | 0 0
  1. #include <a_samp>
  2. #include <zcmd>
  3. #include <sscanf>
  4.  
  5. #define IMC 7
  6.  
  7. new peso,Float:altura,Float:resultado,Float:resultado2[MAX_PLAYERS],msg[128];
  8.  
  9. CMD:imc(playerid, params[])
  10. {
  11.     ShowPlayerDialog(playerid, IMC, DIALOG_STYLE_INPUT,"Cálculo de IMC - Criador:Bryan", "Olá.\n Por favor, digite seu peso em quilôgramas","Feito","Cancelar");
  12.     return true;
  13. }
  14.  
  15. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  16. {
  17.     if(dialogid == IMC)
  18.     {
  19.         if(sscanf(inputtext,"i",peso))
  20.         {
  21.             SendClientMessage(playerid, -1, "Caso queira fazer o teste novamente, digite /imc");
  22.         }
  23.         if(response && !sscanf(inputtext,"i", peso))
  24.         {
  25.             ShowPlayerDialog(playerid, IMC+1, DIALOG_STYLE_INPUT,"Cálculo de IMC - 2° Parte","Olá, informe sua altura. Ex: 1.60","Feito","Cancelar");
  26.         }
  27.     }
  28.     if(dialogid == IMC+1)
  29.     {
  30.         if(sscanf(inputtext, "f", altura))
  31.         {
  32.             SendClientMessage(playerid, -1, "Caso queira fazer o teste novamente, digite /imc.");
  33.  
  34.         }
  35.         if(response && !sscanf(inputtext, "f", altura))
  36.         {
  37.             resultado2[playerid] = altura*altura;
  38.             resultado = peso/resultado2[playerid];
  39.             if(resultado <18.5)
  40.             {
  41.                 format(msg, sizeof msg,"{FFFFFF}Seu IMC é: %i\nVocê está com muito {008000}'magro'{FFFFFF}, cuidado!", floatround(Float:resultado,floatround_ceil));
  42.                 ShowPlayerDialog(playerid, IMC+2, DIALOG_STYLE_MSGBOX,"Calculo de IMC - 3°/Último passo",msg,"Ok","Cancelar");
  43.             }
  44.             if(resultado >= 24.9)
  45.             {
  46.                 format(msg, sizeof msg,"{FFFFFF}Seu IMC é: %i\nVocê está {008000}'Saudável'{FFFFFF}, parabéns! :)", floatround(Float:resultado,floatround_ceil));
  47.                 ShowPlayerDialog(playerid, IMC+3, DIALOG_STYLE_MSGBOX,"Calculo de IMC - 3°/Último passo",msg,"Ok","Cancelar");
  48.             }
  49.             if(resultado >= 29.9)
  50.             {
  51.                 format(msg, sizeof msg,"{FFFFFF}Seu IMC é: %i\nVocê está com {008000}'Peso em Excesso'{FFFFFF}, cuidado!", floatround(Float:resultado,floatround_ceil));
  52.                 ShowPlayerDialog(playerid, IMC+4, DIALOG_STYLE_MSGBOX,"Calculo de IMC - 3°/Último passo",msg,"Ok","Cancelar");
  53.             }
  54.             if(resultado >= 34.9)
  55.             {
  56.                 format(msg, sizeof msg,"{FFFFFF}Seu IMC é: %i\nVocê está com {008000}'Obesidade Grau I'{FFFFFF}, cuidado!", floatround(Float:resultado,floatround_ceil));
  57.                 ShowPlayerDialog(playerid, IMC+5, DIALOG_STYLE_MSGBOX,"Calculo de IMC - 3°/Último passo",msg,"Ok","Cancelar");
  58.             }
  59.             if(resultado >= 39.9)
  60.             {
  61.                 format(msg, sizeof msg,"{FFFFFF}Seu IMC é: %i\nVocê está com muito {008000}'Obesidade Grau II'{FFFFFF}(Severo).", floatround(Float:resultado,floatround_ceil));
  62.                 ShowPlayerDialog(playerid, IMC+6, DIALOG_STYLE_MSGBOX,"Calculo de IMC - 3°/Último passo",msg,"Ok","Cancelar");
  63.             }
  64.             if(resultado > 40)
  65.             {
  66.                 format(msg, sizeof msg,"{FFFFFF}Seu IMC é: %i\nVocê está com muito {008000}'Obesidade Grau III'{FFFFFF}(Mórbida).", floatround(Float:resultado,floatround_ceil));
  67.                 ShowPlayerDialog(playerid, IMC+7, DIALOG_STYLE_MSGBOX,"Calculo de IMC - 3°/Último passo",msg,"Ok","Cancelar");
  68.             }
  69.             SendClientMessage(playerid, -1, "[INFO] Obrigado por fazer o teste, isso estará te ajudando para ter uma boa saúde!");
  70.         }
  71.     }
  72.     return 1;
  73. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement