API tools faq
paste
Advertisement
TeHArGiS10

Untitled

TeHArGiS10
Jul 9th, 2016
570
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 29.85 KB | None | 0 0
raw download clone embed print report
  1. {$CLEO .cs}
  2. 0000:
  3. thread "TrollBoss"
  4.  
  5. //-------------------------------COMMANDS-------------------------------
  6. 0B34: "tb.cmds" @CMDS
  7. 0B34: "tb.panic" @PANIC_CMD
  8. 0B34: "tb.flip" @FLIP_CMD
  9. 0B34: "tb.fly" @FLY_CMD
  10. 0B34: "tb.fire" @FIRE_CMD
  11. 0B34: "tb.load" @LOAD_CMD
  12. 0B34: "tb.pop" @POP_CMD
  13. 0B34: "tb.color" @COLOR_CMD
  14. 0B34: "tb.ocean" @OCEAN_CMD
  15. 0B34: "tb.jack" @JACK_CMD
  16. 0B34: "tb.tpto" @TPTO_CMD
  17. 0B34: "tb.heaven" @HEAVEN_CMD
  18. 0B34: "tb.kick" @KICK_CMD
  19. 0B34: "tb.ground" @GROUND_CMD
  20. 0B34: "tb.slag" @SLAG_CMD
  21. //-------------------------------COMMANDS-------------------------------
  22. 0@ = 0
  23. //-------------------------------MAIN-----------------------------------
  24. :MAIN
  25. wait 0
  26. if
  27. 0@ == 1
  28. then
  29. jump @FLIP_ACT
  30. end
  31.  
  32. if
  33. 0@ == 2
  34. then
  35. jump @FLY_ACT
  36. end
  37.  
  38. if
  39. 0@ == 3
  40. then
  41. jump @FIRE_ACT
  42. end
  43.  
  44. if
  45. 0@ == 4
  46. then
  47. jump @LOAD_ACT
  48. end
  49.  
  50. if
  51. 0@ == 5
  52. then
  53. jump @POP_ACT
  54. end
  55.  
  56. if
  57. 0@ == 6
  58. then
  59. jump @COLOR_ACT
  60. end
  61.  
  62. if
  63. 0@ == 7
  64. then
  65. jump @OCEAN_ACT
  66. end
  67.  
  68. if
  69. 0@ == 8
  70. then
  71. jump @JACK_ACT
  72. end
  73.  
  74. if
  75. 0@ == 9
  76. then
  77. jump @TPTO_ACT
  78. end
  79.  
  80. if
  81. 0@ == 10
  82. then
  83. jump @HEAVEN_ACT
  84. end
  85.  
  86. if
  87. 0@ == 11
  88. then
  89. jump @KICK_ACT
  90. end
  91.  
  92. if
  93. 0@ == 12
  94. then
  95. jump @GROUND_ACT
  96. end
  97.  
  98. if
  99. 0@ == 13
  100. then
  101. jump @SLAG_ACT
  102. end
  103.  
  104. 0@ = 0
  105. SAMP.CmdRet()
  106. jump @MAIN
  107. //-------------------------------MAIN-----------------------------------
  108.  
  109. //-------------------------------ACTIONS--------------------------------
  110. :FLIP_ACT
  111. wait 0
  112. 6@ = Actor.CurrentCar(4@)
  113. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  114. if
  115. Actor.Driving($PLAYER_ACTOR)
  116. then
  117. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  118. 036A: put_actor $PLAYER_ACTOR in_car 6@
  119. wait 150
  120. Car.SetSpeedInstantly(6@, 0.0)
  121. 0731: set_car 6@ y_angle_to -180.0
  122. wait 400
  123. 036A: put_actor $PLAYER_ACTOR in_car 5@
  124. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  125. 036A: put_actor $PLAYER_ACTOR in_car 5@
  126. else
  127. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  128. wait 500
  129. 036A: put_actor $PLAYER_ACTOR in_car 6@
  130. wait 150
  131. Car.SetSpeedInstantly(6@, 0.0)
  132. 0731: set_car 6@ y_angle_to -180.0
  133. wait 400
  134. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  135. wait 200
  136. Camera.Restore_WithJumpCut()
  137. end
  138. 0@ = 0
  139. SAMP.CmdRet()
  140. jump @MAIN
  141.  
  142. :FLY_ACT
  143. wait 0
  144. 6@ = Actor.CurrentCar(4@)
  145. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  146. if
  147. Actor.Driving($PLAYER_ACTOR)
  148. then
  149. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  150. 036A: put_actor $PLAYER_ACTOR in_car 6@
  151. wait 150
  152. 0407: store_coords_to 10@ 11@ 12@ from_car 6@ with_offset 0.0 0.0 150.0
  153. Car.PutAt(6@, 10@, 11@, 12@)
  154. wait 150
  155. Car.SetSpeedInstantly(6@, 350.0)
  156. wait 250
  157. 036A: put_actor $PLAYER_ACTOR in_car 5@
  158. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  159. 036A: put_actor $PLAYER_ACTOR in_car 5@
  160. else
  161. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  162. wait 500
  163. 036A: put_actor $PLAYER_ACTOR in_car 6@
  164. wait 150
  165. 0407: store_coords_to 10@ 11@ 12@ from_car 6@ with_offset 0.0 0.0 150.0
  166. Car.PutAt(6@, 10@, 11@, 12@)
  167. wait 150
  168. Car.SetSpeedInstantly(6@, 350.0)
  169. wait 250
  170. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  171. wait 200
  172. Camera.Restore_WithJumpCut()
  173. end
  174. 0@ = 0
  175. SAMP.CmdRet()
  176. jump @MAIN
  177.  
  178. :FIRE_ACT
  179. wait 0
  180. 6@ = Actor.CurrentCar(4@)
  181. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  182. if
  183. Actor.Driving($PLAYER_ACTOR)
  184. then
  185. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  186. 036A: put_actor $PLAYER_ACTOR in_car 6@
  187. wait 150
  188. 0224: set_car 6@ health_to 200
  189. wait 400
  190. 036A: put_actor $PLAYER_ACTOR in_car 5@
  191. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  192. 036A: put_actor $PLAYER_ACTOR in_car 5@
  193. else
  194. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  195. wait 500
  196. 036A: put_actor $PLAYER_ACTOR in_car 6@
  197. wait 150
  198. 0224: set_car 6@ health_to 200
  199. wait 400
  200. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  201. wait 200
  202. Camera.Restore_WithJumpCut()
  203. end
  204. 0@ = 0
  205. SAMP.CmdRet()
  206. jump @MAIN
  207.  
  208. :LOAD_ACT
  209. wait 0
  210. 6@ = Actor.CurrentCar(4@)
  211. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  212. if
  213. Actor.Driving($PLAYER_ACTOR)
  214. then
  215. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  216. 036A: put_actor $PLAYER_ACTOR in_car 6@
  217. wait 250
  218. Car.PutAt(6@, -1.792915E38, -1.25, 5019.66)
  219. wait 400
  220. 036A: put_actor $PLAYER_ACTOR in_car 5@
  221. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  222. 036A: put_actor $PLAYER_ACTOR in_car 5@
  223. else
  224. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  225. wait 500
  226. 036A: put_actor $PLAYER_ACTOR in_car 6@
  227. wait 250
  228. Car.PutAt(6@, -1.792915E38, -1.25, 5019.66)
  229. wait 400
  230. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  231. end
  232. wait 250
  233. Camera.Restore_WithJumpCut()
  234. 0@ = 0
  235. SAMP.CmdRet()
  236. jump @MAIN
  237.  
  238. :POP_ACT
  239. wait 0
  240. 6@ = Actor.CurrentCar(4@)
  241. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  242. if
  243. Actor.Driving($PLAYER_ACTOR)
  244. then
  245. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  246. 036A: put_actor $PLAYER_ACTOR in_car 6@
  247. wait 150
  248. 04FE: deflate_tire 1 on_car 6@
  249. 04FE: deflate_tire 2 on_car 6@
  250. 04FE: deflate_tire 3 on_car 6@
  251. 04FE: deflate_tire 4 on_car 6@
  252. wait 250
  253. 036A: put_actor $PLAYER_ACTOR in_car 5@
  254. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  255. 036A: put_actor $PLAYER_ACTOR in_car 5@
  256. else
  257. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  258. wait 500
  259. 036A: put_actor $PLAYER_ACTOR in_car 6@
  260. wait 150
  261. 04FE: deflate_tire 1 on_car 6@
  262. 04FE: deflate_tire 2 on_car 6@
  263. 04FE: deflate_tire 3 on_car 6@
  264. 04FE: deflate_tire 4 on_car 6@
  265. wait 250
  266. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  267. wait 200
  268. Camera.Restore_WithJumpCut()
  269. end
  270. 0@ = 0
  271. SAMP.CmdRet()
  272. jump @MAIN
  273.  
  274. :COLOR_ACT
  275. wait 0
  276. 6@ = Actor.CurrentCar(4@)
  277. 10@ = SAMP.GetSAMPVehicleIDByCarHandle(6@)
  278. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  279. if
  280. Actor.Driving($PLAYER_ACTOR)
  281. then
  282. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  283. 036A: put_actor $PLAYER_ACTOR in_car 6@
  284. wait 150
  285. SAMP.SendSCMEvent(10@, COLOR, 11@, 12@)
  286. 0229: set_car 6@ primary_color_to 11@ secondary_color_to 12@
  287. wait 400
  288. 036A: put_actor $PLAYER_ACTOR in_car 5@
  289. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  290. 036A: put_actor $PLAYER_ACTOR in_car 5@
  291. else
  292. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  293. wait 500
  294. 036A: put_actor $PLAYER_ACTOR in_car 6@
  295. wait 150
  296. SAMP.SendSCMEvent(10@, COLOR, 11@, 12@)
  297. 0229: set_car 6@ primary_color_to 11@ secondary_color_to 12@
  298. wait 400
  299. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  300. wait 200
  301. Camera.Restore_WithJumpCut()
  302. end
  303. 0@ = 0
  304. SAMP.CmdRet()
  305. jump @MAIN
  306.  
  307. :OCEAN_ACT
  308. wait 0
  309. 6@ = Actor.CurrentCar(4@)
  310. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  311. if
  312. Actor.Driving($PLAYER_ACTOR)
  313. then
  314. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  315. 036A: put_actor $PLAYER_ACTOR in_car 6@
  316. wait 250
  317. Car.PutAt(6@, -4000.0, 4000.0, -30.0)
  318. wait 400
  319. 036A: put_actor $PLAYER_ACTOR in_car 5@
  320. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  321. 036A: put_actor $PLAYER_ACTOR in_car 5@
  322. else
  323. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  324. wait 500
  325. 036A: put_actor $PLAYER_ACTOR in_car 6@
  326. wait 250
  327. Car.PutAt(6@, -4000.0, 4000.0, -30.0)
  328. wait 400
  329. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  330. end
  331. wait 250
  332. Camera.Restore_WithJumpCut()
  333. 0@ = 0
  334. SAMP.CmdRet()
  335. jump @MAIN
  336.  
  337. :JACK_ACT
  338. wait 0
  339. 6@ = Actor.CurrentCar(4@)
  340. 036A: put_actor $PLAYER_ACTOR in_car 6@
  341. 0@ = 0
  342. SAMP.CmdRet()
  343. jump @MAIN
  344.  
  345. :TPTO_ACT
  346. wait 0
  347. 6@ = Actor.CurrentCar(4@)
  348. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  349. if
  350. 056D: actor 11@ defined
  351. then
  352. Actor.StorePos(11@, 12@, 13@, 14@)
  353. if
  354. Actor.Driving($PLAYER_ACTOR)
  355. then
  356. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  357. 036A: put_actor $PLAYER_ACTOR in_car 6@
  358. wait 250
  359. Car.PutAt(6@, 12@, 13@, 14@)
  360. wait 400
  361. 036A: put_actor $PLAYER_ACTOR in_car 5@
  362. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  363. 036A: put_actor $PLAYER_ACTOR in_car 5@
  364. else
  365. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  366. wait 500
  367. 036A: put_actor $PLAYER_ACTOR in_car 6@
  368. wait 250
  369. Car.PutAt(6@, 12@, 13@, 14@)
  370. wait 400
  371. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  372. end
  373. else
  374. 0B2F: samp get_streamed_out_player_pos 11@ to 12@ 13@ 14@
  375. if
  376. Actor.Driving($PLAYER_ACTOR)
  377. then
  378. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  379. 036A: put_actor $PLAYER_ACTOR in_car 6@
  380. wait 250
  381. Car.PutAt(6@, 12@, 13@, 14@)
  382. wait 500
  383. 036A: put_actor $PLAYER_ACTOR in_car 5@
  384. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  385. 036A: put_actor $PLAYER_ACTOR in_car 5@
  386. else
  387. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  388. wait 500
  389. 036A: put_actor $PLAYER_ACTOR in_car 6@
  390. wait 250
  391. Car.PutAt(6@, 12@, 13@, 14@)
  392. wait 400
  393. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  394. end
  395. end
  396. wait 500
  397. Camera.Restore_WithJumpCut()
  398. 0@ = 0
  399. SAMP.CmdRet()
  400. jump @MAIN
  401.  
  402. :HEAVEN_ACT
  403. wait 0
  404. 6@ = Actor.CurrentCar(4@)
  405. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  406. 0407: store_coords_to 10@ 11@ 12@ from_car 6@ with_offset 0.0 0.0 20000.0
  407. if
  408. Actor.Driving($PLAYER_ACTOR)
  409. then
  410. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  411. 036A: put_actor $PLAYER_ACTOR in_car 6@
  412. wait 150
  413. Car.PutAt(6@, 10@, 11@, 12@)
  414. wait 400
  415. 036A: put_actor $PLAYER_ACTOR in_car 5@
  416. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  417. 036A: put_actor $PLAYER_ACTOR in_car 5@
  418. else
  419. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  420. wait 500
  421. 036A: put_actor $PLAYER_ACTOR in_car 6@
  422. wait 150
  423. Car.PutAt(6@, 10@, 11@, 12@)
  424. wait 400
  425. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  426. end
  427. wait 250
  428. Camera.Restore_WithJumpCut()
  429. 0@ = 0
  430. SAMP.CmdRet()
  431. jump @MAIN
  432.  
  433. :KICK_ACT
  434. wait 0
  435. gosub @NEXT_CAR
  436. jump @KICK_ACT2
  437.  
  438. :KICK_ACT2
  439. wait 0
  440. if
  441. 056E: car 10@ defined
  442. jf @KICK_ACT
  443. 046C: 15@ = car 10@ driver
  444. if
  445. 856D: actor 15@ defined
  446. jf @KICK_ACT
  447. for 11@ = 0 to 50 step 1
  448. if and
  449. SAMP.IsPlayerConnected(3@)
  450. 056D: actor 4@ defined
  451. 056E: car 10@ defined
  452. then
  453. 04C4: store_coords_to 12@ 13@ 14@ from_actor 4@ with_offset 0.0 0.0 -1.0
  454. call @SendUnOccupiedVehicleSync 4 10@ 12@ 13@ 14@
  455. wait 10
  456. call @SendUnOccupiedVehicleSync 4 10@ 12@ 13@ 14@
  457. wait 10
  458. call @SendUnOccupiedVehicleSync 4 10@ 12@ 13@ 14@
  459. wait 10
  460. call @SendUnOccupiedVehicleSync 4 10@ 12@ 13@ 14@
  461. wait 500
  462. end
  463. end
  464. 0@ = 0
  465. SAMP.CmdRet()
  466. jump @MAIN
  467.  
  468. :NEXT_CAR
  469. wait 0
  470. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  471. 0AE2: 10@ = random_vehicle_near_point 7@ 8@ 9@ in_radius 99999999999.0 find_next 1 pass_wrecked 1
  472. return
  473.  
  474. :GROUND_ACT
  475. wait 0
  476. 6@ = Actor.CurrentCar(4@)
  477. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  478. if
  479. Actor.Driving($PLAYER_ACTOR)
  480. then
  481. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  482. 036A: put_actor $PLAYER_ACTOR in_car 6@
  483. wait 400
  484. Car.SetSpeedInstantly(6@, 0.0)
  485. 0731: set_car 6@ y_angle_to 85.0
  486. wait 400
  487. 036A: put_actor $PLAYER_ACTOR in_car 5@
  488. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  489. 036A: put_actor $PLAYER_ACTOR in_car 5@
  490. else
  491. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  492. wait 500
  493. 036A: put_actor $PLAYER_ACTOR in_car 6@
  494. wait 400
  495. Car.SetSpeedInstantly(6@, 0.0)
  496. 0731: set_car 6@ y_angle_to 85.0
  497. wait 400
  498. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  499. wait 200
  500. Camera.Restore_WithJumpCut()
  501. end
  502. 0@ = 0
  503. SAMP.CmdRet()
  504. jump @MAIN
  505.  
  506. :SLAG_ACT
  507. wait 0
  508. 04C4: store_coords_to 11@ 12@ 13@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0
  509. 0A8D: 29@ = read_memory 0xB74494 size 4 virtual_protect 0
  510. 29@ += 0x4
  511. 0A8D: 29@ = read_memory 29@ size 4 virtual_protect 0
  512. for 30@ = 0 to 27904 step 0x100
  513. 0A8D: 31@ = read_memory 29@ size 1 virtual_protect 0
  514. 000A: 29@ += 0x1
  515. if and
  516. 0029: 31@ >= 0x00
  517. 001B: 0x80 > 31@
  518. then
  519. 005A: 31@ += 30@
  520. 036A: put_actor $PLAYER_ACTOR in_car 31@
  521. Car.PutAt(31@, 11@, 12@, 13@)
  522. wait 50
  523. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 11@ 12@ 13@
  524. end
  525. end
  526. SAMP.CmdRet()
  527. jump @MAIN
  528. //-------------------------------ACTIONS--------------------------------
  529.  
  530. //-------------------------------COMMANDS-------------------------
  531. :FLIP_CMD
  532. wait 0
  533. SAMP.IsCommandTyped(1@)
  534. if
  535. 0AD4: 2@ = scan_string 1@ format "%d" 3@
  536. then
  537. if
  538. SAMP.IsPlayerConnected(3@)
  539. then
  540. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  541. if
  542. 056D: actor 4@ defined
  543. then
  544. if
  545. Actor.Driving(4@)
  546. then
  547. 0@ = 1
  548. else
  549. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.flip: {FFFFFF}Target must be driving!" 0xFFFFFF
  550. end
  551. else
  552. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.flip: {FFFFFF}Target too far away!" 0xFFFFFF
  553. end
  554. else
  555. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.flip: {FFFFFF}Invalid ID!" 0xFFFFFF
  556. end
  557. else
  558. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.flip: {FFFFFF}/tb.flip <ID>" 0xFFFFFF
  559. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.flip: {FFFFFF}Flip someone's car!" 0xFFFFFF
  560. end
  561. SAMP.CmdRet()
  562. jump @MAIN
  563.  
  564. :FLY_CMD
  565. wait 0
  566. SAMP.IsCommandTyped(1@)
  567. if
  568. 0AD4: 2@ = scan_string 1@ format "%d" 3@
  569. then
  570. if
  571. SAMP.IsPlayerConnected(3@)
  572. then
  573. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  574. if
  575. 056D: actor 4@ defined
  576. then
  577. if
  578. Actor.Driving(4@)
  579. then
  580. 0@ = 2
  581. else
  582. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fly: {FFFFFF}Target must be driving!" 0xFFFFFF
  583. end
  584. else
  585. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fly: {FFFFFF}Target too far away!" 0xFFFFFF
  586. end
  587. else
  588. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fly: {FFFFFF}Invalid ID!" 0xFFFFFF
  589. end
  590. else
  591. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fly: {FFFFFF}/tb.fly <ID>" 0xFFFFFF
  592. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fly: {FFFFFF}Make someone's car fly away!" 0xFFFFFF
  593. end
  594. SAMP.CmdRet()
  595. jump @MAIN
  596.  
  597. :FIRE_CMD
  598. wait 0
  599. SAMP.IsCommandTyped(1@)
  600. if
  601. 0AD4: 2@ = scan_string 1@ format "%d" 3@
  602. then
  603. if
  604. SAMP.IsPlayerConnected(3@)
  605. then
  606. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  607. if
  608. 056D: actor 4@ defined
  609. then
  610. if
  611. Actor.Driving(4@)
  612. then
  613. 0@ = 3
  614. else
  615. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fire: {FFFFFF}Target must be driving!" 0xFFFFFF
  616. end
  617. else
  618. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fire: {FFFFFF}Target too far away!" 0xFFFFFF
  619. end
  620. else
  621. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fire: {FFFFFF}Invalid ID!" 0xFFFFFF
  622. end
  623. else
  624. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fire: {FFFFFF}/tb.fire <ID>" 0xFFFFFF
  625. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fire: {FFFFFF}Put someone's car on fire!" 0xFFFFFF
  626. end
  627. SAMP.CmdRet()
  628. jump @MAIN
  629.  
  630. :LOAD_CMD
  631. wait 0
  632. SAMP.IsCommandTyped(1@)
  633. if
  634. 0AD4: 2@ = scan_string 1@ format "%d" 3@
  635. then
  636. if
  637. SAMP.IsPlayerConnected(3@)
  638. then
  639. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  640. if
  641. 056D: actor 4@ defined
  642. then
  643. if
  644. Actor.Driving(4@)
  645. then
  646. 0@ = 4
  647. else
  648. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.load: {FFFFFF}Target must be driving!" 0xFFFFFF
  649. end
  650. else
  651. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.load: {FFFFFF}Target too far away!" 0xFFFFFF
  652. end
  653. else
  654. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.load: {FFFFFF}Invalid ID!" 0xFFFFFF
  655. end
  656. else
  657. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.load: {FFFFFF}/tb.load <ID>" 0xFFFFFF
  658. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.load: {FFFFFF}Throw someone to loading screen!" 0xFFFFFF
  659. end
  660. SAMP.CmdRet()
  661. jump @MAIN
  662.  
  663. :POP_CMD
  664. wait 0
  665. SAMP.IsCommandTyped(1@)
  666. if
  667. 0AD4: 2@ = scan_string 1@ format "%d" 3@
  668. then
  669. if
  670. SAMP.IsPlayerConnected(3@)
  671. then
  672. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  673. if
  674. 056D: actor 4@ defined
  675. then
  676. if
  677. Actor.Driving(4@)
  678. then
  679. 0@ = 5
  680. else
  681. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.pop: {FFFFFF}Target must be driving!" 0xFFFFFF
  682. end
  683. else
  684. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.pop: {FFFFFF}Target too far away!" 0xFFFFFF
  685. end
  686. else
  687. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.pop: {FFFFFF}Invalid ID!" 0xFFFFFF
  688. end
  689. else
  690. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.pop: {FFFFFF}/tb.pop <ID>" 0xFFFFFF
  691. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.pop: {FFFFFF}Pop a car's tires!" 0xFFFFFF
  692. end
  693. SAMP.CmdRet()
  694. jump @MAIN
  695.  
  696. :COLOR_CMD
  697. wait 0
  698. SAMP.IsCommandTyped(1@)
  699. if
  700. 0AD4: 2@ = scan_string 1@ format "%d %d %d" 3@ 11@ 12@
  701. then
  702. if
  703. SAMP.IsPlayerConnected(3@)
  704. then
  705. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  706. if
  707. 056D: actor 4@ defined
  708. then
  709. if
  710. Actor.Driving(4@)
  711. then
  712. 0@ = 6
  713. else
  714. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.color: {FFFFFF}Target must be driving!" 0xFFFFFF
  715. end
  716. else
  717. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.color: {FFFFFF}Target too far away!" 0xFFFFFF
  718. end
  719. else
  720. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.color: {FFFFFF}Invalid ID!" 0xFFFFFF
  721. end
  722. else
  723. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.color: {FFFFFF}/tb.color <ID> <COLOR1> <COLOR2>" 0xFFFFFF
  724. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.color: {FFFFFF}Change someone's car color!" 0xFFFFFF
  725. end
  726. SAMP.CmdRet()
  727. jump @MAIN
  728.  
  729. :OCEAN_CMD
  730. wait 0
  731. SAMP.IsCommandTyped(1@)
  732. if
  733. 0AD4: 2@ = scan_string 1@ format "%d" 3@
  734. then
  735. if
  736. SAMP.IsPlayerConnected(3@)
  737. then
  738. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  739. if
  740. 056D: actor 4@ defined
  741. then
  742. if
  743. Actor.Driving(4@)
  744. then
  745. 0@ = 7
  746. else
  747. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.ocean: {FFFFFF}Target must be driving!" 0xFFFFFF
  748. end
  749. else
  750. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.ocean: {FFFFFF}Target too far away!" 0xFFFFFF
  751. end
  752. else
  753. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.ocean: {FFFFFF}Invalid ID!" 0xFFFFFF
  754. end
  755. else
  756. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.ocean: {FFFFFF}/tb.ocean <ID>" 0xFFFFFF
  757. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.ocean: {FFFFFF}Teleport someone's car to the ocean!" 0xFFFFFF
  758. end
  759. SAMP.CmdRet()
  760. jump @MAIN
  761.  
  762. :JACK_CMD
  763. wait 0
  764. SAMP.IsCommandTyped(1@)
  765. if
  766. 0AD4: 2@ = scan_string 1@ format "%d" 3@
  767. then
  768. if
  769. not Actor.Driving($PLAYER_ACTOR)
  770. then
  771. if
  772. SAMP.IsPlayerConnected(3@)
  773. then
  774. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  775. if
  776. 056D: actor 4@ defined
  777. then
  778. if
  779. Actor.Driving(4@)
  780. then
  781. 0@ = 8
  782. else
  783. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.jack: {FFFFFF}Target must be driving!" 0xFFFFFF
  784. end
  785. else
  786. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.jack: {FFFFFF}Target too far away!" 0xFFFFFF
  787. end
  788. else
  789. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.jack {FFFFFF}Invalid ID!" 0xFFFFFF
  790. end
  791. else
  792. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.jack: {FFFFFF}You must be onfoot!" 0xFFFFFF
  793. end
  794. else
  795. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.jack: {FFFFFF}/tb.jack <ID>" 0xFFFFFF
  796. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.jack: {FFFFFF}Jack someone's car!" 0xFFFFFF
  797. end
  798. SAMP.CmdRet()
  799. jump @MAIN
  800.  
  801. :TPTO_CMD
  802. wait 0
  803. SAMP.IsCommandTyped(1@)
  804. if
  805. 0AD4: 2@ = scan_string 1@ format "%d %d" 3@ 10@
  806. then
  807. if and
  808. SAMP.IsPlayerConnected(3@)
  809. SAMP.IsPlayerConnected(10@)
  810. then
  811. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  812. 11@ = SAMP.GetActorHandleByPlayerID(10@)
  813. if
  814. 056D: actor 4@ defined
  815. then
  816. if
  817. Actor.Driving(4@)
  818. then
  819. 0@ = 9
  820. else
  821. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.tpto: {FFFFFF}Target must be driving!" 0xFFFFFF
  822. end
  823. else
  824. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.tpto: {FFFFFF}Target too far away!" 0xFFFFFF
  825. end
  826. else
  827. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.tpto: {FFFFFF}Invalid IDs!" 0xFFFFFF
  828. end
  829. else
  830. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.tpto: {FFFFFF}/tb.tpto <Target ID> <Player ID>" 0xFFFFFF
  831. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.tpto: {FFFFFF}Teleport your target to another player!" 0xFFFFFF
  832. end
  833. SAMP.CmdRet()
  834. jump @MAIN
  835.  
  836. :HEAVEN_CMD
  837. wait 0
  838. SAMP.IsCommandTyped(1@)
  839. if
  840. 0AD4: 2@ = scan_string 1@ format "%d" 3@
  841. then
  842. if
  843. SAMP.IsPlayerConnected(3@)
  844. then
  845. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  846. if
  847. 056D: actor 4@ defined
  848. then
  849. if
  850. Actor.Driving(4@)
  851. then
  852. 0@ = 10
  853. else
  854. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.heaven: {FFFFFF}Target must be driving!" 0xFFFFFF
  855. end
  856. else
  857. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.heaven: {FFFFFF}Target too far away!" 0xFFFFFF
  858. end
  859. else
  860. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.heaven: {FFFFFF}Invalid ID!" 0xFFFFFF
  861. end
  862. else
  863. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.heaven: {FFFFFF}/tb.heaven <ID>" 0xFFFFFF
  864. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.heaven: {FFFFFF}Teleport someone's car REALLY REALLY high up!" 0xFFFFFF
  865. end
  866. SAMP.CmdRet()
  867. jump @MAIN
  868.  
  869. :KICK_CMD
  870. wait 0
  871. SAMP.IsCommandTyped(1@)
  872. if
  873. 0AD4: 2@ = scan_string 1@ format "%d" 3@
  874. then
  875. if
  876. SAMP.IsPlayerConnected(3@)
  877. then
  878. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  879. if
  880. 056D: actor 4@ defined
  881. then
  882. 0@ = 11
  883. else
  884. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.kick: {FFFFFF}Target too far away!" 0xFFFFFF
  885. end
  886. else
  887. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.kick: {FFFFFF}Invalid ID!" 0xFFFFFF
  888. end
  889. else
  890. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.kick: {FFFFFF}/tb.kick <ID>" 0xFFFFFF
  891. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.kick: {FFFFFF}Kick someone far away!" 0xFFFFFF
  892. end
  893. SAMP.CmdRet()
  894. jump @MAIN
  895.  
  896. :GROUND_CMD
  897. wait 0
  898. SAMP.IsCommandTyped(1@)
  899. if
  900. 0AD4: 2@ = scan_string 1@ format "%d" 3@
  901. then
  902. if
  903. SAMP.IsPlayerConnected(3@)
  904. then
  905. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  906. if
  907. 056D: actor 4@ defined
  908. then
  909. if
  910. Actor.Driving(4@)
  911. then
  912. 0@ = 12
  913. else
  914. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.ground: {FFFFFF}Target must be driving!" 0xFFFFFF
  915. end
  916. else
  917. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.ground: {FFFFFF}Target too far away!" 0xFFFFFF
  918. end
  919. else
  920. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.ground: {FFFFFF}Invalid ID!" 0xFFFFFF
  921. end
  922. else
  923. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.ground: {FFFFFF}/tb.ground <ID>" 0xFFFFFF
  924. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.ground: {FFFFFF}Stuck someone's car on the ground!" 0xFFFFFF
  925. end
  926. SAMP.CmdRet()
  927. jump @MAIN
  928.  
  929. :SLAG_CMD
  930. wait 0
  931. SAMP.IsCommandTyped(1@)
  932. if
  933. not Actor.Driving($PLAYER_ACTOR)
  934. then
  935. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.slag: {FFFFFF}Producing stream lag.." 0xFFFFFF
  936. 0@ = 13
  937. else
  938. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.slag: {FFFFFF}You must be onfoot!" 0xFFFFFF
  939. end
  940. SAMP.CmdRet()
  941. jump @MAIN
  942.  
  943. :PANIC_CMD
  944. wait 0
  945. 0@ = 0
  946. SAMP.CmdRet()
  947. jump @MAIN
  948.  
  949. :CMDS
  950. wait 0
  951. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}Commands" 0xFFFFFF
  952. 0AF8: samp add_message_to_chat "{FF0000}-------------------------------------------------" 0xFFFFFF
  953. 0AF8: samp add_message_to_chat "{FF0000}/tb.cmds - {FFFFFF}Show all commands!" 0xFFFFFF
  954. 0AF8: samp add_message_to_chat "{FF0000}/tb.panic - {FFFFFF}Stop everything!" 0xFFFFFF
  955. 0AF8: samp add_message_to_chat "{FF0000}/tb.flip - {FFFFFF}Flip someone's car upside down!" 0xFFFFFF
  956. 0AF8: samp add_message_to_chat "{FF0000}/tb.fly - {FFFFFF}Make someone's car fly away!" 0xFFFFFF
  957. 0AF8: samp add_message_to_chat "{FF0000}/tb.fire - {FFFFFF}Put someone's car on fire!" 0xFFFFFF
  958. 0AF8: samp add_message_to_chat "{FF0000}/tb.load - {FFFFFF}Throw someone to loading! (Supports 0.3.7 R1 client)" 0xFFFFFF
  959. 0AF8: samp add_message_to_chat "{FF0000}/tb.pop - {FFFFFF}Pop a car's tires!" 0xFFFFFF
  960. 0AF8: samp add_message_to_chat "{FF0000}/tb.color - {FFFFFF}Change someone's car color!" 0xFFFFFF
  961. 0AF8: samp add_message_to_chat "{FF0000}/tb.ocean - {FFFFFF}Teleport someone's car to the ocean!" 0xFFFFFF
  962. 0AF8: samp add_message_to_chat "{FF0000}/tb.jack - {FFFFFF}Jack someone's car!" 0xFFFFFF
  963. 0AF8: samp add_message_to_chat "{FF0000}/tb.tpto - {FFFFFF}Teleport your target to another player!" 0xFFFFFF
  964. 0AF8: samp add_message_to_chat "{FF0000}/tb.heaven - {FFFFFF}Teleport someone's car REALLY REALLY high!" 0xFFFFFF
  965. 0AF8: samp add_message_to_chat "{FF0000}/tb.kick - {FFFFFF}Kick someone far away!" 0xFFFFFF
  966. 0AF8: samp add_message_to_chat "{FF0000}/tb.ground - {FFFFFF}Stuck someone's car on the ground!" 0xFFFFFF
  967. 0AF8: samp add_message_to_chat "{FF0000}/tb.slag - {FFFFFF}Produce stream lag!" 0xFFFFFF
  968. SAMP.CmdRet()
  969. //-------------------------------COMMANDS-------------------------
  970.  
  971. //-------------------------------SNIPPETS-------------------------
  972. :SendUnOccupiedVehicleSync
  973. 7@ = SAMP.GetSAMPVehicleIDByCarHandle(0@)
  974. Car.PutAt(0@, 1@, 2@, 3@)
  975. alloc 4@ 67
  976. 0C0D: struct 4@ offset 0 size 2 = 7@
  977. 0C0D: struct 4@ offset 2 size 1 = 1
  978. 0C0D: struct 4@ offset 3 size 4 = -1.0
  979. 0C0D: struct 4@ offset 7 size 4 = -0.01
  980. 0C0D: struct 4@ offset 11 size 4 = 0.05
  981. 0C0D: struct 4@ offset 15 size 4 = 0.09
  982. 0C0D: struct 4@ offset 19 size 4 = -1.0
  983. 0C0D: struct 4@ offset 23 size 4 = 0.02
  984. 0C0D: struct 4@ offset 27 size 4 = 1@
  985. 0C0D: struct 4@ offset 31 size 4 = 2@
  986. 0C0D: struct 4@ offset 35 size 4 = 3@
  987. 0C0D: struct 4@ offset 39 size 4 = 0.0
  988. 0C0D: struct 4@ offset 43 size 4 = 0.0
  989. 0C0D: struct 4@ offset 47 size 4 = 400.0
  990. 0C0D: struct 4@ offset 51 size 4 = 0.0
  991. 0C0D: struct 4@ offset 55 size 4 = 0.0
  992. 0C0D: struct 4@ offset 59 size 4 = 0.0
  993. 0C0D: struct 4@ offset 63 size 4 = 1000.0
  994. 5@ = RakNet.NewBitStream()
  995. Raknet.Write(5@, 209, BS_TYPE_BYTE, 1)
  996. Raknet.Write(5@, 4@, BS_TYPE_ARRAY, 67)
  997. RakNet.LiteSend(5@)
  998. RakNet.DeleteBitStream(5@)
  999. free 4@
  1000. ret 0
  1001. //-------------------------------SNIPPETS-------------------------
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!