Advertisement
Guest User

Untitled

a guest
Nov 22nd, 2014
136
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.58 KB | None | 0 0
  1. command
  2. else if ( ( cmd == "spawnwep" ) || ( cmd == "spawnwe" ) )
  3. {
  4. try{
  5. if ( text == "del" ) SpawnWeDel( player );
  6. else if ( !text ) ::PrivMessage( "Error - Missing Information, Spawnwep Weapon(1/4)", player );
  7. else if ( !player.IsSpawned ) ::PrivMessage( "Error - you need to spawn.", player );
  8. else if ( SearchSWep( player ) == "1" ) ::PrivMessage( "Error - you have already weapons in your spawned, use !Spawnwe del", player );
  9. else
  10. {
  11. local Weapon1 = GetTok( text, " ", 1 ), Weapon2 = GetTok( text, " ", 2 ), Weapon3 = GetTok( text, " ", 3 ), Weapon4 = GetTok( text, " ", 4 ), w1, w2, w3, w4;
  12. if ( Weapon1 && IsNum( Weapon1 ) ) w1 = Weapon1.tointeger();
  13. else if ( Weapon1 ) w1 = GetWeaponID( Weapon1 );
  14. if ( Weapon2 && IsNum( Weapon2 ) ) w2 = Weapon2.tointeger();
  15. else if ( Weapon2 ) w2= GetWeaponID( Weapon2 );
  16. if ( ( Weapon3 ) && IsNum( Weapon3 ) ) w3 = Weapon3.tointeger();
  17. else if ( Weapon3 ) w3 = GetWeaponID( Weapon3 );
  18. if ( Weapon4 && IsNum( Weapon4 ) ) w4 = Weapon4.tointeger();
  19. else if ( Weapon4 ) w4 = GetWeaponID( Weapon4 );
  20.  
  21. if ( !w1 ) ::PrivMessage( "Error - Min of weapons is 1.", player );
  22. else if ( !ValidWep( w1 ) ) ::PrivMessage( "Error - Invalid Weapon 1 ID/Name.", player );
  23. else if ( !ValidWep( w2 ) ) ::PrivMessage( "Error - Invalid Weapon 2 ID/Name.", player );
  24. else if ( !ValidWep( w3 ) ) ::PrivMessage( "Error - Invalid Weapon 3 ID/Name.", player );
  25. else if ( !ValidWep( w4 ) ) ::PrivMessage( "Error - Invalid Weapon 4 ID/Name.", player );
  26. else
  27. {
  28. QuerySQL( data, format( "REPLACE INTO SpawnWep (Name) VALUES ('%s')", player.Name ) );
  29. if ( ( w1 ) && ( !w2 ) && ( !w3 ) && ( !w4 ) ) SetSpawnWep( player, w1, null, null, null );
  30. else if ( ( w1 ) && ( w2 ) && ( !w3 ) && ( !w4 ) ) SetSpawnWep( player, w1, w2, null, null );
  31. else if ( ( w1 ) && ( w2 ) && ( w3 ) && ( !w4 ) ) SetSpawnWep( player, w1, w2, w3, null );
  32. else if ( ( w1 ) && ( w2 ) && ( w3 ) && ( w4 ) ) SetSpawnWep( player, w1, w2, w3, w4 );
  33. }
  34. }
  35. }
  36. catch(e) print("SpawnWep - Error: " + e);
  37. }
  38. functions
  39. // ===== Function Spawn - Wep =====
  40. }
  41. function SetSpawnWep( player, w1, w2, w3, w4 )
  42. {
  43. local name = player.Name;
  44. if ( w1 ) ::QuerySQL( data, format( "UPDATE SpawnWep SET Wep1='" + w1 + "' WHERE Name='" + name + "' COLLATE NOCASE" ) );
  45. if ( w2 ) ::QuerySQL( data, format( "UPDATE SpawnWep SET Wep2='" + w2 + "' WHERE Name='" + name + "' COLLATE NOCASE" ) );
  46. if ( w3 ) ::QuerySQL( data, format( "UPDATE SpawnWep SET Wep3='" + w3 + "' WHERE Name='" + name + "' COLLATE NOCASE" ) );
  47. if ( w4 ) ::QuerySQL( data, format( "UPDATE SpawnWep SET Wep4='" + w4 + "' WHERE Name='" + name + "' COLLATE NOCASE" ) );
  48. if ( w1 ) ::PrivMessage( "Weapon spawn. loaded packed!", player );
  49. else
  50. {
  51. ::PrivMessage( "Error - you can only set three weapons", player );
  52. ::PrivMessage( "Use !Spawnwep Del,.to delete your auto spawn weapons!", player );
  53. }
  54. }
  55.  
  56. function SearchSWep( player )
  57. {
  58. local q = ::QuerySQL( data, "SELECT Name FROM SpawnWep WHERE Name='" + player.Name + "' COLLATE NOCASE" );
  59. local Wep = ::GetSQLColumnData( q, 0 );
  60. if ( Wep ) return "1";
  61. else return "0";
  62. FreeSQLQuery( q );
  63. }
  64.  
  65. function SpawnWeDel( player )
  66. {
  67. local q = ::QuerySQL( data, "SELECT Name FROM SpawnWep WHERE Name='" + player.Name + "' COLLATE NOCASE" );
  68. local Wep = ::GetSQLColumnData( q, 0 );
  69. if ( Wep )
  70. {
  71. ::QuerySQL( data, "DELETE FROM SpawnWep WHERE Name='" + player.Name + "' COLLATE NOCASE" );
  72. ::PrivMessage( "You weapons are successfully deleted.", player );
  73. }
  74. else ::PrivMessage( "Error - you have no slots to used in spawnweapon", player );
  75. FreeSQLQuery( q );
  76. }
  77.  
  78. function SpawnWeapon( player )
  79. {
  80. local wep = 1, q = ::QuerySQL( data, "SELECT Name, Wep1, Wep2, Wep3, Wep4 FROM SpawnWep WHERE Name='" + player.Name + "' COLLATE NOCASE" );
  81. local name = ::GetSQLColumnData( q, 0 ), wep1 = ::GetSQLColumnData( q, 1 ), wep2 = ::GetSQLColumnData( q, 2 ), wep3 = ::GetSQLColumnData( q, 3 ), wep4 = ::GetSQLColumnData( q, 4 );
  82. if ( name )
  83. {
  84. player.SetWeapon( 0, 1 );
  85. if ( wep1 ) player.SetWeapon( wep1, 99999 );
  86. if ( wep2 ) player.SetWeapon( wep2, 99999 );
  87. if ( wep3 ) player.SetWeapon( wep3, 99999 );
  88. if ( wep4 ) player.SetWeapon( wep4, 99999 );
  89. if ( wep1 ) ::PrivMessage( "Successfully, You got your spawn weapons!!.", player );
  90. }
  91. FreeSQLQuery( q );
  92. }
  93. // ===== Function Spawn - Wep ( End ) =======
  94. table
  95. QuerySQL( data, "CREATE TABLE IF NOT EXISTS SpawnWep ( Name TEXT, Wep1 NUMERIC, Wep2 NUMERIC, Wep3 NUMERIC, Wep4 NUMERIC )" );
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement