API tools faq
paste
TeHArGiS10

Untitled

TeHArGiS10
Jul 9th, 2016
104
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 15.06 KB | None | 0 0
raw download clone embed print report
  1. {$CLEO .cs}
  2. 0000:
  3. thread "TrollBoss"
  4.  
  5. //-------------------------------COMMANDS-------------------------------
  6. 0B34: "tb.flip" @FLIP_CMD
  7. 0B34: "tb.fly" @FLY_CMD
  8. 0B34: "tb.fire" @FIRE_CMD
  9. 0B34: "tb.load" @LOAD_CMD
  10. 0B34: "tb.pop" @POP_CMD
  11. 0B34: "tb.color" @COLOR_CMD
  12. 0B34: "tb.ocean" @OCEAN_CMD
  13. //-------------------------------COMMANDS-------------------------------
  14. 0@ = 0
  15. //-------------------------------MAIN-----------------------------------
  16. :MAIN
  17. wait 0
  18. if
  19. 0@ == 1
  20. then
  21. jump @FLIP_ACT
  22. end
  23.  
  24. if
  25. 0@ == 2
  26. then
  27. jump @FLY_ACT
  28. end
  29.  
  30. if
  31. 0@ == 3
  32. then
  33. jump @FIRE_ACT
  34. end
  35.  
  36. if
  37. 0@ == 4
  38. then
  39. jump @LOAD_ACT
  40. end
  41.  
  42. if
  43. 0@ == 5
  44. then
  45. jump @POP_ACT
  46. end
  47.  
  48. if
  49. 0@ == 6
  50. then
  51. jump @COLOR_ACT
  52. end
  53.  
  54. if
  55. 0@ == 7
  56. then
  57. jump @OCEAN_ACT
  58. end
  59. 0@ = 0
  60. SAMP.CmdRet()
  61. jump @MAIN
  62. //-------------------------------MAIN-----------------------------------
  63.  
  64. //-------------------------------ACTIONS--------------------------------
  65. :FLIP_ACT
  66. wait 0
  67. 6@ = Actor.CurrentCar(4@)
  68. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  69. if
  70. Actor.Driving($PLAYER_ACTOR)
  71. then
  72. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  73. 036A: put_actor $PLAYER_ACTOR in_car 6@
  74. wait 150
  75. Car.SetSpeedInstantly(6@, 0.0)
  76. 0731: set_car 6@ y_angle_to -180.0
  77. wait 400
  78. 036A: put_actor $PLAYER_ACTOR in_car 5@
  79. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  80. 036A: put_actor $PLAYER_ACTOR in_car 5@
  81. else
  82. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  83. wait 500
  84. 036A: put_actor $PLAYER_ACTOR in_car 6@
  85. wait 150
  86. Car.SetSpeedInstantly(6@, 0.0)
  87. 0731: set_car 6@ y_angle_to -180.0
  88. wait 400
  89. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  90. end
  91. 0@ = 0
  92. SAMP.CmdRet()
  93. jump @MAIN
  94.  
  95. :FLY_ACT
  96. wait 0
  97. 6@ = Actor.CurrentCar(4@)
  98. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  99. if
  100. Actor.Driving($PLAYER_ACTOR)
  101. then
  102. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  103. 036A: put_actor $PLAYER_ACTOR in_car 6@
  104. wait 150
  105. 0407: store_coords_to 10@ 11@ 12@ from_car 6@ with_offset 0.0 0.0 150.0
  106. Car.PutAt(6@, 10@, 11@, 12@)
  107. wait 150
  108. Car.SetSpeedInstantly(6@, 350.0)
  109. wait 250
  110. 036A: put_actor $PLAYER_ACTOR in_car 5@
  111. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  112. 036A: put_actor $PLAYER_ACTOR in_car 5@
  113. else
  114. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  115. wait 500
  116. 036A: put_actor $PLAYER_ACTOR in_car 6@
  117. wait 150
  118. 0407: store_coords_to 10@ 11@ 12@ from_car 6@ with_offset 0.0 0.0 150.0
  119. Car.PutAt(6@, 10@, 11@, 12@)
  120. wait 150
  121. Car.SetSpeedInstantly(6@, 350.0)
  122. wait 250
  123. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  124. end
  125. 0@ = 0
  126. SAMP.CmdRet()
  127. jump @MAIN
  128.  
  129. :FIRE_ACT
  130. wait 0
  131. 6@ = Actor.CurrentCar(4@)
  132. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  133. if
  134. Actor.Driving($PLAYER_ACTOR)
  135. then
  136. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  137. 036A: put_actor $PLAYER_ACTOR in_car 6@
  138. wait 150
  139. 0224: set_car 6@ health_to 200
  140. wait 400
  141. 036A: put_actor $PLAYER_ACTOR in_car 5@
  142. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  143. 036A: put_actor $PLAYER_ACTOR in_car 5@
  144. else
  145. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  146. wait 500
  147. 036A: put_actor $PLAYER_ACTOR in_car 6@
  148. wait 150
  149. 0224: set_car 6@ health_to 200
  150. wait 400
  151. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  152. end
  153. 0@ = 0
  154. SAMP.CmdRet()
  155. jump @MAIN
  156.  
  157. :LOAD_ACT
  158. wait 0
  159. 6@ = Actor.CurrentCar(4@)
  160. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  161. if
  162. Actor.Driving($PLAYER_ACTOR)
  163. then
  164. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  165. 036A: put_actor $PLAYER_ACTOR in_car 6@
  166. wait 250
  167. Car.PutAt(6@, -1.792915E38, -1.25, 5019.66)
  168. wait 400
  169. 036A: put_actor $PLAYER_ACTOR in_car 5@
  170. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  171. 036A: put_actor $PLAYER_ACTOR in_car 5@
  172. else
  173. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  174. wait 500
  175. 036A: put_actor $PLAYER_ACTOR in_car 6@
  176. wait 250
  177. Car.PutAt(6@, -1.792915E38, -1.25, 5019.66)
  178. wait 400
  179. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  180. end
  181. wait 250
  182. Camera.Restore_WithJumpCut()
  183. 0@ = 0
  184. SAMP.CmdRet()
  185. jump @MAIN
  186.  
  187. :POP_ACT
  188. wait 0
  189. 6@ = Actor.CurrentCar(4@)
  190. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  191. if
  192. Actor.Driving($PLAYER_ACTOR)
  193. then
  194. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  195. 036A: put_actor $PLAYER_ACTOR in_car 6@
  196. wait 150
  197. 04FE: deflate_tire 1 on_car 6@
  198. 04FE: deflate_tire 2 on_car 6@
  199. 04FE: deflate_tire 3 on_car 6@
  200. 04FE: deflate_tire 4 on_car 6@
  201. wait 250
  202. 036A: put_actor $PLAYER_ACTOR in_car 5@
  203. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  204. 036A: put_actor $PLAYER_ACTOR in_car 5@
  205. else
  206. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  207. wait 500
  208. 036A: put_actor $PLAYER_ACTOR in_car 6@
  209. wait 150
  210. 04FE: deflate_tire 1 on_car 6@
  211. 04FE: deflate_tire 2 on_car 6@
  212. 04FE: deflate_tire 3 on_car 6@
  213. 04FE: deflate_tire 4 on_car 6@
  214. wait 250
  215. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  216. end
  217. 0@ = 0
  218. SAMP.CmdRet()
  219. jump @MAIN
  220.  
  221. :COLOR_ACT
  222. wait 0
  223. 6@ = Actor.CurrentCar(4@)
  224. 10@ = SAMP.GetSAMPVehicleIDByCarHandle(6@)
  225. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  226. if
  227. Actor.Driving($PLAYER_ACTOR)
  228. then
  229. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  230. 036A: put_actor $PLAYER_ACTOR in_car 6@
  231. wait 150
  232. SAMP.SendSCMEvent(10@, COLOR, 11@, 12@)
  233. 0229: set_car 6@ primary_color_to 11@ secondary_color_to 12@
  234. wait 400
  235. 036A: put_actor $PLAYER_ACTOR in_car 5@
  236. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  237. 036A: put_actor $PLAYER_ACTOR in_car 5@
  238. else
  239. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  240. wait 500
  241. 036A: put_actor $PLAYER_ACTOR in_car 6@
  242. wait 150
  243. SAMP.SendSCMEvent(10@, COLOR, 11@, 12@)
  244. 0229: set_car 6@ primary_color_to 11@ secondary_color_to 12@
  245. wait 400
  246. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  247. end
  248. 0@ = 0
  249. SAMP.CmdRet()
  250. jump @MAIN
  251.  
  252. :OCEAN_ACT
  253. wait 0
  254. 6@ = Actor.CurrentCar(4@)
  255. Actor.StorePos($PLAYER_ACTOR, 7@, 8@, 9@)
  256. if
  257. Actor.Driving($PLAYER_ACTOR)
  258. then
  259. 5@ = Actor.CurrentCar($PLAYER_ACTOR)
  260. 036A: put_actor $PLAYER_ACTOR in_car 6@
  261. wait 250
  262. Car.PutAt(6@, -4000.0, 4000.0, -30.0)
  263. wait 400
  264. 036A: put_actor $PLAYER_ACTOR in_car 5@
  265. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  266. 036A: put_actor $PLAYER_ACTOR in_car 5@
  267. else
  268. 0430: put_actor $PLAYER_ACTOR into_car 6@ passenger_seat -1
  269. wait 500
  270. 036A: put_actor $PLAYER_ACTOR in_car 6@
  271. wait 250
  272. Car.PutAt(6@, -4000.0, 4000.0, -30.0)
  273. wait 400
  274. 0362: remove_actor $PLAYER_ACTOR from_car_and_place_at 7@ 8@ 9@
  275. end
  276. wait 250
  277. Camera.Restore_WithJumpCut()
  278. 0@ = 0
  279. SAMP.CmdRet()
  280. jump @MAIN
  281. //-------------------------------ACTIONS--------------------------------
  282.  
  283. //-------------------------------COMMANDS-------------------------
  284. :FLIP_CMD
  285. wait 0
  286. SAMP.IsCommandTyped(1@)
  287. if
  288. 0AD4: 2@ = scan_string 1@ format "%d" 3@
  289. then
  290. if
  291. SAMP.IsPlayerConnected(3@)
  292. then
  293. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  294. if
  295. 056D: actor 4@ defined
  296. then
  297. if
  298. Actor.Driving(4@)
  299. then
  300. 0@ = 1
  301. else
  302. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.flip: {FFFFFF}Target must be driving!" 0xFFFFFF
  303. end
  304. else
  305. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.flip: {FFFFFF}Target too far away!" 0xFFFFFF
  306. end
  307. else
  308. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.flip: {FFFFFF}Invalid ID!" 0xFFFFFF
  309. end
  310. else
  311. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.flip: {FFFFFF}/tb.flip <ID>" 0xFFFFFF
  312. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.flip: {FFFFFF}Flip someone's car!" 0xFFFFFF
  313. end
  314. SAMP.CmdRet()
  315. jump @MAIN
  316.  
  317. :FLY_CMD
  318. wait 0
  319. SAMP.IsCommandTyped(1@)
  320. if
  321. 0AD4: 2@ = scan_string 1@ format "%d" 3@
  322. then
  323. if
  324. SAMP.IsPlayerConnected(3@)
  325. then
  326. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  327. if
  328. 056D: actor 4@ defined
  329. then
  330. if
  331. Actor.Driving(4@)
  332. then
  333. 0@ = 2
  334. else
  335. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fly: {FFFFFF}Target must be driving!" 0xFFFFFF
  336. end
  337. else
  338. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fly: {FFFFFF}Target too far away!" 0xFFFFFF
  339. end
  340. else
  341. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fly: {FFFFFF}Invalid ID!" 0xFFFFFF
  342. end
  343. else
  344. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fly: {FFFFFF}/tb.fly <ID>" 0xFFFFFF
  345. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fly: {FFFFFF}Make someone's car fly away!" 0xFFFFFF
  346. end
  347. SAMP.CmdRet()
  348. jump @MAIN
  349.  
  350. :FIRE_CMD
  351. wait 0
  352. SAMP.IsCommandTyped(1@)
  353. if
  354. 0AD4: 2@ = scan_string 1@ format "%d" 3@
  355. then
  356. if
  357. SAMP.IsPlayerConnected(3@)
  358. then
  359. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  360. if
  361. 056D: actor 4@ defined
  362. then
  363. if
  364. Actor.Driving(4@)
  365. then
  366. 0@ = 3
  367. else
  368. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fire: {FFFFFF}Target must be driving!" 0xFFFFFF
  369. end
  370. else
  371. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fire: {FFFFFF}Target too far away!" 0xFFFFFF
  372. end
  373. else
  374. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fire: {FFFFFF}Invalid ID!" 0xFFFFFF
  375. end
  376. else
  377. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fire: {FFFFFF}/tb.fire <ID>" 0xFFFFFF
  378. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.fire: {FFFFFF}Put someone's car on fire!" 0xFFFFFF
  379. end
  380. SAMP.CmdRet()
  381. jump @MAIN
  382.  
  383. :LOAD_CMD
  384. wait 0
  385. SAMP.IsCommandTyped(1@)
  386. if
  387. 0AD4: 2@ = scan_string 1@ format "%d" 3@
  388. then
  389. if
  390. SAMP.IsPlayerConnected(3@)
  391. then
  392. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  393. if
  394. 056D: actor 4@ defined
  395. then
  396. if
  397. Actor.Driving(4@)
  398. then
  399. 0@ = 4
  400. else
  401. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.load: {FFFFFF}Target must be driving!" 0xFFFFFF
  402. end
  403. else
  404. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.load: {FFFFFF}Target too far away!" 0xFFFFFF
  405. end
  406. else
  407. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.load: {FFFFFF}Invalid ID!" 0xFFFFFF
  408. end
  409. else
  410. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.load: {FFFFFF}/tb.load <ID>" 0xFFFFFF
  411. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.load: {FFFFFF}Throw someone to loading screen!" 0xFFFFFF
  412. end
  413. SAMP.CmdRet()
  414. jump @MAIN
  415.  
  416. :POP_CMD
  417. wait 0
  418. SAMP.IsCommandTyped(1@)
  419. if
  420. 0AD4: 2@ = scan_string 1@ format "%d" 3@
  421. then
  422. if
  423. SAMP.IsPlayerConnected(3@)
  424. then
  425. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  426. if
  427. 056D: actor 4@ defined
  428. then
  429. if
  430. Actor.Driving(4@)
  431. then
  432. 0@ = 5
  433. else
  434. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.pop: {FFFFFF}Target must be driving!" 0xFFFFFF
  435. end
  436. else
  437. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.pop: {FFFFFF}Target too far away!" 0xFFFFFF
  438. end
  439. else
  440. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.pop: {FFFFFF}Invalid ID!" 0xFFFFFF
  441. end
  442. else
  443. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.pop: {FFFFFF}/tb.pop <ID>" 0xFFFFFF
  444. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.pop: {FFFFFF}Pop a car's tires!" 0xFFFFFF
  445. end
  446. SAMP.CmdRet()
  447. jump @MAIN
  448.  
  449. :COLOR_CMD
  450. wait 0
  451. SAMP.IsCommandTyped(1@)
  452. if
  453. 0AD4: 2@ = scan_string 1@ format "%d %d %d" 3@ 11@ 12@
  454. then
  455. if
  456. SAMP.IsPlayerConnected(3@)
  457. then
  458. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  459. if
  460. 056D: actor 4@ defined
  461. then
  462. if
  463. Actor.Driving(4@)
  464. then
  465. 0@ = 6
  466. else
  467. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.color: {FFFFFF}Target must be driving!" 0xFFFFFF
  468. end
  469. else
  470. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.color: {FFFFFF}Target too far away!" 0xFFFFFF
  471. end
  472. else
  473. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.color: {FFFFFF}Invalid ID!" 0xFFFFFF
  474. end
  475. else
  476. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.color: {FFFFFF}/tb.color <ID> <COLOR1> <COLOR2>" 0xFFFFFF
  477. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.color: {FFFFFF}Change someone's car color!" 0xFFFFFF
  478. end
  479. SAMP.CmdRet()
  480. jump @MAIN
  481.  
  482. :OCEAN_CMD
  483. wait 0
  484. SAMP.IsCommandTyped(1@)
  485. if
  486. 0AD4: 2@ = scan_string 1@ format "%d" 3@
  487. then
  488. if
  489. SAMP.IsPlayerConnected(3@)
  490. then
  491. 4@ = SAMP.GetActorHandleByPlayerID(3@)
  492. if
  493. 056D: actor 4@ defined
  494. then
  495. if
  496. Actor.Driving(4@)
  497. then
  498. 0@ = 7
  499. else
  500. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.ocean: {FFFFFF}Target must be driving!" 0xFFFFFF
  501. end
  502. else
  503. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.ocean: {FFFFFF}Target too far away!" 0xFFFFFF
  504. end
  505. else
  506. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.ocean: {FFFFFF}Invalid ID!" 0xFFFFFF
  507. end
  508. else
  509. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.ocean: {FFFFFF}/tb.ocean <ID>" 0xFFFFFF
  510. 0AF8: samp add_message_to_chat "{FF0000}[TrollBoss] {FFFFFF}> {FF0000}tb.ocean: {FFFFFF}Teleport someone's car to the ocean!" 0xFFFFFF
  511. end
  512. SAMP.CmdRet()
  513. jump @MAIN
  514. //-------------------------------COMMANDS-------------------------
Advertisement
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!