注册 | 登录

游侠NETSHOW论坛





游侠NETSHOW论坛 › 游侠NETSHOW论坛 › 侠盗猎车手4：自由城之章+侠盗猎车手4+侠盗猎车手：圣安地列斯 › [GTA IV] [MOD] [LUA] 殺死所有同車乘客 + 殺死身邊的車 ...
返回列表 发新帖
查看: 3110|回复: 3
打印 上一主题 下一主题

[分享] [GTA IV] [MOD] [LUA] 殺死所有同車乘客 + 殺死身邊的車上所有人 [复制链接]

Cielos

帖子
306
精华
0
积分
173
金钱
3365
荣誉
2
人气
3
评议
0
跳转到指定楼层
楼主
发表于 2009-1-17 01:26:47 |只看该作者 |倒序浏览
太無聊寫了個極無聊的lua, 可以將你車上的乘客全部殺死, 或是將路過你身邊的車上所有人殺死
無聊的拿去試試

沒有附件, 請自行建立一個lua檔並將下面的text貼上, 安裝方法與其他lua檔一樣
在車上按[右alt+K]鍵, 把與你同車的乘客全部殺死
在街上長按[B]鍵, 把路過你身邊的車上所有人殺死

090119 更新:
- 原先殺死自己車上的乘客時如果自己也是乘客的話自己也是會死的, 現在加了個checking, 自己不會死了. 在taxi上可以近距離看著坐在身邊的人橫死...... ... . ...
- 新增殺死附近車上的所有人

  1. ---------- based on GTA IV Alice "Simple car spawn" script example by Alexander Blade 2008 ----------
  2. ---------- based on rideby.lua --------
  3. ---------- by a bored freak ---------

  5. -- global variables
  6.         PLAYER_ID, PLAYER_INDEX, PLAYER_CHAR = 0

  8. function InitScript()
  9.         -- blah-blah-blah
  10.         Wait(10000)
  11. end

  13. function WaitForPlayerPoolCreation()
  14.         while (IsPlayerPoolCreated() == 0) do
  15.                 Wait(2000)
  16.         end
  17. end

  19. function WaitForValidPlayer()
  20.         PLAYER_CHAR = 0
  21.         repeat
  22.                 CallNative("GET_PLAYER_ID")
  23.                 PLAYER_ID = GetIntResult()
  24.                 if (PLAYER_ID >= 0) then
  25.                         PushInt(PLAYER_ID)
  26.                         CallNative("CONVERT_INT_TO_PLAYERINDEX")
  27.                         PLAYER_INDEX = GetIntResult()
  28.                         PushInt(PLAYER_INDEX)
  29.                         PushVarPtr()
  30.                         CallNative("GET_PLAYER_CHAR")
  31.                         PLAYER_CHAR = GetIntParam(1)
  32.                         if (PLAYER_CHAR <= 0) then
  33.                                 Wait(1000)
  34.                         end
  35.                 end
  36.         until (PLAYER_CHAR > 0)
  37. end

  39. function GetSeatCount()
  40.         MAX_SEAT = 0
  41.         PLAYER_CAR = 0
  42.         IN_CAR = 0
  43.         PushInt(PLAYER_CHAR)
  44.         CallNative("IS_CHAR_IN_ANY_CAR")
  45.         IN_CAR = GetIntResult()
  46.         if(IN_CAR > 0) then
  47.                 PushInt(PLAYER_CHAR)
  48.                 PushVarPtr()
  49.                 CallNative("GET_CAR_CHAR_IS_USING")
  50.                 PLAYER_CAR = GetIntParam(1)
  51.                
  52. -- GET_MAXIMUM_NUMBER_OF_PASSENGERS=2, False
  53.                 PushInt(PLAYER_CAR)
  54.                 PushVarPtr()
  55.                 CallNative("GET_MAXIMUM_NUMBER_OF_PASSENGERS")
  56.                 MAX_SEAT = GetIntParam(1)
  57.                 -- PrintFloatToLog(MAX_SEAT)
  58.         end
  59.         return MAX_SEAT
  60. end

  62. function GetPassengerChar(TP_SEAT_NUM)       
  63. -- GET_CHAR_IN_CAR_PASSENGER_SEAT=3, False
  64.         PLAYER_CAR = 0
  65.         IN_CAR = 0
  66.         PASSENGER_CHAR = 0
  67.         FREE_SEAT = 1
  68.         PushInt(PLAYER_CHAR)
  69.         CallNative("IS_CHAR_IN_ANY_CAR")
  70.         IN_CAR = GetIntResult()
  71.         if(IN_CAR > 0) then
  72.                 PushInt(PLAYER_CHAR)
  73.                 PushVarPtr()
  74.                 CallNative("GET_CAR_CHAR_IS_USING")
  75.                 PLAYER_CAR = GetIntParam(1)
  76.                
  77. -- IS_CAR_PASSENGER_SEAT_FREE=2, True
  78.                 PushInt(PLAYER_CAR)
  79.                 PushInt(TP_SEAT_NUM)
  80.                 CallNative("IS_CAR_PASSENGER_SEAT_FREE")
  81.                 FREE_SEAT = GetIntResult()
  82.                
  83.                 if (not (FREE_SEAT > 0)) then
  84.                         -- PrintStrToLog("About to get passenger...")
  85.                         PushInt(PLAYER_CAR)
  86.                         PushInt(TP_SEAT_NUM)
  87.                         PushVarPtr()
  88.                         CallNative("GET_CHAR_IN_CAR_PASSENGER_SEAT")
  89.                         PASSENGER_CHAR = GetIntParam(2)
  90.                         -- PrintStrToLog("Got passenger")
  91.                         -- PrintFloatToLog(PASSENGER_CHAR)
  92.                 end
  93.         end
  94.         return PASSENGER_CHAR
  95. end

  97. function ExplodeCharHead(TP_CHAR)
  98. -- EXPLODE_CHAR_HEAD=1, False
  99.         if (TP_CHAR ~= PLAYER_CHAR and TP_CHAR > 0) then
  100.                 -- PrintStrToLog("About to explode char head...")
  101.                 PushInt(TP_CHAR)
  102.                 CallNative("EXPLODE_CHAR_HEAD")
  103.                 -- PrintStrToLog("Char head exploded.")
  104.         end
  105. end

  107. function KillAllPassengers()
  108.         TP_COUNT = 0
  109.         SEAT_COUNT = GetSeatCount()
  110.         while (TP_COUNT < SEAT_COUNT) do
  111.                 GET_CHAR = 0
  112.                 GET_CHAR = GetPassengerChar(TP_COUNT)
  113.                 if (GET_CHAR > 0) then
  114.                         ExplodeCharHead(GET_CHAR)
  115.                 end
  116.                 TP_COUNT = TP_COUNT + 1
  117.         end
  118. end

  120. function KillSomeCarPassengerChar()
  121.         SOME_CAR, SOME_PASSENGER_CHAR, SOME_MAX_SEAT = 0
  122.         SOME_FREE_SEAT = 1
  123.         PushInt(PLAYER_CHAR)
  124.         PushVarPtr()
  125.         PushVarPtr()
  126.         PushVarPtr()
  127.         CallNative("GET_CHAR_COORDINATES")
  128.         X = GetFloatParam(1)
  129.         Y = GetFloatParam(2)
  130.         Z = GetFloatParam(3)
  131.         PushFloat(X)
  132.         PushFloat(Y)
  133.         PushFloat(Z)
  134.         PushFloat(2.5)
  135.         PushInt(0)
  136.         PushInt(127)
  137.         PushVarPtr()
  138.         CallNative("GET_RANDOM_CAR_IN_SPHERE")
  139.         SOME_CAR = GetIntParam(6)
  140.        
  141.         if (SOME_CAR > 0) then
  142.                 PushInt(SOME_CAR)
  143.                 PushVarPtr()
  144.                 CallNative("GET_DRIVER_OF_CAR")
  145.                 ExplodeCharHead(GetIntParam(1))
  146.                
  147.                 PushInt(SOME_CAR)
  148.                 PushVarPtr()
  149.                 CallNative("GET_MAXIMUM_NUMBER_OF_PASSENGERS")
  150.                 SOME_MAX_SEAT = GetIntParam(1)
  151.                
  152.                 SOME_TP_COUNT = 0
  153.                 while (SOME_TP_COUNT < SOME_MAX_SEAT) do
  154.                        
  155.                         PushInt(SOME_CAR)
  156.                         PushInt(SOME_TP_COUNT)
  157.                         CallNative("IS_CAR_PASSENGER_SEAT_FREE")
  158.                         FREE_SEAT = GetIntResult()
  159.                
  160.                         if (not (FREE_SEAT > 0)) then
  161.                                 SOME_GET_CHAR = 0
  162.                                 PushInt(SOME_CAR)
  163.                                 PushInt(SOME_TP_COUNT)
  164.                                 PushVarPtr()
  165.                                 CallNative("GET_CHAR_IN_CAR_PASSENGER_SEAT")
  166.                                 SOME_GET_CHAR = GetIntParam(2)
  167.                                 if (SOME_GET_CHAR > 0) then
  168.                                         ExplodeCharHead(SOME_GET_CHAR)
  169.                                 end



  173.                         end
  174.                         SOME_TP_COUNT = SOME_TP_COUNT + 1
  175.                 end
  176.                
  177.         end
  178. end

  180. function WaitForKeyUp(KeyCod)
  181.         while (IsKeyPressed(KeyCod) == 1) do
  182.                 Wait(200)
  183.         end
  184. end

  186. function main()
  187.         InitScript()
  188.         while true do
  189.                 if (IsKeyPressed(165) == 1) then
  190.                         WaitForPlayerPoolCreation()
  191.                         WaitForValidPlayer()
  192.                         if (IsKeyPressed(75) == 1) then
  193.                                 KillAllPassengers()
  194.                                 WaitForKeyUp(75)
  195.                         end
  196.                 end
  197.                 if (IsKeyPressed(66) == 1) then
  198.                         WaitForPlayerPoolCreation()
  199.                         WaitForValidPlayer()
  200.                         -- Bip(4)
  201.                         -- Bip(4)
  202.                         -- ToggleMotionBlur()
  203.                         -- KillNearestChar()
  204.                         KillSomeCarPassengerChar()
  205.                         -- Bip(1)
  206.                         -- Bip(1)
  207.                         -- WaitForKeyUp(66)
  208.                         -- Wait(2000)
  209.                 end
  210.                 Wait(200)
  211.                
  212.         end
  213. end

  215. -- start
  216. main();
复制代码

[ 本帖最后由 Cielos 于 2009-1-19 05:57 编辑 ]

使用道具 举报

gr718

帖子
16
精华
0
积分
8
金钱
117
荣誉
0
人气
0
评议
0
沙发
发表于 2009-1-17 01:32:17 |只看该作者
兄弟！教教我！怎么用MOD！行吗！谢谢！QQ495334728

使用道具 举报

Cielos

帖子
306
精华
0
积分
173
金钱
3365
荣誉
2
人气
3
评议
0
板凳
发表于 2009-1-19 04:10:35 |只看该作者
@gr718
http://alexander.sannybuilder.com/Files/IVAlice_0.2.test2.rar
下載上面的rar, 解壓到遊戲目錄.
然後下載其他你想用的asi到遊戲目錄.
完成!

或者看看 千人斩竞争 發搭便車MOD的帖:
http://game.ali213.net/thread-2544082-1-2.html

使用道具 举报

karvinmax

帖子
455
精华
0
积分
228
金钱
739
荣誉
0
人气
0
评议
0
地板
发表于 2009-1-19 06:08:00 |只看该作者
兄弟，能不能做一个公交车可以座很多人，或厢式货车后面可以座人的MOD啊？～～～～～
CPU：AMD Athlon64 X2 5000+ AM2(65纳米/盒)  OC 2.8
主板：技嘉 GA-M52S-S3P
显卡：影驰9600GSO中将版 384M  驱动180.84
内存：金士顿 2GB DDR2 800
硬盘：希捷 250G 7200.10 8M(串口/5年盒)
光驱：三星 TS-H652N DVD-R
机箱：金河田 飓风II 8197
散热：Tt 金星9A (A3124)

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

手机版|Archiver|游侠NETSHOW论坛 ( 苏ICP备2023007791号 )

GMT+8, 2025-7-7 18:49 , Processed in 0.366028 second(s), 12 queries , Gzip On, Memcache On.

Powered by Discuz! X2

© 2001-2011 Comsenz Inc.
分享到