if @injournal 'mysterious gate' 'system'
  playsound 'dingding.wav'
  pause 500
  headmsg 'RDA'
  headmsg 'RDA'
  snapshot
  pause 500
endif
if poisoned 'self'
  usetype 0xf07
  pause 250
endif
if not timerexists 'provo'
  createtimer 'provo'
  settimer 'provo' 10000
endif
if not timerexists 'guard'
  createtimer 'guard'
  settimer 'guard' 10000
endif
if not timerexists 'text'
  createtimer 'text'
  settimer 'text' 60000
endif
if timer 'provo' > 10000
  settimer 'provo' 0
  if not listexists 'provo'
    createlist 'provo'
  endif
  if not listexists 'safety'
    createlist 'safety'
  endif
  @clearlist 'provo'
  @clearlist 'safety'
  if getenemy! 'gray' 'criminal' 'closest'
    useskill 'Provocation'
    waitfortarget 2000
    target! 'enemy'
    waitfortarget 2000
    pushlist 'provo' 'enemy'
    pause 1000
    for 5
      getenemy 'gray' 'murderer' 'criminal'
      pushlist 'safety' 1
      if not @inlist 'provo' 'enemy' and @inrange 'enemy' 10
        break
      endif
    endfor
    target! 'enemy'
  endif
endif
if timer 'guard' > 15000
  msg 'All guard me'
  msg 'All guard me'
  msg 'All guard me'
  pause 250
  settimer 'guard' 0
endif
@getenemy  'murderer' 'enemy' 'gray' 'criminal' 'closest'
if @graphic 'enemy' != 0xdc
  if @graphic 'enemy' != 0xa4
    pause 100
    attack 'enemy'
    pause 100
  endif
endif
@ignoreobject 0x93762
@ignoreobject 0x6e526
@ignoreobject 0x124353
@ignoreobject 0x8855b
@ignoreobject 0x3c6f5
@ignoreobject 0x74cba
@ignoreobject 0x381e1
@ignoreobject 0xc6bd9
@ignoreobject 0x324c9
@ignoreobject 0xb877d
@ignoreobject 0x55a07
@ignoreobject 0x17445
@ignoreobject 0x6ee2
@unsetalias 'person'
pause 250
if @findtype 0x190
  setalias 'person' 'found'
  pause 250
endif
if @findtype 0x191
  @setalias 'person' 'found'
  pause 250
endif
if findalias 'person'
  //playsound 'meow.wav'
  pause 2500
  if timer 'text' > 60000
    snapshot 500
    settimer 'text' 0
  endif
endif
if @findtype '0x38' 1157
  if timer 'provo' > 10000
    settimer 'provo' 0
    useskill 'Provocation'
    waitfortarget 2000
    target! 'found'
    waitfortarget 2000
    target! 0x1295a7
  endif
endif
if hits < 80
  @findtype '0x38'
  if timer 'provo' > 10000
    settimer 'provo' 0
    useskill 'Provocation'
    waitfortarget 2000
    target! 'found'
    waitfortarget 2000
    target! 0x1295a7
  endif
  pause 500
  cast 'Greater Heal'
  waitfortarget 2000
  target! 'self'
endif
if hits < 80
  playsound akor.wav
  pause 5000
endif
usetype 0xf0b
pause 100
turn "South"
run "South"
run "South"
run "South"
run "South"
run "South"
run "South"
run "South"
run "South"
msg 'All guard me'
pause 3000
run "South"
run "South"
run "South"
run "South"
run "South"
run "South"
run "South"
run "South"
run "South"
run "East"
run "East"
run "East"
run "East"
run "East"
run "East"
run "East"
pause 3000
if timer 'provo' > 10000
  settimer 'provo' 0
  if not listexists 'provo'
    createlist 'provo'
  endif
  if not listexists 'safety'
    createlist 'safety'
  endif
  @clearlist 'provo'
  @clearlist 'safety'
  if getenemy! 'gray' 'criminal' 'closest'
    useskill 'Provocation'
    waitfortarget 2000
    target! 'enemy'
    waitfortarget 2000
    pushlist 'provo' 'enemy'
    pause 1000
    for 5
      getenemy 'gray' 'murderer' 'criminal'
      pushlist 'safety' 1
      if not @inlist 'provo' 'enemy' and @inrange 'enemy' 10
        break
      endif
    endfor
    target! 'enemy'
  endif
endif
if timer 'guard' > 10000
  msg 'All guard me'
  msg 'All guard me'
  msg 'All guard me'
  pause 250
  settimer 'guard' 0
endif
@getenemy  'murderer' 'enemy' 'gray' 'criminal' 'closest'
if @graphic 'enemy' != 0xdc
  if @graphic 'enemy' != 0xa4
    pause 100
    attack 'enemy'
    pause 100
  endif
endif
@ignoreobject 0x3c6f5
@ignoreobject 0x74cba
@ignoreobject 0x381e1
@ignoreobject 0xc6bd9
@ignoreobject 0x324c9
@ignoreobject 0xb877d
@ignoreobject 0x55a07
@ignoreobject 0x872ed
@ignoreobject 0x128bc6
@unsetalias 'person'
pause 250
if @findtype 0x190
  setalias 'person' 'found'
  pause 250
endif
if @findtype 0x191
  @setalias 'person' 'found'
  pause 250
endif
if findalias 'person'
  // playsound 'meow.wav'
  pause 2500
  if timer 'text' > 60000
    snapshot 500
    settimer 'text' 0
  endif
endif
if @findtype '0x38' 1157
  if timer 'provo' > 10000
    settimer 'provo' 0
    useskill 'Provocation'
    waitfortarget 2000
    target! 'found'
    waitfortarget 2000
    target! 0x1295a7
  endif
endif
if hits < 80
  @findtype '0x38'
  if timer 'provo' > 10000
    settimer 'provo' 0
    useskill 'Provocation'
    waitfortarget 2000
    target! 'found'
    waitfortarget 2000
    target! 0x1295a7
  endif
  pause 500
  cast 'Greater Heal'
  waitfortarget 2000
  target! 'self'
endif
if hits < 80
  playsound akor.wav
  pause 5000
endif
usetype 0xf0b
pause 100
turn "North"
run "North"
run "North"
run "North"
run "North"
run "North"
run "North"
run "North"
run "North"
run "North"
run "North"
run "North"
msg 'All guard me'
pause 3000
run "North"
run "North"
run "North"
run "North"
run "North"
run "North"
run "West"
run "West"
run "West"
run "West"
run "West"
run "West"
run "West"
pause 3000