API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Dec 30th, 2014
208
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 8.57 KB | None | 0 0
raw download clone embed print report
  1. //-----------------------Kaip veikia ką jis daro?----------------------//
  2. //          /skaiciuotuvas - visos jo komandos                         //
  3. //          Šitas Scriptas Sudeda, Atima , Dalina , Daugina            //
  4. //          Šitą scriptą bandysiu atnaujinti kuo dažniau               //
  5. //          Scriptą dariau savo malonumui , o ne 'pasipuikuoti'         //
  6. //          Scriptą kūriau be pagalbos SCmindė (MindCode)               //
  7. //          Scriptas Pradėtas kurti: 2013.06.25                          //
  8. //          Scriptas Baigtas kurti: 2013.06.26                           //
  9. //          O.T Minato Duhas !                                           //
  10. //--------------------THE END GOOD LUCK USING--------------------------//
  11. #include <a_samp>
  12. #include <zcmd>
  13. //pragma
  14. #pragma tabsize 0
  15. //definai
  16. #define PlusPVarInt(%1,%2,%3) SetPVarInt(%1,%2,GetPVarInt(%1,%2)+%3)
  17. #define MinusPVarInt(%1,%2,%3) SetPVarInt(%1,%2,GetPVarInt(%1,%2)-%3)
  18. #define MultiPVarInt(%1,%2,%3) SetPVarInt(%1,%2,GetPVarInt(%1,%2)*%3)
  19. #define DevidPVarInt(%1,%2,%3) SetPVarInt(%1,%2,GetPVarInt(%1,%2)/%3)
  20. #define FILTERSCRIPT
  21. #define COLOR 0xFF8080FF
  22. new
  23.    Skaic;
  24. #if defined FILTERSCRIPT
  25.  
  26. public OnFilterScriptInit()
  27. {
  28.     print("\n--------------------------------------");
  29.     print(" [FS]Skaičiuotuvas By SCmindė V1.");
  30.     print(" UŽKRAUTAS VISKAS LIUX");
  31.     print("--------------------------------------\n");
  32.     Skaic = CreatePickup(1274,2,1951.4390,1342.6720,15.3746);
  33.     Create3DTextLabel("{FFFFFF}Skaičiuotuvo Pirkimas\n{FF0000}10LT", 0x008080FF,1951.4390,1342.6720,15.3746,40.0,0,0);
  34.     return 1;
  35. }
  36.  
  37. public OnFilterScriptExit()
  38. {
  39.     return 1;
  40. }
  41. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  42. {
  43.  if ( dialogid == 1 )
  44. {
  45.    if( !IsNumeric ( inputtext ) ) return SendClientMessage( playerid , COLOR ,"Gi turi vesti skaičius asile") ;
  46.    if( strlen ( inputtext ) == 0 ) return SendClientMessage ( playerid , COLOR , "Įvesk ką nors..") ;
  47.    ShowPlayerDialog ( playerid , 2 , DIALOG_STYLE_INPUT , "Sudėtis" , "Įveskite antrajį skaitmenį" , "Toliau" , "");
  48.    SendClientMessage(playerid,COLOR,"Pirmasis skaičius įvestas");
  49.    SetPVarInt(playerid, "SK" ,strval( inputtext ) );
  50. }
  51. else if ( dialogid == 2 )
  52. {
  53.    new
  54.       msg [ 300 ];
  55.    if( !IsNumeric ( inputtext ) ) return SendClientMessage(playerid, COLOR,"Gi turi skaičiai buti");
  56.    if( strlen ( inputtext ) == 0 ) return SendClientMessage ( playerid , COLOR , "Įvesk ką nors..") ;
  57.    PlusPVarInt ( playerid , "SK" , strval(inputtext) );
  58.    format(msg , sizeof(msg) , "Atsakymas: %d ", GetPVarInt(playerid , "SK" ) );
  59.    SendClientMessage(playerid,COLOR,msg);
  60.    SetPVarInt(playerid, "SK" , 0);
  61. }
  62. else if ( dialogid == 3 )
  63. {
  64.    if ( !IsNumeric ( inputtext ) ) return SendClientMessage ( playerid, COLOR, "Skaičius įvesti turi ");
  65.    if( strlen ( inputtext ) == 0 ) return SendClientMessage ( playerid , COLOR , "Įvesk ką nors..") ;
  66.    ShowPlayerDialog ( playerid , 4 , DIALOG_STYLE_INPUT , "Atimtis" , "Įveskite antrajį skaičiu","Toliau" , "");
  67.    SendClientMessage ( playerid , COLOR , "Pirmajį skaičiu įvedei ");
  68.    SetPVarInt(playerid,"MK",strval ( inputtext ) );
  69. }
  70. else if ( dialogid == 4 )
  71. {
  72.    if ( !IsNumeric ( inputtext ) ) return SendClientMessage(playerid, COLOR , "Kur skaičiai blede?");
  73.    if( strlen ( inputtext ) == 0 ) return SendClientMessage ( playerid , COLOR , "Įvesk ką nors..") ;
  74.    MinusPVarInt ( playerid , "MK" , strval ( inputtext ) );
  75.    new
  76.       zin [ 50 ];
  77.    format ( zin , sizeof(zin), "Atsakymas : %d",GetPVarInt(playerid,"MK" ) );
  78.    SendClientMessage ( playerid , COLOR , zin );
  79.    SetPVarInt ( playerid , "MK" , 0);
  80. }
  81. else if ( dialogid == 5 )
  82. {
  83.    if ( !IsNumeric ( inputtext ) ) return SendClientMessage( playerid , COLOR , " Įvestas atsakymas turi būti skaičiai ");
  84.    if( strlen ( inputtext ) == 0 ) return SendClientMessage ( playerid , COLOR , "Įvesk ką nors..") ;
  85.    ShowPlayerDialog ( playerid , 6 , DIALOG_STYLE_INPUT , "Daugyba","Įveskite antrajį skaitmenį","Toliau","");
  86.    SendClientMessage ( playerid , COLOR , "Pirmasis skaičius įvestas ");
  87.    SetPVarInt(playerid , "DK", strval ( inputtext ) );
  88. }
  89. else if ( dialogid == 6 )
  90. {
  91.    if ( !IsNumeric ( inputtext ) ) return SendClientMessage( playerid , COLOR , " Įvestas atsakymas turi būti skaičiai ");
  92.    if( strlen ( inputtext ) == 0 ) return SendClientMessage ( playerid , COLOR , "Įvesk ką nors..") ;
  93.    MultiPVarInt(playerid , "DK" , strval ( inputtext ) );
  94.    new
  95.       msg [ 50 ];
  96.    format(msg , sizeof(msg) , "Atsakymas: %d",GetPVarInt(playerid, "DK" ) );
  97.    SendClientMessage(playerid, COLOR , msg );
  98.    SetPVarInt ( playerid , "DK" , 0);
  99. }
  100. else if ( dialogid == 7 )
  101. {
  102.    if ( !IsNumeric ( inputtext ) ) return SendClientMessage( playerid , COLOR , " Įvestas atsakymas turi būti skaičiai ");
  103.    if( strlen ( inputtext ) == 0 ) return SendClientMessage ( playerid , COLOR , "Įvesk ką nors..") ;
  104.    ShowPlayerDialog ( playerid, 8 , DIALOG_STYLE_INPUT , "Dalyba" , "Įveskite antrajį skaitmenį " , "Toliau" , "");
  105.    SendClientMessage ( playerid, COLOR , "Pirmasis skaičius įvestas");
  106.    SetPVarInt ( playerid , "DA" , strval ( inputtext ) );
  107. }
  108. else if ( dialogid == 8 )
  109. {
  110.    if ( !IsNumeric (inputtext) ) return SendClientMessage( playerid , COLOR , " Įvestas atsakymas turi būti skaičiai ");
  111.    if( strlen ( inputtext ) == 0 ) return SendClientMessage ( playerid , COLOR , "Įvesk ką nors..") ;
  112.    DevidPVarInt ( playerid , "DA" , strval ( inputtext ) );
  113.    new
  114.       msg [ 50 ];
  115.    format ( msg , sizeof (msg) , "Atsakymas: %i",GetPVarInt ( playerid , "DA" ) );
  116.    SendClientMessage ( playerid , COLOR , msg);
  117.    SetPVarInt ( playerid , "DA" , 0);
  118. }
  119. else if ( dialogid == 9 )
  120. {
  121.    if(response)
  122.    {
  123.       if ( GetPVarInt(playerid,"Skaic") == 1 ) return SendClientMessage(playerid,COLOR,"Jūs jau turite skaičiuotuvą");
  124.       GivePlayerMoney(playerid,-10);
  125.       SetPVarInt(playerid,"Skaic",1);
  126.       SendClientMessage(playerid, COLOR, "Jūs nusipirkote skaičiuotuvą visos komandos: {FFFFFF}/skaiciuotuvas");
  127.    }
  128.    if(!response)
  129.    {
  130.       SendClientMessage(playerid,COLOR,"Nenusipirkai skaičiuotuvo");
  131.    }
  132. }
  133. return 1;
  134. }
  135. public OnPlayerPickUpPickup(playerid,pickupid)
  136. {
  137.    if ( pickupid == Skaic )
  138.    {
  139.       ShowPlayerDialog(playerid,9,DIALOG_STYLE_MSGBOX,"Skaičiuotuvo pirkimas","{FFFFFF}Ar norite pirkti\n\t\t\t{269cb5}»{FFFFFF}Skaičiuotuvą","Taip","Ne");
  140.    }
  141.    return 1;
  142. }
  143. stock SkaicPos ( playerid )
  144. {
  145.    SetPlayerCheckpoint(playerid,1951.4390,1342.6720,15.3746,3);
  146. }
  147. public OnPlayerEnterCheckpoint(playerid)
  148. {  
  149.    SendClientMessage ( playerid , COLOR , "Sėkmingai atįkai į paskįrta vietą");
  150.    DisablePlayerCheckpoint(playerid);
  151. }
  152. CMD:mapskaic ( playerid )
  153. {
  154.    SkaicPos(playerid);
  155.    return 1;
  156. }
  157. CMD:skaiciuotuvas ( playerid )
  158. {
  159.    if ( GetPVarInt(playerid, "Skaic") != 1 ) return SendClientMessage(playerid,COLOR,"Neturi skaičiuotuvo, rašyk /mapskaic  , tada parodyk kur gali nusipirkti");
  160.    SendClientMessage(playerid , COLOR , "Skaičiuotuvo komandos: {FFFFFF}/sudet /atimt /dalyba /daugyba");
  161.    return 1;
  162. }
  163. CMD:dalyba ( playerid  )
  164. {
  165.    if ( GetPVarInt(playerid, "Skaic") != 1 ) return SendClientMessage(playerid,COLOR,"Neturi skaičiuotuvo, rašyk /mapskaic  , tada parodyk kur gali nusipirkti");
  166.    ShowPlayerDialog ( playerid , 7 , DIALOG_STYLE_INPUT , "Dalyba" , "Įveskite Pirmasis skaitmenį" , "Toliau" , "Išeit ");
  167.    return 1;
  168. }
  169. CMD:daugyba ( playerid  )
  170. {
  171.    if ( GetPVarInt(playerid, "Skaic") != 1 ) return SendClientMessage(playerid,COLOR,"Neturi skaičiuotuvo, rašyk /mapskaic  , tada parodyk kur gali nusipirkti");
  172.  
  173.    ShowPlayerDialog ( playerid , 5 , DIALOG_STYLE_INPUT , "Daugyba" , "Įveskite Pirmajį skaitmetį" , "Toliau " , "Išeit");
  174.    return 1;
  175.  
  176. }
  177. CMD:atimt(playerid)
  178. {
  179.    if ( GetPVarInt(playerid, "Skaic") != 1 ) return SendClientMessage(playerid,COLOR,"Neturi skaičiuotuvo, rašyk /mapskaic  , tada parodyk kur gali nusipirkti");
  180.    ShowPlayerDialog ( playerid , 3 , DIALOG_STYLE_INPUT , "Atimtis","Įveskite pirmą skaitmęnį","Toliau","Išeit");
  181.    return 1;
  182. }
  183. CMD:sudet(playerid)
  184. {
  185.    if ( GetPVarInt(playerid, "Skaic") != 1 ) return SendClientMessage(playerid,COLOR,"Neturi skaičiuotuvo, rašyk /mapskaic  , tada parodyk kur gali nusipirkti");
  186. ShowPlayerDialog(playerid, 1 , DIALOG_STYLE_INPUT , "Sudėtis" , "Įveskite pirmą skaitmenį" ,"Toliau" , "Išeit");
  187. return 1;
  188. }
  189. stock IsNumeric(const string[])
  190. {
  191.    for(new i=0,j=strlen(string);i<j;i++)
  192.    {
  193.       if(string[i] > '9' || string[i] < '0') return 0;
  194.    }
  195.    return 1;
  196. }
  197. #else
  198.  
  199.  
  200. #endif
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!