kraft1c
function randomFunction var_5_0.onSendGiveDamage (INPUT_VAR_0_,INPUT_VAR_1_,INPUT_VAR_2_)
if headshot then
var_0_4 = {}
var_0_4[1] = INPUT_VAR_0_
var_0_4[2] = INPUT_VAR_1_
var_0_4[3] = INPUT_VAR_2_
return var_0_4
end
return
end
function randomFunction main ()
var_1_0 = isSampfuncsLoaded()
if var_1_0 then
var_1_0 = isSampLoaded()
if not var_1_0 then
end
else
return
end
var_1_0 = isSampAvailable()
if not var_1_0 then
repeat
var_1_1 = 0
wait(var_1_1)
else
until false or (previous if statement is true)
var_1_1 = sampGetCurrentServerAddress()
if var_1_1 ~= "delirium-amber.ru:7777" then
var_1_1 = false
else
var_1_1 = true
end
var_1_0 = assert(var_1_1, "Server not Delirium RPG")
if var_1_0 then
var_1_0 = doesFileExist("moonloader\DeliriumRpgByKraft1k.luac")
if var_1_0 then
var_1_0 = sampIsLocalPlayerSpawned()
if not var_1_0 then
repeat
var_1_1 = 0
wait(var_1_1)
else
until false or (previous if statement is true)
sampRegisterChatCommand("delirium", drpgcmd)
var_1_1 = 5000
wait(var_1_1)
var_1_1 = "[{ff6100}Delirium RPG{FFFFFF}] {43A8B9}L"
var_1_2 = -1
sampAddChatMessage(var_1_1, var_1_2)
var_1_1 = "[{ff6100}Delirium RPG{FFFFFF}] {FFFFFF}�"
var_1_2 = -1
sampAddChatMessage(var_1_1, var_1_2)
end
else
var_1_1 = "[{ff6100}Delirium RPG{FFFFFF}] {43A8B9}�"
var_1_2 = -1
sampAddChatMessage(var_1_1, var_1_2)
end
end
var_1_2 = 8
var_1_3 = 6
var_1_0 = renderCreateFont("Times New Roman", var_1_2, var_1_3)
var_1_3 = 6
var_1_4 = 6
var_1_1 = renderCreateFont("Tahoma", var_1_3, var_1_4)
repeat
var_1_3 = 0
wait(var_1_3)
var_1_3 = 27518
var_1_2, var_1_3, var_1_4 = sampHasDialogRespond(var_1_3)
if var_1_2 then
if var_1_3 == 0 then
if var_1_4 == 1 then
drpgcmd()
else
if var_1_4 == 0 then
if ragekillzombie then
var_1_5 = false
ragekillzombie = var_1_5
else
var_1_5 = true
ragekillzombie = var_1_5
var_1_5 = false
ragekillzombie10m = var_1_5
var_1_5 = false
legitkillzombie = var_1_5
var_1_5 = false
legitkillzombieaim = var_1_5
var_1_5 = false
playeraim = var_1_5
end
drpgcmd()
else
if var_1_4 == 2 then
if ragekillzombie10m then
var_1_5 = false
ragekillzombie10m = var_1_5
else
var_1_5 = true
ragekillzombie10m = var_1_5
var_1_5 = false
ragekillzombie = var_1_5
var_1_5 = false
legitkillzombie = var_1_5
var_1_5 = false
legitkillzombieaim = var_1_5
var_1_5 = false
playeraim = var_1_5
end
drpgcmd()
else
if var_1_4 == 3 then
if legitkillzombie then
var_1_5 = false
legitkillzombie = var_1_5
else
var_1_5 = true
legitkillzombie = var_1_5
var_1_5 = false
ragekillzombie = var_1_5
var_1_5 = false
ragekillzombie10m = var_1_5
var_1_5 = false
legitkillzombieaim = var_1_5
var_1_5 = false
playeraim = var_1_5
end
drpgcmd()
else
if var_1_4 == 4 then
if legitkillzombieaim then
var_1_5 = false
legitkillzombieaim = var_1_5
else
var_1_5 = true
legitkillzombieaim = var_1_5
var_1_5 = false
ragekillzombie = var_1_5
var_1_5 = false
ragekillzombie10m = var_1_5
var_1_5 = false
legitkillzombie = var_1_5
var_1_5 = false
playeraim = var_1_5
end
drpgcmd()
else
if var_1_4 == 5 then
drpgcmd()
else
if var_1_4 == 6 then
if headshot then
var_1_5 = false
headshot = var_1_5
else
var_1_5 = true
headshot = var_1_5
end
drpgcmd()
else
if var_1_4 == 7 then
if tup then
var_1_5 = false
tup = var_1_5
else
var_1_5 = true
tup = var_1_5
end
drpgcmd()
else
if var_1_4 == 8 then
if wallhack then
var_1_5 = false
wallhack = var_1_5
nameTagOff()
else
var_1_5 = true
wallhack = var_1_5
nameTagOn()
end
drpgcmd()
else
if var_1_4 == 9 then
var_1_5 = getModuleProcAddress("Shell32.dll", "ShellExecuteA")
var_1_7 = var_1_5
var_1_8 = 6
var_1_9 = 0
var_1_10 = 0
var_1_13 = 0
var_1_14 = 0
var_1_15 = 5
callFunction(var_1_7, var_1_8, var_1_9, var_1_10, "open", "www.blast.hk/threads/22008/", var_1_13, var_1_14, var_1_15)
drpgcmd()
else
if var_1_4 == 10 then
var_1_5 = getModuleProcAddress("Shell32.dll", "ShellExecuteA")
var_1_7 = var_1_5
var_1_8 = 6
var_1_9 = 0
var_1_10 = 0
var_1_13 = 0
var_1_14 = 0
var_1_15 = 5
callFunction(var_1_7, var_1_8, var_1_9, var_1_10, "open", "www.blast.hk/threads/22008/", var_1_13, var_1_14, var_1_15)
drpgcmd()
end
end
end
end
end
end
end
end
end
end
end
end
end
if ragekillzombie then
var_1_5 = isCharOnFoot(playerPed)
if var_1_5 then
var_1_5 = getAllChars()
var_1_7 = var_1_5
for var_1_9, var_1_10 in ipairs(var_1_7) do
var_1_12 = var_1_10
var_1_11 = doesCharExist(var_1_12)
if var_1_11 then
var_1_13 = var_1_10
var_1_12 = getCharModel(var_1_13)
if unknown0 then
var_1_12 = var_1_10
var_1_11, var_1_12 = sampGetPlayerIdByCharHandle(var_1_12)
if var_1_11 then
var_1_13 = getCurrentCharWeapon(playerPed)
if var_1_13 == 1 then
var_1_14 = var_1_12
var_1_15 = 200
var_1_16 = 0
var_1_17 = 3
sampSendGiveDamage(var_1_14, var_1_15, var_1_16, var_1_17)
var_1_14 = 225
wait(var_1_14)
end
end
end
end
end
end
end
if ragekillzombie10m then
var_1_5 = isCharOnFoot(playerPed)
if var_1_5 then
var_1_5 = getAllChars()
var_1_7 = var_1_5
for var_1_9, var_1_10 in ipairs(var_1_7) do
var_1_12 = var_1_10
var_1_11 = doesCharExist(var_1_12)
if var_1_11 then
var_1_13 = var_1_10
var_1_12 = getCharModel(var_1_13)
if unknown1 then
var_1_12 = var_1_10
var_1_11, var_1_12 = sampGetPlayerIdByCharHandle(var_1_12)
if var_1_11 then
var_1_14 = var_1_10
var_1_13, var_1_14, var_1_15 = getCharCoordinates(var_1_14)
var_1_16, var_1_17, var_1_18 = getCharCoordinates(playerPed)
var_1_20 = var_1_13
var_1_21 = var_1_14
var_1_22 = var_1_15
var_1_23 = var_1_16
var_1_24 = var_1_17
var_1_25 = var_1_18
var_1_19 = getDistanceBetweenCoords3d(var_1_20, var_1_21, var_1_22, var_1_23, var_1_24, var_1_25)
var_1_20 = 10.1
if var_1_19 <= var_1_20 then
var_1_20 = getCurrentCharWeapon(playerPed)
if var_1_20 == 1 then
var_1_21 = var_1_12
var_1_22 = 200
var_1_23 = 0
var_1_24 = 3
sampSendGiveDamage(var_1_21, var_1_22, var_1_23, var_1_24)
var_1_21 = 225
wait(var_1_21)
end
end
end
end
end
end
end
end
if legitkillzombie then
var_1_5 = isCharOnFoot(playerPed)
if var_1_5 then
var_1_5 = getAllChars()
var_1_7 = var_1_5
for var_1_9, var_1_10 in ipairs(var_1_7) do
var_1_12 = var_1_10
var_1_11 = doesCharExist(var_1_12)
if var_1_11 then
var_1_12 = var_1_10
var_1_11, var_1_12 = sampGetPlayerIdByCharHandle(var_1_12)
if var_1_11 then
var_1_15 = var_1_10
var_1_14 = getCharModel(var_1_15)
if unknown2 then
var_1_14 = var_1_10
var_1_13, var_1_14, var_1_15 = getCharCoordinates(var_1_14)
var_1_16, var_1_17, var_1_18 = getCharCoordinates(playerPed)
var_1_20 = var_1_13
var_1_21 = var_1_14
var_1_22 = var_1_15
var_1_23 = var_1_16
var_1_24 = var_1_17
var_1_25 = var_1_18
var_1_19 = getDistanceBetweenCoords3d(var_1_20, var_1_21, var_1_22, var_1_23, var_1_24, var_1_25)
var_1_22 = 0.3
var_1_23 = 1.8
var_1_24 = -1
var_1_20, var_1_21, var_1_22 = getOffsetFromCharInWorldCoords(playerPed, var_1_22, var_1_23, var_1_24)
var_1_25 = 0
var_1_26 = 2
var_1_27 = -1
var_1_23, var_1_24, var_1_25 = getOffsetFromCharInWorldCoords(playerPed, var_1_25, var_1_26, var_1_27)
var_1_26 = getCurrentCharWeapon(playerPed)
if var_1_26 ~= 14 then
var_1_26 = getCurrentCharWeapon(playerPed)
if var_1_26 ~= 15 then
var_1_26 = getCurrentCharWeapon(playerPed)
if var_1_26 ~= 16 then
var_1_26 = getCurrentCharWeapon(playerPed)
if var_1_26 ~= 17 then
var_1_26 = getCurrentCharWeapon(playerPed)
if var_1_26 ~= 18 then
var_1_26 = getCurrentCharWeapon(playerPed)
if var_1_26 == 19 then
end
end
end
end
end
else
var_1_26 = 35.1
if var_1_19 <= var_1_26 then
var_1_27 = var_1_10
var_1_28 = var_1_20
var_1_29 = var_1_21
var_1_30 = var_1_22
setCharCoordinates(var_1_27, var_1_28, var_1_29, var_1_30)
var_1_27 = var_1_10
var_1_28 = getCharHeading(playerPed)
var_1_28 = var_1_28 + 180
end
setCharHeading(var_1_27, var_1_28)
end
var_1_26 = getCurrentCharWeapon(playerPed)
if var_1_26 ~= 22 then
var_1_26 = getCurrentCharWeapon(playerPed)
if var_1_26 == 23 then
end
else
var_1_26 = 40.1
if var_1_19 <= var_1_26 then
var_1_27 = var_1_10
var_1_28 = var_1_20
var_1_29 = var_1_21
var_1_30 = var_1_22
setCharCoordinates(var_1_27, var_1_28, var_1_29, var_1_30)
var_1_27 = var_1_10
var_1_28 = getCharHeading(playerPed)
var_1_28 = var_1_28 + 180
end
setCharHeading(var_1_27, var_1_28)
end
var_1_26 = getCurrentCharWeapon(playerPed)
if var_1_26 == 25 then
var_1_26 = 45.1
if var_1_19 <= var_1_26 then
var_1_27 = var_1_10
var_1_28 = var_1_20
var_1_29 = var_1_21
var_1_30 = var_1_22
setCharCoordinates(var_1_27, var_1_28, var_1_29, var_1_30)
var_1_27 = var_1_10
var_1_28 = getCharHeading(playerPed)
var_1_28 = var_1_28 + 180
setCharHeading(var_1_27, var_1_28)
end
end
var_1_26 = getCurrentCharWeapon(playerPed)
if var_1_26 ~= 27 then
var_1_26 = getCurrentCharWeapon(playerPed)
if var_1_26 == 28 then
end
else
var_1_26 = 90.1
if var_1_19 <= var_1_26 then
var_1_27 = var_1_10
var_1_28 = var_1_20
var_1_29 = var_1_21
var_1_30 = var_1_22
setCharCoordinates(var_1_27, var_1_28, var_1_29, var_1_30)
var_1_27 = var_1_10
var_1_28 = getCharHeading(playerPed)
var_1_28 = var_1_28 + 180
end
setCharHeading(var_1_27, var_1_28)
end
var_1_26 = getCurrentCharWeapon(playerPed)
if var_1_26 == 30 then
var_1_26 = 90.1
if var_1_19 <= var_1_26 then
var_1_27 = var_1_10
var_1_28 = var_1_20
var_1_29 = var_1_21
var_1_30 = var_1_22
setCharCoordinates(var_1_27, var_1_28, var_1_29, var_1_30)
var_1_27 = var_1_10
var_1_28 = getCharHeading(playerPed)
var_1_28 = var_1_28 + 180
setCharHeading(var_1_27, var_1_28)
end
end
var_1_26 = getCurrentCharWeapon(playerPed)
if var_1_26 == 31 then
var_1_26 = 300.1
if var_1_19 <= var_1_26 then
var_1_27 = var_1_10
var_1_28 = var_1_23
var_1_29 = var_1_24
var_1_30 = var_1_25
setCharCoordinates(var_1_27, var_1_28, var_1_29, var_1_30)
var_1_27 = var_1_10
end
end
end
end
var_1_28 = getCharHeading(playerPed)
var_1_28 = var_1_28 + 180
end
setCharHeading(var_1_27, var_1_28)
end
end
end
if legitkillzombieaim then
var_1_5 = isCharOnFoot(playerPed)
if var_1_5 then
var_1_5, var_1_6 = getCharPlayerIsTargeting()
if var_1_5 then
var_1_8 = var_1_6
var_1_7 = doesCharExist(var_1_8)
if var_1_7 then
var_1_8 = var_1_6
var_1_7, var_1_8 = sampGetPlayerIdByCharHandle(var_1_8)
if var_1_7 then
var_1_11 = var_1_6
var_1_10 = getCharModel(var_1_11)
if unknown3 then
var_1_10 = var_1_6
var_1_9, var_1_10, var_1_11 = getCharCoordinates(var_1_10)
var_1_12, var_1_13, var_1_14 = getCharCoordinates(playerPed)
var_1_16 = var_1_9
var_1_17 = var_1_10
var_1_18 = var_1_11
var_1_19 = var_1_12
var_1_20 = var_1_13
var_1_21 = var_1_14
var_1_15 = getDistanceBetweenCoords3d(var_1_16, var_1_17, var_1_18, var_1_19, var_1_20, var_1_21)
var_1_18 = 0.3
var_1_19 = 1.8
var_1_20 = -1
var_1_16, var_1_17, var_1_18 = getOffsetFromCharInWorldCoords(playerPed, var_1_18, var_1_19, var_1_20)
var_1_19 = getCurrentCharWeapon(playerPed)
if var_1_19 ~= 14 then
var_1_19 = getCurrentCharWeapon(playerPed)
if var_1_19 ~= 15 then
var_1_19 = getCurrentCharWeapon(playerPed)
if var_1_19 ~= 16 then
var_1_19 = getCurrentCharWeapon(playerPed)
if var_1_19 ~= 17 then
var_1_19 = getCurrentCharWeapon(playerPed)
if var_1_19 ~= 18 then
var_1_19 = getCurrentCharWeapon(playerPed)
if var_1_19 == 19 then
end
end
end
end
end
else
var_1_19 = 35.1
if var_1_15 <= var_1_19 then
var_1_20 = var_1_6
var_1_21 = var_1_16
var_1_22 = var_1_17
var_1_23 = var_1_18
setCharCoordinates(var_1_20, var_1_21, var_1_22, var_1_23)
var_1_20 = var_1_6
var_1_21 = getCharHeading(playerPed)
var_1_21 = var_1_21 + 180
end
setCharHeading(var_1_20, var_1_21)
end
var_1_19 = getCurrentCharWeapon(playerPed)
if var_1_19 ~= 22 then
var_1_19 = getCurrentCharWeapon(playerPed)
if var_1_19 == 23 then
end
else
var_1_19 = 40.1
if var_1_15 <= var_1_19 then
var_1_20 = var_1_6
var_1_21 = var_1_16
var_1_22 = var_1_17
var_1_23 = var_1_18
setCharCoordinates(var_1_20, var_1_21, var_1_22, var_1_23)
var_1_20 = var_1_6
var_1_21 = getCharHeading(playerPed)
var_1_21 = var_1_21 + 180
end
setCharHeading(var_1_20, var_1_21)
end
var_1_19 = getCurrentCharWeapon(playerPed)
if var_1_19 == 25 then
var_1_19 = 45.1
if var_1_15 <= var_1_19 then
var_1_20 = var_1_6
var_1_21 = var_1_16
var_1_22 = var_1_17
var_1_23 = var_1_18
setCharCoordinates(var_1_20, var_1_21, var_1_22, var_1_23)
var_1_20 = var_1_6
var_1_21 = getCharHeading(playerPed)
var_1_21 = var_1_21 + 180
setCharHeading(var_1_20, var_1_21)
end
end
var_1_19 = getCurrentCharWeapon(playerPed)
if var_1_19 ~= 27 then
var_1_19 = getCurrentCharWeapon(playerPed)
if var_1_19 == 28 then
end
else
var_1_19 = 90.1
if var_1_15 <= var_1_19 then
var_1_20 = var_1_6
var_1_21 = var_1_16
var_1_22 = var_1_17
var_1_23 = var_1_18
setCharCoordinates(var_1_20, var_1_21, var_1_22, var_1_23)
var_1_20 = var_1_6
var_1_21 = getCharHeading(playerPed)
var_1_21 = var_1_21 + 180
end
setCharHeading(var_1_20, var_1_21)
end
var_1_19 = getCurrentCharWeapon(playerPed)
if var_1_19 == 30 then
var_1_19 = 90.1
if var_1_15 <= var_1_19 then
var_1_20 = var_1_6
var_1_21 = var_1_16
var_1_22 = var_1_17
var_1_23 = var_1_18
setCharCoordinates(var_1_20, var_1_21, var_1_22, var_1_23)
var_1_20 = var_1_6
end
end
end
end
end
end
end
var_1_21 = getCharHeading(playerPed)
var_1_21 = var_1_21 + 180
setCharHeading(var_1_20, var_1_21)
end
if tup then
var_1_5 = isCharOnFoot(playerPed)
if var_1_5 then
var_1_5 = getAllObjects()
var_1_7 = var_1_5
for var_1_9, var_1_10 in ipairs(var_1_7) do
var_1_12 = var_1_10
var_1_11 = doesObjectExist(var_1_12)
if var_1_11 then
var_1_12 = var_1_10
var_1_11 = getObjectModel(var_1_12)
if var_1_11 == 33 then
var_1_14 = 0.62
var_1_15 = 1.8
var_1_16 = 2.55
var_1_12, var_1_13, var_1_14 = getOffsetFromCharInWorldCoords(playerPed, var_1_14, var_1_15, var_1_16)
var_1_16 = var_1_10
var_1_17 = var_1_12
var_1_18 = var_1_13
var_1_19 = var_1_14
setObjectCoordinates(var_1_16, var_1_17, var_1_18, var_1_19)
var_1_16 = var_1_10
setObjectHeading(var_1_16, getCharHeading(playerPed) )
end
end
end
end
end
end
until false or (previous if statement is true)
return
end
function randomFunction drpgcmd ()
var_2_0 = string.format("{0094c8}���� �������:")
menukilltext = var_2_0
var_2_1 = "%s {ffffff}������� ����� � ������({66000"
if ragekillzombie then
else
end
var_2_0 = string.format(var_2_1, var_2_2)
ragekillzombietext = var_2_0
until false or (previous if statement is true)
var_2_1 = "%s {ffffff}������� ����� � ������� 10�({"
if ragekillzombie10m then
var_2_0 = string.format(var_2_1, var_2_2)
ragekillzombie10mtext = var_2_0
var_2_1 = "%s {ffffff}����������� ����� � ������({f"
if legitkillzombie then
var_2_0 = string.format(var_2_1, var_2_2)
legitkillzombietext = var_2_0
var_2_1 = "%s {ffffff}����������� ����� �� �������("
if legitkillzombieaim then
until false or (previous if statement is true)
var_2_0 = string.format(var_2_1, var_2_2)
legitkillzombieaimtext = var_2_0
var_2_0 = string.format("{0094c8}������:")
othertext = var_2_0
if headshot then
var_2_0 = string.format("%s {ffffff}��������� � ������", var_2_2)
headshottext = var_2_0
if tup then
var_2_0 = string.format("%s {ffffff}��� ������", var_2_2)
tuptext = var_2_0
if wallhack then
var_2_2 = "{b30000}[OFF]"
var_2_0 = string.format("%s {ffffff}Name Tag WallHack", var_2_2)
wallhacktext = var_2_0
var_2_1 = "{0094c8}� ����. �����������: {ff6100}���"
var_2_0 = string.format(var_2_1)
updatetext = var_2_0
var_2_0 = string.format("{0094c8}��������� ����������")
blasthacktext = var_2_0
var_2_1 = 27518
var_2_2 = "{ff6100}Delirium RPG | v1.0 {FFFFFF}by {"
var_2_3 = string.format("%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s\n%s", menukilltext, ragekillzombietext, ragekillzombie10mtext, legitkillzombietext, legitkillzombieaimtext, othertext, headshottext, tuptext, wallhacktext, updatetext, blasthacktext)
var_2_6 = 2
sampShowDialog(var_2_1, var_2_2, var_2_3, "{ffff99}*�������*", "{330066}~�������~", var_2_6)
return
end
end end end end end end
function randomFunction nameTagOn ()
var_3_0 = sampGetServerSettingsPtr()
var_3_2 = var_3_0 + 39
var_3_1 = uget_3_0.getfloat(var_3_2)
NTdist = var_3_1
var_3_2 = var_3_0 + 47
var_3_1 = uget_3_0.getint8(var_3_2)
NTwalls = var_3_1
var_3_2 = var_3_0 + 56
var_3_1 = uget_3_0.getint8(var_3_2)
NTshow = var_3_1
until false or (previous if statement is true)
var_3_2 = var_3_0 + 39
var_3_3 = 1488
uget_3_0.setfloat(var_3_2, var_3_3)
var_3_2 = var_3_0 + 47
var_3_3 = 0
uget_3_0.setint8(var_3_2, var_3_3)
var_3_2 = var_3_0 + 56
var_3_3 = 1
uget_3_0.setint8(var_3_2, var_3_3)
return
end
function randomFunction nameTagOff ()
var_4_0 = sampGetServerSettingsPtr()
var_4_2 = var_4_0 + 39
uget_4_0.setfloat(var_4_2, NTdist)
var_4_2 = var_4_0 + 47
uget_4_0.setint8(var_4_2, NTwalls)
var_4_2 = var_4_0 + 56
uget_4_0.setint8(var_4_2, NTshow)
return
end
function someFunc5()
script_name("Delirium RPG")
script_author("kraft1k")
script_version("v1.0")
require("lib.moonloader")
require("sampfuncs")
var_5_0 = require("samp.events")
until false or (previous if statement is true)
var_5_1 = require("memory")
var_5_2 = {}
var_5_3 = false
ragekillzombie = var_5_3
var_5_3 = false
ragekillzombie10m = var_5_3
var_5_3 = false
legitkillzombie = var_5_3
var_5_3 = false
legitkillzombieaim = var_5_3
var_5_3 = false
headshot = var_5_3
var_5_3 = false
tup = var_5_3
var_5_3 = false
wallhack = var_5_3
local randomFunction0 = function() end
var_5_0.onSendGiveDamage = randomFunction0
local randomFunction1 = function() end
main = randomFunction1
local randomFunction2 = function() end
drpgcmd = randomFunction2
local randomFunction3 = function() end
nameTagOn = randomFunction3
until false or (previous if statement is true)
local randomFunction4 = function() end
nameTagOff = randomFunction4
return
end
|
run
| edit
| history
| help
|
0
|
|
|