implement more functionality

* update TODO
* rework UISpinBox
* restore move of stackable items and with horizontal scrollbar
* implement classic control look

modules/game/gameinterface.lua

@@ -202,8 +202,9 @@ function GameInterface.createThingMenu(menuPosition, lookThing, useThing, creatu
 
         if creatureThing:asPlayer() then
           menu:addSeparator()
-          menu:addOption('Message to ' .. creatureThing:getName(), function() print('message') end)
-          menu:addOption('Add to VIP list', function() g_game.addVip(creatureThing:getName()) end)
+          local creatureName = creatureThing:getName()
+          menu:addOption('Message to ' .. creatureName, function() g_game.openPrivateChannel(creatureName) end)
+          menu:addOption('Add to VIP list', function() g_game.addVip(creatureName) end)
 
           local localPlayerShield = localPlayer:asCreature():getShield()
           local creatureShield = creatureThing:getShield()
@@ -310,6 +311,31 @@ function GameInterface.processMouseAction(menuPosition, mouseButton, autoWalk, l
   return false
 end
 
+function GameInterface.moveStackableItem(item, toPos)
+  local count = item:getCount()
+
+  local countWindow = createWidget('CountWindow', rootWidget)
+  local spinbox = countWindow:getChildById('countSpinBox')
+  local scrollbar = countWindow:getChildById('countScrollBar')
+  spinbox:setMaximum(count)
+  spinbox:setMinimum(1)
+  spinbox:setValue(count)
+  scrollbar:setMaximum(count)
+  scrollbar:setMinimum(1)
+  scrollbar:setValue(count)
+  scrollbar.onValueChange = function(self, value) spinbox:setValue(value) end
+  spinbox.onValueChange = function(self, value) scrollbar:setValue(value) end
+
+  local okButton = countWindow:getChildById('buttonOk')
+  local moveFunc = function()
+    g_game.move(item, toPos, spinbox:getValue())
+    okButton:getParent():destroy()
+  end
+
+  countWindow.onEnter = moveFunc
+  okButton.onClick = moveFunc
+end
+
 function GameInterface.getRootPanel()
   return gameRootPanel
 end

modules/game/styles/countwindow.otui

@@ -12,17 +12,17 @@ CountWindow < MainWindow
     margin-top: 2
 
   SpinBox
-    id: spinbox
+    id: countSpinBox
     anchors.left: prev.right
     anchors.right: parent.right
     anchors.top: parent.top
 
-  HorizontalSeparator
-    id: separator
+  HorizontalScrollBar
+    id: countScrollBar
     anchors.left: parent.left
     anchors.right: parent.right
-    anchors.bottom: next.top
-    margin-bottom: 10
+    anchors.top: prev.bottom
+    margin-top: 8
 
   Button
     id: buttonOk
@@ -30,7 +30,7 @@ CountWindow < MainWindow
     width: 64
     anchors.right: next.left
     anchors.bottom: parent.bottom
-    margin-right: 10
+    margin-right: 5
 
   Button
     id: buttonCancel

modules/game/widgets/uicountwindow.lua

@@ -1,2 +0,0 @@
-UICountWindow = {}
-

modules/game/widgets/uigamemap.lua

@@ -13,17 +13,13 @@ function UIGameMap:onDragEnter(mousePos)
   local thing = tile:getTopMoveThing()
   if not thing then return false end
 
-  self.parsed = false
   self.currentDragThing = thing
   Mouse.setTargetCursor()
   return true
 end
 
 function UIGameMap:onDragLeave(droppedWidget, mousePos)
-  if not self.parsed then
-    self.currentDragThing = nil
-  end
-
+  self.currentDragThing = nil
   Mouse.restoreCursor()
   return true
 end
@@ -34,33 +30,34 @@ function UIGameMap:onDrop(widget, mousePos)
   local tile = self:getTile(mousePos)
   if not tile then return false end
 
-  local count = widget.currentDragThing:getCount()
-  if widget.currentDragThing:isStackable() and count > 1 then
-    widget.parsed = true
-    local moveWindow = createWidget('CountWindow', rootWidget)
-    local spinbox = moveWindow:getChildById('spinbox')
-    spinbox:setMaximum(count)
-    spinbox:setMinimum(1)
-    spinbox:setCurrentIndex(count)
-
-    local okButton = moveWindow:getChildById('buttonOk')
-    okButton.onClick = function()
-      g_game.move(widget.currentDragThing, tile:getPosition(), spinbox:getCurrentIndex())
-      okButton:getParent():destroy()
-      widget.currentDragThing = nil
-    end
-    moveWindow.onEnter = okButton.onClick
+  local item = widget.currentDragThing
+  local toPos = tile:getPosition()
+  if item:isStackable() and item:getCount() > 1 then
+    GameInterface.moveStackableItem(item, toPos)
   else
-    g_game.move(widget.currentDragThing, tile:getPosition(), 1)
+    g_game.move(item, toPos, 1)
   end
 
   return true
 end
 
 function UIGameMap:onMouseRelease(mousePosition, mouseButton)
+  if self.cancelNextRelease then
+    self.cancelNextRelease = false
+    return true
+  end
+
   local tile = self:getTile(mousePosition)
   if tile == nil then return false end
-  if GameInterface.processMouseAction(mousePosition, mouseButton, nil, tile:getTopLookThing(), tile:getTopUseThing(), tile:getTopCreature(), tile:getTopMultiUseThing()) then
+
+  if Options.getOption('classicControl') and
+     ((Mouse.isPressed(MouseLeftButton) and mouseButton == MouseRightButton) or
+      (Mouse.isPressed(MouseRightButton) and mouseButton == MouseLeftButton)) then
+    local tile = self:getTile(mousePosition)
+    g_game.look(tile:getTopLookThing())
+    self.cancelNextRelease = true
+    return true
+  elseif GameInterface.processMouseAction(mousePosition, mouseButton, nil, tile:getTopLookThing(), tile:getTopUseThing(), tile:getTopCreature(), tile:getTopMultiUseThing()) then
     return true
   elseif mouseButton == MouseLeftButton and self:isPressed() then
     local dirs = g_map.findPath(g_game.getLocalPlayer():getPosition(), tile:getPosition(), 255)

modules/game/widgets/uiitem.lua

@@ -5,8 +5,6 @@ function UIItem:onDragEnter(mousePos)
   if not item then return false end
 
   self:setBorderWidth(1)
-
-  self.parsed = false
   self.currentDragThing = item
   Mouse.setTargetCursor()
   return true
@@ -14,11 +12,7 @@ end
 
 function UIItem:onDragLeave(droppedWidget, mousePos)
   if self:isVirtual() then return false end
-
-  if not self.parsed then
-    self.currentDragThing = nil
-  end
-
+  self.currentDragThing = nil
   Mouse.restoreCursor()
   self:setBorderWidth(0)
   return true
@@ -29,24 +23,12 @@ function UIItem:onDrop(widget, mousePos)
 
   if not widget or not widget.currentDragThing then return false end
 
-  local pos = self.position
-  local count = widget.currentDragThing:getCount()
-  if widget.currentDragThing:isStackable() and count > 1 then
-    widget.parsed = true
-    local countWindow = createWidget('CountWindow', rootWidget)
-    local spinbox = moveWindow:getChildById('spinbox')
-    spinbox:setMaximum(count)
-    spinbox:setMinimum(1)
-    spinbox:setCurrentIndex(count)
-
-    local okButton = moveWindow:getChildById('buttonOk')
-    okButton.onClick = function()
-      g_game.move(widget.currentDragThing, pos, spinbox:getCurrentIndex()) okButton:getParent():destroy()
-      widget.currentDragThing = nil
-    end
-    moveWindow.onEnter = okButton.onClick
+  local item = widget.currentDragThing
+  local toPos = self.position
+  if item:isStackable() and item:getCount() > 1 then
+    GameInterface.moveStackableItem(item, toPos)
   else
-    g_game.move(widget.currentDragThing, pos, 1)
+    g_game.move(item, toPos, 1)
   end
 
   self:setBorderWidth(0)