code snip round 2
I hid the name of the script
let's see if you can guess what this script might be for
Code: Select all
#------------------
SCRIPT,111, begin
variable(gobox,goboy,agobo,bgobo,i,gobonum)
variable(gosp,gobospeed,gobo,goborand,fake,agobcop,bgobcop,cgobcop)
bgobcop:=NPC copy count (130)--1
while ( bgobcop>=0 ) do, begin
gobo:=npc reference( 130,bgobcop )
bgobcop:=bgobcop--1
gobox:=npc pixel X(gobo)
goboy:=npc pixel Y(gobo)
if (NPCextra(gobo,extra1)>>0) then( setNPCextra(gobo,extra1,NPCextra(gobo,extra1)--1) )
if (NPCdirection(gobo)<>right,and,NPCdirection(gobo)<>left) then ( setNPCdirection(gobo,left) )
#--
if (invisn==0,and,NPCextra(gobo,extra1)==0)) then (
if (
NPCdirection(gobo)==right,and,
HERO pixel Y(0)<<goboy+5,and,
HERO pixel Y(0)>>goboy--25,and,
((npc pixel X(gobo)+10)/20 )+10>>( (HERO pixel X(0)+10)/20 ),and,
((npc pixel X(gobo)+10)/20 )<<( (HERO pixel X(0)+10)/20 )
)
then (
setNPCextra(gobo,extra1,30)
ggfire:=createnpc(75,gobox/20,goboy/20,right)
playsound(0)
)
if (
NPCdirection(gobo)==left,and,
HERO pixel Y(0)<<goboy+5,and,
HERO pixel Y(0)>>goboy--25,and,
((npc pixel X(gobo)+10)/20 )>>( (HERO pixel X(0)+10)/20 ),and,
((npc pixel X(gobo)+10)/20 )--10<<( (HERO pixel X(0)+10)/20 )
)
then (
setNPCextra(gobo,extra1,30)
ggfire:=createnpc(75,gobox/20,goboy/20,left)
playsound(0)
)
)
#--
end
end
#------------------