Pastebin launched a little side project called HostCabi.net, check it out ;-)Don't like ads? PRO users don't see any ads ;-)
Guest

Untitled

By: a guest on Apr 25th, 2013  |  syntax: None  |  size: 6.21 KB  |  hits: 47  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. {$CLEO .cs}
  2. {$VERSION 3.1.0040}
  3. 0000:
  4. while true
  5. wait 0        
  6.         if and
  7.         80DF:   not actor $PLAYER_ACTOR driving
  8.         0AB0:  key_pressed 84  //VK_T
  9.         then
  10.         00A0: store_player $PLAYER_ACTOR position_to 1@ 2@ 3@
  11.         073E: get_car_in_sphere 1@ 2@ 3@ radius 30.0 model #TAXI handle_as 0@
  12.         if
  13.         856E: not  car 0@ defined
  14.         then
  15.         073E: get_car_in_sphere 1@ 2@ 3@ radius 30.0 model #CABBIE handle_as 0@
  16.         end
  17.               if
  18.               056E:   car 0@ defined
  19.               then
  20.                   if and
  21.                   8495:   not car 0@ burning
  22.                   8119:   not car 0@ wrecked
  23.                   81F4:   not car 0@ flipped
  24.                   then
  25.                       046C: 16@ = car 0@ driver
  26.                       01E9: 5@ = car 0@ num_passengers
  27.                        if and
  28.                        5@ == 0
  29.                        056D:   actor 16@ defined
  30.                        803C:   16@ <> $PLAYER_ACTOR  // (int)
  31.                        then
  32.                            0AB1: call_scm_func @taxi1 2 0@ 16@
  33.                                  if
  34.                                  00DB: actor $PLAYER_ACTOR in_car 0@
  35.                                  then
  36.                                  0AB1: call_scm_func @taxi2 params_count 1 0@
  37.                                  end
  38.                        else
  39.                        00BC: show_text_highpriority GXT 'ATNCLCR' time 3000 flag 1
  40.                        Car.RemoveReferences(0@)
  41.                        end
  42.                   else
  43.                   00BC: show_text_highpriority GXT 'ATNOCAB' time 3000 flag 1
  44.                   Car.RemoveReferences(0@)    
  45.                   end
  46.               else
  47.               00BC: show_text_highpriority GXT 'ATNOCAB' time 3000 flag 1
  48.               Car.RemoveReferences(0@)    
  49.               end
  50.         end
  51. end
  52.  
  53.  
  54. :taxi2
  55. 0390: load_txd_dictionary 'taxi'
  56. 038F: load_texture "map" as 127 // Load dictionary with 0390 first
  57. 038F: load_texture "cross" as 128 // Load dictionary with 0390 first
  58. 038B: load_requested
  59. 5@ = 320.0
  60. 6@ = 225.0
  61. 10@ = 3000.0
  62. 10@ /= 450.0
  63. 33@ = 3000
  64. while true
  65. wait 0
  66. 03F0: enable_text_draw 1
  67. 03E3: set_texture_to_be_drawn_antialiased 1
  68. 038D: draw_texture 127 position 320.0 225.0 size 640.0 450.0 RGBA 255 255 255 255
  69. 03E3: set_texture_to_be_drawn_antialiased 1
  70. 038D: draw_texture 128 position 5@ 6@ size 16.0 16.0 RGBA 255 255 255 255
  71. if
  72.   0AB0:  key_pressed 65
  73. then
  74. 5@ -= 1.0
  75. end
  76.  
  77. if
  78.   0AB0:  key_pressed 68
  79. then
  80. 5@ += 1.0
  81. end
  82.  
  83. if
  84.   0AB0:  key_pressed 87
  85. then
  86. 6@ -= 1.0
  87. end
  88.  
  89. if
  90.   0AB0:  key_pressed 83
  91. then
  92. 6@ += 1.0
  93. end
  94.  
  95. 0A8D: 14@ = read_memory 0xB73424 size 4 virtual_protect 1 //X
  96. 0A8D: 15@ = read_memory 0xB73428 size 4 virtual_protect 1 //Y
  97.  
  98. if
  99.   14@ <> 0
  100. then
  101. 005B: 5@ += 14@  // (float)
  102. end
  103.  
  104. if
  105.   15@ <> 0
  106. then
  107. 15@ *= -1.0
  108. 005B: 6@ += 15@  // (float)
  109. end
  110.  
  111. if
  112. 6@ < 0.0
  113. then
  114. 6@ = 0.0
  115. end
  116. if
  117. 6@ > 448.0
  118. then
  119. 6@ = 448.0
  120. end
  121. if
  122. 5@ < 0.0
  123. then
  124. 5@ = 0.0
  125. end
  126. if
  127. 5@ > 640.0
  128. then
  129. 5@ = 640.0
  130. end
  131.  
  132. 0087: 7@ = 5@ // (float)
  133. 7@ *= 4.6875
  134. 7@ -= 1500.0
  135. 7@ *= 2.0
  136. 0087: 8@ = 6@ // (float)
  137. 006B: 8@ *= 10@ // (float)
  138. 8@ -= 1500.0
  139. 8@ *= 2.0
  140. 0087: 9@ = 8@ // (float)
  141. 9@ *= 2.0
  142. 0063: 8@ -= 9@ // (float)
  143. if
  144. 00E1:   key_pressed 0 17
  145. then
  146. 33@ = 0
  147. 04E4: refresh_game_renderer_at 7@ 8@
  148. while 33@ < 3000
  149. 00AB: put_car 0@ at 7@ 8@ 100.0
  150. 03F0: enable_text_draw 1
  151. 03E3: set_texture_to_be_drawn_antialiased 1
  152. 038D: draw_texture 127 position 320.0 225.0 size 640.0 450.0 RGBA 255 255 255 255
  153. wait 0
  154. 04D3: get_nearest_car_path_coords_from 7@ 8@ 10.0 type 2 store_to 11@ 12@ 13@
  155. 073E: get_car_in_sphere 11@ 12@ 13@ radius 10.0 model -1 handle_as 19@
  156. if
  157. 056E:   car 19@ defined
  158. then
  159. Car.StorePos(19@, 11@, 12@, 13@)
  160. 23@ = Car.Angle(19@)
  161. Car.Destroy(19@)
  162. break
  163. end
  164. end
  165. //04D3: get_nearest_car_path_coords_from 7@ 8@ 100.0 type 2 store_to 11@ 12@ 13@  
  166. 00AB: put_car 0@ at 11@ 12@ 13@
  167. Car.Angle(0@) = 23@
  168. 04BA: set_car 0@ speed_instantly 30.0
  169. 0509: 3@ = distance between point 7@ 8@ and point 11@ 12@
  170. 008C: 3@ = float_to_integer 3@
  171. 3@ *= -10
  172. 0109: player $PLAYER_CHAR money += 3@
  173. while 00DB:  actor $PLAYER_ACTOR in_car 0@
  174. wait 200
  175. end
  176. 00AD: set_car 0@ max_speed_to 10.0
  177. 00A7: car 0@ drive_to 0.0 0.0 0.0
  178. 00A9: set_car 0@ to_normal_driver
  179. 00AF: set_car 0@ driver_behaviour_to 13
  180. 01C3: remove_references_to_car 0@ // Like turning a car into any random car      
  181. 0391: release_textures
  182. break
  183. end
  184.  
  185. if
  186. 80DB:   not actor $PLAYER_ACTOR in_car 0@
  187. then
  188. 00AD: set_car 0@ max_speed_to 10.0
  189. 00A7: car 0@ drive_to 0.0 0.0 0.0
  190. 00A9: set_car 0@ to_normal_driver
  191. 00AF: set_car 0@ driver_behaviour_to 13
  192. 01C3: remove_references_to_car 0@ // Like turning a car into any random car      
  193. 0391: release_textures
  194. break
  195. end  
  196.  
  197. end        
  198. 0AB2: ret 0
  199.  
  200.  
  201. :taxi1
  202. {0@ - car
  203. 1@ - driver
  204. }
  205. 02D4: car 0@ turn_off_engine
  206. 33@ = 10000
  207. 33@ *= -1
  208. 32@ = 100
  209. 15@ = 0  
  210. 0186: 14@ = create_marker_above_car 0@
  211. 07E0: set_marker 14@ type_to 1
  212. while true
  213. wait 0
  214. 0085: 10@ = 33@ // (int)
  215. 10@ /= 1000
  216. 10@ *= -1
  217. if and
  218. 056E:   car 0@ defined
  219. 89DE:   not actor $PLAYER_ACTOR entering_car  
  220. 80DB: not actor $PLAYER_ACTOR in_car 0@
  221. then
  222. 01E5: show_text_1number_highpriority GXT 'ATTHCA1' number 10@ time 1 flag 1
  223. 00AA: store_car 0@ position_to 1@ 2@ 3@
  224. end
  225.  
  226. if and
  227. 056E:   car 0@ defined
  228. 89DE:   not actor $PLAYER_ACTOR entering_car
  229. 00FF:   actor $PLAYER_ACTOR sphere 0 in_sphere 1@ 2@ 3@ radius 2.5 2.5 2.5 on_foot
  230. then
  231. 00BC: text_highpriority 'ATTRME3' 1 ms 1  //
  232. if
  233. 00E1:   key_pressed 0 11
  234. then
  235. 0209: 30@ = random_int_in_ranges 0 3
  236. 05CA: AS_actor $PLAYER_ACTOR enter_car 0@ passenger_seat 30@ 10000 ms
  237. end
  238. end
  239.  
  240. if and
  241. 056E:   car 0@ defined
  242. 00DB:  actor $PLAYER_ACTOR in_car 0@
  243. then
  244. 03E6: remove_text_box
  245. 0164: disable_marker 14@
  246. break
  247. end
  248.  
  249. if and
  250. 056E:   car 0@ defined
  251. 89DE:   not actor $PLAYER_ACTOR entering_car
  252. 80DB: not actor $PLAYER_ACTOR in_car 0@
  253. 10@ <= 0
  254. then
  255. 0164: disable_marker 14@
  256. Car.SetMaxSpeed(0@, 30.0)
  257. 02C2: car 0@ drive_to 0.0 0.0 0.0
  258. 00AF: set_car 0@ driver_behaviour_to 13
  259. 01C3: remove_references_to_car 0@
  260. break
  261. end
  262.  
  263. if
  264. 856E: not  car 0@ defined
  265. then
  266. break
  267. end
  268. end
  269. 0AB2: ret 0