TeHArGiS10

Untitled

Jun 12th, 2016
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.65 KB | None | 0 0
  1.  
  2. {$CLEO}
  3.  
  4. thread 'Skick'
  5.  
  6. :Skick_26
  7. wait 400
  8. if
  9. SAMP.Available
  10. else_goto @Skick_26
  11. wait 7000
  12. chatmsg "[Kicker]: /sk [pID] [vID]" 4474111
  13.  
  14. cmd "sk" @Skick_680
  15.  
  16. :Skick_184
  17. wait 0
  18. if
  19. 31@ == 1
  20. else_goto @Skick_673
  21. print "Trolled" 1080
  22. 31@ = 0
  23. 9@ = 0
  24.  
  25. :Skick_271
  26. 04C4: store_coords_to 3@ 4@ 5@ from_actor 1@ with_offset 0.0 0.0 -1.0
  27. Actor.StorePos($PLAYER_ACTOR, 10@, 11@, 12@)
  28. Car.StorePos(2@, 6@, 7@, 8@)
  29. 050A: 13@ = distance_between_XYZ 6@ 7@ 8@ and_XYZ 10@ 11@ 12@
  30. if and
  31. not 13@ > 30.0
  32. not 9@ > 3
  33. Actor.Driving($PLAYER_ACTOR)
  34. else_goto @Skick_432
  35. call @Skick_1199 3 6@ 7@ 8@
  36. call @Skick_880 4 2@ 3@ 4@ 5@
  37. jump @Skick_473
  38.  
  39. :Skick_432
  40. call @Skick_1331 3 6@ 7@ 8@
  41. call @Skick_880 4 2@ 3@ 4@ 5@
  42.  
  43. :Skick_473
  44. wait 40
  45. 050A: 13@ = distance_between_XYZ 3@ 4@ 5@ and_XYZ 10@ 11@ 12@
  46. if and
  47. not 13@ > 30.0
  48. not 9@ > 3
  49. Actor.Driving($PLAYER_ACTOR)
  50. else_goto @Skick_581
  51. call @Skick_1199 3 3@ 4@ 5@
  52. call @Skick_880 4 2@ 3@ 4@ 5@
  53. jump @Skick_622
  54.  
  55. :Skick_581
  56. call @Skick_1331 3 3@ 4@ 5@
  57. call @Skick_880 4 2@ 3@ 4@ 5@
  58.  
  59. :Skick_622
  60. wait 40
  61. call @Skick_880 4 2@ 3@ 4@ 5@
  62. wait 40
  63. 9@ += 1
  64. 9@ > 9
  65. else_goto @Skick_271
  66.  
  67. :Skick_673
  68. jump @Skick_184
  69.  
  70. :Skick_680
  71. SAMP.IsCommandTyped(0@)
  72. if
  73. 0AD4: 0@ = scan_string 0@ format "%d %d" 1@ 2@
  74. else_goto @Skick_827
  75. 1@ = SAMP.GetActorHandleByPlayerID(1@)
  76. 2@ = SAMP.GetVehicleHandleBySAMPVehicleID(2@)
  77. if and
  78. is_actor_defined 1@
  79. is_car_defined 2@
  80. else_goto @Skick_769
  81. 31@ = 1
  82. jump @Skick_820
  83.  
  84. :Skick_769
  85. chatmsg "[Kicker]: /sk [pID] [vID]" 4474111
  86.  
  87. :Skick_820
  88. jump @Skick_878
  89.  
  90. :Skick_827
  91. chatmsg "[Kicker]: Unstreamed vehicle or actor" 4474111
  92.  
  93. :Skick_878
  94. SAMP.CmdRet
  95.  
  96. :Skick_880
  97. 7@ = SAMP.GetSAMPVehicleIDByCarHandle(0@)
  98. Car.PutAt(0@, 1@, 2@, 3@)
  99. alloc 4@ 67
  100. 0C0D: struct 4@ offset 0 size 2 = 7@
  101. 0C0D: struct 4@ offset 2 size 1 = 1
  102. 0C0D: struct 4@ offset 3 size 4 = -1.0
  103. 0C0D: struct 4@ offset 7 size 4 = -0.01
  104. 0C0D: struct 4@ offset 11 size 4 = 0.05
  105. 0C0D: struct 4@ offset 15 size 4 = 0.09
  106. 0C0D: struct 4@ offset 19 size 4 = -1.0
  107. 0C0D: struct 4@ offset 23 size 4 = 0.02
  108. 0C0D: struct 4@ offset 27 size 4 = 1@
  109. 0C0D: struct 4@ offset 31 size 4 = 2@
  110. 0C0D: struct 4@ offset 35 size 4 = 3@
  111. 0C0D: struct 4@ offset 39 size 4 = 0.0
  112. 0C0D: struct 4@ offset 43 size 4 = 0.0
  113. 0C0D: struct 4@ offset 47 size 4 = 400.0
  114. 0C0D: struct 4@ offset 51 size 4 = 0.0
  115. 0C0D: struct 4@ offset 55 size 4 = 0.0
  116. 0C0D: struct 4@ offset 59 size 4 = 0.0
  117. 0C0D: struct 4@ offset 63 size 4 = 1000.0
  118. 5@ = RakNet.NewBitStream()
  119. BitStream.Write(5@, 209, BS_TYPE_BYTE, 1)
  120. BitStream.Write(5@, 4@, BS_TYPE_ARRAY, 67)
  121. RakNet.LiteSend(5@)
  122. RakNet.DeleteBitStream(5@)
  123. free 4@
  124. ret 0
  125.  
  126. :Skick_1199
  127. 4@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
  128. 4@ = SAMP.GetPlayerStruct(4@)
  129. 4@ += 170
  130. alloc 5@ 63
  131. 0C10: memcpy destination 5@ source 4@ size 63
  132. 0C0D: struct 5@ offset 24 size 4 = 0@
  133. 0C0D: struct 5@ offset 28 size 4 = 1@
  134. 0C0D: struct 5@ offset 32 size 4 = 2@
  135. 6@ = RakNet.NewBitStream()
  136. BitStream.Write(6@, 200, BS_TYPE_BYTE, 1)
  137. BitStream.Write(6@, 5@, BS_TYPE_ARRAY, 63)
  138. RakNet.Send(6@, 1, 7, 0)
  139. RakNet.DeleteBitStream(6@)
  140. free 5@
  141. ret 0
  142.  
  143. :Skick_1331
  144. 3@ = SAMP.GetSAMPPlayerIDByActorHandle($PLAYER_ACTOR)
  145. 3@ = SAMP.GetPlayerStruct(3@)
  146. 3@ += 109
  147. alloc 4@ 68
  148. 0C10: memcpy destination 4@ source 3@ size 68
  149. 0C0D: struct 4@ offset 6 size 4 = 0@
  150. 0C0D: struct 4@ offset 10 size 4 = 1@
  151. 0C0D: struct 4@ offset 14 size 4 = 2@
  152. 5@ = RakNet.NewBitStream()
  153. BitStream.Write(5@, 207, BS_TYPE_BYTE, 1)
  154. BitStream.Write(5@, 4@, BS_TYPE_ARRAY, 68)
  155. RakNet.Send(5@, 1, 7, 0)
  156. RakNet.DeleteBitStream(5@)
  157. free 4@
  158. ret 0
Advertisement
Add Comment
Please, Sign In to add comment