打包上传 LUA 脚本 无敌+清通缉+加钱+刷车 等

q4liker

  希望更多同道弄出来更多的脚本~~~

更新下 整理到一个文件里了~ 玩了一天~运行良好~没出过几个错~

功能列表

自动无敌+血满+装甲满+补武器

保存坐标 F3
瞬移 F4

无重力 delete
加钱 +号

清除通缉 PAGE DOWN
不派遣警车 F7
傻警察  F8

INSERT 完美人际关系

快  F12
默认F11
慢  F10

车无敌 END
修车 PAGEUP
开关警报闪光灯+内灯 F9
开车门 F5
关车门 F6
小键盘/ + 1~8 刷车 6是摩托 7是船 8是武装直升飞机

需要安装附件 ALICE 0.2 版~

游侠附件:

原地址：http://alexander.sannybuilder.com/Files/IVAlice_0.2.test.rar

装完解压到Alice目录~ 覆盖原来的就可以了~

要是装过以前的 只留下

natives.ini
saveme.lua

就可以了~ 当然如果你还有其他功能的自己留下~

为了照顾机器配置问题 循环2秒检测~ 所以最长要按2秒激活功能~ 还卡的自己修改WAIT(2000) 1000是1秒~

1. ---------- GTA IV Alice "Superman" script example ----------
   
2.         ---------- ?Alexander Blade 2008 ----------
   
3. 
   
4. --global variables
   
5.   PLAYER_ID, PLAYER_INDEX, PLAYER_CHAR, PLAYER_CAR, SX, SY, SZ, SE = 0
   
6. 
   
7. function InitScript()
   
8.   -- blah-blah-blah
   
9.   Wait(10000)
   
10. end
    
11. 
    
12. function WaitForPlayerPoolCreation()
    
13.   while (IsPlayerPoolCreated() == 0) do
    
14.     Wait(5000)
    
15.   end
    
16. end
    
17. 
    
18. function WaitForValidPlayer()
    
19.   PLAYER_CHAR = 0
    
20.   repeat
    
21.     CallNative("GET_PLAYER_ID")
    
22.         PLAYER_ID = GetIntResult()
    
23.         if (PLAYER_ID >= 0) then
    
24.           PushInt(PLAYER_ID)
    
25.           CallNative("CONVERT_INT_TO_PLAYERINDEX")
    
26.           PLAYER_INDEX = GetIntResult()
    
27.           PushInt(PLAYER_INDEX)
    
28.       PushVarPtr()       
    
29.           CallNative("GET_PLAYER_CHAR")
    
30.           PLAYER_CHAR = GetIntParam(1)
    
31.           if (PLAYER_CHAR <= 0) then
    
32.             Wait(5000)
    
33.           end  
    
34.         end
    
35.   until (PLAYER_CHAR > 0)  
    
36. end
    
37. 
    
38. function GetPlayerCar()
    
39.       IN_CAR = 0
    
40.       PushInt(PLAYER_CHAR)
    
41.       CallNative("IS_CHAR_SITTING_IN_ANY_CAR")
    
42.       IN_CAR = GetIntResult()
    
43.       if(IN_CAR > 0) then
    
44.        PushInt(PLAYER_CHAR)
    
45.        PushVarPtr()
    
46.        CallNative("GET_CAR_CHAR_IS_USING")
    
47.        PLAYER_CAR = GetIntParam(1)
    
48.       else
    
49.        PLAYER_CAR = 0
    
50.       end
    
51. end
    
52. 
    
53. function Bip(num)
    
54.         --Emulates a beep
    
55.         PushInt(num)
    
56.         CallNative("PREVIEW_RINGTONE")
    
57.         Wait(500)
    
58.         CallNative("STOP_PREVIEW_RINGTONE")
    
59. end
    
60. 
    
61. function SetCarGod()
    
62.     GetPlayerCar()
    
63.     if (PLAYER_CAR > 0) then      
    
64.       PushInt(PLAYER_CAR)
    
65.       PushInt(1)
    
66.       PushInt(1)
    
67.       PushInt(1)
    
68.       PushInt(1)
    
69.       PushInt(1)
    
70.       CallNative("SET_CAR_PROOFS")
    
71.       PushInt(PLAYER_CAR)
    
72.       PushInt(0)
    
73.       CallNative("SET_CAN_BURST_CAR_TYRES")
    
74.       PushInt(PLAYER_CAR)
    
75.       PushInt(0)
    
76.       CallNative("SET_CAR_CAN_BE_DAMAGED")
    
77.       PushInt(PLAYER_CAR)
    
78.       PushInt(0)
    
79.       CallNative("SET_CAR_CAN_BE_VISIBLY_DAMAGED")
    
80.    end
    
81. end
    
82. 
    
83. function SetCarSpeed(spe)
    
84.       PushInt(PLAYER_CAR)
    
85.       PushFloat(spe)
    
86.       CallNative("SET_CAR_FORWARD_SPEED")
    
87. end
    
88. 
    
89. function FixCar()   
    
90.      PushInt(PLAYER_CAR)
    
91.      CallNative("FIX_CAR")
    
92.      PushInt(PLAYER_CAR)
    
93.      PushFloat(0.0)
    
94.      CallNative("SET_VEHICLE_DIRT_LEVEL")
    
95.      PushInt(PLAYER_CAR)
    
96.      PushInt(255)
    
97.      CallNative("WASH_VEHICLE_TEXTURES")
    
98.      Wait(1000)
    
99. end
    
100. 
     
101. function Clear()
     
102.   PushInt(PLAYER_ID)
     
103.   PushInt(0)
     
104.   CallNative("CLEAR_WANTED_LEVEL")
     
105. end
     
106. 
     
107. function PolIgPlayer()
     
108.   if (IGN == 1) then
     
109.     IGN = 0
     
110.   else
     
111.     IGN = 1
     
112.   end
     
113.   PushInt(PLAYER_ID)
     
114.   PushInt(IGN)
     
115.   CallNative("SET_POLICE_IGNORE_PLAYER")
     
116. end
     
117. 
     
118. function DontDispaCops()
     
119.   if (DON == 1) then
     
120.     DON = 0
     
121.   else
     
122.     DON = 1
     
123.   end
     
124.   PushInt(PLAYER_ID)
     
125.   PushInt(DON)
     
126.   CallNative("DONT_DISPATCH_COPS_FOR_PLAYER")
     
127. end
     
128. 
     
129. function GetPlayerCoord()
     
130.     if (PLAYER_ID >= 0) then
     
131.         PushInt(PLAYER_CHAR)
     
132.         PushVarPtr()
     
133.         PushVarPtr()
     
134.         PushVarPtr()
     
135.         CallNative("GET_CHAR_COORDINATES")
     
136.         SX = GetFloatParam(1)
     
137.         SY = GetFloatParam(2)
     
138.         SZ = GetFloatParam(3)
     
139.         SE = 1
     
140.      end
     
141. end
     
142. 
     
143. function SetCharCoord()
     
144.       if (SE == 1) then
     
145.          PushInt(PLAYER_CHAR)
     
146.          PushFloat(SX)
     
147.          PushFloat(SY)
     
148.          PushFloat(SZ)
     
149.          PushInt(PLAYER_CHAR)
     
150.          CallNative("SET_CHAR_COORDINATES")
     
151.       end
     
152. end
     
153. 
     
154. 
     
155. function ShowHelpMsg(msg)
     
156.   PushStr(msg)
     
157.   CallSpecNative("PRINT_HELP")
     
158. end
     
159. 
     
160. function GetSpawnCoords()
     
161.   PushInt(PLAYER_CHAR)
     
162.   PushFloat(0.0)
     
163.   PushFloat(5.0)
     
164.   PushFloat(0.0)
     
165.   PushVarPtr()
     
166.   PushVarPtr()
     
167.   PushVarPtr()
     
168.   CallNative("GET_OFFSET_FROM_CHAR_IN_WORLD_COORDS")
     
169.   X = GetFloatParam(4)
     
170.   Y = GetFloatParam(5)
     
171.   Z = GetFloatParam(6)
     
172. end
     
173. 
     
174. function SpawnCar(name)
     
175.   PushStr(name)
     
176.   CallNative("GET_HASH_KEY")
     
177.   hash = GetIntResult()
     
178.   PushInt(hash)
     
179.   CallSpecNative("REQUEST_MODEL")
     
180.   Res = 0
     
181.   while Res == 0 do
     
182.     PushInt(hash)
     
183.     CallSpecNative("HAS_MODEL_LOADED")
     
184.     Res = GetIntResult()
     
185.   end
     
186.   GetSpawnCoords()
     
187.   PushInt(hash)
     
188.   PushFloat(X)
     
189.   PushFloat(Y)
     
190.   PushFloat(Z)
     
191.   PushVarPtr()
     
192.   PushInt(1)
     
193.   CallSpecNative("CREATE_CAR")
     
194.   CAR_HANDLE = GetIntParam(4)
     
195.   PushInt(hash)
     
196.   CallSpecNative("MARK_MODEL_AS_NO_LONGER_NEEDED")
     
197.   ShowHelpMsg(name)
     
198.   Wait(1000)
     
199.   PushVarNumPtr(1)
     
200.   SetIntParam(1, CAR_HANDLE)
     
201.   CallSpecNative("MARK_CAR_AS_NO_LONGER_NEEDED")
     
202.   Wait(3000)
     
203. end
     
204. 
     
205. function SetGameTime(GTIME)
     
206.   PushFloat(GTIME)
     
207.   CallNative("SET_TIME_SCALE")
     
208. end
     
209. 
     
210. function AddMoney()
     
211.   PushInt(PLAYER_ID)
     
212.   PushInt(100000)
     
213.   CallNative("ADD_SCORE")
     
214. end
     
215. 
     
216. function SetGravity()
     
217.   if (GRAV == 1) then
     
218.     GRAV = 0
     
219.   else
     
220.     GRAV = 1
     
221.   end
     
222.   PushInt(GRAV)
     
223.   CallNative("SET_GRAVITY_OFF")
     
224. end
     
225. 
     
226. function SetCharHangout()
     
227.         for i=1,29 do
     
228.         PushInt(i)
     
229.         PushFloat(100.0)
     
230.         CallNative("SET_FLOAT_STAT")
     
231.         end
     
232. end       
     
233. 
     
234. function OpenCarDoor(ODoor)
     
235.         PushInt(PLAYER_CAR)
     
236.         PushInt(ODoor)
     
237.         CallNative("OPEN_CAR_DOOR")
     
238. end
     
239. 
     
240. function Lights()
     
241.         if (LIGHT == 1) then
     
242.                 LIGHT=0
     
243.         else
     
244.                 LIGHT=1
     
245.         end
     
246.         PushInt(PLAYER_CAR)
     
247.         PushInt(LIGHT)
     
248.         CallNative("SET_VEH_HAZARDLIGHTS")
     
249.         PushInt(PLAYER_CAR)
     
250.         PushInt(LIGHT)
     
251.         CallNative("SET_VEH_INTERIORLIGHT")
     
252. end
     
253. 
     
254. function CloseCarDoor(CDoor)
     
255.         PushInt(PLAYER_CAR)
     
256.         PushInt(CDoor)
     
257.         CallNative("SHUT_CAR_DOOR")
     
258. end
     
259. 
     
260. function GiveWeapon(Num)
     
261.   PushInt(PLAYER_CHAR)
     
262.   PushInt(Num)
     
263.   CallNative("HAS_CHAR_GOT_WEAPON")
     
264.   if (GetIntResult() == 0)
     
265.   then
     
266.     PushInt(PLAYER_CHAR)
     
267.     PushInt(Num)
     
268.     PushInt(9999)
     
269.     PushInt(0)
     
270.     CallNative("GIVE_WEAPON_TO_CHAR")
     
271.   else
     
272.     PushInt(PLAYER_CHAR)
     
273.         PushInt(Num)
     
274.         PushInt(9999)
     
275.         CallNative("SET_CHAR_AMMO")
     
276.   end       
     
277. end
     
278. 
     
279. function SetPlayerProperties()
     
280.    PushInt(PLAYER_CHAR)
     
281.    PushInt(0)
     
282.    CallNative("IS_CHAR_HEALTH_GREATER")
     
283.    if (GetIntResult() == 1) then
     
284.       PushInt(PLAYER_CHAR)
     
285.       PushInt(200)
     
286.       CallNative("SET_CHAR_MAX_HEALTH")  
     
287.       PushInt(PLAYER_CHAR)
     
288.       PushInt(200)
     
289.       CallNative("SET_CHAR_HEALTH")
     
290.       PushInt(PLAYER_INDEX)
     
291.       PushInt(1)
     
292.       CallNative("SET_PLAYER_INVINCIBLE")
     
293.       PushInt(PLAYER_INDEX)
     
294.       PushInt(1)
     
295.       CallNative("SET_PLAYER_NEVER_GETS_TIRED")
     
296.        PushInt(PLAYER_INDEX)
     
297.       PushInt(1)
     
298.       CallNative("SET_PLAYER_FAST_RELOAD")  
     
299.       PushInt(0)
     
300.       CallNative("ENABLE_MAX_AMMO_CAP")
     
301.       GiveWeapon(2)
     
302.       GiveWeapon(4)
     
303.       GiveWeapon(9)
     
304.       GiveWeapon(11)
     
305.       GiveWeapon(13)
     
306.       GiveWeapon(14)
     
307.       GiveWeapon(16)
     
308.       GiveWeapon(18)
     
309.    end
     
310. end
     
311. 
     
312. function main()
     
313.   InitScript()
     
314.   while true do
     
315.     WaitForPlayerPoolCreation()
     
316.     WaitForValidPlayer()
     
317.     SetPlayerProperties()
     
318. --保存坐标F3--
     
319.       if (IsKeyPressed(114) == 1) then
     
320.             Bip(1)
     
321.             GetPlayerCoord()
     
322.             Wait(200)
     
323.           end
     
324. --瞬移F4--
     
325.       if (IsKeyPressed(115) == 1) then
     
326.             Bip(2)
     
327.             SetCharCoord()
     
328.             Wait(200)
     
329.           end
     
330. --无重力 delete --
     
331.       if (IsKeyPressed(46) == 1) then
     
332.             Bip(2)
     
333.             SetGravity()
     
334.             Wait(200)
     
335.           end
     
336. --加钱 +号 --
     
337.       if (IsKeyPressed(107) == 1) then
     
338.             Bip(2)
     
339.             AddMoney()
     
340.             Wait(200)
     
341.           end
     
342. --清除通缉 PAGE DOWN--
     
343.       if (IsKeyPressed(34) == 1) then
     
344.             Bip(2)
     
345.             Clear()
     
346.             Wait(200)
     
347.           end
     
348. --不派遣警车 F7 --
     
349.       if (IsKeyPressed(118) == 1) then
     
350.             Bip(2)
     
351.             DontDispaCops()
     
352.             Wait(200)
     
353.           end
     
354. --傻警察  F8 --
     
355.       if (IsKeyPressed(119) == 1) then
     
356.             Bip(2)
     
357.             PolIgPlayer()
     
358.             Wait(200)
     
359.           end
     
360. --快  F12 --
     
361.       if (IsKeyPressed(123) == 1) then
     
362.             Bip(2)
     
363.             SetGameTime(1.5)
     
364.             Wait(200)
     
365.           end
     
366. --默认F11 --
     
367.       if (IsKeyPressed(122) == 1) then
     
368.             Bip(2)
     
369.             SetGameTime(1.0)
     
370.             Wait(200)
     
371.           end
     
372. --慢  F10 --
     
373.       if (IsKeyPressed(121) == 1) then
     
374.             Bip(2)
     
375.             SetGameTime(0.4)
     
376.             Wait(200)
     
377.           end
     
378. --车无敌 END--
     
379.       if (IsKeyPressed(35) == 1) then
     
380.             Bip(2)
     
381.             SetCarGod()
     
382.             Wait(200)
     
383.           end
     
384. --修车 PAGEUP--
     
385.       if (IsKeyPressed(33) == 1) then
     
386.             Bip(2)
     
387.             GetPlayerCar()
     
388.             if (PLAYER_CAR > 0) then
     
389.              FixCar()
     
390.             end
     
391.             Wait(200)
     
392.           end
     
393. --开门 F5 --
     
394.       if (IsKeyPressed(116) == 1) then
     
395.             Bip(2)
     
396.             GetPlayerCar()
     
397.             if (PLAYER_CAR > 0) then
     
398.              if (DOOR == 1) then
     
399.              DOOR = 0
     
400.              OpenCarDoor(0)
     
401.              OpenCarDoor(1)
     
402.              OpenCarDoor(2)
     
403.              OpenCarDoor(3)
     
404.              OpenCarDoor(4)
     
405.              OpenCarDoor(5)
     
406.             else
     
407.              DOOR = 1
     
408.              CloseCarDoor(0)
     
409.              CloseCarDoor(1)
     
410.              CloseCarDoor(2)
     
411.              CloseCarDoor(3)
     
412.              CloseCarDoor(4)
     
413.              CloseCarDoor(5)
     
414.             end
     
415.            end
     
416.           Wait(200)
     
417.       end
     
418. --开关灯 F6  --
     
419.       if (IsKeyPressed(117) == 1) then
     
420.             Bip(2)
     
421.             GetPlayerCar()
     
422.             if (PLAYER_CAR > 0) then
     
423.             Lights()
     
424.             end
     
425.             Wait(200)
     
426.           end
     
427. --高速冲击 Capslock--
     
428.       if (IsKeyPressed(20) == 1) then
     
429.             Bip(2)
     
430.             GetPlayerCar()
     
431.             if (PLAYER_CAR > 0) then
     
432.             for i=1,70 do
     
433.             SetCarSpeed(i)
     
434.             end
     
435.             end
     
436.           end
     
437. --立刻停车 NUM 0--
     
438.       if (IsKeyPressed(96) == 1) then
     
439.             Bip(2)
     
440.             GetPlayerCar()
     
441.             if (PLAYER_CAR > 0) then
     
442.             SetCarSpeed(1)
     
443.            end
     
444.           end
     
445. --刷车 / + 小键盘 1 2 3 4 5 6 7 8--
     
446.     if (IsKeyPressed(111) == 1)
     
447.         then
     
448.           Bip(0)
     
449.           Wait(100)          
     
450.           if (IsKeyPressed(97) == 1) then SpawnCar("banshee") end
     
451.           if (IsKeyPressed(98) == 1) then SpawnCar("comet") end
     
452.           if (IsKeyPressed(99) == 1) then SpawnCar("infernus") end
     
453.           if (IsKeyPressed(100) == 1) then SpawnCar("supergt") end          
     
454.           if (IsKeyPressed(101) == 1) then SpawnCar("coquette") end
     
455.           if (IsKeyPressed(102) == 1) then SpawnCar("nrg900") end
     
456.           if (IsKeyPressed(103) == 1) then SpawnCar("tropic") end
     
457.           if (IsKeyPressed(104) == 1) then SpawnCar("annihilator") end
     
458.           end
     
459. --友好度 INSERT--
     
460.       if (IsKeyPressed(45) == 1) then
     
461.             Bip(2)
     
462.             SetCharHangout()
     
463.             Wait(200)
     
464.            end
     
465.     Wait(2000)
     
466.   end       
     
467. end
     
468. 
     
469. -- start
     
470. main();

复制代码

[ 本帖最后由 q4liker 于 2009-1-12 06:38 编辑 ]

时人熏

顶  让NB在NB点.呵呵   

~亞鄒~

請問是需要安装1.0.1.0??????

dyy4132138

好东西    希望继续有其他功能。。。。例如  一拳打飞   超级跳  高速跑步。。

Isaackungfu

做得好!
這個功能真的很不錯!
比修改器很方便用的!

金手指jordan

我是1.0.0.0版本～～～～～～～用不了～～～～～～～～～

q4liker

等下再放个功能  子弹时间~~~ ~~

~亞鄒~

按END 车辆无敌<------這個好像用不了- -
   不過先謝謝你

q4liker

更新了 以前下过的从下下~

原帖由 ~亞鄒~ 于 2008-12-28 01:36 发表
按END 车辆无敌

要按2秒以上才能确定激活功能~~成功以后用火箭打都毫无反应~

雾夜流萤

算了！修改器我还是不玩的时候再用吧！!!!

~亞鄒~

強~~~又更新了...
不過用了後好像不太穩定

q4liker

就现在来说 除了改车辆和武器的内部修改 没有什么是稳定的~

lzsadam

GiveWeapon(3) 刀 2为台球杆 1棒球杆
  GiveWeapon(4) 好像是沙鹰 5为? 6? 7? 8?
  GiveWeapon(9) 单喷 10好像是连喷
  GiveWeapon(11) 好像是微冲? 12 CS里的B35?(不好意思对武器了解的少)
  GiveWeapon(13) M4? 14是AK?
  GiveWeapon(15) 5发子弹的那个狙? 16 8发子弹的狙?
  GiveWeapon(17) RPG
  GiveWeapon(18) 手雷 19 好像是燃烧瓶?

~亞鄒~

請問可不可以改成不用換子彈???????
常常換要換子彈很馬煩呢..........

q4liker

1:Baseball bat 球棒
2:Pool Cue 台球杆
3:Knife 小刀
4:Grenade 手雷
5:Molotov 燃烧弹
6:Rocket  导弹/不要拿手上~
7:Glock Pistol 手枪
8:don't know yet 不要用~
9:deagle 沙鹰
10:Shotgun 散弹
11:barreta shotgun 连散
12:uzi 不用说了
13:mp5
14:ak
Edit:
15:m4
16:Sniper rifle 狙击
17:M401a Sniper
18:rocket launcher 火箭发射器

Isaackungfu

Giveweapon(num)
1:Baseball bat
2:Pool Cue
3:Knife
4:Grenade
5:Molotov
6:Rocket
7:Glock Pistol
8:don't know yet
9:deagle
10:Shotgun
11:barreta shotgun
12:uzi
13:mp5
14:ak
15:m4
16:Sniper rifle
17:M401a Sniper
18:rocket launcher

zczc34

顶先~通关以后在用

q4liker

原帖由 ~亞鄒~ 于 2008-12-28 02:05 发表
請問可不可以改成不用換子彈???????
常常換要換子彈很馬煩呢..........

子弹从装问题去改 WeaponInfo.xml

clipsize="一弹夹的数量" ammomax="最大备弹"

lzsadam

17:M401a Sniper
这个是什么武器?

preset

顶先~通关以后在用    [经典]