definegamefuncname 36 Flashlight

gamevar temp 0 2
gamevar temp2 0 2
gamevar RUNONCE 0 2
gamevar mang 0 2
gamevar mx 0 2
gamevar my 0 2
gamevar flashlight_id -1 0
gamevar flashlight_on 0 0



 //First, find  a SECTOREFFECTOR with lotag of 50 and
// pal of 10 that will be assigned as flashlight
onevent EVENT_LOADACTOR
  getactor[THISACTOR].picnum temp
    switch temp
      case SECTOREFFECTOR
        getactor[THISACTOR].lotag temp2
        ifvare temp2 50
        { getactor[THISACTOR].pal temp
          ifvare temp 10
          { setvarvar flashlight_id THISACTOR
            setactor[flashlight_id].pal 0
            setactor[flashlight_id].hitag 7000 // Light range (start desactivated)
            setactor[flashlight_id].xvel 240 // Red color
            setactor[flashlight_id].yvel 218 // Green color
            setactor[flashlight_id].zvel 150 // Blue color
            setactor[flashlight_id].shade 48 // Light width
            setactor[flashlight_id].owner 7115 // This is supposed to cast the choosen tilenum instead of regular light.
            setactor[flashlight_id].statnum 14 // The light will follow the SE. Otherwise it will not work.
          }
        }

      break
    endswitch
endevent

onevent EVENT_ANIMATESPRITES 
  ifvare flashlight_on 1 
  { getplayer[THISACTOR].i temp 
    { gettspr[temp].tsprcstat temp2 
      orvar temp2 8192 
      settspr[temp].tsprcstat temp2 
    } 
  } 
endevent

onevent EVENT_TURNAROUND
setvar RETURN -1
ifvare flashlight_on 0
    setvar flashlight_on 1
else ifvare flashlight_on 1
    setvar flashlight_on 0
endevent