Fixed compiler always triggering

Data/Scripts/001_Technical/005_Win32API.rb

@@ -0,0 +1,104 @@
+class Win32API
+  @@RGSSWINDOW = nil
+  @@GetCurrentThreadId       = Win32API.new('kernel32', 'GetCurrentThreadId', '%w()', 'l')
+  @@GetWindowThreadProcessId = Win32API.new('user32', 'GetWindowThreadProcessId', '%w(l p)', 'l')
+  @@FindWindowEx             = Win32API.new('user32', 'FindWindowEx', '%w(l l p p)', 'l')
+
+  def Win32API.SetWindowText(text)
+    hWnd = pbFindRgssWindow
+    swp = Win32API.new('user32','SetWindowTextA',%(l, p),'i')
+    swp.call(hWnd, text.to_s)
+  end
+
+ # Added by Peter O. as a more reliable way to get the RGSS window
+  def Win32API.pbFindRgssWindow
+    return @@RGSSWINDOW if @@RGSSWINDOW
+    processid = [0].pack('l')
+    threadid = @@GetCurrentThreadId.call
+    nextwindow = 0
+    loop do
+      nextwindow = @@FindWindowEx.call(0,nextwindow,"RGSS Player",0)
+      if nextwindow!=0
+        wndthreadid = @@GetWindowThreadProcessId.call(nextwindow,processid)
+        if wndthreadid==threadid
+          @@RGSSWINDOW = nextwindow
+          return @@RGSSWINDOW
+        end
+      end
+      break if nextwindow==0
+    end
+    raise "Can't find RGSS player window"
+  end
+
+  def Win32API.SetWindowPos(w, h)
+    hWnd = pbFindRgssWindow
+    windowrect = Win32API.GetWindowRect
+    clientsize = Win32API.client_size
+    xExtra = windowrect.width-clientsize[0]
+    yExtra = windowrect.height-clientsize[1]
+    swp = Win32API.new('user32','SetWindowPos',%(l,l,i,i,i,i,i),'i')
+    win = swp.call(hWnd,0,windowrect.x,windowrect.y,w+xExtra,h+yExtra,0)
+    return win
+  end
+
+  def Win32API.client_size
+    hWnd = pbFindRgssWindow
+    rect = [0,0,0,0].pack('l4')
+    Win32API.new('user32','GetClientRect',%w(l p),'i').call(hWnd,rect)
+    width,height = rect.unpack('l4')[2..3]
+    return width,height
+  end
+
+  def Win32API.GetWindowRect
+    hWnd = pbFindRgssWindow
+    rect = [0,0,0,0].pack('l4')
+    Win32API.new('user32','GetWindowRect',%w(l p),'i').call(hWnd,rect)
+    x,y,width,height = rect.unpack('l4')
+    return Rect.new(x,y,width-x,height-y)
+  end
+
+  def Win32API.focusWindow
+    window = Win32API.new('user32','ShowWindow','LL','L')
+    hWnd = pbFindRgssWindow
+    window.call(hWnd,9)
+  end
+
+  def Win32API.fillScreen
+    setWindowLong = Win32API.new('user32','SetWindowLong','LLL','L')
+    setWindowPos  = Win32API.new('user32','SetWindowPos','LLIIIII','I')
+    metrics = Win32API.new('user32', 'GetSystemMetrics', 'I', 'I')
+    hWnd = pbFindRgssWindow
+    width  = metrics.call(0)
+    height = metrics.call(1)
+    setWindowLong.call(hWnd,-16,0x00000000)
+    setWindowPos.call(hWnd,0,0,0,width,height,0)
+    Win32API.focusWindow
+    return [width,height]
+  end
+
+  def Win32API.restoreScreen
+    setWindowLong = Win32API.new('user32','SetWindowLong','LLL','L')
+    setWindowPos  = Win32API.new('user32','SetWindowPos','LLIIIII','I')
+    metrics = Win32API.new('user32','GetSystemMetrics','I','I')
+    hWnd = pbFindRgssWindow
+    width  = SCREEN_WIDTH*$ResizeFactor
+    height = SCREEN_HEIGHT*$ResizeFactor
+    if $PokemonSystem && $PokemonSystem.border==1
+      width += BORDER_WIDTH*2*$ResizeFactor
+      height += BORDER_HEIGHT*2*$ResizeFactor
+    end
+    x = [(metrics.call(0)-width)/2,0].max
+    y = [(metrics.call(1)-height)/2,0].max
+    setWindowLong.call(hWnd,-16,0x14CA0000)
+    setWindowPos.call(hWnd,0,x,y,width+6,height+29,0)
+    Win32API.focusWindow
+    return [width,height]
+  end
+end
+
+
+
+# Well done for finding this place.
+# DO NOT EDIT THESE
+ESSENTIALS_VERSION = "18"
+ERROR_TEXT = ""