=begin
  다중 실행 방지 스크립트
  
  Author @cheapmunk.naver
  Refer  MSDN, 고구마S
  Date   2014.05.18
=end

# 이름 설정 : 일종의 암호(?). 겹치지 않게 가능하면 길게 지어야 합니다.
  MutexName = "!@#$다람쥐 헌 쳇바퀴에 타고파."

CreateMutex = Win32API.new('kernel32', 'CreateMutexA', 'llp', 'l')
ReleaseMutex = Win32API.new('kernel32', 'ReleaseMutex', 'l', 'l')
WaitForSingleObject = Win32API.new('kernel32', 'WaitForSingleObject', 'll', 'l')
CloseHandle = Win32API.new('kernel32', 'CloseHandle', 'l', 'l')

module Kernel
  alias :exit_mutex :exit
  def exit(int=0)
    ReleaseMutex.call($mutex) if $mutex
    CloseHandle.call($mutex) if $mutex
    exit_mutex
  end
end

def mutex
  $mutex = CreateMutex.call(0, 0, MutexName)
  if $mutex == 0
    print "Error!"
    exit
  end
  if WaitForSingleObject.call($mutex, 0) != 0
    # 디버그 상태거나 전투 테스트 중에는 적용되지 않습니다.
    exit unless $DEBUG || $BTEST || $TEST
  end
end;mutex