Shield Evader Mover - Updated

Func shield_evader_mover($shtime)  ; Accepts an end time string, like "4:12", or an integer delay in milliseconds

   shield()

   $evcheck = 0
   $script_start = TimerInit()
   $shtimer = 0
   $movercheck = 0
   $shield_done = False
   $mstotal = 0
   $mstemp = 0
   $ms = 0

   If IsString($shtime) Then
	  dmsg($mission_name & " shield mover -> " & $shtime)
	  $min = Number(StringMid($shtime,1,1)) ; minutes
	  $sec = Number(StringMid($shtime,3,2)) ; secs
	  $mt = $min * 60 + $sec
	  $rt = $mission_secs - $mt
	  $ms = $rt * 1000
	  $script_start = $mission_start
	  $mstotal = $ms - TimerDiff( $script_start )
   Else
 	  dmsg($mission_name & " shield mover for " & $shtime & "ms")
	  $mstotal = $shtime
	  $ms = $mstotal + TimerDiff( $script_start )
   EndIf

   mover()

   Do
	  $evcheck += 1
	  $movercheck += 1
	  $shtimer += 50
	  Sleep(50)

	  If $evcheck == 8 Then   ; 30% up, 20% left, 30% down, 20% right
		 Switch $psx_evade
			case 0
			   send("{d UP}")
			   send("{w DOWN}")
			   $admsg=" evader->up"
			case 1
			   ;placeholder
			case 2
			   ;placeholder
			case 3
			   send("{w UP}")
			   send("{a DOWN}")
			   $admsg=" evader->left"
			case 4
			   ;placeholder
			case 5
			   send("{a UP}")
			   send("{s DOWN}")
			   $admsg=" evader->down"
			case 6
			   ;placeholder
			case 7
			   ;placeholder
			case 8
			   send("{s UP}")
			   send("{d DOWN}")
			   $admsg=" evader->right"
			case 9
			   $psx_evade = -1
		 EndSwitch

		 $psx_evade = $psx_evade + 1
		 $evcheck = 0
	  EndIf

	  If $movercheck = 16 Then  ; moves to a new location once every 800 ms
		 mover()
		 $movercheck = 0
	  EndIf

   Until TimerDiff( $script_start ) > $ms
   evader_off()

EndFunc