API tools faq
paste
Advertisement
Guest User

aVip System Version 1.0

a guest
Apr 14th, 2013
461
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 44.30 KB | None | 0 0
raw download clone embed print report
  1. #if defined SYSTEM
  2. __________________________________________________________________________________________________________________________________
  3.  
  4.  
  5. _| _| _|_|_| _|_|_|
  6. _|_|_| _| _| _| _| _|
  7. _| _| _| _| _| _|_|_|
  8. _| _| _| _| _| _|
  9. _|_|_| _| _|_|_| _|
  10.  
  11.  
  12.  
  13. _|_|_| _|
  14. _| _| _| _|_|_| _|_|_|_| _|_| _|_|_| _|_|
  15. _|_| _| _| _|_| _| _|_|_|_| _| _| _|
  16. _| _| _| _|_| _| _| _| _| _|
  17. _|_|_| _|_|_| _|_|_| _|_| _|_|_| _| _| _|
  18. _|
  19. _|_|
  20.  
  21.  
  22. __________________________________________________________________________________________________________________________________
  23.  
  24. | aVip System Was Created On 12 of April |
  25.  
  26. | OVER 24 COMMANDS |
  27.  
  28. ______________________________
  29. | Contains : |
  30. | - Rcon Commands |
  31. | - Vip Level 3 Cmds |
  32. | - Vip Level 2 Cmds |
  33. | - Vip Level 1 Cmds |
  34. | - All Users Cmds |
  35. | |
  36. |____________________________|
  37. | - Rcon Commands |
  38. |____________________________|
  39. | /setvip |
  40. | /crash |
  41. |____________________________|
  42. | - Vip Level 3 Cmds |
  43. |____________________________|
  44. | /vgoto |
  45. | /vget |
  46. | /vunwarn |
  47. | /vwarn |
  48. |____________________________|
  49. | - Vip Level 2 Cmds |
  50. |____________________________|
  51. | /invitevw |
  52. | /vw |
  53. | /mycolor |
  54. | /vkick |
  55. | /rw |
  56. | /vcar |
  57. | /vannounce |
  58. | /vgod |
  59. | /god |
  60. |____________________________|
  61. | - Vip Level 1 Cmds |
  62. |____________________________|
  63. | /spawnme |
  64. | /vweapons |
  65. | /myweather |
  66. | /mytime |
  67. | /vsay |
  68. | /maxxammo |
  69. | /ltc[ 1 -10 ] |
  70. |____________________________|
  71. | - All Users Cmds |
  72. |____________________________|
  73. | /vips |
  74. | /vcmds |
  75. |____________________________|
  76.  
  77. ____________________________
  78. | - Thanks To This |
  79. |____________________________|
  80. | Alex "Y_LESS" Cole |
  81. | - Sscanf & Foreach |
  82. |____________________________|
  83. | DarkyTheAngel |
  84. | - Tester |
  85. |____________________________|
  86. | Zeex |
  87. | - COMMAND PROCESSOR |
  88. | Zcmd |
  89. |____________________________|
  90. | SQLite |
  91. | - SAMP |
  92. |____________________________|
  93. | Loadin / Save |
  94. | - Rimmon |
  95. |____________________________|
  96. | Created By |
  97. | - Allex |
  98. |____________________________|
  99.  
  100. Cotact me for details :
  101.  
  102. alex_toja13@yahoo.com - Y!M
  103. alex13.dumi@gmail.com - Gmail
  104.  
  105.  
  106. #endif
  107.  
  108. //______________________________________________________________________________
  109.  
  110. #include " a_samp "
  111. #include " sscanf2 "
  112. #include " Zcmd "
  113. #include " foreach "
  114.  
  115. #define fc%0(%1) forward%0(%1);\
  116. public%0(%1)
  117.  
  118. #define function%0(%1) forward%0(%1); public%0(%1)
  119.  
  120. //______________________________________________________________________________
  121.  
  122. stock bool:False = false;
  123.  
  124. new
  125. G_str[ 256 ];
  126.  
  127. //______________________________________________________________________________
  128.  
  129. enum P_ENUM_DATA
  130. {
  131. pId , pVip , bool: pLogged ,
  132. vGod , vCarGod , vSpec ,
  133. vSpecId , pPass , Warn ,
  134. pCar ,
  135. };
  136.  
  137. new
  138. P_DATA[ MAX_PLAYERS ][ P_ENUM_DATA ],
  139. DB:Vips;
  140.  
  141. //______________________________________________________________________________
  142.  
  143. #define O "{FF5500}"
  144.  
  145. #define R "{FF0000}"
  146.  
  147. #define W "{FFFFFF}"
  148.  
  149. #define ShowDialog ShowPlayerDialog
  150.  
  151. #define vRegister 1
  152.  
  153. #define vLogin 2
  154.  
  155. #define vReconnect 3
  156.  
  157. #define VIPS 4
  158.  
  159. #define VCMDS 5
  160.  
  161. #define fSCM(%0,%1,%2,%3)\
  162. do{\
  163. format( G_str , 256 , ( %2 ) , %3 );\
  164. SendClientMessage( ( %0 ) , ( %1 ) , G_str );\
  165. }\
  166. while( False )
  167.  
  168.  
  169. //______________________________________________________________________________
  170.  
  171. public OnFilterScriptInit()
  172. {
  173. print("\n_____________________________________________________ ");
  174. print(" \n_______ S.Y.S.T.E.M. S.A.Y.S. : V.I.P. S.Y.S.T.M. _______ ");
  175. print(" \n_______ S.Y.S.T.E.M. S.A.Y.S. : L.O.A.D.I.N.G. _______ ");
  176. print(" \n_______ S.Y.S.T.E.M. S.A.Y.S. : C.R.E.A.T.E.D B.Y. _______ ");
  177. print(" \n_______ S.Y.S.T.E.M. S.A.Y.S. : A.L.L.E.X _______ ");
  178. print("______________________________________________________\n ");
  179.  
  180. Vips = db_open( "Vips.db" ); // Numele La BD ! Poti schimba
  181. db_free_result( db_query( Vips, "CREATE TABLE IF NOT EXISTS 'Vips' \
  182. ( 'Name' varchar( 40 ),\
  183. 'Vip' INT )" ) ) ;
  184. return 1;
  185. }
  186.  
  187. //______________________________________________________________________________
  188.  
  189. public OnFilterScriptExit()
  190. {
  191. db_close( Vips );
  192. return 1;
  193. }
  194.  
  195. //______________________________________________________________________________
  196.  
  197. public OnPlayerConnect(playerid)
  198. {
  199. new
  200. Query[255],
  201. DBResult:result;
  202.  
  203. format(Query,255,"SELECT * FROM `Vips` WHERE `Name` = '%s'",vName(playerid));
  204. result = db_query(Vips,Query);
  205. if(!db_num_rows(result))
  206. {
  207. format(Query,255,"INSERT INTO `Vips` VALUES(`%s`,`%d`)",vName(playerid),P_DATA[playerid][pVip]);
  208. db_query(Vips,Query);
  209. }
  210. else
  211. {
  212. new
  213. Field[30];
  214.  
  215. db_get_field_assoc(result,"Vip",Field,30);
  216. P_DATA[playerid][pVip] = strval(Field);
  217. }
  218. return 1;
  219. }
  220.  
  221. //______________________________________________________________________________
  222.  
  223. public OnPlayerDisconnect(playerid, reason)
  224. {
  225. return 1;
  226. }
  227.  
  228. //______________________________________________________________________________
  229.  
  230. public OnPlayerSpawn(playerid)
  231. {
  232. new
  233. V_Str[ 110 ];
  234.  
  235. format( V_Str, 110 , ""O"Welcome "R"%s "O"on this server !\n"O"You are logged as VIP Level: "R"%d", vName( playerid ), P_DATA[ playerid ][ pVip ] );
  236. ShowDialog( playerid , vReconnect , DIALOG_STYLE_MSGBOX , ""O"VIP System", V_Str , "Ok" , "Cancel" );
  237.  
  238. return 1;
  239. }
  240.  
  241. //______________________________________________________________________________
  242.  
  243. public OnPlayerDeath(playerid, killerid, reason)
  244. {
  245. return 1;
  246. }
  247.  
  248. //______________________________________________________________________________
  249.  
  250. public OnPlayerText(playerid, text[])
  251. {
  252. text[ 0 ] = toupper( text[ 0 ] );
  253.  
  254.  
  255. if( P_DATA[ playerid ][ pVip ] >= 1 )
  256. {
  257. new
  258. str[200];
  259.  
  260. format( str, 200,"{00FFFF}[%d] {FF8800}[V.I.P] : {FFFFFF}%s", playerid , text[0] );
  261. SendPlayerMessageToAll( playerid , str ) ;
  262.  
  263. return 0;
  264. }
  265.  
  266. if( text[ 0 ] == '@' && P_DATA[ playerid ][ pVip ] >= 1 )
  267. {
  268. new
  269. vText[ 500 ];
  270.  
  271. format( vText, sizeof vText, ""O"V.I.P. Chat: "R"%s: "R"%s ", vName( playerid ) , text );
  272. SendClientMessageToAll( -1 , vText );
  273.  
  274. return 0;
  275. }
  276.  
  277. return 1;
  278. }
  279. //______________________________________________________________________________
  280.  
  281. stock vName( playerid )
  282. {
  283. new
  284. VipName[ 24 ];
  285.  
  286. GetPlayerName( playerid , VipName , 24 );
  287.  
  288. return VipName ;
  289. }
  290.  
  291. //______________________________________________________________________________
  292.  
  293. stock VCmds()
  294. {
  295. new vCmds[ 1100 ];
  296. vCmds[ 0 ]='\0';
  297.  
  298. strcat( vCmds , "\n"O"This VIP System Contains:", 1100 );
  299. strcat( vCmds , "\n"O"- Rcon Commands", 1100 );
  300. strcat( vCmds , "\n"O"- Vip Level 3 Cmds", 1100 );
  301. strcat( vCmds , "\n"O"- Vip Level 2 Cmds", 1100 );
  302. strcat( vCmds , "\n"O"- Vip Level 1 Cmds", 1100 );
  303. strcat( vCmds , "\n"O"- All users Cmds", 1100 );
  304. strcat( vCmds , "\n", 1100 );
  305. strcat( vCmds , "\n"O"- Rcon Commands:", 1100 );
  306. strcat( vCmds , "\n"O"\t/setvip", 1100 );
  307. strcat( vCmds , "\n"O"\t/crash", 1100 );
  308. strcat( vCmds , "\n", 1100 );
  309. strcat( vCmds , "\n"O"- Vip Level 3 Cmds", 1100 );
  310. strcat( vCmds , "\n"O"\t/vgoto", 1100 );
  311. strcat( vCmds , "\n"O"\t/vget", 1100 );
  312. strcat( vCmds , "\n"O"\t/vunwarn", 1100 );
  313. strcat( vCmds , "\n"O"\t/vwarn", 1100 );
  314. strcat( vCmds , "\n", 1100 );
  315. strcat( vCmds , "\n"O"- Vip Level 2 Cmds", 1100 );
  316. strcat( vCmds , "\n"O"\t/invitevw", 1100 );
  317. strcat( vCmds , "\n"O"\t/vw", 1100 );
  318. strcat( vCmds , "\n"O"\t/mycolor", 1100 );
  319. strcat( vCmds , "\n"O"\t/vkick", 1100 );
  320. strcat( vCmds , "\n"O"\t/rw", 1100 );
  321. strcat( vCmds , "\n"O"\t/vcar", 1100 );
  322. strcat( vCmds , "\n"O"\t/vannounce", 1100 );
  323. strcat( vCmds , "\n"O"\t/vgod", 1100 );
  324. strcat( vCmds , "\n"O"\t/god", 1100 );
  325. strcat( vCmds , "\n"O"\t/mycolor", 1100 );
  326. strcat( vCmds , "\n", 1100 );
  327. strcat( vCmds , "\n"O"- Vip Level 1 Cmds", 1100 );
  328. strcat( vCmds , "\n"O"\t/spawnme", 1100 );
  329. strcat( vCmds , "\n"O"\t/vweapons", 1100 );
  330. strcat( vCmds , "\n"O"\t/myweather", 1100 );
  331. strcat( vCmds , "\n"O"\t/mytime", 1100 );
  332. strcat( vCmds , "\n"O"\t/vsay", 1100 );
  333. strcat( vCmds , "\n"O"\t/maxxammo", 1100 );
  334. strcat( vCmds , "\n"O"\t/ltc[ 1-10 ]", 1100 );
  335. strcat( vCmds , "\n", 1100 );
  336. strcat( vCmds , "\n"O"- All users Cmds", 1100 );
  337. strcat( vCmds , "\n"O"\t/vips", 1100 );
  338. strcat( vCmds , "\n"O"\t/vcmds", 1100 );
  339.  
  340. return vCmds;
  341.  
  342. }
  343.  
  344. //______________________________________________________________________________
  345.  
  346. stock MaxAmmo( playerid )
  347. {
  348. new
  349. vArma ,
  350. vMunitie ;
  351.  
  352. foreach(new loc: Player)
  353. {
  354. GetPlayerWeaponData( playerid , loc , vArma , vMunitie );
  355. if( vArma > 0 && vArma < 19 || vArma > 22 && vArma < 48 )
  356. {
  357. GivePlayerWeapon( playerid , vArma , 99999999 );
  358. }
  359. }
  360.  
  361. return 1;
  362. }
  363.  
  364. //______________________________________________________________________________
  365.  
  366. forward CarSpawner(playerid,model);
  367. public CarSpawner(playerid,model)
  368. {
  369. if( IsPlayerInAnyVehicle( playerid )) SendClientMessage(playerid, -1, "You already have a car!");
  370. else
  371. {
  372. new
  373. Float:x,
  374. Float:y,
  375. Float:z,
  376. Float:angle;
  377.  
  378. GetPlayerPos( playerid, x, y, z);
  379. GetPlayerFacingAngle( playerid, angle );
  380. if( P_DATA[ playerid ][ pCar ] != -1) CarDeleter( P_DATA[ playerid ][ pCar ]);
  381. new vehicleid = CreateVehicle( model, x, y, z, angle, -1, -1, -1);
  382. PutPlayerInVehicle( playerid, vehicleid, 0);
  383. SetVehicleVirtualWorld( vehicleid, GetPlayerVirtualWorld( playerid ) );
  384. LinkVehicleToInterior( vehicleid, GetPlayerInterior( playerid ) );
  385. ChangeVehicleColor( vehicleid,0,7 );
  386. P_DATA[ playerid ][ pCar ] = vehicleid;
  387. }
  388. return 1;
  389. }
  390.  
  391. //______________________________________________________________________________
  392.  
  393. forward CarDeleter(vehicleid);
  394. public CarDeleter(vehicleid)
  395. {
  396. for(new i=0;i<MAX_PLAYERS;i++)
  397. {
  398. new
  399. Float:X,
  400. Float:Y,
  401. Float:Z;
  402.  
  403. if(IsPlayerInVehicle( i, vehicleid ) )
  404. {
  405. RemovePlayerFromVehicle(i);
  406. GetPlayerPos( i, X , Y , Z );
  407. SetPlayerPos( i, X , Y+3, Z );
  408. }
  409. SetVehicleParamsForPlayer(vehicleid,i,0,1);
  410. }
  411. SetTimerEx("VehRes",1500,0,"i",vehicleid);
  412. }
  413.  
  414. //______________________________________________________________________________
  415.  
  416. forward VehRes(vehicleid);
  417. public VehRes(vehicleid)
  418. {
  419. DestroyVehicle( vehicleid );
  420. }
  421.  
  422. //________________________________VIP Commands__________________________________
  423.  
  424. CMD:vips( playerid , params[ ] )
  425. {
  426. new
  427. Vipss,
  428. V_Str[ 2048 ]; // 2048 string l-am marit sa se vada mai multi VIPS Online
  429.  
  430. foreach(new i: Player)
  431. {
  432. if( IsPlayerConnected( i ) && P_DATA[ i ][ pVip ] > 0 )
  433. {
  434. format( V_Str , sizeof V_Str , "\n"O"V.I.P "R"%s - "O"Level %d", vName( i ), P_DATA[ i ][ pVip ] );
  435.  
  436. Vipss ++ ;
  437. }
  438. }
  439.  
  440. if( Vipss == 0 )
  441. {
  442. format( V_Str , sizeof V_Str , "\n"O"No VIP Members Online at this time" );
  443. }
  444.  
  445. return ShowDialog( playerid , VIPS , DIALOG_STYLE_MSGBOX, ""O"Online Vips", V_Str , "Ok" , "Cancel" );
  446. }
  447.  
  448. CMD:vcmds( playerid , params[ ] ) return ShowDialog( playerid , VCMDS , DIALOG_STYLE_MSGBOX , ""O"VIP Commands", VCmds( ) , "Ok", "Cancel" );
  449.  
  450. //________________________________VIP Level 1 Commands__________________________
  451.  
  452. CMD:vsay( playerid , params[ ] )
  453. {
  454. if( P_DATA[ playerid ][ pVip ] < 1 )
  455. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 1 For Use This Command" );
  456.  
  457. if( P_DATA[ playerid ][ pVip ] >= 1 )
  458. {
  459. new
  460. V_String[ 256 ];
  461.  
  462. if( sscanf( params , "s[256]", V_String ) )
  463. return SendClientMessage( playerid , -1, ""R"Usaage: "O"/vsay [ /text ] ");
  464.  
  465. format( V_String , sizeof V_String, ""O"%s "W"[ "O"V "W"]: "O"%s", vName( playerid ) , V_String );
  466. SendClientMessage( playerid, -1, V_String );
  467. }
  468.  
  469. return 1;
  470. }
  471.  
  472. //______________________________________________________________________________
  473.  
  474. CMD:maxxammo( playerid , params[ ] )
  475. {
  476. if( P_DATA[ playerid ][ pVip ] < 1 )
  477. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 1 For Use This Command" );
  478.  
  479. if( P_DATA[ playerid ][ pVip ] >= 1 )
  480. {
  481. MaxAmmo( playerid );
  482. }
  483.  
  484. return 1;
  485. }
  486.  
  487. //______________________________________________________________________________
  488.  
  489. CMD:mytime( playerid , params[ ] )
  490. {
  491. if( P_DATA[ playerid ][ pVip ] < 1 )
  492. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 1 For Use This Command" );
  493.  
  494. if( P_DATA[ playerid ][ pVip ] >= 1 )
  495. {
  496. new
  497. vTime ,
  498. V_Str[ 128 ];
  499.  
  500. if( sscanf ( params , "d", vTime ) )
  501. return SendClientMessage( playerid , -1 , ""R"Usage: "O"/mytime [ time ]" );
  502.  
  503. if( vTime < 0 || vTime > 24 )
  504. return SendClientMessage( playerid , -1 , ""O"Only Beetween 1 - 24 Time" );
  505.  
  506. SetPlayerTime( playerid , vTime , 0 );
  507.  
  508. format( V_Str , sizeof V_Str , ""O"You have set your time to "R"%d" , vTime );
  509. SendClientMessage( playerid , -1 , V_Str );
  510.  
  511. }
  512.  
  513. return 1;
  514. }
  515.  
  516. //______________________________________________________________________________
  517.  
  518. CMD:myweather( playerid , params[ ] )
  519. {
  520. if( P_DATA[ playerid ][ pVip ] < 1 )
  521. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 1 For Use This Command" );
  522.  
  523. if( P_DATA[ playerid ][ pVip ] >= 1 )
  524. {
  525. new
  526. vWeat ,
  527. V_Str[ 128 ];
  528.  
  529. if( sscanf ( params , "d", vWeat ) )
  530. return SendClientMessage( playerid , -1 , ""R"Usage: "O"/myweather [ time ]" );
  531.  
  532. if( vWeat < 0 || vWeat > 52 )
  533. return SendClientMessage( playerid , -1 , ""O"Only Beetween 1 - 52 Time" );
  534.  
  535. SetPlayerWeather( playerid , vWeat );
  536.  
  537. format( V_Str , sizeof V_Str , ""O"You have set your Weather to "R"%d" , vWeat );
  538. SendClientMessage( playerid , -1 , V_Str );
  539.  
  540. }
  541.  
  542. return 1;
  543. }
  544.  
  545. //______________________________________________________________________________
  546.  
  547. CMD:vweapons( playerid , params[ ] )
  548. {
  549. if( P_DATA[ playerid ][ pVip ] < 1 )
  550. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 1 For Use This Command" );
  551.  
  552. if( P_DATA[ playerid ][ pVip ] >= 1 )
  553. {
  554. GivePlayerWeapon( playerid ,28, 120); //Arma: Micro SMG || Gloante: 120
  555. GivePlayerWeapon( playerid, 31, 75); //Arma: M4 || Gloante: 75
  556. GivePlayerWeapon( playerid, 34, 15); //Arma: Sniper Rifle || Gloante: 15
  557. GivePlayerWeapon( playerid, 24, 110); //Arma: Desert Eagle || Gloante: 110
  558. GivePlayerWeapon( playerid, 26, 100); //Arma: Sawn-off Shotgun || Gloante: 100
  559. }
  560.  
  561. return 1;
  562. }
  563.  
  564. //______________________________________________________________________________
  565.  
  566. CMD:spawnme( playerid , params[ ] )
  567. {
  568. if( P_DATA[ playerid ][ pVip ] < 1 )
  569. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 1 For Use This Command" );
  570.  
  571. if( P_DATA[ playerid ][ pVip ] >= 1 )
  572. {
  573. SpawnPlayer( playerid );
  574.  
  575. SendClientMessage( playerid , -1 , ""O"Spawned With Succes ! ");
  576. }
  577.  
  578. return 1;
  579. }
  580.  
  581. //______________________________________________________________________________
  582.  
  583. CMD:ltc( playerid, params[ ] )
  584. {
  585. if( P_DATA[ playerid ][ pVip ] < 1 )
  586. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 1 For Use This Command" );
  587.  
  588. if( P_DATA[ playerid ][ pVip ] >= 1 )
  589. {
  590. CarSpawner(playerid, 562);
  591. AddVehicleComponent(GetPlayerVehicleID(playerid), 1028);
  592. AddVehicleComponent(GetPlayerVehicleID(playerid), 1030);
  593. AddVehicleComponent(GetPlayerVehicleID(playerid), 1031);
  594. AddVehicleComponent(GetPlayerVehicleID(playerid), 1138);
  595. AddVehicleComponent(GetPlayerVehicleID(playerid), 1140);
  596. AddVehicleComponent(GetPlayerVehicleID(playerid), 1170);
  597. AddVehicleComponent(GetPlayerVehicleID(playerid), 1028);
  598. AddVehicleComponent(GetPlayerVehicleID(playerid), 1030);
  599. AddVehicleComponent(GetPlayerVehicleID(playerid), 1031);
  600. AddVehicleComponent(GetPlayerVehicleID(playerid), 1138);
  601. AddVehicleComponent(GetPlayerVehicleID(playerid), 1140);
  602. AddVehicleComponent(GetPlayerVehicleID(playerid), 1170);
  603. AddVehicleComponent(GetPlayerVehicleID(playerid), 1080);
  604. AddVehicleComponent(GetPlayerVehicleID(playerid), 1086);
  605. AddVehicleComponent(GetPlayerVehicleID(playerid), 1087);
  606. AddVehicleComponent(GetPlayerVehicleID(playerid), 1010);
  607.  
  608. ChangeVehiclePaintjob(GetPlayerVehicleID(playerid),1);
  609. }
  610. return 1;
  611. }
  612.  
  613. //______________________________________________________________________________
  614.  
  615.  
  616. CMD:ltc2( playerid, params[ ] )
  617. {
  618. if( P_DATA[ playerid ][ pVip ] < 1 )
  619. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 1 For Use This Command" );
  620.  
  621. if( P_DATA[ playerid ][ pVip ] >= 1 )
  622. {
  623. CarSpawner(playerid, 562);
  624. AddVehicleComponent(GetPlayerVehicleID(playerid), 1028);
  625. AddVehicleComponent(GetPlayerVehicleID(playerid), 1030);
  626. AddVehicleComponent(GetPlayerVehicleID(playerid), 1031);
  627. AddVehicleComponent(GetPlayerVehicleID(playerid), 1138);
  628. AddVehicleComponent(GetPlayerVehicleID(playerid), 1140);
  629. AddVehicleComponent(GetPlayerVehicleID(playerid), 1170);
  630. AddVehicleComponent(GetPlayerVehicleID(playerid), 1080);
  631. AddVehicleComponent(GetPlayerVehicleID(playerid), 1086);
  632. AddVehicleComponent(GetPlayerVehicleID(playerid), 1087);
  633. AddVehicleComponent(GetPlayerVehicleID(playerid), 1010);
  634. ChangeVehiclePaintjob(GetPlayerVehicleID(playerid),2);
  635. }
  636. return 1;
  637. }
  638.  
  639. //______________________________________________________________________________
  640.  
  641.  
  642. CMD:ltc3( playerid, params[ ] )
  643. {
  644. if( P_DATA[ playerid ][ pVip ] < 1 )
  645. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 1 For Use This Command" );
  646.  
  647. if( P_DATA[ playerid ][ pVip ] >= 1 )
  648. {
  649. CarSpawner(playerid, 562);
  650. AddVehicleComponent(GetPlayerVehicleID(playerid),1065);
  651. AddVehicleComponent(GetPlayerVehicleID(playerid),1067);
  652. AddVehicleComponent(GetPlayerVehicleID(playerid),1162);
  653. AddVehicleComponent(GetPlayerVehicleID(playerid),1010);
  654. AddVehicleComponent(GetPlayerVehicleID(playerid),1073);
  655. ChangeVehiclePaintjob(GetPlayerVehicleID(playerid),1);
  656. }
  657. return 1;
  658. }
  659.  
  660. //______________________________________________________________________________
  661.  
  662. CMD:ltc4( playerid, params[ ] )
  663. {
  664. if( P_DATA[ playerid ][ pVip ] < 1 )
  665. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 1 For Use This Command" );
  666.  
  667. if( P_DATA[ playerid ][ pVip ] >= 1 )
  668. {
  669. CarSpawner(playerid, 562);
  670. AddVehicleComponent(GetPlayerVehicleID(playerid),1046);
  671. AddVehicleComponent(GetPlayerVehicleID(playerid),1049);
  672. AddVehicleComponent(GetPlayerVehicleID(playerid),1053);
  673. AddVehicleComponent(GetPlayerVehicleID(playerid),1010);
  674. AddVehicleComponent(GetPlayerVehicleID(playerid),1073);
  675. ChangeVehiclePaintjob(GetPlayerVehicleID(playerid),1);
  676. }
  677. return 1;
  678. }
  679.  
  680. //______________________________________________________________________________
  681.  
  682. CMD:ltc5( playerid, params[ ] )
  683. {
  684. if( P_DATA[ playerid ][ pVip ] < 1 )
  685. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 1 For Use This Command" );
  686.  
  687. if( P_DATA[ playerid ][ pVip ] >= 1 )
  688. {
  689. CarSpawner(playerid, 562);
  690. AddVehicleComponent(GetPlayerVehicleID(playerid),1088);
  691. AddVehicleComponent(GetPlayerVehicleID(playerid),1092);
  692. AddVehicleComponent(GetPlayerVehicleID(playerid),1139);
  693. AddVehicleComponent(GetPlayerVehicleID(playerid),1010);
  694. AddVehicleComponent(GetPlayerVehicleID(playerid),1073);
  695. ChangeVehiclePaintjob(GetPlayerVehicleID(playerid),1);
  696. }
  697. return 1;
  698. }
  699.  
  700. //______________________________________________________________________________
  701.  
  702. CMD:ltc6( playerid, params[ ] )
  703. {
  704. if( P_DATA[ playerid ][ pVip ] < 1 )
  705. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 1 For Use This Command" );
  706.  
  707. CarSpawner(playerid, 562);
  708. AddVehicleComponent(GetPlayerVehicleID(playerid), 1087);
  709. AddVehicleComponent(GetPlayerVehicleID(playerid), 1010);
  710. AddVehicleComponent(GetPlayerVehicleID(playerid), 1138);
  711. AddVehicleComponent(GetPlayerVehicleID(playerid), 1170);
  712. AddVehicleComponent(GetPlayerVehicleID(playerid), 1030);
  713. AddVehicleComponent(GetPlayerVehicleID(playerid), 1028);
  714. AddVehicleComponent(GetPlayerVehicleID(playerid), 1170);
  715. AddVehicleComponent(GetPlayerVehicleID(playerid), 1031);
  716. AddVehicleComponent(GetPlayerVehicleID(playerid), 1080);
  717. AddVehicleComponent(GetPlayerVehicleID(playerid), 1140);
  718. AddVehicleComponent(GetPlayerVehicleID(playerid), 1086);
  719. AddVehicleComponent(GetPlayerVehicleID(playerid), 1028);
  720. AddVehicleComponent(GetPlayerVehicleID(playerid), 1030);
  721. AddVehicleComponent(GetPlayerVehicleID(playerid), 1031);
  722. AddVehicleComponent(GetPlayerVehicleID(playerid), 1140);
  723. AddVehicleComponent(GetPlayerVehicleID(playerid), 1138);
  724. ChangeVehiclePaintjob(GetPlayerVehicleID(playerid),0);
  725. return 1;
  726. }
  727.  
  728. //______________________________________________________________________________
  729.  
  730. CMD:ltc7( playerid, params[ ] )
  731. {
  732. if( P_DATA[ playerid ][ pVip ] < 1 )
  733. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 1 For Use This Command" );
  734.  
  735. if( P_DATA[ playerid ][ pVip ] >= 1 )
  736. {
  737. CarSpawner(playerid, 562);
  738. AddVehicleComponent(GetPlayerVehicleID(playerid),1034);
  739. AddVehicleComponent(GetPlayerVehicleID(playerid),1038);
  740. AddVehicleComponent(GetPlayerVehicleID(playerid),1147);
  741. AddVehicleComponent(GetPlayerVehicleID(playerid),1010);
  742. AddVehicleComponent(GetPlayerVehicleID(playerid),1073);
  743. ChangeVehiclePaintjob(GetPlayerVehicleID(playerid),1);
  744. }
  745. return 1;
  746. }
  747.  
  748. //______________________________________________________________________________
  749.  
  750. CMD:ltc8( playerid, params[ ] )
  751. {
  752. if( P_DATA[ playerid ][ pVip ] < 1 )
  753. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 1 For Use This Command" );
  754.  
  755. if( P_DATA[ playerid ][ pVip ] >= 1 )
  756. {
  757. CarSpawner(playerid, 562);
  758. ChangeVehiclePaintjob(GetPlayerVehicleID(playerid),1);
  759. AddVehicleComponent(GetPlayerVehicleID(playerid),1109);
  760. AddVehicleComponent(GetPlayerVehicleID(playerid),1115);
  761. AddVehicleComponent(GetPlayerVehicleID(playerid),1117);
  762. AddVehicleComponent(GetPlayerVehicleID(playerid),1073);
  763. AddVehicleComponent(GetPlayerVehicleID(playerid),1010);
  764. AddVehicleComponent(GetPlayerVehicleID(playerid),1087);
  765. AddVehicleComponent(GetPlayerVehicleID(playerid),1114);
  766. AddVehicleComponent(GetPlayerVehicleID(playerid),1081);
  767. AddVehicleComponent(GetPlayerVehicleID(playerid),1119);
  768. AddVehicleComponent(GetPlayerVehicleID(playerid),1121);
  769. }
  770. return 1;
  771. }
  772.  
  773. //______________________________________________________________________________
  774.  
  775. CMD:ltc9( playerid, params[ ] )
  776. {
  777. if( P_DATA[ playerid ][ pVip ] < 1 )
  778. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 1 For Use This Command" );
  779.  
  780. if( P_DATA[ playerid ][ pVip ] >= 1 )
  781. {
  782. CarSpawner(playerid, 562);
  783. AddVehicleComponent(GetPlayerVehicleID(playerid),1092);
  784. AddVehicleComponent(GetPlayerVehicleID(playerid),1166);
  785. AddVehicleComponent(GetPlayerVehicleID(playerid),1165);
  786. AddVehicleComponent(GetPlayerVehicleID(playerid),1090);
  787. AddVehicleComponent(GetPlayerVehicleID(playerid),1094);
  788. AddVehicleComponent(GetPlayerVehicleID(playerid),1010);
  789. AddVehicleComponent(GetPlayerVehicleID(playerid),1087);
  790. AddVehicleComponent(GetPlayerVehicleID(playerid),1163);
  791. AddVehicleComponent(GetPlayerVehicleID(playerid),1091);
  792. ChangeVehiclePaintjob(GetPlayerVehicleID(playerid),2);
  793. }
  794. return 1;
  795. }
  796.  
  797. //______________________________________________________________________________
  798.  
  799. CMD:ltc10( playerid, params[ ] )
  800. {
  801. if( P_DATA[ playerid ][ pVip ] < 1 )
  802. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 1 For Use This Command" );
  803.  
  804. if( P_DATA[ playerid ][ pVip ] >= 1 )
  805. {
  806. CarSpawner(playerid, 562);
  807. AddVehicleComponent(GetPlayerVehicleID(playerid),1034);
  808. AddVehicleComponent(GetPlayerVehicleID(playerid),1038);
  809. AddVehicleComponent(GetPlayerVehicleID(playerid),1147);
  810. AddVehicleComponent(GetPlayerVehicleID(playerid),1010);
  811. AddVehicleComponent(GetPlayerVehicleID(playerid),1073);
  812. ChangeVehiclePaintjob(GetPlayerVehicleID(playerid),0);
  813. }
  814. return 1;
  815. }
  816.  
  817. //________________________________VIP Level 2 Commands__________________________
  818.  
  819. CMD:god( playerid , params[ ] )
  820. {
  821. if( P_DATA[ playerid ][ pVip ] < 2 )
  822. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 2 For Use This Command" );
  823.  
  824. if( P_DATA[ playerid ][ pVip ] >= 2 )
  825. {
  826. if( P_DATA[ playerid ][ vGod ] == 0 )
  827. {
  828. P_DATA[ playerid ][ vGod ] = 1 ;
  829.  
  830. SetPlayerHealth( playerid , 999999 );
  831. SetPlayerArmour( playerid , 999999 );
  832. SendClientMessage( playerid , -1 , ""R"GODMODE "O"ON" );
  833.  
  834. new
  835. Query[ 256 ];
  836.  
  837. format( Query , sizeof Query , "UPDATE 'Vips' SET 'God' = '%d' WHERE 'Name' = '%s'", P_DATA[ playerid ][ vGod ], vName( playerid ) );
  838. db_free_result( db_query( Vips , Query ) ) ;
  839.  
  840. }
  841. else
  842. {
  843. P_DATA[ playerid ][ vGod ] = 0;
  844. SendClientMessage( playerid , -1 , ""R"GODMODE "O"OFF" );
  845.  
  846. SetPlayerHealth( playerid , 100 );
  847.  
  848. new
  849. Query[ 256 ];
  850.  
  851. format( Query , sizeof Query , "UPDATE 'Vips' SET 'God' = '%d' WHERE 'Name' = '%s'", P_DATA[ playerid ][ vGod ], vName( playerid ) );
  852. db_free_result( db_query( Vips , Query ) ) ;
  853.  
  854. }
  855. }
  856.  
  857. return 1;
  858. }
  859.  
  860. //______________________________________________________________________________
  861.  
  862. CMD:vgod( playerid , params[ ] )
  863. {
  864. new
  865. vehicleid;
  866.  
  867. vehicleid = GetPlayerVehicleID( playerid );
  868.  
  869. if( P_DATA[ playerid ][ pVip ] < 2 )
  870. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 2 For Use This Command" );
  871.  
  872. if( P_DATA[ playerid ][ pVip ] >= 2 )
  873. {
  874. if( P_DATA[ playerid ][ vCarGod ] == 0 )
  875. {
  876. P_DATA[ playerid ][ vCarGod ] = 1 ;
  877.  
  878. SetVehicleHealth( vehicleid , 999999 );
  879. SendClientMessage( playerid , -1 , ""R"GODMODECAR "O"ON" );
  880. }
  881. else
  882. {
  883. SendClientMessage( playerid , -1 , ""R"GODMODECAR "O"OFF" );
  884. P_DATA[ playerid ][ vCarGod ] = 0 ;
  885. SetVehicleHealth( vehicleid , 100 );
  886. }
  887. }
  888.  
  889. return 1;
  890. }
  891.  
  892. //______________________________________________________________________________
  893.  
  894. CMD:vannounce( playerid , params[ ] )
  895. {
  896. if( P_DATA[ playerid ][ pVip ] < 2 )
  897. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 2 For Use This Command" );
  898.  
  899. if( P_DATA[ playerid ][ pVip ] >= 2 )
  900. {
  901. if( sscanf ( params , "s[128]" , params[ 0 ] ) )
  902. return SendClientMessage( playerid , -1 , ""R"Usage: "O"/vannounce [ text ] " );
  903.  
  904. GameTextForAll( params[ 0 ], 6000 , 1 );
  905.  
  906. }
  907.  
  908. return 1;
  909. }
  910.  
  911. //______________________________________________________________________________
  912.  
  913. CMD:vcar( playerid , params[ ] )
  914. {
  915. if( P_DATA[ playerid ][ pVip ] < 2 )
  916. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 2 For Use This Command" );
  917.  
  918. if( P_DATA[ playerid ][ pVip ] >= 2 )
  919. {
  920. new
  921. Float: X ,
  922. Float: Y ,
  923. Float: Z ,
  924. Float: A ,
  925. C ;
  926.  
  927. if( P_DATA[ playerid ][ pVip ] < 2 )
  928. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 2 For Use This Command" );
  929.  
  930. if( IsPlayerInAnyVehicle( playerid ) )
  931. return SendClientMessage( playerid , -1 , ""R"ERROR: You Have A Vehicle !" );
  932.  
  933. GetPlayerPos( playerid , X , Y , Z );
  934. GetPlayerFacingAngle( playerid , A );
  935. C = CreateVehicle( playerid , X , Y, Z, A, 0, 0, 0 ); // Buffalo
  936. PutPlayerInVehicle( playerid , C, 0 );
  937. }
  938.  
  939. return 1;
  940. }
  941.  
  942. //______________________________________________________________________________
  943.  
  944. CMD:rw( playerid , params[ ] )
  945. {
  946. if( P_DATA[ playerid ][ pVip ] < 2 )
  947. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 2 For Use This Command" );
  948.  
  949. if( P_DATA[ playerid ][ pVip ] >= 2 )
  950. {
  951. GivePlayerWeapon( playerid, 4, 1); //Knife
  952. GivePlayerWeapon( playerid, 28, 1000); // Micro - SMG
  953. GivePlayerWeapon( playerid, 26, 100); // Sawn-off Shotgun
  954. GivePlayerWeapon( playerid, 22, 500); // 9mm Pistol
  955. }
  956.  
  957. return 1 ;
  958. }
  959.  
  960. //______________________________________________________________________________
  961.  
  962. CMD:vkick( playerid , params[ ] )
  963. {
  964. if( P_DATA[ playerid ][ pVip ] < 2 )
  965. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 2 For Use This Command" );
  966.  
  967. if( !IsPlayerConnected( playerid ) )
  968. return SendClientMessage( playerid , -1 , ""O"Player Not Connected" );
  969.  
  970. if( P_DATA[ playerid ][ pVip ] >= 2 )
  971. {
  972. new
  973. vKicked,
  974. vReason[ 129 ],
  975. V_Str[ 256 ];
  976.  
  977. if( sscanf( params, "us[128]", vKicked, vReason ) )
  978. return SendClientMessage( playerid , -1 , ""R"Usage: "O"/vkick [ playerid ] [ reason ]" );
  979.  
  980. if( !strlen( vReason ) )
  981. {
  982. format( V_Str , sizeof V_Str , ""R"%s "O"has been kicked by "R"%s "O"[ no reason give ] ", vName( vKicked ), vName( playerid ) );
  983. SendClientMessageToAll( -1 , V_Str );
  984.  
  985. Kick( vKicked );
  986. }
  987. else
  988. {
  989. format( V_Str , sizeof V_Str , ""R"%s "O"has been kicked by "R"%s "O"[ Reason: %s ] ", vName( vKicked ), vName( playerid ), vReason );
  990. SendClientMessageToAll( -1 , V_Str );
  991.  
  992. Kick( vKicked );
  993. }
  994. }
  995.  
  996. return 1;
  997. }
  998.  
  999. //______________________________________________________________________________
  1000.  
  1001. CMD:mycolor( playerid, params[ ] )
  1002. {
  1003.  
  1004. if( P_DATA[ playerid ][ pVip ] < 2 )
  1005. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 2 For Use This Command" );
  1006.  
  1007. if ( P_DATA[ playerid ][ pVip ] >= 2 )
  1008. {
  1009. new Culoare,
  1010. Colour[ 24 ];
  1011.  
  1012. if ( sscanf( params, "d", Culoare ) )
  1013. return SendClientMessage( playerid, -1 , ""R"/mycolor "O"[color] 0 = Black | 1 = White | 2 = Red | 3 = Orange | 4 = Yellow | 5 = Green | 6 = Blue | 7 = Purple | 8 = Brown" );
  1014.  
  1015. if ( Culoare > 8 )
  1016. return SendClientMessage( playerid, -1, "O""Colours: 0 = Black | 1 = White | 2 = Red | 3 = Orange | 4 = Yellow | 5 = Green | 6 = Blue | 7 = Purple | 8 = Brown" );
  1017.  
  1018. switch ( Culoare )
  1019. {
  1020. case 0:
  1021. {
  1022. SetPlayerColor( playerid, 0x000000AA ); Colour = "Black";
  1023. }
  1024. case 1:
  1025. {
  1026. SetPlayerColor( playerid, 0xFFFFFFAA ); Colour = "White";
  1027. }
  1028. case 2:
  1029. {
  1030. SetPlayerColor( playerid, 0xE60000AA ); Colour = "Red";
  1031. }
  1032. case 3:
  1033. {
  1034. SetPlayerColor( playerid, 0xFF5500AA ); Colour = "Orange";
  1035. }
  1036. case 4:
  1037. {
  1038. SetPlayerColor( playerid, 0xFFFF00AA ); Colour = "Yellow";
  1039. }
  1040. case 5:
  1041. {
  1042. SetPlayerColor( playerid, 0x00FF00AA ); Colour = "Green"; }
  1043. case 6:
  1044. {
  1045. SetPlayerColor( playerid, 0x0000BBAA ); Colour = "Blue"; }
  1046. case 7:
  1047. {
  1048. SetPlayerColor( playerid, 0x800080AA ); Colour = "Purple";
  1049. }
  1050. case 8:
  1051. {
  1052. SetPlayerColor( playerid, 0xA52A2AAA ); Colour = "Brown";
  1053. }
  1054. }
  1055. }
  1056.  
  1057. return 1;
  1058. }
  1059.  
  1060. //______________________________________________________________________________
  1061.  
  1062. CMD:vw( playerid , params[ ] )
  1063. {
  1064. if( P_DATA[ playerid ][ pVip ] < 2 )
  1065. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 2 For Use This Command" );
  1066.  
  1067. if ( P_DATA[ playerid ][ pVip ] >= 2 )
  1068. {
  1069. new
  1070. VW,
  1071. vString[ 200 ];
  1072.  
  1073. if( sscanf ( params , "i" , VW ) )
  1074. return SendClientMessage( playerid , -1 , ""R"Usage: "O"/vw [ world ]" );
  1075.  
  1076. if( VW > 999999 )
  1077. return SendClientMessage( playerid , -1 , ""O"Invalid Virtual World" );
  1078.  
  1079. if( IsPlayerInAnyVehicle( playerid ))
  1080. {
  1081. SetVehicleVirtualWorld( GetPlayerVehicleID( playerid ) , VW );
  1082. SetPlayerVirtualWorld( playerid , VW );
  1083.  
  1084. format( vString , sizeof vString , ""O"You Have Set Your World To "R"%d" , VW );
  1085. SendClientMessageToAll( -1 , vString );
  1086. }
  1087. else
  1088. {
  1089. SetPlayerVirtualWorld( playerid , VW );
  1090.  
  1091. format( vString , sizeof vString , ""O"You Have Set Your World To "R"%d" , VW );
  1092. SendClientMessageToAll( -1 , vString );
  1093. }
  1094. }
  1095.  
  1096. return 1 ;
  1097. }
  1098.  
  1099. //______________________________________________________________________________
  1100.  
  1101. CMD:invitevw( playerid , params[ ] )
  1102. {
  1103. if( P_DATA[ playerid ][ pVip ] < 2 )
  1104. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 2 For Use This Command" );
  1105.  
  1106. if ( P_DATA[ playerid ][ pVip ] >= 2 )
  1107. {
  1108. new
  1109. Player,
  1110. vwString[ 300 ];
  1111.  
  1112. if( sscanf ( params , "u", Player ) )
  1113. return SendClientMessage( playerid , -1 , ""R"Usage: "O"/invitevw [ playerid ]" );
  1114.  
  1115. if( !IsPlayerConnected( Player ) )
  1116. return SendClientMessage( playerid, -1 , ""R"Player not connected!");
  1117.  
  1118. format( vwString , sizeof vwString , ""O"%s ( %d ) invited you to enter in %d "O"Virtual World ( "R"VW "O") " , vName( playerid ) , playerid , GetPlayerVirtualWorld( playerid ) );
  1119. SendClientMessageToAll( -1 , vwString );
  1120.  
  1121. format( vwString , sizeof vwString , ""R"Use "O"/vw [ %d ] to enter in "R"%s's "O"Virtual World ( "R"VW "O") ", GetPlayerVirtualWorld( playerid ) , vName( playerid ) );
  1122. SendClientMessageToAll( -1 , vwString );
  1123. }
  1124.  
  1125. return 1;
  1126. }
  1127.  
  1128. //________________________________VIP Level 3 Commands__________________________
  1129.  
  1130. CMD:vwarn( playerid , params[ ] )
  1131. {
  1132. if( P_DATA[ playerid ][ pVip ] < 3 )
  1133. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 3 For Use This Command" );
  1134.  
  1135. if ( P_DATA[ playerid ][ pVip ] >= 3 )
  1136. {
  1137. new
  1138. Player,
  1139. V_Str[ 256 ],
  1140. vReason[ 126 ];
  1141.  
  1142. if( sscanf( params , "us[126]", Player, vReason ) )
  1143. return SendClientMessage( playerid , -1 , ""R"Usage: "O"/vwarn [ playerid ] [ reason ]" );
  1144.  
  1145. if( P_DATA[ playerid ][ pVip ] > P_DATA[ playerid ][ pVip ] )
  1146. return SendClientMessage( playerid , -1 , ""O"You can't use this command on a VIP" );
  1147.  
  1148. if( !IsPlayerConnected( Player ) )
  1149. return SendClientMessage( playerid , -1 , ""R"Error: Player Not Connected" );
  1150.  
  1151. P_DATA[ Player ][ Warn ] ++ ;
  1152.  
  1153. format( V_Str , sizeof V_Str , ""R"%s "O"got a warn from "R"VIP %s ! "O"[ Reason : %s ] ", vName( Player ) , vName( playerid ) , vReason );
  1154. SendClientMessageToAll( -1 , V_Str );
  1155. }
  1156.  
  1157. return 1;
  1158. }
  1159.  
  1160. //______________________________________________________________________________
  1161.  
  1162. CMD:vunwarn( playerid , params[ ] )
  1163. {
  1164. if( P_DATA[ playerid ][ pVip ] < 3 )
  1165. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 3 For Use This Command" );
  1166.  
  1167. if ( P_DATA[ playerid ][ pVip ] >= 3 )
  1168. {
  1169. new
  1170. Player,
  1171. V_Str[ 256 ],
  1172. vReason[ 126 ];
  1173.  
  1174. if( sscanf( params , "us[126]", Player, vReason ) )
  1175. return SendClientMessage( playerid , -1 , ""R"Usage: "O"/vumwarn [ playerid ] [ reason ]" );
  1176.  
  1177. if( P_DATA[ playerid ][ pVip ] > P_DATA[ playerid ][ pVip ] )
  1178. return SendClientMessage( playerid , -1 , ""O"You can't use this command on a VIP" );
  1179.  
  1180. if( !IsPlayerConnected( Player ) )
  1181. return SendClientMessage( playerid , -1 , ""R"Error: Player Not Connected" );
  1182.  
  1183. P_DATA[ Player ][ Warn ] -- ;
  1184.  
  1185. format( V_Str , sizeof V_Str , ""R"%s "O"got a unwarn from "R"VIP %s ! "O"[ Reason : %s ] ", vName( Player ) , vName( playerid ) , vReason );
  1186. SendClientMessageToAll( -1 , V_Str );
  1187. }
  1188.  
  1189. return 1;
  1190. }
  1191.  
  1192. //______________________________________________________________________________
  1193.  
  1194. CMD:vgoto( playerid , params[ ] )
  1195. {
  1196. new
  1197. Player,
  1198. V_Str[ 128 ],
  1199. Float:x,
  1200. Float:y,
  1201. Float:z;
  1202.  
  1203. if( P_DATA[ playerid ][ pVip ] < 3 )
  1204. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 3 For Use This Command" );
  1205.  
  1206. if( !IsPlayerConnected( playerid ) )
  1207. return SendClientMessage( playerid , -1 , ""O"Player Not Connected" );
  1208.  
  1209.  
  1210. if ( P_DATA[ playerid ][ pVip ] >= 3 )
  1211. {
  1212. if ( sscanf( params, "u", Player ) )
  1213. return SendClientMessage( playerid, -1, ""R"Usage: "O"/vipgoto [ playerid ]" );
  1214.  
  1215. GetPlayerPos( Player , x , y , z );
  1216. SetPlayerInterior( playerid , GetPlayerInterior( Player ) );
  1217. SetPlayerVirtualWorld( playerid , GetPlayerVirtualWorld( Player ) );
  1218. if ( IsPlayerConnected( Player ) && Player != INVALID_PLAYER_ID && Player != playerid )
  1219. {
  1220. if ( GetPlayerState( playerid ) == PLAYER_STATE_DRIVER )
  1221. {
  1222. SetVehiclePos( GetPlayerVehicleID( playerid ) , x+3 , y , z );
  1223. LinkVehicleToInterior( GetPlayerVehicleID( playerid ), GetPlayerInterior( Player ) );
  1224. SetVehicleVirtualWorld( GetPlayerVehicleID( playerid ), GetPlayerVirtualWorld( Player ) );
  1225. format( V_Str , sizeof V_Str , ""O"You have teleported to "R"%s's "O"location!" , vName( Player ) );
  1226. SendClientMessage( playerid ,-1 ,V_Str );
  1227. format( V_Str, sizeof V_Str , ""O"V.I.P "R"%s(%d) "O"has teleported to your location!", vName( playerid ), P_DATA[ playerid ][ pVip ] );
  1228. SendClientMessage( Player, -1, V_Str );
  1229. }
  1230. else
  1231. {
  1232. SetPlayerPos( playerid , x+2 , y , z );
  1233. format( V_Str, sizeof V_Str , ""O"V.I.P "R"%s(%d) "O"has teleported to your location!", vName( playerid ), P_DATA[ playerid ][ pVip ] );
  1234. SendClientMessage( Player, -1, V_Str );
  1235. format( V_Str , sizeof V_Str , ""O"You have teleported to "R"%s's "O"location!" , vName( Player ) );
  1236. SendClientMessage( playerid ,-1 ,V_Str );
  1237. }
  1238. }
  1239. }
  1240.  
  1241. return 1;
  1242. }
  1243.  
  1244. //______________________________________________________________________________
  1245.  
  1246. CMD:vget( playerid, params[ ] )
  1247. {
  1248. if( P_DATA[ playerid ][ pVip ] < 3 )
  1249. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have VIP Level 3 For Use This Command" );
  1250.  
  1251. if( !IsPlayerConnected( playerid ) )
  1252. return SendClientMessage( playerid , -1 , ""O"Player Not Connected" );
  1253.  
  1254.  
  1255. if ( P_DATA[ playerid ][ pVip ] >= 3 )
  1256. {
  1257.  
  1258. new
  1259. Player,
  1260. Float:x,
  1261. Float:y,
  1262. Float:z ;
  1263.  
  1264. if ( sscanf( params, "u", Player ) )
  1265. return SendClientMessage( playerid, -1, ""O"USAGE: "R"/get [ PlayerID ]" );
  1266.  
  1267. if ( !IsPlayerConnected( Player ) )
  1268. return SendClientMessage( playerid, -1, ""R"Error: Player not connected!");
  1269.  
  1270. if ( Player == playerid )
  1271. return SendClientMessage( playerid, -1, ""O"You can't teleport to yourself !" );
  1272.  
  1273. GetPlayerPos( playerid, x, y, z );
  1274. SetPlayerInterior( Player, GetPlayerInterior( playerid ) );
  1275. SetPlayerVirtualWorld( Player, GetPlayerVirtualWorld( playerid ) );
  1276.  
  1277. if ( GetPlayerState( Player ) == 2 )
  1278. {
  1279. new VehicleID = GetPlayerVehicleID( Player );
  1280. SetVehiclePos( VehicleID, x+3, y, z );
  1281. LinkVehicleToInterior( VehicleID, GetPlayerInterior( playerid ) );
  1282. SetVehicleVirtualWorld( GetPlayerVehicleID( Player ), GetPlayerVirtualWorld( playerid ) );
  1283. }
  1284. else SetPlayerPos( Player, x+2, y, z );
  1285. fSCM( Player, -1, "You have been teleported to \"%s's\" location", vName( playerid ) );
  1286. fSCM( playerid, -1, "You have teleported \"%s\" to your location", vName( Player ) );
  1287. }
  1288.  
  1289. return 1;
  1290. }
  1291.  
  1292. //_____________________________________RCON COMMANDS____________________________
  1293.  
  1294. CMD:setvip( playerid , params[ ] )
  1295. {
  1296. new
  1297. Player,
  1298. Amount,
  1299. V_Str[ 256 ],
  1300. Query[ 256 ],
  1301. DBResult:Result;
  1302.  
  1303. if( !IsPlayerAdmin( playerid ) )
  1304. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have "R"RCON "O"For Use This Command" );
  1305.  
  1306. if( Amount > 3 )
  1307. return SendClientMessage( playerid , -1, ""R"ERROR: "O"This VIP Level Doesn't exists" );
  1308.  
  1309. format( Query , sizeof Query , "SELECT * FROM 'Vips' WHERE 'Name' = '%s'", vName( playerid ) ) ;
  1310. Result = db_query( Vips , Query ) ;
  1311.  
  1312. if ( !db_num_rows( Result ) )
  1313. {
  1314. if( IsPlayerAdmin( playerid ) )
  1315. {
  1316.  
  1317. if( sscanf ( params , "ud" , Player , Amount ) )
  1318. return SendClientMessage( playerid , -1 ,""R"Usage: "O"/setvip [ "R"playerid ] [ amount ]" );
  1319.  
  1320. P_DATA[ playerid ][ pVip ] = Amount ;
  1321.  
  1322. format( V_Str , sizeof V_Str , ""O"RCON ADMINISTRATOR "R"%s "O" set %s "R"VIP Level "O"to "R"%d", vName( playerid ), vName( Player ), Amount );
  1323. SendClientMessageToAll( -1 , V_Str );
  1324.  
  1325. format( Query , sizeof Query, "INSERT INTO 'Vips' VALUES( '%s', '%d')", vName( Player ), Amount );
  1326. db_free_result( db_query( Vips, Query ) );
  1327. }
  1328. else
  1329. {
  1330. P_DATA[ playerid ][ pVip ] = Amount ;
  1331.  
  1332. format( V_Str , sizeof V_Str, ""O"Administrator "R"%s "O"update your VIP level to %d !", vName( playerid ) , Amount );
  1333. SendClientMessage( playerid , -1 , V_Str );
  1334.  
  1335. format( Query , sizeof Query , "UPDATE 'Vips' SET 'Vip' = '%d' WHERE 'Name' = '%s'", Amount, vName( Player ) ) ;
  1336. db_free_result( db_query( Vips , Query ) );
  1337. }
  1338. }
  1339. return 1;
  1340. }
  1341.  
  1342. //______________________________________________________________________________
  1343.  
  1344. CMD:crash( playerid , params[ ] )
  1345. {
  1346. new
  1347. Player,
  1348. V_Str[ 256 ];
  1349.  
  1350. if( !IsPlayerAdmin( playerid ) )
  1351. return SendClientMessage( playerid , -1, ""R"ERROR: "O"You Don't Have "R"RCON "O"For Use This Command" );
  1352.  
  1353. if( IsPlayerAdmin( playerid ) )
  1354. {
  1355. if( sscanf ( params , "u" , Player ) )
  1356. return SendClientMessage( playerid , -1 ,""R"Usage: "O"/crash [ "R"playerid ]" );
  1357.  
  1358. SendClientMessage( Player , -1 , "%s is a good player " );
  1359.  
  1360. format( V_Str , sizeof V_Str , ""R"%s "O"a luat "R"cRaSh "O"din cauza ca e retard xD" , vName( Player ) );
  1361. SendClientMessageToAll( -1 , V_Str );
  1362. }
  1363.  
  1364. return 1;
  1365. }
  1366.  
  1367. //________________________________END OF SCRIPT_________________________________
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!