File: clone.lua

package info (click to toggle)
scummvm 2.9.1%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 450,580 kB
  • sloc: cpp: 4,299,825; asm: 28,322; python: 12,901; sh: 11,302; java: 9,289; xml: 7,895; perl: 2,639; ansic: 2,465; yacc: 1,670; javascript: 1,020; makefile: 933; lex: 578; awk: 275; objc: 82; sed: 11; php: 1
file content (33 lines) | stat: -rw-r--r-- 747 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
local caster = magic_get_caster()
local actor = select_actor_with_projectile(0x17f, caster)

if actor == nil then return end

local from_x = caster.x
local from_y = caster.y
local from_z = caster.z

local random = math.random

for i=1,8 do
	local new_x = random(0, 10) + from_x - 5
	local new_y = random(0, 10) + from_y - 5
	if map_can_put(new_x, new_y, from_z) then
		local clone_actor = Actor.new(actor.obj_n, new_x, new_y, from_z)
		if clone_actor ~= nil then
			clone_actor.frame_n = actor.frame_n
			clone_actor.align = actor.align
			if actor.wt > WT_PLAYER then
				clone_actor.wt = actor.wt
			else
				clone_actor.wt = WT_ASSAULT
			end
			fade_actor_in(clone_actor)
			magic_success()
			return
		end
		break
	end
end

magic_no_effect()