API tools faq
paste
Guest User

Untitled

a guest
Jun 18th, 2018
86
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.89 KB | None | 0 0
raw download clone embed print report
  1. SCRIPT_START
  2. {
  3.  
  4. LVAR_INT iHour iMin audio chance iDay[2]
  5. LVAR_INT scplayer leatherface krueger samara jason michael scream vitima carro
  6. LVAR_FLOAT x y z
  7.  
  8. GOSUB readini
  9.  
  10. GET_PLAYER_CHAR 0 scplayer
  11.  
  12. main_loop:
  13. WAIT 0
  14.  
  15. //leatherface
  16. IF LOCATE_CHAR_ANY_MEANS_3D scplayer -393.0 -1149.0 69.4 200.0 200.0 200.0 FALSE
  17. GET_TIME_OF_DAY iHour iMin
  18. IF iHour >= 0
  19. AND iHour <= 5
  20. GET_CURRENT_DAY_OF_WEEK iDay[0]
  21. IF CLEO_CALL Randomize 0 chance
  22. AND NOT iDay[0] = iDay[1]
  23. GOTO mito01
  24. ELSE
  25. iDay[1] = iDay[0]
  26. ENDIF
  27. ENDIF
  28. ENDIF
  29.  
  30. //freddy krueger
  31. IF LOCATE_CHAR_ANY_MEANS_3D scplayer 601.315979 1240.933594 11.718750 150.0 150.0 150.0 FALSE
  32. GET_TIME_OF_DAY iHour iMin
  33. IF iHour >= 0
  34. AND iHour <= 5
  35. GET_CURRENT_DAY_OF_WEEK iDay[0]
  36. IF CLEO_CALL Randomize 0 chance
  37. AND NOT iDay[0] = iDay[1]
  38. GOTO mito02
  39. ELSE
  40. iDay[1] = iDay[0]
  41. ENDIF
  42. ENDIF
  43. ENDIF
  44.  
  45. //samara
  46. IF LOCATE_CHAR_ANY_MEANS_3D scplayer 1271.366699 295.516815 20.656307 50.0 50.0 50.0 FALSE
  47. GET_TIME_OF_DAY iHour iMin
  48. IF iHour >= 2
  49. AND iHour <= 4
  50. GET_CURRENT_DAY_OF_WEEK iDay[0]
  51. IF CLEO_CALL Randomize 0 chance
  52. AND NOT iDay[0] = iDay[1]
  53. GOTO mito03
  54. ELSE
  55. iDay[1] = iDay[0]
  56. ENDIF
  57. ENDIF
  58. ENDIF
  59.  
  60. //jason voorhees
  61. IF LOCATE_CHAR_ANY_MEANS_3D scplayer -1617.745972 -2265.895020 33.007809 250.0 250.0 250.0 FALSE
  62. GET_TIME_OF_DAY iHour iMin
  63. IF iHour >= 0
  64. AND iHour <= 5
  65. GET_CURRENT_DAY_OF_WEEK iDay[0]
  66. IF CLEO_CALL Randomize 0 chance
  67. AND NOT iDay[0] = iDay[1]
  68. GOTO mito04
  69. ELSE
  70. iDay[1] = iDay[0]
  71. ENDIF
  72. ENDIF
  73. ENDIF
  74.  
  75. //michael myers
  76. IF LOCATE_CHAR_ANY_MEANS_3D scplayer -2807.929932 1116.330078 28.320313 150.0 150.0 150.0 FALSE
  77. GET_TIME_OF_DAY iHour iMin
  78. IF iHour >= 0
  79. AND iHour <= 5
  80. GET_CURRENT_DAY_OF_WEEK iDay[0]
  81. IF CLEO_CALL Randomize 0 chance
  82. AND NOT iDay[0] = iDay[1]
  83. GOTO mito05
  84. ELSE
  85. iDay[1] = iDay[0]
  86. ENDIF
  87. ENDIF
  88. ENDIF
  89.  
  90. //scream
  91. IF LOCATE_CHAR_ANY_MEANS_3D scplayer 1857.063599 2771.826172 10.835938 150.0 150.0 150.0 FALSE
  92. GET_TIME_OF_DAY iHour iMin
  93. IF iHour >= 0
  94. AND iHour <= 5
  95. GET_CURRENT_DAY_OF_WEEK iDay[0]
  96. IF CLEO_CALL Randomize 0 chance
  97. AND NOT iDay[0] = iDay[1]
  98. GOTO mito06
  99. ELSE
  100. iDay[1] = iDay[0]
  101. ENDIF
  102. ENDIF
  103. ENDIF
  104.  
  105. GOTO main_loop
  106.  
  107. ////////////////////////////////////////////////
  108.  
  109. readini:
  110. IF NOT READ_INT_FROM_INI_FILE "cleo\80s_horror_movies_mod.ini" "Settings" "Chance" chance
  111. chance = 99
  112. ENDIF
  113. RETURN
  114.  
  115. mito01: //leatherface
  116.  
  117. GOSUB carros
  118.  
  119. LOAD_AUDIO_STREAM "cleo\som01.mp3" audio
  120. SET_AUDIO_STREAM_STATE audio 1
  121.  
  122. LOAD_SPECIAL_CHARACTER 1 mod01
  123. REQUEST_MODEL CHNSAW
  124. REQUEST_MODEL SWMOTR1
  125. LOAD_ALL_MODELS_NOW
  126.  
  127. CREATE_CHAR PEDTYPE_GANG1 SPECIAL01 -387.583038 -1145.294678 69.299530 leatherface
  128. CREATE_CHAR PEDTYPE_CIVFEMALE SWMOTR1 -392.165375 -1135.670288 69.213966 vitima
  129. UNLOAD_SPECIAL_CHARACTER 1
  130. MARK_MODEL_AS_NO_LONGER_NEEDED SWMOTR1
  131.  
  132. SET_ANIM_GROUP_FOR_CHAR leatherface oldman
  133. SET_CHAR_BLEEDING leatherface, TRUE
  134. GIVE_WEAPON_TO_CHAR leatherface, WEAPONTYPE_CHAINSAW 999
  135. MARK_MODEL_AS_NO_LONGER_NEEDED CHNSAW
  136. SET_CHAR_ACCURACY leatherface, 200
  137. SET_CHAR_USES_UPPERBODY_DAMAGE_ANIMS_ONLY leatherface, TRUE
  138. SET_CHAR_PROOFS leatherface, 0, 1, 0, 1, 0
  139. SET_CHAR_SUFFERS_CRITICAL_HITS leatherface FALSE
  140. SET_CHAR_HEALTH leatherface, 4000
  141. SET_CHAR_HEALTH vitima 50
  142. SET_CHAR_DROPS_WEAPONS_WHEN_DEAD leatherface FALSE
  143.  
  144. WHILE NOT LOCATE_CHAR_ANY_MEANS_3D scplayer -393.0 -1149.0 69.4 28.0 28.0 28.0 FALSE
  145. WAIT 0
  146. IF NOT LOCATE_CHAR_ANY_MEANS_3D scplayer -393.0 -1149.0 69.4 250.0 250.0 250.0 FALSE
  147. GOTO release
  148. ENDIF
  149. ENDWHILE
  150.  
  151. TASK_KILL_CHAR_ON_FOOT leatherface vitima
  152. WHILE NOT IS_CHAR_DEAD vitima
  153. WAIT 0
  154. ENDWHILE
  155. MARK_CHAR_AS_NO_LONGER_NEEDED vitima
  156.  
  157. WAIT 1500
  158. TASK_SAY scplayer 346
  159. TASK_KILL_CHAR_ON_FOOT leatherface scplayer
  160.  
  161. iDay[1] = iDay[0]
  162.  
  163. WHILE LOCATE_CHAR_ANY_MEANS_CHAR_3D scplayer leatherface 200.0 200.0 200.0 FALSE
  164. WAIT 0
  165. IF IS_CHAR_DEAD leatherface
  166. OR IS_CHAR_DEAD scplayer
  167. GOTO release
  168. ENDIF
  169. ENDWHILE
  170. GOTO release
  171.  
  172. mito02: //freddy krueger
  173.  
  174. GOSUB carros
  175.  
  176. LOAD_AUDIO_STREAM "cleo\som02.mp3" audio
  177. SET_AUDIO_STREAM_STATE audio 1
  178.  
  179. LOAD_SPECIAL_CHARACTER 2 mod02
  180. REQUEST_MODEL MOLOTOV
  181. LOAD_ALL_MODELS_NOW
  182.  
  183. CREATE_CHAR PEDTYPE_GANG1 SPECIAL02 601.315979 1240.933594 -100.0 krueger
  184. UNLOAD_SPECIAL_CHARACTER 2
  185.  
  186. GIVE_WEAPON_TO_CHAR krueger, WEAPONTYPE_MOLOTOV 999
  187. MARK_MODEL_AS_NO_LONGER_NEEDED MOLOTOV
  188. SET_CHAR_ACCURACY krueger, 40
  189. SET_CHAR_USES_UPPERBODY_DAMAGE_ANIMS_ONLY krueger, TRUE
  190. SET_CHAR_PROOFS krueger, 0, 1, 0, 1, 0
  191. SET_CHAR_SUFFERS_CRITICAL_HITS krueger FALSE
  192. SET_CHAR_HEALTH krueger, 2000
  193. SET_CHAR_DROPS_WEAPONS_WHEN_DEAD krueger FALSE
  194.  
  195. WHILE NOT LOCATE_CHAR_ANY_MEANS_3D scplayer 601.315979 1240.933594 11.718750 50.0 50.0 50.0 FALSE
  196. WAIT 0
  197. IF NOT LOCATE_CHAR_ANY_MEANS_3D scplayer 601.315979 1240.933594 11.718750 200.0 200.0 200.0 FALSE
  198. GOTO release
  199. ENDIF
  200. ENDWHILE
  201.  
  202. WAIT 1500
  203. TASK_SAY scplayer 346
  204. TASK_KILL_CHAR_ON_FOOT krueger scplayer
  205.  
  206. iDay[1] = iDay[0]
  207.  
  208. WHILE NOT IS_CHAR_DEAD krueger
  209. WAIT 0
  210. WHILE LOCATE_CHAR_ANY_MEANS_CHAR_3D scplayer krueger 80.0 80.0 80.0 FALSE
  211. WAIT 0
  212. IF IS_CHAR_DEAD scplayer
  213. OR IS_CHAR_DEAD krueger
  214. OR iHour >= 6
  215. GOTO release
  216. ENDIF
  217. IF IS_CHAR_SITTING_IN_ANY_CAR scplayer
  218. GET_CAR_CHAR_IS_USING scplayer carro
  219. SET_RADIO_CHANNEL 12
  220. WAIT 2000
  221. SET_CAR_ENGINE_BROKEN carro TRUE
  222. WHILE IS_CHAR_SITTING_IN_ANY_CAR scplayer
  223. WAIT 0
  224. ENDWHILE
  225. ENDIF
  226. ENDWHILE
  227. GET_OFFSET_FROM_CHAR_IN_WORLD_COORDS scplayer 0.0 20.0 0.0 x y z
  228. SET_CHAR_COORDINATES krueger x y -100.0
  229. TASK_SAY scplayer 346
  230. ENDWHILE
  231. GOTO release
  232.  
  233. mito03: //samara
  234.  
  235. FORCE_WEATHER_NOW 9
  236. GET_CAR_CHAR_IS_USING scplayer carro
  237. IF IS_CHAR_SITTING_IN_CAR scplayer carro
  238. SET_RADIO_CHANNEL 12
  239. ENDIF
  240.  
  241. LOAD_AUDIO_STREAM "cleo\som03.mp3" audio
  242. SET_AUDIO_STREAM_STATE audio 1
  243.  
  244. LOAD_SPECIAL_CHARACTER 3 mod03
  245. LOAD_ALL_MODELS_NOW
  246.  
  247. CREATE_CHAR PEDTYPE_GANG1 SPECIAL03 1271.366699 295.516815 -100.0 samara
  248. UNLOAD_SPECIAL_CHARACTER 3
  249.  
  250. SET_CHAR_ACCURACY samara, 200
  251. SET_CHAR_USES_UPPERBODY_DAMAGE_ANIMS_ONLY samara, TRUE
  252. SET_CHAR_PROOFS samara, 1, 1, 1, 1, 0
  253. SET_CHAR_SUFFERS_CRITICAL_HITS samara FALSE
  254. SET_CHAR_HEALTH samara, 1500
  255.  
  256. WHILE NOT LOCATE_CHAR_ANY_MEANS_3D scplayer 1271.366699 295.516815 20.656307 10.0 10.0 10.0 FALSE
  257. WAIT 0
  258. IF NOT LOCATE_CHAR_ANY_MEANS_3D scplayer 1271.366699 295.516815 20.656307 200.0 200.0 200.0 FALSE
  259. GOTO release
  260. ENDIF
  261. ENDWHILE
  262.  
  263. WAIT 1500
  264. TASK_SAY scplayer 346
  265. TASK_KILL_CHAR_ON_FOOT samara scplayer
  266.  
  267. iDay[1] = iDay[0]
  268.  
  269. WHILE LOCATE_CHAR_ANY_MEANS_CHAR_3D scplayer samara 80.0 80.0 80.0 FALSE
  270. WAIT 0
  271. IF IS_CHAR_DEAD samara
  272. OR IS_CHAR_DEAD scplayer
  273. GOTO release
  274. ENDIF
  275. ENDWHILE
  276. GOTO release
  277.  
  278. mito04: //jason voorhees
  279.  
  280. GOSUB carros
  281.  
  282. LOAD_AUDIO_STREAM "cleo\som04.mp3" audio
  283. SET_AUDIO_STREAM_STATE audio 1
  284.  
  285. LOAD_SPECIAL_CHARACTER 4 mod04
  286. REQUEST_MODEL KATANA
  287. LOAD_ALL_MODELS_NOW
  288.  
  289. GENERATE_RANDOM_FLOAT_IN_RANGE -1532.473267 -1732.473267 (x)
  290. GENERATE_RANDOM_FLOAT_IN_RANGE -2139.012207 -2339.012207 (y)
  291. CREATE_CHAR PEDTYPE_GANG1 SPECIAL04 x y -100.0 jason
  292. UNLOAD_SPECIAL_CHARACTER 4
  293.  
  294. GIVE_WEAPON_TO_CHAR jason, WEAPONTYPE_KATANA 999
  295. MARK_MODEL_AS_NO_LONGER_NEEDED KATANA
  296. SET_CHAR_ACCURACY jason, 200
  297. SET_CHAR_USES_UPPERBODY_DAMAGE_ANIMS_ONLY jason, TRUE
  298. SET_CHAR_PROOFS jason, 1, 1, 0, 1, 0
  299. SET_CHAR_SUFFERS_CRITICAL_HITS jason FALSE
  300. SET_CHAR_HEALTH jason, 2000
  301. SET_CHAR_SHOOT_RATE jason 60
  302. SET_CHAR_DROPS_WEAPONS_WHEN_DEAD jason FALSE
  303.  
  304. WHILE NOT LOCATE_CHAR_ANY_MEANS_CHAR_3D scplayer jason 60.0 60.0 60.0 FALSE
  305. WAIT 0
  306. IF NOT LOCATE_CHAR_ANY_MEANS_CHAR_3D scplayer jason 300.0 300.0 300.0 FALSE
  307. GOTO release
  308. ENDIF
  309. ENDWHILE
  310.  
  311. WAIT 1500
  312. TASK_SAY scplayer 346
  313. TASK_KILL_CHAR_ON_FOOT jason scplayer
  314.  
  315. iDay[1] = iDay[0]
  316.  
  317. WHILE LOCATE_CHAR_ANY_MEANS_CHAR_3D scplayer jason 60.0 60.0 60.0 FALSE
  318. WAIT 0
  319. IF IS_CHAR_DEAD jason
  320. OR IS_CHAR_DEAD scplayer
  321. GOTO release
  322. ENDIF
  323. ENDWHILE
  324.  
  325. GET_OFFSET_FROM_CHAR_IN_WORLD_COORDS scplayer 0.0 40.0 0.0 x y z
  326. SET_CHAR_COORDINATES jason x y -100.0
  327. TASK_SAY scplayer 346
  328.  
  329. WHILE LOCATE_CHAR_ANY_MEANS_CHAR_3D scplayer jason 200.0 200.0 200.0 FALSE
  330. WAIT 0
  331. IF IS_CHAR_DEAD jason
  332. OR IS_CHAR_DEAD scplayer
  333. GOTO release
  334. ENDIF
  335. ENDWHILE
  336. GOTO release
  337.  
  338. mito05: //michael myers
  339.  
  340. FORCE_WEATHER_NOW 9
  341. LOAD_AUDIO_STREAM "cleo\som05.mp3" audio
  342. SET_AUDIO_STREAM_STATE audio 1
  343.  
  344. LOAD_SPECIAL_CHARACTER 5 mod05
  345. REQUEST_MODEL KATANA
  346. LOAD_ALL_MODELS_NOW
  347.  
  348. CREATE_CHAR PEDTYPE_GANG1 SPECIAL05 -2794.114014 1130.112793 -100.0 michael
  349. UNLOAD_SPECIAL_CHARACTER 5
  350.  
  351. GIVE_WEAPON_TO_CHAR michael, WEAPONTYPE_KATANA 999
  352. MARK_MODEL_AS_NO_LONGER_NEEDED KATANA
  353. SET_CHAR_ACCURACY michael, 200
  354. SET_CHAR_USES_UPPERBODY_DAMAGE_ANIMS_ONLY michael, TRUE
  355. SET_CHAR_PROOFS michael, 0, 1, 0, 1, 0
  356. SET_CHAR_SUFFERS_CRITICAL_HITS michael FALSE
  357. SET_CHAR_HEALTH michael, 4000
  358. SET_CHAR_SHOOT_RATE michael 100
  359. SET_CHAR_DROPS_WEAPONS_WHEN_DEAD michael FALSE
  360.  
  361. WHILE NOT LOCATE_CHAR_ANY_MEANS_3D scplayer -2807.929932 1116.330078 28.320313 60.0 60.0 60.0 FALSE
  362. WAIT 0
  363. IF NOT LOCATE_CHAR_ANY_MEANS_3D scplayer -2807.929932 1116.330078 28.320313 200.0 200.0 200.0 FALSE
  364. GOTO release
  365. ENDIF
  366. ENDWHILE
  367.  
  368. WAIT 1500
  369. TASK_SAY scplayer 346
  370. TASK_KILL_CHAR_ON_FOOT michael scplayer
  371.  
  372. iDay[1] = iDay[0]
  373.  
  374. WHILE LOCATE_CHAR_ANY_MEANS_CHAR_3D scplayer michael 200.0 200.0 200.0 FALSE
  375. WAIT 0
  376. IF IS_CHAR_DEAD michael
  377. OR IS_CHAR_DEAD scplayer
  378. GOTO release
  379. ENDIF
  380. ENDWHILE
  381. GOTO release
  382.  
  383. mito06: //scream
  384.  
  385. LOAD_AUDIO_STREAM "cleo\som06.mp3" audio
  386. SET_AUDIO_STREAM_STATE audio 1
  387.  
  388. LOAD_SPECIAL_CHARACTER 6 mod06
  389. REQUEST_MODEL KNIFECUR
  390. LOAD_ALL_MODELS_NOW
  391.  
  392. CREATE_CHAR PEDTYPE_GANG1 SPECIAL06 1857.063599 2771.826172 -100.0 scream
  393. UNLOAD_SPECIAL_CHARACTER 6
  394.  
  395. GIVE_WEAPON_TO_CHAR scream, WEAPONTYPE_KNIFE 999
  396. MARK_MODEL_AS_NO_LONGER_NEEDED KNIFECUR
  397. SET_CHAR_ACCURACY scream, 200
  398. SET_CHAR_USES_UPPERBODY_DAMAGE_ANIMS_ONLY scream, TRUE
  399. SET_CHAR_PROOFS scream, 0, 1, 0, 0, 0
  400. SET_CHAR_SUFFERS_CRITICAL_HITS scream FALSE
  401. SET_CHAR_HEALTH scream, 2000
  402. SET_CHAR_SHOOT_RATE scream 100
  403. SET_CHAR_DROPS_WEAPONS_WHEN_DEAD scream FALSE
  404.  
  405. WHILE NOT LOCATE_CHAR_ANY_MEANS_3D scplayer 1857.063599 2771.826172 10.835938 60.0 60.0 60.0 FALSE
  406. WAIT 0
  407. IF NOT LOCATE_CHAR_ANY_MEANS_3D scplayer 1857.063599 2771.826172 10.835938 200.0 200.0 200.0 FALSE
  408. GOTO release
  409. ENDIF
  410. ENDWHILE
  411.  
  412. WAIT 1500
  413. TASK_SAY scplayer 346
  414. TASK_KILL_CHAR_ON_FOOT scream scplayer
  415.  
  416. iDay[1] = iDay[0]
  417.  
  418. WHILE LOCATE_CHAR_ANY_MEANS_CHAR_3D scplayer scream 200.0 200.0 200.0 FALSE
  419. WAIT 0
  420. IF IS_CHAR_DEAD scream
  421. OR IS_CHAR_DEAD scplayer
  422. GOTO release
  423. ENDIF
  424. ENDWHILE
  425. GOTO release
  426.  
  427. ////////////////////////////////////////////////////////////////
  428.  
  429. carros:
  430. FORCE_WEATHER_NOW 9
  431. GET_CAR_CHAR_IS_USING scplayer carro
  432. IF IS_CHAR_SITTING_IN_CAR scplayer carro
  433. SET_RADIO_CHANNEL 12
  434. WAIT 1000
  435. SET_CAR_ENGINE_BROKEN carro TRUE
  436. ENDIF
  437. RETURN
  438.  
  439. release:
  440. WAIT 2000
  441. SET_AUDIO_STREAM_STATE audio 0
  442. IF DOES_CHAR_EXIST leatherface
  443. REMOVE_CHAR_ELEGANTLY leatherface
  444. ENDIF
  445. IF DOES_CHAR_EXIST krueger
  446. REMOVE_CHAR_ELEGANTLY krueger
  447. ENDIF
  448. IF DOES_CHAR_EXIST vitima
  449. REMOVE_CHAR_ELEGANTLY vitima
  450. ENDIF
  451. IF DOES_CHAR_EXIST samara
  452. REMOVE_CHAR_ELEGANTLY samara
  453. ENDIF
  454. IF DOES_CHAR_EXIST jason
  455. REMOVE_CHAR_ELEGANTLY jason
  456. ENDIF
  457. IF DOES_CHAR_EXIST michael
  458. REMOVE_CHAR_ELEGANTLY michael
  459. ENDIF
  460. IF DOES_CHAR_EXIST scream
  461. REMOVE_CHAR_ELEGANTLY scream
  462. ENDIF
  463. SET_WEATHER_TO_APPROPRIATE_TYPE_NOW
  464. GOTO main_loop
  465.  
  466. }
  467.  
  468. {
  469. LVAR_INT iPercent // In
  470. LVAR_INT iEnd iRandom
  471.  
  472. Randomize:
  473. GENERATE_RANDOM_INT_IN_RANGE 0 100 (iRandom)
  474. IS_THING_GREATER_THAN_THING iPercent iRandom
  475. CLEO_RETURN 0
  476. }
  477. SCRIPT_END
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!