API tools faq
paste
Guest User

Untitled

a guest
Jan 29th, 2018
32
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 29.22 KB | None | 0 0
raw download clone embed print report
  1. ::sX <- GUI.GetScreenSize().X;
  2. ::sY <- GUI.GetScreenSize().Y;
  3. ::ProgressBar1 <- null;
  4.  
  5. SGUI <- null;
  6. SPVehicle <- null;
  7.  
  8. HColor <- {
  9. mgreen = "[#00cc00]",
  10. red = "[#ff0000]"
  11. }
  12. VectorScreen.rawnewmember("Round", ::floor, null, true);
  13.  
  14. VectorScreen.rawnewmember("Relative", function(x, y) {
  15. return VectorScreen(Round(x * ::sX), Round(y * ::sY));
  16. }, null, true);
  17.  
  18. KeyBind1 <- KeyBind(0x7B);
  19.  
  20. ::windowA <- null;
  21. ::labelAA <- null;
  22. ::editboxA <- null;
  23. ::labelAB <- null;
  24. ::labelCA <- null;
  25. ::labelCB <- null;
  26. ::editboxC <- null;
  27. ::labelDA <- null;
  28. ::labelDB <- null;
  29. ::editboxD <- null;
  30. ::buttonA <- null;
  31. ::buttonB <- null;
  32. ::errorB <- null;
  33. ::errorC <- null;
  34.  
  35. ::windowB <- null;
  36. ::labelAAA <- null;
  37. ::labelABA <- null;
  38. ::editboxAA <- null;
  39. ::labelCAA <- null;
  40. ::labelCBA <- null;
  41. ::editboxCA <- null;
  42. ::buttonAA <- null;
  43. ::buttonBA <- null;
  44. ::errorBA <- null;
  45.  
  46. ::windowC <- null;
  47. ::labelA1 <- null;
  48. ::labelA2 <- null;
  49. ::labelA3 <- null;
  50. ::labelA4 <- null;
  51. ::listboxA1 <- null;
  52. ::listboxA2 <- null;
  53. ::listboxA3 <- null;
  54. ::listboxA4 <- null;
  55. ::labelA5 <- null;
  56. ::labelA6 <- null;
  57. ::labelA7 <- null;
  58. ::labelA8 <- null;
  59. ::listboxA5 <- null;
  60. ::listboxA6 <- null;
  61. ::listboxA7 <- null;
  62. ::listboxA8 <- null;
  63. ::buttonS1 <- null;
  64. ::buttonS2 <- null;
  65. ::buttonS3 <- null;
  66. ::buttonS4 <- null;
  67.  
  68. ::registered <- false;
  69. ::logged <- false;
  70. ::lattempts <- 3;
  71. ::activatespawnweps <- false;
  72.  
  73. ::set1 <- 0;
  74. ::set2 <- 0;
  75. ::set3 <- 0;
  76. ::set4 <- 0;
  77. ::set5 <- 0;
  78. ::set6 <- 0;
  79. ::set7 <- 0;
  80. ::set8 <- 0;
  81. ::fset1 <- 0;
  82. ::fset2 <- 0;
  83. ::fset3 <- 0;
  84. ::fset4 <- 0;
  85. ::fset5 <- 0;
  86. ::fset6 <- 0;
  87. ::fset7 <- 0;
  88. ::fset8 <- 0;
  89.  
  90. function Register(player, pass)
  91. {
  92. local msg = Stream();
  93. msg.WriteInt(3);
  94. msg.WriteInt(player.ID);
  95. msg.WriteString(pass);
  96. Server.SendData(msg);
  97. }
  98.  
  99. function GUI::WindowClose(window) //Event for window closing
  100. {
  101. if (window == windowC) //Make sure that the window is the testing window
  102. {
  103. dddd();
  104. GUI.MouseEnabled(false); //Hide the cursor
  105. }
  106. }
  107. function dddd()
  108. {
  109. if (::windowC != null)
  110. {
  111. listboxA1.Clean();
  112. listboxA2.Clean();
  113. listboxA3.Clean();
  114. listboxA4.Clean();
  115. listboxA5.Clean();
  116. listboxA6.Clean();
  117. listboxA7.Clean();
  118. listboxA8.Clean();
  119.  
  120. ::windowC <- null;
  121. ::labelA1 <- null;
  122. ::labelA2 <- null;
  123. ::labelA3 <- null;
  124. ::labelA4 <- null;
  125. ::listboxA1 <- null;
  126. ::listboxA2 <- null;
  127. ::listboxA3 <- null;
  128. ::listboxA4 <- null;
  129. ::labelA5 <- null;
  130. ::labelA6 <- null;
  131. ::labelA7 <- null;
  132. ::labelA8 <- null;
  133. ::listboxA5 <- null;
  134. ::listboxA6 <- null;
  135. ::listboxA7 <- null;
  136. ::listboxA8 <- null;
  137. ::buttonS1 <- null;
  138. ::buttonS2 <- null;
  139. ::buttonS3 <- null;
  140. ::buttonS4 <- null;
  141. GUI.SetMouseEnabled(false)
  142. }
  143.  
  144. }
  145. function csws()
  146. {
  147. if (::windowC == null && ::registered == true && ::logged == true)
  148. {
  149. ::windowC = GUIWindow(VectorScreen.Relative( 0.22, 0.15 ), VectorScreen.Relative( 0.55, 0.7), Colour(50, 50, 50, 200), "[#ffffff]Spawnweps Selection Menu", GUI_FLAG_TEXT_TAGS);
  150. windowC.TitleColour = Colour(10,10,10)
  151. windowC.FontName = "Tahoma";
  152. windowC.FontSize = sX * 0.01;
  153. windowC.FontFlags = GUI_FFLAG_BOLD;
  154. windowC.RemoveFlags(GUI_FLAG_WINDOW_CLOSEBTN);
  155.  
  156. ::labelA1 = GUILabel(VectorScreen.Relative(0.038, 0.035), Colour(255, 255, 255, 220), "Melee Weapons");
  157. ::labelA2 = GUILabel(VectorScreen.Relative(0.185, 0.035), Colour(255, 255, 255, 220), "Projectiles");
  158. ::labelA3 = GUILabel(VectorScreen.Relative(0.315, 0.035), Colour(255, 255, 255, 220), "Handguns");
  159. ::labelA4 = GUILabel(VectorScreen.Relative(0.445, 0.035), Colour(255, 255, 255, 220), "Shotguns");
  160. ::labelA5 = GUILabel(VectorScreen.Relative(0.0375, 0.3), Colour(255, 255, 255, 220), "Submachine Guns");
  161. ::labelA6 = GUILabel(VectorScreen.Relative(0.175, 0.3), Colour(255, 255, 255, 220), "Assault Rifles");
  162. ::labelA7 = GUILabel(VectorScreen.Relative(0.31, 0.3), Colour(255, 255, 255, 220), "Sniper Rifles");
  163. ::labelA8 = GUILabel(VectorScreen.Relative(0.43, 0.3), Colour(255, 255, 255, 220), "Heavy Weapons");
  164.  
  165. labelA1.FontName = "Tahoma";
  166. labelA1.FontSize = sX * 0.01;
  167. labelA1.FontFlags = GUI_FFLAG_BOLD;
  168. labelA2.FontName = "Tahoma";
  169. labelA2.FontSize = sX * 0.01;
  170. labelA2.FontFlags = GUI_FFLAG_BOLD;
  171. labelA3.FontName = "Tahoma";
  172. labelA3.FontSize = sX * 0.01;
  173. labelA3.FontFlags = GUI_FFLAG_BOLD;
  174. labelA4.FontName = "Tahoma";
  175. labelA4.FontSize = sX * 0.01;
  176. labelA4.FontFlags = GUI_FFLAG_BOLD;
  177. labelA5.FontName = "Tahoma";
  178. labelA5.FontSize = sX * 0.01;
  179. labelA5.FontFlags = GUI_FFLAG_BOLD;
  180. labelA6.FontName = "Tahoma";
  181. labelA6.FontSize = sX * 0.01;
  182. labelA6.FontFlags = GUI_FFLAG_BOLD;
  183. labelA7.FontName = "Tahoma";
  184. labelA7.FontSize = sX * 0.01;
  185. labelA7.FontFlags = GUI_FFLAG_BOLD;
  186. labelA8.FontName = "Tahoma";
  187. labelA8.FontSize = sX * 0.01;
  188. labelA8.FontFlags = GUI_FFLAG_BOLD;
  189. ::listboxA1 = GUIListbox(VectorScreen.Relative(0.03, 0.065), VectorScreen.Relative(0.1, 0.2), Colour(30, 30, 30), Colour(10,10,10));
  190. ::listboxA2 = GUIListbox(VectorScreen.Relative(0.16, 0.065), VectorScreen.Relative(0.1, 0.2), Colour(30, 30, 30), Colour(10,10,10));
  191. ::listboxA3 = GUIListbox(VectorScreen.Relative(0.29, 0.065), VectorScreen.Relative(0.1, 0.2), Colour(30, 30, 30), Colour(10,10,10));
  192. ::listboxA4 = GUIListbox(VectorScreen.Relative(0.42, 0.065), VectorScreen.Relative(0.1, 0.2), Colour(30, 30, 30), Colour(10,10,10));
  193. ::listboxA5 = GUIListbox(VectorScreen.Relative(0.03, 0.33), VectorScreen.Relative(0.1, 0.2), Colour(30, 30, 30), Colour(10,10,10));
  194. ::listboxA6 = GUIListbox(VectorScreen.Relative(0.16, 0.33), VectorScreen.Relative(0.1, 0.2), Colour(30, 30, 30), Colour(10,10,10));
  195. ::listboxA7 = GUIListbox(VectorScreen.Relative(0.29, 0.33), VectorScreen.Relative(0.1, 0.2), Colour(30, 30, 30), Colour(10,10,10));
  196. ::listboxA8 = GUIListbox(VectorScreen.Relative(0.42, 0.33), VectorScreen.Relative(0.1, 0.2), Colour(30, 30, 30) Colour(10,10,10));
  197.  
  198. listboxA1.TextColour = Colour(255,255,255);
  199. listboxA2.TextColour = Colour(255,255,255);
  200. listboxA3.TextColour = Colour(255,255,255);
  201. listboxA4.TextColour = Colour(255,255,255);
  202. listboxA5.TextColour = Colour(255,255,255);
  203. listboxA6.TextColour = Colour(255,255,255);
  204. listboxA7.TextColour = Colour(255,255,255);
  205. listboxA8.TextColour = Colour(255,255,255);
  206.  
  207. listboxA1.AddItem(GetWeaponName(0));
  208. listboxA1.AddItem(GetWeaponName(2));
  209. listboxA1.AddItem(GetWeaponName(3));
  210. listboxA1.AddItem(GetWeaponName(4));
  211. listboxA1.AddItem(GetWeaponName(5));
  212. listboxA1.AddItem(GetWeaponName(6));
  213. listboxA1.AddItem(GetWeaponName(7));
  214. listboxA1.AddItem(GetWeaponName(8));
  215. listboxA1.AddItem(GetWeaponName(9));
  216. listboxA1.AddItem(GetWeaponName(10));
  217. listboxA1.AddItem(GetWeaponName(11));
  218.  
  219. listboxA2.AddItem(GetWeaponName(0));
  220. listboxA2.AddItem(GetWeaponName(12));
  221. listboxA2.AddItem(GetWeaponName(13));
  222. listboxA2.AddItem(GetWeaponName(14));
  223. listboxA2.AddItem(GetWeaponName(15));
  224.  
  225. listboxA3.AddItem(GetWeaponName(0));
  226. listboxA3.AddItem(GetWeaponName(17));
  227. listboxA3.AddItem(GetWeaponName(18));
  228.  
  229. listboxA4.AddItem(GetWeaponName(0));
  230. listboxA4.AddItem(GetWeaponName(19));
  231. listboxA4.AddItem(GetWeaponName(20));
  232. listboxA4.AddItem(GetWeaponName(21));
  233.  
  234. listboxA5.AddItem(GetWeaponName(0));
  235. listboxA5.AddItem(GetWeaponName(22));
  236. listboxA5.AddItem(GetWeaponName(23));
  237. listboxA5.AddItem(GetWeaponName(24));
  238. listboxA5.AddItem(GetWeaponName(25));
  239.  
  240. listboxA6.AddItem(GetWeaponName(0));
  241. listboxA6.AddItem(GetWeaponName(26));
  242. listboxA6.AddItem(GetWeaponName(27));
  243.  
  244. listboxA7.AddItem(GetWeaponName(0));
  245. listboxA7.AddItem(GetWeaponName(28));
  246. listboxA7.AddItem(GetWeaponName(29));
  247.  
  248. listboxA8.AddItem(GetWeaponName(0));
  249. listboxA8.AddItem(GetWeaponName(30));
  250. listboxA8.AddItem(GetWeaponName(31));
  251. listboxA8.AddItem(GetWeaponName(32));
  252.  
  253. ::buttonS1 = GUIButton(VectorScreen.Relative(0.02, 0.57), VectorScreen.Relative(0.12, 0.05), Colour(30, 30, 30), "Activate");
  254. ::buttonS2 = GUIButton(VectorScreen.Relative(0.15, 0.57), VectorScreen.Relative(0.12, 0.05), Colour(30, 30, 30), "List Weapons");
  255. ::buttonS3 = GUIButton(VectorScreen.Relative(0.28, 0.57), VectorScreen.Relative(0.12, 0.05), Colour(30, 30, 30), "Update Weapons");
  256. ::buttonS4 = GUIButton(VectorScreen.Relative(0.41, 0.57), VectorScreen.Relative(0.12, 0.05), Colour(30, 30, 30), "Exit");
  257.  
  258. buttonS1.TextColour = Colour(17, 255, 0);
  259. buttonS1.FontName = "Tahoma";
  260. buttonS1.FontSize = sX * 0.01;
  261. buttonS1.FontFlags = GUI_FFLAG_BOLD;
  262. buttonS2.TextColour = Colour(17, 255, 0);
  263. buttonS2.FontName = "Tahoma";
  264. buttonS2.FontSize = sX * 0.01;
  265. buttonS2.FontFlags = GUI_FFLAG_BOLD;
  266. buttonS3.TextColour = Colour(255, 182, 0);
  267. buttonS3.FontName = "Tahoma";
  268. buttonS3.FontSize = sX * 0.01;
  269. buttonS3.FontFlags = GUI_FFLAG_BOLD;
  270. buttonS4.TextColour = Colour(240, 20, 20);
  271. buttonS4.FontName = "Tahoma";
  272. buttonS4.FontSize = sX * 0.01;
  273. buttonS4.FontFlags = GUI_FFLAG_BOLD;
  274.  
  275. windowC.AddChild(labelA1);
  276. windowC.AddChild(labelA2);
  277. windowC.AddChild(labelA3);
  278. windowC.AddChild(labelA4);
  279. windowC.AddChild(labelA5);
  280. windowC.AddChild(labelA6);
  281. windowC.AddChild(labelA7);
  282. windowC.AddChild(labelA8);
  283. windowC.AddChild(listboxA1);
  284. windowC.AddChild(listboxA2);
  285. windowC.AddChild(listboxA3);
  286. windowC.AddChild(listboxA4);
  287. windowC.AddChild(listboxA5);
  288. windowC.AddChild(listboxA6);
  289. windowC.AddChild(listboxA7);
  290. windowC.AddChild(listboxA8);
  291. windowC.AddChild(buttonS1);
  292. windowC.AddChild(buttonS2);
  293. windowC.AddChild(buttonS3);
  294. windowC.AddChild(buttonS4);
  295.  
  296. GUI.SetMouseEnabled(true);
  297.  
  298. if (activatespawnweps == true)
  299. {
  300. ::buttonS1.Text = "Deactivate";
  301. ::buttonS1.TextColour = Colour(240, 20, 20);
  302. }
  303. else
  304. {
  305. ::buttonS1.Text = "Activate";
  306. ::buttonS1.TextColour = Colour(17, 255, 0);
  307. }
  308. }
  309. }
  310.  
  311. function KeyBind::OnUp(key)
  312. {
  313. switch (key)
  314. {
  315. case KeyBind1:
  316. csws();
  317. break;
  318. default:
  319. break;
  320. }
  321. }
  322.  
  323. function updateweps()
  324. {
  325. local msg = Stream();
  326. msg.WriteInt(8);
  327. msg.WriteInt(set1);
  328. msg.WriteInt(set2);
  329. msg.WriteInt(set3);
  330. msg.WriteInt(set4);
  331. msg.WriteInt(set5);
  332. msg.WriteInt(set6);
  333. msg.WriteInt(set7);
  334. msg.WriteInt(set8);
  335. Server.SendData(msg);
  336. }
  337.  
  338. function GUI::ListboxSelect(listbox, text)
  339. {
  340. if (listbox == listboxA1) ::set1 = GetWeaponID(text);
  341. if (listbox == listboxA2) ::set2 = GetWeaponID(text);
  342. if (listbox == listboxA3) ::set3 = GetWeaponID(text);
  343. if (listbox == listboxA4) ::set4 = GetWeaponID(text);
  344. if (listbox == listboxA5) ::set5 = GetWeaponID(text);
  345. if (listbox == listboxA6) ::set6 = GetWeaponID(text);
  346. if (listbox == listboxA7) ::set7 = GetWeaponID(text);
  347. if (listbox == listboxA8) ::set8 = GetWeaponID(text);
  348. }
  349.  
  350. function crsg()
  351. {
  352. ::windowA = GUIWindow(VectorScreen.Relative( 0.25, 0.25 ), VectorScreen.Relative( 0.5, 0.5), Colour(50, 50, 50, 225), "[#ffffff]Registration Form", GUI_FLAG_TEXT_TAGS);
  353. windowA.RemoveFlags(GUI_FLAG_WINDOW_CLOSEBTN);
  354. windowA.TitleColour = Colour(10, 10, 10);
  355. windowA.FontName = "Tahoma";
  356. windowA.FontSize = sX * 0.01;
  357. windowA.FontFlags = GUI_FFLAG_BOLD;
  358.  
  359. ::labelAA = GUILabel(VectorScreen.Relative(0.05, 0.055), Colour(255, 255, 255, 220), "Username:");
  360. ::labelAB = GUILabel(VectorScreen.Relative(0.285, 0.095), Colour(255, 255, 255, 220), "Please enter your username.");
  361. ::editboxA = GUIEditbox(VectorScreen.Relative(0.15, 0.045), VectorScreen.Relative(0.3, 0.05), Colour(30, 30, 30), World.FindLocalPlayer().Name, GUI_FLAG_DISABLED );
  362.  
  363. labelAA.TextAlignment = GUI_ALIGN_LEFT;
  364. labelAA.FontName = "Verdana";
  365. labelAA.FontSize = sX * 0.0135;
  366. labelAA.FontFlags = GUI_FFLAG_BOLD;
  367. labelAA.AddFlags(GUI_FLAG_TEXT_SHADOW);
  368. windowA.AddChild(labelAA);
  369.  
  370. labelAB.TextAlignment = GUI_ALIGN_LEFT;
  371. labelAB.FontName = "Verdana";
  372. labelAB.FontSize = sX * 0.01;
  373. labelAB.FontFlags = GUI_FFLAG_BOLD;
  374. windowA.AddChild(labelAB);
  375.  
  376. editboxA.TextColour = Colour(255, 255, 255);
  377. editboxA.TextAlignment = GUI_ALIGN_LEFT;
  378. editboxA.FontName = "Microsoft Sans Serif";
  379. editboxA.FontSize = sX * 0.013;
  380. windowA.AddChild(editboxA);
  381.  
  382. ::labelCA = GUILabel(VectorScreen.Relative(0.05, 0.15), Colour(255, 255, 255, 220), "Password:");
  383. ::labelCB = GUILabel(VectorScreen.Relative(0.285, 0.2), Colour(255, 255, 255, 220), "Please enter your password.");
  384. ::editboxC = GUIEditbox(VectorScreen.Relative(0.15, 0.15), VectorScreen.Relative(0.3, 0.05), Colour(30, 30, 30), "", GUI_FLAG_EDITBOX_MASKINPUT);
  385.  
  386. labelCA.TextAlignment = GUI_ALIGN_LEFT;
  387. labelCA.FontName = "Verdana";
  388. labelCA.FontSize = sX * 0.0135;
  389. labelCA.FontFlags = GUI_FFLAG_BOLD;
  390. labelCA.AddFlags(GUI_FLAG_TEXT_SHADOW);
  391. windowA.AddChild(labelCA);
  392.  
  393. labelCB.TextAlignment = GUI_ALIGN_LEFT;
  394. labelCB.FontName = "Verdana";
  395. labelCB.FontSize = sX * 0.01;
  396. labelCB.FontFlags = GUI_FFLAG_BOLD;
  397. windowA.AddChild(labelCB);
  398.  
  399. editboxC.TextColour = Colour(255, 255, 255);
  400. editboxC.TextAlignment = GUI_ALIGN_LEFT;
  401. editboxC.FontName = "Microsoft Sans Serif";
  402. editboxC.FontSize = sX * 0.0135;
  403. windowA.AddChild(editboxC);
  404.  
  405. ::labelDA = GUILabel(VectorScreen.Relative(0.05, 0.25), Colour(255, 255, 255, 220), "Confirm:");
  406. ::labelDB = GUILabel(VectorScreen.Relative(0.275, 0.3), Colour(255, 255, 255, 220), "Please confirm your password.");
  407. ::editboxD = GUIEditbox(VectorScreen.Relative(0.15, 0.25), VectorScreen.Relative(0.3, 0.05), Colour(30, 30, 30), "", GUI_FLAG_EDITBOX_MASKINPUT);
  408.  
  409. labelDA.TextAlignment = GUI_ALIGN_LEFT;
  410. labelDA.FontName = "Verdana";
  411. labelDA.FontSize = sX * 0.0135;
  412. labelDA.FontFlags = GUI_FFLAG_BOLD;
  413. labelDA.AddFlags(GUI_FLAG_TEXT_SHADOW);
  414. windowA.AddChild(labelDA);
  415.  
  416. editboxD.TextColour = Colour(255, 255, 255);
  417. editboxD.TextAlignment = GUI_ALIGN_LEFT;
  418. editboxD.FontName = "Microsoft Sans Serif";
  419. editboxD.FontSize = sX * 0.0135;
  420. windowA.AddChild(editboxD);
  421.  
  422. labelDB.TextAlignment = GUI_ALIGN_LEFT;
  423. labelDB.FontName = "Verdana";
  424. labelDB.FontSize = sX * 0.01;
  425. labelDB.FontFlags = GUI_FFLAG_BOLD;
  426. windowA.AddChild(labelDB);
  427.  
  428. ::buttonA = GUIButton(VectorScreen.Relative(0.15, 0.35), VectorScreen.Relative(0.1,0.065), Colour(30, 30, 30), "Register");
  429.  
  430. buttonA.TextColour = Colour(17, 255, 0);
  431. buttonA.FontName = "Tahoma";
  432. buttonA.FontSize = sX * 0.0138;
  433. buttonA.FontFlags = GUI_FFLAG_BOLD;
  434. windowA.AddChild(buttonA);
  435.  
  436. ::buttonB = GUIButton(VectorScreen.Relative(0.3, 0.35), VectorScreen.Relative(0.1,0.065), Colour(30, 30, 30), "Cancel");
  437.  
  438. buttonB.TextColour = Colour(240, 20, 20);
  439. buttonB.FontName = "Tahoma";
  440. buttonB.FontSize = sX * 0.0138;
  441. buttonB.FontFlags = GUI_FFLAG_BOLD;
  442. windowA.AddChild(buttonB);
  443.  
  444. GUI.SetMouseEnabled(true);
  445.  
  446. }
  447.  
  448. function clsg()
  449. {
  450. ::windowB = GUIWindow(VectorScreen.Relative( 0.25, 0.25 ), VectorScreen.Relative(0.5, 0.46), Colour(50, 50, 50, 225), "[#ffffff]Login Form", GUI_FLAG_TEXT_TAGS);
  451. windowB.RemoveFlags(GUI_FLAG_WINDOW_CLOSEBTN);
  452. windowB.TitleColour = Colour(0, 0, 0);
  453. windowB.FontName = "Tahoma";
  454. windowB.FontSize = sX * 0.0125;
  455. windowB.FontFlags = GUI_FFLAG_BOLD;
  456.  
  457. ::labelAAA = GUILabel(VectorScreen.Relative(0.05, 0.055), Colour(255, 255, 255, 220), "Username:");
  458. ::labelABA = GUILabel(VectorScreen.Relative(0.285, 0.095), Colour(255, 255, 255, 220), "Please enter your username.");
  459. ::editboxAA = GUIEditbox(VectorScreen.Relative(0.15, 0.045), VectorScreen.Relative(0.3, 0.05), Colour(30, 30, 30), World.FindLocalPlayer().Name, GUI_FLAG_DISABLED );
  460.  
  461. labelAAA.TextAlignment = GUI_ALIGN_LEFT;
  462. labelAAA.FontName = "Verdana";
  463. labelAAA.FontSize = sX * 0.0135;
  464. labelAAA.FontFlags = GUI_FFLAG_BOLD;
  465. labelAAA.AddFlags(GUI_FLAG_TEXT_SHADOW)
  466. windowB.AddChild(labelAAA);
  467.  
  468. labelABA.TextAlignment = GUI_ALIGN_LEFT;
  469. labelABA.FontName = "Verdana";
  470. labelABA.FontSize = sX * 0.01;
  471. labelABA.FontFlags = GUI_FFLAG_BOLD;
  472. windowB.AddChild(labelABA);
  473.  
  474. editboxAA.TextColour = Colour(255, 255, 255);
  475. editboxAA.TextAlignment = GUI_ALIGN_LEFT;
  476. editboxAA.FontName = "Microsoft Sans Serif";
  477. editboxAA.FontSize = sX * 0.013;
  478. windowB.AddChild(editboxAA);
  479.  
  480. ::labelCAA = GUILabel(VectorScreen.Relative(0.05, 0.15), Colour(255, 255, 255, 220), "Password:");
  481. ::labelCBA = GUILabel(VectorScreen.Relative(0.285, 0.2), Colour(255, 255, 255, 220), "Please enter your password.");
  482. ::editboxCA = GUIEditbox(VectorScreen.Relative(0.15, 0.15), VectorScreen.Relative(0.3, 0.05), Colour(30, 30, 30), "", GUI_FLAG_EDITBOX_MASKINPUT);
  483.  
  484. labelCAA.TextAlignment = GUI_ALIGN_LEFT;
  485. labelCAA.FontName = "Verdana";
  486. labelCAA.FontSize = sX * 0.0135;
  487. labelCAA.FontFlags = GUI_FFLAG_BOLD;
  488. labelCAA.AddFlags(GUI_FLAG_TEXT_SHADOW);
  489. windowB.AddChild(labelCAA);
  490.  
  491. labelCBA.TextAlignment = GUI_ALIGN_LEFT;
  492. labelCBA.FontName = "Verdana";
  493. labelCBA.FontSize = sX * 0.01;
  494. labelCBA.FontFlags = GUI_FFLAG_BOLD;
  495. windowB.AddChild(labelCBA);
  496.  
  497. editboxCA.TextColour = Colour(255, 255, 255);
  498. editboxCA.TextAlignment = GUI_ALIGN_LEFT;
  499. editboxCA.FontName = "Microsoft Sans Serif";
  500. editboxCA.FontSize = sX * 0.0135;
  501. windowB.AddChild(editboxCA);
  502.  
  503. ::labelDA = GUILabel(VectorScreen.Relative(0.12, 0.25), Colour(255, 0, 0, 220), "You have 3 attempt(s) to login before getting kicked.");
  504. labelDA.TextAlignment = GUI_ALIGN_CENTER;
  505. labelDA.FontName = "Verdana";
  506. labelDA.FontSize = sX * 0.009;
  507. labelDA.FontFlags = GUI_FFLAG_BOLD;
  508. labelDA.AddFlags(GUI_FLAG_TEXT_SHADOW);
  509. windowB.AddChild(labelDA);
  510.  
  511. ::buttonAA = GUIButton(VectorScreen.Relative(0.15, 0.31), VectorScreen.Relative(0.1,0.065), Colour(30, 30, 30), "Login");
  512.  
  513. buttonAA.TextColour = Colour(17, 255, 0);
  514. buttonAA.FontName = "Tahoma";
  515. buttonAA.FontSize = sX * 0.0138;
  516. buttonAA.FontFlags = GUI_FFLAG_BOLD;
  517. windowB.AddChild(buttonAA);
  518.  
  519. ::buttonBA = GUIButton(VectorScreen.Relative(0.3, 0.31), VectorScreen.Relative(0.1,0.065), Colour(30, 30, 30), "Cancel");
  520.  
  521. buttonBA.TextColour = Colour(240, 20, 20);
  522. buttonBA.FontName = "Tahoma";
  523. buttonBA.FontSize = sX * 0.0138;
  524. buttonBA.FontFlags = GUI_FFLAG_BOLD;
  525. windowB.AddChild(buttonBA);
  526.  
  527. GUI.SetMouseEnabled(true);
  528.  
  529. }
  530.  
  531. function GUI::GameResize(width, height)
  532. {
  533. ::sX = GUI.GetScreenSize().X;
  534. ::sY = GUI.GetScreenSize().Y;
  535. if (::windowA != null)
  536. {
  537. DeleteAR();
  538. crsg();
  539. }
  540. if (::windowB != null)
  541. {
  542. DeleteAL();
  543. clsg();
  544. }
  545. if (::windowC != null)
  546. {
  547. dddd();
  548. csws();
  549. }
  550. }
  551. function DeleteAR()
  552. {
  553.  
  554. ::windowA = null;
  555. ::labelAA = null;
  556. ::editboxA = null;
  557. ::labelAB = null;
  558. ::labelCA = null;
  559. ::labelCB = null;
  560. ::editboxC = null;
  561. ::labelDA = null;
  562. ::labelDB = null;
  563. ::editboxD = null;
  564. ::buttonA = null;
  565. ::buttonB = null;
  566. ::errorB = null;
  567. ::errorC = null;
  568. }
  569.  
  570. function DeleteAL()
  571. {
  572. ::windowB = null;
  573. ::labelAAA = null;
  574. ::labelABA = null;
  575. ::editboxAA = null;
  576. ::labelCAA = null;
  577. ::labelCBA = null;
  578. ::editboxCA = null;
  579. ::buttonAA = null;
  580. ::buttonBA = null;
  581. ::errorBA = null;
  582. }
  583.  
  584. function sErrorP1()
  585. {
  586. ::errorB = GUILabel();
  587. errorB.Position = VectorScreen.Relative(0.37, 0.165);
  588. errorB.Alpha = 220;
  589. errorB.Text = "Invalid Password";
  590. errorB.TextAlignment = GUI_ALIGN_LEFT;
  591. errorB.FontName = "Verdana";
  592. errorB.FontSize = sX * 0.01;
  593. errorB.TextColour = Colour(240, 20, 20);
  594. windowA.AddChild(errorB);
  595. }
  596.  
  597. function sErrorPM()
  598. {
  599. ::errorC = GUILabel();
  600. errorC.Position = VectorScreen.Relative(0.335, 0.265);
  601. errorC.Alpha = 220;
  602. errorC.Text = "Passwords doesn't match";
  603. errorC.TextAlignment = GUI_ALIGN_LEFT;
  604. errorC.FontName = "Verdana";
  605. errorC.FontSize = sX * 0.01;
  606. errorC.TextColour = Colour(240, 20, 20);
  607. windowA.AddChild(errorC);
  608. }
  609.  
  610. function sErrorP1A(attempts)
  611. {
  612. if (attempts == 0) KickPlayer(World.FindLocalPlayer(), ">> "+World.FindLocalPlayer().Name+" has exceeded wrong login attempts limits.");
  613.  
  614. ::errorBA = GUILabel();
  615. errorBA.Position = VectorScreen.Relative(0.365, 0.165);
  616. errorBA.Alpha = 220;
  617. errorBA.Text = "Invalid Password";
  618. errorBA.TextAlignment = GUI_ALIGN_LEFT;
  619. errorBA.FontName = "Verdana";
  620. errorBA.FontSize = sX * 0.01;
  621. errorBA.TextColour = Colour(240, 20, 20);
  622. labelDA.Text = "You have "+attempts+" attempt(s) to login before getting kicked."
  623. windowB.AddChild(errorBA);
  624. }
  625.  
  626. function KickPlayer(player, reason)
  627. {
  628. local msg = Stream();
  629. msg.WriteInt(6);
  630. msg.WriteInt(player.ID);
  631. msg.WriteString(reason);
  632. Server.SendData(msg);
  633. }
  634.  
  635. function verifypass(pass)
  636. {
  637. local msg = Stream();
  638. msg.WriteInt(4);
  639. msg.WriteString(pass);
  640. Server.SendData(msg);
  641. }
  642. function Script::ScriptUnload()
  643. {
  644. dddd();
  645. }
  646. function GUI::ElementRelease(element, mousex, mousey)
  647. {
  648. if (editboxA != null && editboxC != null && editboxD != null)
  649. {
  650. if (element == editboxA || element == editboxC || element == editboxD)
  651. {
  652. ::errorB = null;
  653. ::errorC = null;
  654. }
  655. }
  656. if (editboxAA != null && editboxCA != null)
  657. {
  658. if (element == editboxAA || element == editboxCA)
  659. {
  660. ::errorBA = null;
  661. }
  662. }
  663. if (buttonB != null && element == buttonB)
  664. {
  665. GUI.SetMouseEnabled(false);
  666. DeleteAR();
  667. }
  668. if (buttonA != null && element == buttonA && errorB == null && errorC == null)
  669. {
  670. DeleteAR();
  671. GUI.SetMouseEnabled(false);
  672. }
  673. if (buttonBA != null && element == buttonBA)
  674. {
  675. GUI.SetMouseEnabled(false);
  676. DeleteAL();
  677. }
  678. if (buttonS4 != null && element == buttonS4)
  679. {
  680. GUI.SetMouseEnabled(false);
  681. dddd();
  682. }
  683. }
  684.  
  685. function GUI::ElementClick(element, mousex, mousey)
  686. {
  687. if (buttonA != null && element == buttonA)
  688. {
  689. if(::editboxC.Text == "") sErrorP1();
  690. if(::editboxC.Text != ::editboxD.Text) sErrorPM();
  691. else if (::editboxC.Text != "" && ::editboxC.Text == ::editboxD.Text) {
  692. Register(World.FindLocalPlayer(), ::editboxC.Text);
  693. }
  694. }
  695. if (buttonAA != null && element == buttonAA)
  696. {
  697. verifypass(::editboxCA.Text);
  698. }
  699. if (buttonS3 != null && element == buttonS3)
  700. {
  701. updateweps();
  702. }
  703. if (buttonS1 != null && element == buttonS1)
  704. {
  705. if (buttonS1.Text == "Activate")
  706. {
  707. local msg = Stream();
  708. msg.WriteInt(9);
  709. msg.WriteInt(1);
  710. Server.SendData(msg);
  711. ::buttonS1.Text = "Deactivate";
  712. buttonS1.TextColour = Colour(240, 20, 20);
  713. ::activatespawnweps = true;
  714. }
  715. else {
  716. local msg = Stream();
  717. msg.WriteInt(9);
  718. msg.WriteInt(2);
  719. Server.SendData(msg);
  720. ::buttonS1.Text = "Activate";
  721. ::buttonS1.TextColour = Colour(17, 255, 0);
  722. ::activatespawnweps = false;
  723. }
  724. }
  725. }
  726. function GetWeaponID(wep)
  727. {
  728. local we = wep.tostring();
  729. if (we == "Screwdriver") return 2;
  730. else if (we == "Golf Club") return 3;
  731. else if (we == "Nitestick") return 4;
  732. else if (we == "Knife") return 5;
  733. else if (we == "Baseball Bat") return 6;
  734. else if (we == "Hammer") return 7;
  735. else if (we == "Meat Cleaver") return 8;
  736. else if (we == "Machete") return 9;
  737. else if (we == "Katana") return 10;
  738. else if (we == "Chainsaw") return 11;
  739. else if (we == "Grenades") return 12;
  740. else if (we == "Remote Grenades") return 13;
  741. else if (we == "TearGas") return 14;
  742. else if (we == "Motolov Cocktails") return 15;
  743. else if (we == "Colt. 45") return 17;
  744. else if (we == "Python") return 18;
  745. else if (we == "Pump-Action Shotgun") return 19;
  746. else if (we == "Spas-12 Shotgun") return 20;
  747. else if (we == "Stubby Shotgun") return 21;
  748. else if (we == "TEC-9") return 22;
  749. else if (we == "Uzi") return 23;
  750. else if (we == "Ingram") return 24;
  751. else if (we == "MP5") return 25;
  752. else if (we == "M4") return 26;
  753. else if (we == "Ruger") return 27;
  754. else if (we == "Sniper Rifle") return 28;
  755. else if (we == "Laserscope Sniper Rifle") return 29;
  756. else if (we == "Flame Thrower") return 30;
  757. else if (we == "Rocket Launcher") return 31;
  758. else if (we == "M60") return 32;
  759. else return 0;
  760. }
  761.  
  762. function GetWeaponName(wep)
  763. {
  764. local we = wep.tointeger();
  765. if (we == 2) return "Screwdriver";
  766. else if (we == 3) return "Golf Club";
  767. else if (we == 4) return "Nitestick";
  768. else if (we == 5) return "Knife";
  769. else if (we == 6) return "Baseball Bat";
  770. else if (we == 7) return "Hammer";
  771. else if (we == 8) return "Meat Cleaver";
  772. else if (we == 9) return "Machete";
  773. else if (we == 10) return "Katana";
  774. else if (we == 11) return "Chainsaw";
  775. else if (we == 12) return "Grenades";
  776. else if (we == 13) return "Remote Grenades";
  777. else if (we == 14) return "TearGas";
  778. else if (we == 15) return "Motolov Cocktails";
  779. else if (we == 17) return "Colt. 45";
  780. else if (we == 18) return "Python";
  781. else if (we == 19) return "Pump-Action Shotgun";
  782. else if (we == 20) return "Spas-12 Shotgun";
  783. else if (we == 21) return "Stubby Shotgun";
  784. else if (we == 22) return "TEC-9";
  785. else if (we == 23) return "Uzi";
  786. else if (we == 24) return "Ingram";
  787. else if (we == 25) return "MP5";
  788. else if (we == 26) return "M4";
  789. else if (we == 27) return "Ruger";
  790. else if (we == 28) return "Sniper Rifle";
  791. else if (we == 29) return "Laserscope Sniper Rifle";
  792. else if (we == 30) return "Flame Thrower";
  793. else if (we == 31) return "Rocket Launcher";
  794. else if (we == 32) return "M60";
  795. else return "None";
  796. }
  797.  
  798. function cpbs()
  799. {
  800. ::ProgressBar1 = GUIProgressBar(VectorScreen.Relative( 0.04, 0.64 ), VectorScreen.Relative(0.15, 0.037), Colour(64, 64, 64));
  801. ProgressBar1.StartColour = Colour(0,153,0);
  802. ProgressBar1.EndColour = Colour(255,0,0);
  803. ProgressBar1.MaxValue = 180;
  804. ProgressBar1.Thickness = 2;
  805.  
  806. ::SGUI = GUILabel( VectorScreen.Relative( 0.06, 0.64 ), Colour( 255, 255, 255, 255 ), "Speed: N/A" );
  807. SGUI.FontSize = sX * 0.013;
  808. SGUI.FontFlags = GUI_FFLAG_BOLD;
  809. SGUI.SendToTop();
  810. }
  811.  
  812.  
  813. function Script::ScriptLoad() {
  814. }
  815.  
  816. function Script::ScriptProcess() {
  817. if( !SPVehicle ) {
  818. ::ProgressBar1 = null;
  819. ::SGUI = null;
  820. return true;
  821. }
  822.  
  823. if( SPVehicle.Type == OBJ_VEHICLE ) {
  824. cpbs();
  825. local speed = Speed( SPVehicle );
  826. SGUI.Text = "Speed: " + speed + " MPH";
  827. ::ProgressBar1.Value = speed;
  828. SGUI.SendToTop();
  829. }
  830. }
  831.  
  832. function Server::ServerData(stream) {
  833. local type = stream.ReadInt();
  834.  
  835. switch(type) {
  836. case 50:
  837. local vehicleID = stream.ReadInt();
  838. local Toggle = stream.ReadString();
  839.  
  840. if( Toggle == "true" ) {
  841. ::SPVehicle = World.FindVehicle( vehicleID );
  842. }
  843. else {
  844. ::SPVehicle = null;
  845. }
  846. break;
  847. }
  848.  
  849. if (type == 1)
  850. {
  851. local dr = stream.ReadString();
  852. if (dr == "false") {
  853. ::registered = false;
  854. crsg();
  855. }
  856. if (dr == "donothing")
  857. {
  858. Console.Print(HColor.mgreen +">> You've been auto-logged in to the server.");
  859. ::logged = true;
  860. ::registered = true;
  861. }
  862. if (dr == "clsgp")
  863. {
  864. ::logged = false;
  865. ::registered = true;
  866. clsg();
  867. }
  868. }
  869. if (type == 5)
  870. {
  871. local mo = stream.ReadInt();
  872. if (mo == 1) {
  873. Console.Print(HColor.mgreen +">> You've been successfully logged in to the server.");
  874. setmac(World.FindLocalPlayer());
  875. ::logged = true;
  876. DeleteAL();
  877. GUI.SetMouseEnabled(false);
  878. }
  879. if (mo == 2) {
  880. ::lattempts-=1
  881. sErrorP1A(lattempts);
  882. }
  883. }
  884. if (type == 10)
  885. {
  886. local ss = stream.ReadString();
  887. if (ss == "true") ::activatespawnweps = true;
  888. if (ss == "false") ::activatespawnweps = false;
  889. }
  890.  
  891. }
  892.  
  893. function Speed(vehicle)
  894. {
  895. local sX1 = ::pow( vehicle.Speed.X, 2 )
  896. local sY1 = ::pow( vehicle.Speed.Y, 2 )
  897. local sZ1 = ::pow( vehicle.Speed.Z, 2 )
  898.  
  899. local SumSpeed = ( sX1 + sY1 + sZ1 );
  900.  
  901. local avgSpeed = ::sqrt( SumSpeed ) * 50 * 3.6;
  902. return round( avgSpeed, 0 );
  903. }
  904.  
  905. function round(value, precision) {
  906. local factor = ::pow(10.0, precision);
  907. return ::floor(value * factor + 0.5) / factor;
  908. }
  909. function setmac(p)
  910. {
  911. local msg = Stream();
  912. msg.WriteInt(7);
  913. Server.SendData(msg);
  914. }
  915. function errorHandling(err)
  916. {
  917. local stackInfos = getstackinfos(2);
  918.  
  919. if (stackInfos)
  920. {
  921. local locals = "";
  922.  
  923. foreach( index, value in stackInfos.locals )
  924. {
  925. if( index != "this" )
  926. locals = locals + "[" + index + "] " + value + "\n";
  927. }
  928.  
  929. local callStacks = "";
  930. local level = 2;
  931. do {
  932. callStacks += "*FUNCTION [" + stackInfos.func + "()] " + stackInfos.src + " line [" + stackInfos.line + "]\n";
  933. level++;
  934. } while ((stackInfos = getstackinfos(level)));
  935.  
  936. local errorMsg = "AN ERROR HAS OCCURRED [" + err + "]\n";
  937. errorMsg += "\nCALLSTACK\n";
  938. errorMsg += callStacks;
  939. errorMsg += "\nLOCALS\n";
  940. errorMsg += locals;
  941.  
  942. Console.Print(errorMsg);
  943. }
  944. }
  945.  
  946. seterrorhandler(errorHandling);
Add Comment
Please, Sign In to add comment
Public Pastes
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!