Iron Man Cleo Code Snippets

To this mod, I've created a couple of functions to make everything easier.
for example: laser-beam

I'm going to post those functions to you to be able to use them.

LASER BEAM

:Ibeam
//0AB1: create @Ibeam 11 MP3Sound -1 actor $PLAYER_ACTOR originXYZ 4@ 5@ 6@ targetXYZ 8@ 9@ 10@ radius 0.120 explosionType 10 delayTime 700 
const
    BeamSound = 11@
    Iplayer = 12@
    originX = 13@
    originY = 14@
    originZ = 15@
    targetX = 16@
    targetY = 17@
    targetZ = 18@
    Iradius = 19@
    expType = 20@
    delTime = 21@
end
0085: BeamSound = 0@ // (int)
0085: Iplayer = 1@ // (int)
0087: originX = 2@ // (float)
0087: originY = 3@ // (float)
0087: originZ = 4@ // (float)
0087: targetX = 5@ // (float)
0087: targetY = 6@ // (float)
0087: targetZ = 7@ // (float)
0087: Iradius = 8@ // (float)
0085: expType = 9@ // (int)
0085: delTime = 10@ // (int)
if   not BeamSound ==  -1
then   
    0AB9: get_mp3 BeamSound state_to 29@
    if    29@ <> 1  // not playing
    then   0AAD: set_mp3 BeamSound Play 1   // 0:stop / 1:play / 2:pause / 3:resume
    end
end
04D7: set_actor Iplayer locked 1
var
    23@: array 3 of integer 
end
for 22@ = 0 to 2
    06B1: 23@[22@] = create_searchlight_at originX originY originZ radius Iradius target targetX targetY targetZ radius Iradius 
end
for 22@ = 0 to 2
    0565: create_soundless_explosion_at targetX targetY targetZ type expType
end
33@ = 0
while   001D:   delTime > 33@  // (int)
    06BC: create_M4_shoot_from originX originY originZ target targetX targetY targetZ energy 9999
    for 22@ = 0 to 2
        if    06B3: searchlight 23@[22@] active 
        then  06B2: destroy_searchlight 23@[22@] 
        end                      
    end 
    for 22@ = 0 to 2
        06B1: 23@[22@] = create_searchlight_at originX originY originZ radius Iradius target targetX targetY targetZ radius Iradius 
    end 
 wait 0
end
for 22@ = 0 to 2
    if    06B3: searchlight 23@[22@] active 
    then  06B2: destroy_searchlight 23@[22@] 
    end                      
end
04D7: set_actor Iplayer locked 0
0AB2: ret 0

using this opcode you can make the beam... easy, isn't it?... ;)

 0AB1: create @Ibeam 11 MP3Sound -1 actor $PLAYER_ACTOR originXYZ 4@ 5@ 6@ targetXYZ 8@ 9@ 10@ radius 0.120 explosionType 10 delayTime 700

;)