Question about monster AI - GameCreators Forum

Author

Message

Takis76

19

Years of Service

User Offline

Joined: 9th Apr 2005

Location: Greece

Posted: 4th May 2011 21:36 Edited at: 4th May 2011 21:54

Link

Hello again,

I have another question about monster Artificial Intelligence.

I have one Data Type which holds all my monsters data.

Type My_Monsters

x as integer `position x on map
    y as integer `position y on map
    `left as integer `monster turns left
    `right as integer `monster turns right
    `front as integer `monster is in front
    `back as integer `monster turns back
    attack as integer `monster attacks
    direction as integer `monster direction 1=North 2=South 3=West 4=East
    frame as integer `monster frame 1 and 2
    step_position as integer `monster position on view when turns left or right (If there is any free square)
                             `1 left 2 middle 3 right
    hp as float `normal hit points
    max_hp as float `maximun hit points
    hp_percent as float  `percentage of player hit points

delay as integer `some delay timer
    frame_delay as integer `some delay timer for frames
    number as string `the number of the monster as kind
    updater as integer
    frame_updater as integer

endtype
    
Global dim Monsters(10,100) as My_Monsters `10 Levels 100 monsters per level.

+ Code Snippet

Type My_Monsters

    x as integer `position x on map
    y as integer `position y on map
    `left as integer `monster turns left
    `right as integer `monster turns right
    `front as integer `monster is in front
    `back as integer `monster turns back
    attack as integer `monster attacks
    direction as integer `monster direction 1=North 2=South 3=West 4=East
    frame as integer `monster frame 1 and 2
    step_position as integer `monster position on view when turns left or right (If there is any free square)
                             `1 left 2 middle 3 right
    hp as float `normal hit points
    max_hp as float `maximun hit points
    hp_percent as float  `percentage of player hit points

    delay as integer `some delay timer
    frame_delay as integer `some delay timer for frames
    number as string `the number of the monster as kind
    updater as integer
    frame_updater as integer

endtype
    
Global dim Monsters(10,100) as My_Monsters `10 Levels 100 monsters per level.

And I use these data types to move my monster in my dungeons.

I have created one little complex AI code to check if my monster will arrive in a wall and changes direction or if arrive in front of one closed door or stair.

So far my code contains the wall check collision and the code works well when my monster or any monstery in labyrinth will collide on my walls , seeks for an empty square and changes direction to the empty square.

But I have problem , what is happen if one monster collide with another?

I use this AI code for monsters collision only but my monster overlaps the other one.

+ Code Snippet

`Monster travels to the NORTH and if find any other monster will try to turn direction radomely 
if monsters(party.level,all_monsters).y-1=monsters(party.level,all_monsters).y
   inc Monsters(party.level,all_monsters).y,1
`this function will try to turn direction radomely
   Monsters(party.level,all_monsters).direction=rnd(3)+1
   `If radome direction is the same again try to radome direction again
   if Monsters(party.level,all_monsters).direction=1 
   Monsters(party.level,all_monsters).direction=rnd(3)+1
   endif
endif

I thought if I use and one 2 dimensional array which holds the x and y of each monster and I put one string "01" for each square which there is a monster spot and when the monster leave the square I will change the previous square to "00" , remove the old spot and check if these 2 squares will be empty "00" in front of each other and make the collision effect for my monsters.

Would this work?
Is there any simpler way?

Thank you!

Here is whole AI code.

Function Monster_Functions()

for all_monsters=1 to 100
    
        If Timer()=>Monsters(party.level,all_monsters).delay+1700 then Monsters(party.level,all_monsters).delay=Timer() : Monsters(party.level,all_monsters).Updater=1
        `this function change the walking frames of the monster

if Timer()=>Monsters(party.level,all_monsters).frame_delay+400 then Monsters(party.level,all_monsters).frame_delay=Timer() : Monsters(party.level,all_monsters).Frame_Updater=1
        if Monsters(party.level,all_monsters).frame_updater=1
            Monsters(party.level,all_monsters).frame_updater=0
                if Monsters(party.level,all_monsters).attack=0
                    inc Monsters(party.level,all_monsters).frame,1
                    if Monsters(party.level,all_monsters).frame>2 then Monsters(party.level,all_monsters).frame=0
                endif
                if Monsters(party.level,all_monsters).attack=1
                    inc Monsters(party.level,all_monsters).frame,1
                    if Monsters(party.level,all_monsters).frame>2 then Monsters(party.level,all_monsters).frame=0:monsters(party.level,all_monsters).frame_delay=Timer():Monsters(party.level,all_monsters).attack=0
                endif
        Endif
        
        
        
        if Monsters(party.level,all_monsters).updater=1
        Monsters(party.level,all_monsters).updater=0

`if the monster direction is NORTH - This is AI function for walking monster to the NORTH only
            `===================================================================================================
            if Monsters(party.level,all_monsters).direction=1
            Monsters(party.level,all_monsters).frame_updater=0
                `Monster travels to the NORTH and if find any wall will try to turn direction radomely 
                if Levels(party.level,Monsters(party.level,all_monsters).x,Monsters(party.level,all_monsters).y-1,1)<>"00"
                inc Monsters(party.level,all_monsters).y,1
                    `this function will try to turn direction radomely
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    `If radome direction is the same again try to radome direction again
                    if Monsters(party.level,all_monsters).direction=1 
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    endif
                endif
                `Monster travels to the NORTH and if find any other monster will try to turn direction radomely 
                if monsters(party.level,all_monsters).y-1=monsters(party.level,all_monsters).y
                inc Monsters(party.level,all_monsters).y,1
                    `this function will try to turn direction radomely
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    `If radome direction is the same again try to radome direction again
                    if Monsters(party.level,all_monsters).direction=1 
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    endif
                endif
                `if monster arrived in front of player in any direction then attacks
                if Monsters(party.level,all_monsters).x=party.x and Monsters(party.level,all_monsters).y-1=party.y
                Monsters(party.level,all_monsters).attack=1
                    else Monsters(party.level,all_monsters).attack=0
                endif

if Monsters(party.level,all_monsters).attack=0 then dec Monsters(party.level,all_monsters).y,1
               `goto AFTER_MONSTER_FUNCTIONS
            endif
            `===================================================================================================
            `if the monster direction is SOUTH - This is AI function for walking monster to the SOUTH only
            `===================================================================================================
            if Monsters(party.level,all_monsters).direction=2
            Monsters(party.level,all_monsters).frame_updater=0
                `Monster travels to the SOUTH and if find any wall will try to turn direction radomely 
                if Levels(party.level,Monsters(party.level,all_monsters).x,Monsters(party.level,all_monsters).y+1,2)<>"00"
                dec Monsters(party.level,all_monsters).y,1
                    `this function will try to turn direction radomely
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    `If radome direction is the same again try to radome direction again
                    if Monsters(party.level,all_monsters).direction=2 
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    endif
                endif 
                `Monster travels to the SOUTH and if find any other monster will try to turn direction radomely 
                if monsters(party.level,all_monsters).y+1=monsters(party.level,all_monsters).y
                dec Monsters(party.level,all_monsters).y,1
                    `this function will try to turn direction radomely
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    `If radome direction is the same again try to radome direction again
                    if Monsters(party.level,all_monsters).direction=1 
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    endif
                endif
                `if monster arrived in front of player in any direction then attacks
                if Monsters(party.level,all_monsters).x=party.x and Monsters(party.level,all_monsters).y+1=party.y
                Monsters(party.level,all_monsters).attack=1
                    else Monsters(party.level,all_monsters).attack=0
                endif

if Monsters(party.level,all_monsters).attack=0 then inc Monsters(party.level,all_monsters).y,1
               `goto AFTER_MONSTER_FUNCTIONS
            endif
            `===================================================================================================
            `if the monster direction is WEST - This is AI function for walking monster to the WEST only
            `===================================================================================================
            if Monsters(party.level,all_monsters).direction=3
            Monsters(party.level,all_monsters).frame_updater=0
                `Monster travels to the WEST and if find any wall will try to turn direction radomely 
                if Levels(party.level,Monsters(party.level,all_monsters).x-1,Monsters(party.level,all_monsters).y,3)<>"00"
                inc Monsters(party.level,all_monsters).x,1
                    `this function will try to turn direction radomely
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    `If radome direction is the same again try to radome direction again
                    if Monsters(party.level,all_monsters).direction=3
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    endif
                endif 
                `Monster travels to the WEST and if find any other monster will try to turn direction radomely 
                if monsters(party.level,all_monsters).x-1=monsters(party.level,all_monsters).x
                inc Monsters(party.level,all_monsters).x,1
                    `this function will try to turn direction radomely
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    `If radome direction is the same again try to radome direction again
                    if Monsters(party.level,all_monsters).direction=1 
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    endif
                endif
                `if monster arrived in front of player in any direction then attacks
                if Monsters(party.level,all_monsters).x-1=party.x and Monsters(party.level,all_monsters).y=party.y
                Monsters(party.level,all_monsters).attack=1
                    else Monsters(party.level,all_monsters).attack=0
                endif

if Monsters(party.level,all_monsters).attack=0 then dec Monsters(party.level,all_monsters).x,1
               `goto AFTER_MONSTER_FUNCTIONS
            endif
            `===================================================================================================
            `if the monster direction is EAST - This is AI function for walking monster to the EAST only
            `===================================================================================================
            if Monsters(party.level,all_monsters).direction=4
            Monsters(party.level,all_monsters).frame_updater=0
                `Monster travels to the EAST and if find any wall will try to turn direction radomely 
                if Levels(party.level,Monsters(party.level,all_monsters).x+1,Monsters(party.level,all_monsters).y,4)<>"00"
                dec Monsters(party.level,all_monsters).x,1
                    `this function will try to turn direction radomely
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    `If radome direction is the same again try to radome direction again
                    if Monsters(party.level,all_monsters).direction=4
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    endif
                endif 
                `Monster travels to the EAST and if find any other monster will try to turn direction radomely 
                if monsters(party.level,all_monsters).x+1=monsters(party.level,all_monsters).x
                dec Monsters(party.level,all_monsters).x,1
                    `this function will try to turn direction radomely
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    `If radome direction is the same again try to radome direction again
                    if Monsters(party.level,all_monsters).direction=1 
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    endif
                endif
                `if monster arrived in front of player in any direction then attacks
                if Monsters(party.level,all_monsters).x+1=party.x and Monsters(party.level,all_monsters).y=party.y
                Monsters(party.level,all_monsters).attack=1
                    else Monsters(party.level,all_monsters).attack=0
                endif

if Monsters(party.level,all_monsters).attack=0 then Inc Monsters(party.level,all_monsters).x,1
               `goto AFTER_MONSTER_FUNCTIONS
            endif
            `===================================================================================================
                
        Endif
    next

Endfunction

+ Code Snippet

Function Monster_Functions()

    for all_monsters=1 to 100
    
        If Timer()=>Monsters(party.level,all_monsters).delay+1700 then Monsters(party.level,all_monsters).delay=Timer() : Monsters(party.level,all_monsters).Updater=1
        `this function change the walking frames of the monster

        if Timer()=>Monsters(party.level,all_monsters).frame_delay+400 then Monsters(party.level,all_monsters).frame_delay=Timer() : Monsters(party.level,all_monsters).Frame_Updater=1
        if Monsters(party.level,all_monsters).frame_updater=1
            Monsters(party.level,all_monsters).frame_updater=0
                if Monsters(party.level,all_monsters).attack=0
                    inc Monsters(party.level,all_monsters).frame,1
                    if Monsters(party.level,all_monsters).frame>2 then Monsters(party.level,all_monsters).frame=0
                endif
                if Monsters(party.level,all_monsters).attack=1
                    inc Monsters(party.level,all_monsters).frame,1
                    if Monsters(party.level,all_monsters).frame>2 then Monsters(party.level,all_monsters).frame=0:monsters(party.level,all_monsters).frame_delay=Timer():Monsters(party.level,all_monsters).attack=0
                endif
        Endif
        
        
        
        if Monsters(party.level,all_monsters).updater=1
        Monsters(party.level,all_monsters).updater=0

            `if the monster direction is NORTH - This is AI function for walking monster to the NORTH only
            `===================================================================================================
            if Monsters(party.level,all_monsters).direction=1
            Monsters(party.level,all_monsters).frame_updater=0
                `Monster travels to the NORTH and if find any wall will try to turn direction radomely 
                if Levels(party.level,Monsters(party.level,all_monsters).x,Monsters(party.level,all_monsters).y-1,1)<>"00"
                inc Monsters(party.level,all_monsters).y,1
                    `this function will try to turn direction radomely
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    `If radome direction is the same again try to radome direction again
                    if Monsters(party.level,all_monsters).direction=1 
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    endif
                endif
                `Monster travels to the NORTH and if find any other monster will try to turn direction radomely 
                if monsters(party.level,all_monsters).y-1=monsters(party.level,all_monsters).y
                inc Monsters(party.level,all_monsters).y,1
                    `this function will try to turn direction radomely
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    `If radome direction is the same again try to radome direction again
                    if Monsters(party.level,all_monsters).direction=1 
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    endif
                endif
                `if monster arrived in front of player in any direction then attacks
                if Monsters(party.level,all_monsters).x=party.x and Monsters(party.level,all_monsters).y-1=party.y
                Monsters(party.level,all_monsters).attack=1
                    else Monsters(party.level,all_monsters).attack=0
                endif

                if Monsters(party.level,all_monsters).attack=0 then dec Monsters(party.level,all_monsters).y,1
               `goto AFTER_MONSTER_FUNCTIONS
            endif
            `===================================================================================================
            `if the monster direction is SOUTH - This is AI function for walking monster to the SOUTH only
            `===================================================================================================
            if Monsters(party.level,all_monsters).direction=2
            Monsters(party.level,all_monsters).frame_updater=0
                `Monster travels to the SOUTH and if find any wall will try to turn direction radomely 
                if Levels(party.level,Monsters(party.level,all_monsters).x,Monsters(party.level,all_monsters).y+1,2)<>"00"
                dec Monsters(party.level,all_monsters).y,1
                    `this function will try to turn direction radomely
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    `If radome direction is the same again try to radome direction again
                    if Monsters(party.level,all_monsters).direction=2 
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    endif
                endif 
                `Monster travels to the SOUTH and if find any other monster will try to turn direction radomely 
                if monsters(party.level,all_monsters).y+1=monsters(party.level,all_monsters).y
                dec Monsters(party.level,all_monsters).y,1
                    `this function will try to turn direction radomely
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    `If radome direction is the same again try to radome direction again
                    if Monsters(party.level,all_monsters).direction=1 
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    endif
                endif
                `if monster arrived in front of player in any direction then attacks
                if Monsters(party.level,all_monsters).x=party.x and Monsters(party.level,all_monsters).y+1=party.y
                Monsters(party.level,all_monsters).attack=1
                    else Monsters(party.level,all_monsters).attack=0
                endif

               if Monsters(party.level,all_monsters).attack=0 then inc Monsters(party.level,all_monsters).y,1
               `goto AFTER_MONSTER_FUNCTIONS
            endif
            `===================================================================================================
            `if the monster direction is WEST - This is AI function for walking monster to the WEST only
            `===================================================================================================
            if Monsters(party.level,all_monsters).direction=3
            Monsters(party.level,all_monsters).frame_updater=0
                `Monster travels to the WEST and if find any wall will try to turn direction radomely 
                if Levels(party.level,Monsters(party.level,all_monsters).x-1,Monsters(party.level,all_monsters).y,3)<>"00"
                inc Monsters(party.level,all_monsters).x,1
                    `this function will try to turn direction radomely
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    `If radome direction is the same again try to radome direction again
                    if Monsters(party.level,all_monsters).direction=3
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    endif
                endif 
                `Monster travels to the WEST and if find any other monster will try to turn direction radomely 
                if monsters(party.level,all_monsters).x-1=monsters(party.level,all_monsters).x
                inc Monsters(party.level,all_monsters).x,1
                    `this function will try to turn direction radomely
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    `If radome direction is the same again try to radome direction again
                    if Monsters(party.level,all_monsters).direction=1 
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    endif
                endif
                `if monster arrived in front of player in any direction then attacks
                if Monsters(party.level,all_monsters).x-1=party.x and Monsters(party.level,all_monsters).y=party.y
                Monsters(party.level,all_monsters).attack=1
                    else Monsters(party.level,all_monsters).attack=0
                endif

               if Monsters(party.level,all_monsters).attack=0 then dec Monsters(party.level,all_monsters).x,1
               `goto AFTER_MONSTER_FUNCTIONS
            endif
            `===================================================================================================
            `if the monster direction is EAST - This is AI function for walking monster to the EAST only
            `===================================================================================================
            if Monsters(party.level,all_monsters).direction=4
            Monsters(party.level,all_monsters).frame_updater=0
                `Monster travels to the EAST and if find any wall will try to turn direction radomely 
                if Levels(party.level,Monsters(party.level,all_monsters).x+1,Monsters(party.level,all_monsters).y,4)<>"00"
                dec Monsters(party.level,all_monsters).x,1
                    `this function will try to turn direction radomely
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    `If radome direction is the same again try to radome direction again
                    if Monsters(party.level,all_monsters).direction=4
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    endif
                endif 
                `Monster travels to the EAST and if find any other monster will try to turn direction radomely 
                if monsters(party.level,all_monsters).x+1=monsters(party.level,all_monsters).x
                dec Monsters(party.level,all_monsters).x,1
                    `this function will try to turn direction radomely
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    `If radome direction is the same again try to radome direction again
                    if Monsters(party.level,all_monsters).direction=1 
                    Monsters(party.level,all_monsters).direction=rnd(3)+1
                    endif
                endif
                `if monster arrived in front of player in any direction then attacks
                if Monsters(party.level,all_monsters).x+1=party.x and Monsters(party.level,all_monsters).y=party.y
                Monsters(party.level,all_monsters).attack=1
                    else Monsters(party.level,all_monsters).attack=0
                endif

               if Monsters(party.level,all_monsters).attack=0 then Inc Monsters(party.level,all_monsters).x,1
               `goto AFTER_MONSTER_FUNCTIONS
            endif
            `===================================================================================================
                
        Endif
    next

Endfunction

Back to top

Profile PM Email Website

baxslash

Valued Member

Bronze Codemaster

17

Years of Service

User Offline

Joined: 26th Dec 2006

Location: Duffield

Posted: 5th May 2011 16:34

Link

Quote: "I thought if I use and one 2 dimensional array which holds the x and y of each monster and I put one string "01" for each square which there is a monster spot and when the monster leave the square I will change the previous square to "00" , remove the old spot and check if these 2 squares will be empty "00" in front of each other and make the collision effect for my monsters."

That could work. If you use an integer which you can just increase or decrease you open up the possibility of having more than one monster in a square too...

Back to top

Profile PM Email

Quel

15

Years of Service

User Offline

Joined: 13th Mar 2009

Location:

Posted: 6th May 2011 18:26

Link

I guess the overlapping could occure because you check their states right now for collision, and after that, you move them. So a situation of stepping onto the same spot may happen.

What you should do is to have their destination locations for checking the collision. If the monster isn't moving, its destination location is the spot it is standing on right now. This way, if one monster requests a certain spot, the others won't consider that location for walking there, and overlapping can't occure.

-In.Dev.X: A unique heavy story based shoot'em ~25%
-CoreFleet: An underground commander unit based RTS ~15%
-TailsVSEggman: An Sonic themed RTS under development for idea presentation to Sega ~15%

Back to top

Profile PM

Takis76

19

Years of Service

User Offline

Joined: 9th Apr 2005

Location: Greece

Posted: 11th May 2011 20:14 Edited at: 11th May 2011 20:23

Link

I have another one question about a monster AI.

I am creating the AI code of my mummy monster and when it walks in the map and approaches in front of a closed door , the Artificial Intelligence code , checks if there is a door in front of the square of the monster and if the door is closed but not locked , the monster opens the door.
If the door is closed in front of the monster the monster tries to open it and then changes direction , if for example goes NORTH , then I call the random direction code and the monster change direction , and I check again if the random function was selected was the same as current direction and then I random it again until the new direction will be different than the current one. So the monster turns to other direction and continue walking until find another obstacle , wall or closed door or decor or player etc...
My monster according to its direction walk NORTH , SOUTH , WEST , EAST.

My type monsters(party.level,all_monsters).direction variable take values from 1 to 4 for each direction.

So if my monster walking North , I am checking the y axis value on the map minus one.

+ Code Snippet

for all monsters=1 to 100
   if monsters(party.level,all_monsters).y-1=doors(party.level,all_monsters).x then do something
Next

If the monster goes NORTH I check the value Y-1
If the monster goes SOUTH I check the value Y+1
If the monster goes WEST I check the value X-1
If the monster goes EAST I check the value X+1

Whole AI monster code is here:

Monster_AI_Functions:

For All_Monsters=1 to 100
    
            If Timer()=>Monsters(party.level,All_Monsters).delay+1700 then Monsters(party.level,All_Monsters).Updater=1:Monsters(party.level,All_Monsters).delay=Timer()
            if Timer()=>Monsters(party.level,All_Monsters).frame_delay+400 then Monsters(party.level,All_Monsters).frame_delay=Timer() : Monsters(party.level,All_Monsters).Frame_Updater=1

If Monsters(party.level,All_Monsters).Updater=1
            Monsters(party.level,All_Monsters).Updater=0
            
                if Monsters(party.level,All_Monsters).number="01" `My monster is a mummy   
                    if Monsters(party.level,All_Monsters).x>0 and Monsters(party.level,All_Monsters).y>0 `monster is inside the map

MONSTER_AI_NORTH:
                        if Monsters(party.level,All_Monsters).Direction=1 `NORTH
                        
                            `If there is a wall in front
                            if Levels(party.level,Monsters(party.level,All_Monsters).x,Monsters(party.level,All_Monsters).y-1,1)<>"00" `Wall
                                Monster_Direction1:
                                Monsters(party.level,All_Monsters).delay=Timer()
                                Monsters(party.level,All_Monsters).direction=rnd(3)+1 `Tries to turn somewhere
                                if Monsters(party.level,All_Monsters).direction=1 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction1
                                Goto AFTER_MONSTER_AI
                            Endif
                            `============================
                            `If there is a close door in front
                            Monster_Opendoor_North:
                            if Monsters(party.level,All_Monsters).y-1=Doors(Party.level,All_Monsters).y and Monsters(party.level,All_Monsters).x=Doors(Party.level,All_Monsters).x
                                if Doors(Party.level,All_Monsters).frame<5 `Closed DOOR only
                                    if Doors(Party.level,All_Monsters).state=5 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction1
                                    if Doors(Party.level,All_Monsters).state=1 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=3 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=4 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                endif
                            Endif
                            `============================
                            
                            
                            `if monster arrived in front of player in any direction then attacks
                            if Monsters(party.level,All_Monsters).x=party.x and Monsters(party.level,All_Monsters).y-1=party.y
                            Monsters(party.level,All_Monsters).attack=1
                                Goto AFTER_MONSTER_AI
                                `else Monsters(party.level,All_Monsters).attack=0
                            endif
                            `======================================================================    
                            `If there is an empty square in front
                            if Levels(party.level,Monsters(party.level,All_Monsters).x,Monsters(party.level,All_Monsters).y-1,1)="00" `Empty Square
                                Dec Monsters(party.level,All_Monsters).y,1
                            Endif
                            `============================
                    
                        Endif
                        MONSTER_AI_SOUTH:
                        if Monsters(party.level,All_Monsters).Direction=2 `SOUTH
                        
                            `If there is a wall in front
                            if Levels(party.level,Monsters(party.level,All_Monsters).x,Monsters(party.level,All_Monsters).y+1,2)<>"00" `Wall
                                Monster_Direction2:
                                Monsters(party.level,All_Monsters).delay=Timer()
                                Monsters(party.level,All_Monsters).direction=rnd(3)+1 `Tries to turn somewhere
                                if Monsters(party.level,All_Monsters).direction=2 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction2
                                Goto AFTER_MONSTER_AI
                            Endif
                            `============================
                            `If there is a close door in front
                            if Monsters(party.level,All_Monsters).y+1=Doors(Party.level,All_Monsters).y and Monsters(party.level,All_Monsters).x=Doors(Party.level,All_Monsters).x
                                if Doors(Party.level,All_Monsters).frame<5 `Closed DOOR only
                                    if Doors(Party.level,All_Monsters).state=5 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction2
                                    if Doors(Party.level,All_Monsters).state=1 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=3 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=4 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                endif
                            Endif
                            `============================
                            
                            `if monster arrived in front of player in any direction then attacks
                            if Monsters(party.level,All_Monsters).x=party.x and Monsters(party.level,All_Monsters).y+1=party.y
                            Monsters(party.level,All_Monsters).attack=1
                                Goto AFTER_MONSTER_AI
                                `else Monsters(party.level,All_Monsters).attack=0
                            endif
                            `======================================================================    
                            `If there is an empty square in front
                            if Levels(party.level,Monsters(party.level,All_Monsters).x,Monsters(party.level,All_Monsters).y+1,2)="00" `Empty Square
                                Inc Monsters(party.level,All_Monsters).y,1
                            Endif
                            `============================

Endif
                        MONSTER_AI_WEST:
                        if Monsters(party.level,All_Monsters).Direction=3 `WEST
                        
                            `If there is a wall in front
                            if Levels(party.level,Monsters(party.level,All_Monsters).x-1,Monsters(party.level,All_Monsters).y,3)<>"00" `Wall
                                Monster_Direction3:
                                Monsters(party.level,All_Monsters).delay=Timer()
                                Monsters(party.level,All_Monsters).direction=rnd(3)+1 `Tries to turn somewhere
                                if Monsters(party.level,All_Monsters).direction=3 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction3
                                Goto AFTER_MONSTER_AI
                            Endif
                            `============================
                            `If there is a close door in front
                            if Monsters(party.level,All_Monsters).y=Doors(Party.level,All_Monsters).y and Monsters(party.level,All_Monsters).x-1=Doors(Party.level,All_Monsters).x
                                if Doors(Party.level,All_Monsters).frame<5 `Closed DOOR only
                                    if Doors(Party.level,All_Monsters).state=5 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction3
                                    if Doors(Party.level,All_Monsters).state=1 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=3 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=4 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                endif
                            Endif
                            `============================
                            
                            `if monster arrived in front of player in any direction then attacks
                            if Monsters(party.level,All_Monsters).x-1=party.x and Monsters(party.level,All_Monsters).y=party.y
                            Monsters(party.level,All_Monsters).attack=1
                                Goto AFTER_MONSTER_AI
                                `else Monsters(party.level,All_Monsters).attack=0
                            endif
                            `======================================================================    
                            `If there is an empty square in front
                            if Levels(party.level,Monsters(party.level,All_Monsters).x-1,Monsters(party.level,All_Monsters).y,3)="00" `Empty Square
                                Dec Monsters(party.level,All_Monsters).x,1
                            Endif
                            `============================
                    
                        Endif
                        MONSTER_AI_EAST:
                        if Monsters(party.level,All_Monsters).Direction=4 `EAST
                        
                            `If there is a wall in front
                            if Levels(party.level,Monsters(party.level,All_Monsters).x+1,Monsters(party.level,All_Monsters).y,4)<>"00" `Wall
                                Monster_Direction4:
                                Monsters(party.level,All_Monsters).delay=Timer()
                                Monsters(party.level,All_Monsters).direction=rnd(3)+1 `Tries to turn somewhere
                                if Monsters(party.level,All_Monsters).direction=4 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction4
                                Goto AFTER_MONSTER_AI
                            Endif
                            `============================
                            `============================
                            `If there is a close door in front
                            if Monsters(party.level,All_Monsters).y=Doors(Party.level,All_Monsters).y and Monsters(party.level,All_Monsters).x+1=Doors(Party.level,All_Monsters).x
                                if Doors(Party.level,All_Monsters).frame<5 `Closed DOOR only
                                    if Doors(Party.level,All_Monsters).state=5 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction4
                                    if Doors(Party.level,All_Monsters).state=1 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0 `:Inc Monsters(party.level,All_Monsters).y,1:
                                    if Doors(Party.level,All_Monsters).state=3 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=4 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                endif
                            Endif
                            `============================
                            
                            `if monster arrived in front of player in any direction then attacks
                            if Monsters(party.level,All_Monsters).x+1=party.x and Monsters(party.level,All_Monsters).y=party.y
                            Monsters(party.level,All_Monsters).attack=1
                                Goto AFTER_MONSTER_AI
                                `else Monsters(party.level,All_Monsters).attack=0
                            endif
                            `======================================================================    
                            `If there is an empty square in front
                            if Levels(party.level,Monsters(party.level,All_Monsters).x+1,Monsters(party.level,All_Monsters).y,4)="00" `Empty Square
                                Inc Monsters(party.level,All_Monsters).x,1
                            Endif
                            `============================
                    
                        Endif
                        
                    Endif
                Endif
                                
            Endif

For All_Monsters=1 to 100
        
            if Monsters(party.level,All_Monsters).Frame_Updater=1
            Monsters(party.level,All_Monsters).Frame_Updater=0
                `check what monster I have and play its sound effects.
                `===============================================================================
                if Monsters(party.level,All_Monsters).number="01" `My monster is a mummy
                    if Monsters(party.level,All_Monsters).x>0 and Monsters(party.level,All_Monsters).y>0 
                        if Monsters(party.level,All_Monsters).attack=0 and Monsters(party.level,All_Monsters).frame=0
                    
                        `Mummy monster foot steps sounds
                        inc Monsters(party.level,All_Monsters).foot_step,1
                            If Monsters(party.level,All_Monsters).foot_step>2 then Monsters(party.level,All_Monsters).foot_step=0
                
                            `If Monsters(party.level,All_Monsters).foot_step=0 then set sound volume Step01a,Monsters(party.level,All_Monsters).sound_volume:set sound pan Step01a,Monsters(party.level,All_Monsters).sound_pan:play sound Step01a,1
                            If Monsters(party.level,All_Monsters).foot_step=1 then set sound volume M01_step1a,Monsters(party.level,All_Monsters).sound_volume:set sound pan M01_step1a,Monsters(party.level,All_Monsters).sound_pan:play sound M01_step1a,1
                            If Monsters(party.level,All_Monsters).foot_step=2 then set sound volume M01_step1b,Monsters(party.level,All_Monsters).sound_volume:set sound pan M01_step1b,Monsters(party.level,All_Monsters).sound_pan:Play Sound M01_step1b,1
                        endif
                    endif
                    if Monsters(party.level,All_Monsters).direction=1 `NORTH
                        if Monsters(party.level,All_Monsters).y-1=party.y
                            `Here I am checking if my monster "01" attacks
                            if Monsters(party.level,All_Monsters).attack=1
                                Monsters(party.level,All_Monsters).walk=0
                                if Monsters(party.level,All_Monsters).frame=1 then Play Sound M01_attack1a,1
                                if Monsters(party.level,All_Monsters).frame=0 then Play Sound M01_hit1,1
                                inc Monsters(party.level,All_Monsters).frame,1
                                if Monsters(party.level,All_Monsters).frame>2 
                                Monsters(party.level,All_Monsters).frame=0:Monsters(party.level,All_Monsters).frame_delay=Timer():Monsters(party.level,All_Monsters).attack=0
                                Endif
                            endif
                        endif
                    endif
                    if Monsters(party.level,All_Monsters).direction=2 `SOUTH
                        if Monsters(party.level,All_Monsters).y+1=party.y
                            `Here I am checking if my monster "01" attacks
                            if Monsters(party.level,All_Monsters).attack=1
                                Monsters(party.level,All_Monsters).walk=0
                                if Monsters(party.level,All_Monsters).frame=1 then Play Sound M01_attack1a,1
                                if Monsters(party.level,All_Monsters).frame=0 then Play Sound M01_hit1,1
                                inc Monsters(party.level,All_Monsters).frame,1
                                if Monsters(party.level,All_Monsters).frame>2 
                                Monsters(party.level,All_Monsters).frame=0:Monsters(party.level,All_Monsters).frame_delay=Timer():Monsters(party.level,All_Monsters).attack=0
                                Endif
                            endif
                        endif
                    Endif
                    if Monsters(party.level,All_Monsters).direction=3 `WEST
                        if Monsters(party.level,All_Monsters).x-1=party.x
                            `Here I am checking if my monster "01" attacks
                            if Monsters(party.level,All_Monsters).attack=1
                                Monsters(party.level,All_Monsters).walk=0
                                if Monsters(party.level,All_Monsters).frame=1 then Play Sound M01_attack1a,1
                                if Monsters(party.level,All_Monsters).frame=0 then Play Sound M01_hit1,1
                                inc Monsters(party.level,All_Monsters).frame,1
                                if Monsters(party.level,All_Monsters).frame>2 
                                Monsters(party.level,All_Monsters).frame=0:Monsters(party.level,All_Monsters).frame_delay=Timer():Monsters(party.level,All_Monsters).attack=0
                                Endif
                            endif
                        endif
                    Endif
                    if Monsters(party.level,All_Monsters).direction=4 `EAST
                        if Monsters(party.level,All_Monsters).x+1=party.x
                            `Here I am checking if my monster "01" attacks
                            if Monsters(party.level,All_Monsters).attack=1
                                Monsters(party.level,All_Monsters).walk=0
                                if Monsters(party.level,All_Monsters).frame=1 then Play Sound M01_attack1a,1
                                if Monsters(party.level,All_Monsters).frame=0 then Play Sound M01_hit1,1
                                inc Monsters(party.level,All_Monsters).frame,1
                                if Monsters(party.level,All_Monsters).frame>2 
                                Monsters(party.level,All_Monsters).frame=0:Monsters(party.level,All_Monsters).frame_delay=Timer():Monsters(party.level,All_Monsters).attack=0
                                Endif
                            endif
                        endif
                    Endif
                Endif
                `===============================================================================

if Monsters(party.level,All_Monsters).attack=0
                    inc Monsters(party.level,All_Monsters).frame,1
                    if Monsters(party.level,All_Monsters).frame>2 then Monsters(party.level,All_Monsters).frame=0
                endif

Endif

+ Code Snippet

Monster_AI_Functions:

    For All_Monsters=1 to 100
    
            If Timer()=>Monsters(party.level,All_Monsters).delay+1700 then Monsters(party.level,All_Monsters).Updater=1:Monsters(party.level,All_Monsters).delay=Timer()
            if Timer()=>Monsters(party.level,All_Monsters).frame_delay+400 then Monsters(party.level,All_Monsters).frame_delay=Timer() : Monsters(party.level,All_Monsters).Frame_Updater=1


    
            If Monsters(party.level,All_Monsters).Updater=1
            Monsters(party.level,All_Monsters).Updater=0
            
                if Monsters(party.level,All_Monsters).number="01" `My monster is a mummy   
                    if Monsters(party.level,All_Monsters).x>0 and Monsters(party.level,All_Monsters).y>0 `monster is inside the map

                        MONSTER_AI_NORTH:
                        if Monsters(party.level,All_Monsters).Direction=1 `NORTH
                        
                            `If there is a wall in front
                            if Levels(party.level,Monsters(party.level,All_Monsters).x,Monsters(party.level,All_Monsters).y-1,1)<>"00" `Wall
                                Monster_Direction1:
                                Monsters(party.level,All_Monsters).delay=Timer()
                                Monsters(party.level,All_Monsters).direction=rnd(3)+1 `Tries to turn somewhere
                                if Monsters(party.level,All_Monsters).direction=1 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction1
                                Goto AFTER_MONSTER_AI
                            Endif
                            `============================
                            `If there is a close door in front
                            Monster_Opendoor_North:
                            if Monsters(party.level,All_Monsters).y-1=Doors(Party.level,All_Monsters).y and Monsters(party.level,All_Monsters).x=Doors(Party.level,All_Monsters).x
                                if Doors(Party.level,All_Monsters).frame<5 `Closed DOOR only
                                    if Doors(Party.level,All_Monsters).state=5 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction1
                                    if Doors(Party.level,All_Monsters).state=1 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=3 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=4 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                endif
                            Endif
                            `============================
                            
                            
                            `if monster arrived in front of player in any direction then attacks
                            if Monsters(party.level,All_Monsters).x=party.x and Monsters(party.level,All_Monsters).y-1=party.y
                            Monsters(party.level,All_Monsters).attack=1
                                Goto AFTER_MONSTER_AI
                                `else Monsters(party.level,All_Monsters).attack=0
                            endif
                            `======================================================================    
                            `If there is an empty square in front
                            if Levels(party.level,Monsters(party.level,All_Monsters).x,Monsters(party.level,All_Monsters).y-1,1)="00" `Empty Square
                                Dec Monsters(party.level,All_Monsters).y,1
                            Endif
                            `============================
                    
                        Endif
                        MONSTER_AI_SOUTH:
                        if Monsters(party.level,All_Monsters).Direction=2 `SOUTH
                        
                            `If there is a wall in front
                            if Levels(party.level,Monsters(party.level,All_Monsters).x,Monsters(party.level,All_Monsters).y+1,2)<>"00" `Wall
                                Monster_Direction2:
                                Monsters(party.level,All_Monsters).delay=Timer()
                                Monsters(party.level,All_Monsters).direction=rnd(3)+1 `Tries to turn somewhere
                                if Monsters(party.level,All_Monsters).direction=2 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction2
                                Goto AFTER_MONSTER_AI
                            Endif
                            `============================
                            `If there is a close door in front
                            if Monsters(party.level,All_Monsters).y+1=Doors(Party.level,All_Monsters).y and Monsters(party.level,All_Monsters).x=Doors(Party.level,All_Monsters).x
                                if Doors(Party.level,All_Monsters).frame<5 `Closed DOOR only
                                    if Doors(Party.level,All_Monsters).state=5 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction2
                                    if Doors(Party.level,All_Monsters).state=1 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=3 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=4 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                endif
                            Endif
                            `============================
                            
                            `if monster arrived in front of player in any direction then attacks
                            if Monsters(party.level,All_Monsters).x=party.x and Monsters(party.level,All_Monsters).y+1=party.y
                            Monsters(party.level,All_Monsters).attack=1
                                Goto AFTER_MONSTER_AI
                                `else Monsters(party.level,All_Monsters).attack=0
                            endif
                            `======================================================================    
                            `If there is an empty square in front
                            if Levels(party.level,Monsters(party.level,All_Monsters).x,Monsters(party.level,All_Monsters).y+1,2)="00" `Empty Square
                                Inc Monsters(party.level,All_Monsters).y,1
                            Endif
                            `============================

                    
                        Endif
                        MONSTER_AI_WEST:
                        if Monsters(party.level,All_Monsters).Direction=3 `WEST
                        
                            `If there is a wall in front
                            if Levels(party.level,Monsters(party.level,All_Monsters).x-1,Monsters(party.level,All_Monsters).y,3)<>"00" `Wall
                                Monster_Direction3:
                                Monsters(party.level,All_Monsters).delay=Timer()
                                Monsters(party.level,All_Monsters).direction=rnd(3)+1 `Tries to turn somewhere
                                if Monsters(party.level,All_Monsters).direction=3 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction3
                                Goto AFTER_MONSTER_AI
                            Endif
                            `============================
                            `If there is a close door in front
                            if Monsters(party.level,All_Monsters).y=Doors(Party.level,All_Monsters).y and Monsters(party.level,All_Monsters).x-1=Doors(Party.level,All_Monsters).x
                                if Doors(Party.level,All_Monsters).frame<5 `Closed DOOR only
                                    if Doors(Party.level,All_Monsters).state=5 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction3
                                    if Doors(Party.level,All_Monsters).state=1 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=3 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=4 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                endif
                            Endif
                            `============================
                            
                            `if monster arrived in front of player in any direction then attacks
                            if Monsters(party.level,All_Monsters).x-1=party.x and Monsters(party.level,All_Monsters).y=party.y
                            Monsters(party.level,All_Monsters).attack=1
                                Goto AFTER_MONSTER_AI
                                `else Monsters(party.level,All_Monsters).attack=0
                            endif
                            `======================================================================    
                            `If there is an empty square in front
                            if Levels(party.level,Monsters(party.level,All_Monsters).x-1,Monsters(party.level,All_Monsters).y,3)="00" `Empty Square
                                Dec Monsters(party.level,All_Monsters).x,1
                            Endif
                            `============================
                    
                        Endif
                        MONSTER_AI_EAST:
                        if Monsters(party.level,All_Monsters).Direction=4 `EAST
                        
                            `If there is a wall in front
                            if Levels(party.level,Monsters(party.level,All_Monsters).x+1,Monsters(party.level,All_Monsters).y,4)<>"00" `Wall
                                Monster_Direction4:
                                Monsters(party.level,All_Monsters).delay=Timer()
                                Monsters(party.level,All_Monsters).direction=rnd(3)+1 `Tries to turn somewhere
                                if Monsters(party.level,All_Monsters).direction=4 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction4
                                Goto AFTER_MONSTER_AI
                            Endif
                            `============================
                            `============================
                            `If there is a close door in front
                            if Monsters(party.level,All_Monsters).y=Doors(Party.level,All_Monsters).y and Monsters(party.level,All_Monsters).x+1=Doors(Party.level,All_Monsters).x
                                if Doors(Party.level,All_Monsters).frame<5 `Closed DOOR only
                                    if Doors(Party.level,All_Monsters).state=5 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction4
                                    if Doors(Party.level,All_Monsters).state=1 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0 `:Inc Monsters(party.level,All_Monsters).y,1:
                                    if Doors(Party.level,All_Monsters).state=3 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=4 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                endif
                            Endif
                            `============================
                            
                            `if monster arrived in front of player in any direction then attacks
                            if Monsters(party.level,All_Monsters).x+1=party.x and Monsters(party.level,All_Monsters).y=party.y
                            Monsters(party.level,All_Monsters).attack=1
                                Goto AFTER_MONSTER_AI
                                `else Monsters(party.level,All_Monsters).attack=0
                            endif
                            `======================================================================    
                            `If there is an empty square in front
                            if Levels(party.level,Monsters(party.level,All_Monsters).x+1,Monsters(party.level,All_Monsters).y,4)="00" `Empty Square
                                Inc Monsters(party.level,All_Monsters).x,1
                            Endif
                            `============================
                    
                        Endif
                        
                    Endif
                Endif
                                
            Endif



        
    Next

AFTER_MONSTER_AI:

    For All_Monsters=1 to 100
        
            if Monsters(party.level,All_Monsters).Frame_Updater=1
            Monsters(party.level,All_Monsters).Frame_Updater=0
                `check what monster I have and play its sound effects.
                `===============================================================================
                if Monsters(party.level,All_Monsters).number="01" `My monster is a mummy
                    if Monsters(party.level,All_Monsters).x>0 and Monsters(party.level,All_Monsters).y>0 
                        if Monsters(party.level,All_Monsters).attack=0 and Monsters(party.level,All_Monsters).frame=0
                    
                        `Mummy monster foot steps sounds
                        inc Monsters(party.level,All_Monsters).foot_step,1
                            If Monsters(party.level,All_Monsters).foot_step>2 then Monsters(party.level,All_Monsters).foot_step=0
                
                            `If Monsters(party.level,All_Monsters).foot_step=0 then set sound volume Step01a,Monsters(party.level,All_Monsters).sound_volume:set sound pan Step01a,Monsters(party.level,All_Monsters).sound_pan:play sound Step01a,1
                            If Monsters(party.level,All_Monsters).foot_step=1 then set sound volume M01_step1a,Monsters(party.level,All_Monsters).sound_volume:set sound pan M01_step1a,Monsters(party.level,All_Monsters).sound_pan:play sound M01_step1a,1
                            If Monsters(party.level,All_Monsters).foot_step=2 then set sound volume M01_step1b,Monsters(party.level,All_Monsters).sound_volume:set sound pan M01_step1b,Monsters(party.level,All_Monsters).sound_pan:Play Sound M01_step1b,1
                        endif
                    endif
                    if Monsters(party.level,All_Monsters).direction=1 `NORTH
                        if Monsters(party.level,All_Monsters).y-1=party.y
                            `Here I am checking if my monster "01" attacks
                            if Monsters(party.level,All_Monsters).attack=1
                                Monsters(party.level,All_Monsters).walk=0
                                if Monsters(party.level,All_Monsters).frame=1 then Play Sound M01_attack1a,1
                                if Monsters(party.level,All_Monsters).frame=0 then Play Sound M01_hit1,1
                                inc Monsters(party.level,All_Monsters).frame,1
                                if Monsters(party.level,All_Monsters).frame>2 
                                Monsters(party.level,All_Monsters).frame=0:Monsters(party.level,All_Monsters).frame_delay=Timer():Monsters(party.level,All_Monsters).attack=0
                                Endif
                            endif
                        endif
                    endif
                    if Monsters(party.level,All_Monsters).direction=2 `SOUTH
                        if Monsters(party.level,All_Monsters).y+1=party.y
                            `Here I am checking if my monster "01" attacks
                            if Monsters(party.level,All_Monsters).attack=1
                                Monsters(party.level,All_Monsters).walk=0
                                if Monsters(party.level,All_Monsters).frame=1 then Play Sound M01_attack1a,1
                                if Monsters(party.level,All_Monsters).frame=0 then Play Sound M01_hit1,1
                                inc Monsters(party.level,All_Monsters).frame,1
                                if Monsters(party.level,All_Monsters).frame>2 
                                Monsters(party.level,All_Monsters).frame=0:Monsters(party.level,All_Monsters).frame_delay=Timer():Monsters(party.level,All_Monsters).attack=0
                                Endif
                            endif
                        endif
                    Endif
                    if Monsters(party.level,All_Monsters).direction=3 `WEST
                        if Monsters(party.level,All_Monsters).x-1=party.x
                            `Here I am checking if my monster "01" attacks
                            if Monsters(party.level,All_Monsters).attack=1
                                Monsters(party.level,All_Monsters).walk=0
                                if Monsters(party.level,All_Monsters).frame=1 then Play Sound M01_attack1a,1
                                if Monsters(party.level,All_Monsters).frame=0 then Play Sound M01_hit1,1
                                inc Monsters(party.level,All_Monsters).frame,1
                                if Monsters(party.level,All_Monsters).frame>2 
                                Monsters(party.level,All_Monsters).frame=0:Monsters(party.level,All_Monsters).frame_delay=Timer():Monsters(party.level,All_Monsters).attack=0
                                Endif
                            endif
                        endif
                    Endif
                    if Monsters(party.level,All_Monsters).direction=4 `EAST
                        if Monsters(party.level,All_Monsters).x+1=party.x
                            `Here I am checking if my monster "01" attacks
                            if Monsters(party.level,All_Monsters).attack=1
                                Monsters(party.level,All_Monsters).walk=0
                                if Monsters(party.level,All_Monsters).frame=1 then Play Sound M01_attack1a,1
                                if Monsters(party.level,All_Monsters).frame=0 then Play Sound M01_hit1,1
                                inc Monsters(party.level,All_Monsters).frame,1
                                if Monsters(party.level,All_Monsters).frame>2 
                                Monsters(party.level,All_Monsters).frame=0:Monsters(party.level,All_Monsters).frame_delay=Timer():Monsters(party.level,All_Monsters).attack=0
                                Endif
                            endif
                        endif
                    Endif
                Endif
                `===============================================================================

                if Monsters(party.level,All_Monsters).attack=0
                    inc Monsters(party.level,All_Monsters).frame,1
                    if Monsters(party.level,All_Monsters).frame>2 then Monsters(party.level,All_Monsters).frame=0
                endif

            Endif

    Next


Return
`==================================================================================================

But I have one problem , my monster opens only NORTH and SOUTH doors and ignores my WEST and EAST doors.

I have one file to see my monster and problem in action.

You are in front of a door, the door is closed and locked , the monster comes closer and you see it behind the door , when the monster arrives , tries to open the door , you can avoid it and close the door , it will try to open the door again.

If the monster arrive inside the door and you try to close the door , the the door will start close and re-open , because the mummy blocks the door mechanism , this is a good tip to kill monsters if are between doors (Remember dungeon master).

If you let the mummy pass you , will arrive at the wall and will try to change some direction , so , I have 2 doors in both directions , in my case , the mummy , must open one of these both doors , but ignore them and pass through (BUG) , but my code is correct , why North and South doors work and WEST and EAST doors got ignored by my monster?

Where is my fault?

There is a game demo attached please download an see.
Pick up a key from the alcove from the left or from your inventory.
Unlock the door from the right to release the mummy.

See my Bug

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Takis76

19

Years of Service

User Offline

Joined: 9th Apr 2005

Location: Greece

Posted: 12th May 2011 00:37 Edited at: 12th May 2011 01:11

Link

I made more research and I made one experiment , I changed the order of the doors. When initialize my doors in the map I write this code:

+ Code Snippet


    Doors(5,1).x=6
    Doors(5,1).y=10
    Doors(5,1).graphic="01"
    Doors(5,1).frame=1
    Doors(5,1).mech=2
    Doors(5,1).state=1


    Doors(5,2).x=5
    Doors(5,2).y=4
    Doors(5,2).graphic="01"
    Doors(5,2).frame=1
    Doors(5,2).mech=1
    Doors(5,2).state=5

blah blah and other doors...

So I change the order of the doors and I saw , my scanning loop , scans only the first door from 100 doors I have and the monster opens only the door 1 , but I have put a loop to scan all doors.

For all_monsters=1 to 100

`If there is a close door in front
                            Monster_Opendoor_North:
                            if Monsters(party.level,All_Monsters).y-1=Doors(Party.level,All_Monsters).y and Monsters(party.level,All_Monsters).x=Doors(Party.level,All_Monsters).x
                                if Doors(Party.level,All_Monsters).frame<5 `Closed DOOR only
                                    if Doors(Party.level,All_Monsters).state=5 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction1
                                    if Doors(Party.level,All_Monsters).state=1 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=3 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=4 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                endif
                            Endif
                            `============================

For all_monsters=1 to 100

                            `If there is a close door in front
                            Monster_Opendoor_North:
                            if Monsters(party.level,All_Monsters).y-1=Doors(Party.level,All_Monsters).y and Monsters(party.level,All_Monsters).x=Doors(Party.level,All_Monsters).x
                                if Doors(Party.level,All_Monsters).frame<5 `Closed DOOR only
                                    if Doors(Party.level,All_Monsters).state=5 then Monsters(party.level,All_Monsters).delay=Timer():Goto Monster_Direction1
                                    if Doors(Party.level,All_Monsters).state=1 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=3 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                    if Doors(Party.level,All_Monsters).state=4 then Doors(Party.level,All_Monsters).state=3: Monsters(party.level,All_Monsters).Updater=0:Monsters(party.level,All_Monsters).delay=Timer():Goto AFTER_MONSTER_AI
                                endif
                            Endif
                            `============================
                            

Next

I use the variable all_monsters to check my doors insted all_doors.

But all my loop takes values from 1 to 100 so , even I use all_doors or all_monsters or all_stairs or all_decors variables is the same because all of these variables insted the name is different , is not importan the name but the value range , I would use and a very generic value for all as :

+ Code Snippet


for all_counter=1 to 100

next

So my for next loop scans only the first of the loop , so that is the reason why , my monster ignores the rest , in fact the routine runs the only first index of my loop and ignores the rest , so if I have North doors or even West doors it doesn't matter.

How do I fix the problem? Strange I use the same technique for all of my objects in my game and works , for example when I have 3 doors to open in the game , I scan them with for all_monsters=1 to 100 and the doors interacts seperated and works well.

Do you have any idea?

I will post one demo with a lots of traps with a lots of doors a lots of items , for example I scan all my items on the floor with just one loop and it works . might the problem is not in the loops.

Is it possible when I use goto command in one loop , to confuse the loop?

For example:

+ Code Snippet

For all_doors=1 to 100

Goto here
Next

Here:

In this case the goto command goes out of the loop.

But:

+ Code Snippet

for all_doors=1 to 100

goto here

here:
next

In this case the goto command goes somewhere inside the loop.

Back to top

Profile PM Email Website

Takis76

19

Years of Service

User Offline

Joined: 9th Apr 2005

Location: Greece

Posted: 13th May 2011 13:20

Link

Further changes I tried in my monster AI functions , I discover , Monster No1 opens only Door No1 and monster No2 opens only Doors No2 in for next loop.

I tried to put more monsters in the level and Monster No1 doesn't opens Door No2.

As you have seen above I am scanning all my monsters with all_monsters variable and I use the same in doors too.

I don't know why my function is not working.

Back to top

Profile PM Email Website

Takis76

19

Years of Service

User Offline

Joined: 9th Apr 2005

Location: Greece

Posted: 14th May 2011 01:57

Link

Yippy

I made it , now my monster AI working perfectly , I solved my problem , my mummies opens my doors any door.

now I will add smarter code , I will make monsters follow you when come close , or is you hit them the will turn direction , and other AI code , they will able to open and close doors , or press buttons.

I am very happy. If I will have any problem I will inform.
When I will have some good demo I will upload.

Back to top

Profile PM Email Website