Release 6.9.0

Data/Scripts/020_Debug/002_Animation editor/005_AnimEditor_Functions.rb

@@ -114,70 +114,43 @@ def pbAnimName(animation,cmdwin)
 end
 
 def pbAnimList(animations,canvas,animwin)
-  commands=[]
-  for i in 0...animations.length
-    animations[i]=PBAnimation.new if !animations[i]
-    commands[commands.length]="#{i} #{animations[i].name}"
-  end
-  cmdwin=pbListWindow(commands,320)
-  cmdwin.height=416
-  cmdwin.opacity=224
-  cmdwin.index=animations.selected
-  cmdwin.viewport=canvas.viewport
-  helpwindow=Window_UnformattedTextPokemon.newWithSize(
-     _INTL("Enter: Load/rename an animation\nEsc: Cancel"),
-     320,0,320,128,canvas.viewport)
-  maxsizewindow=ControlWindow.new(0,416,320,32*3)
-  maxsizewindow.addSlider(_INTL("Total Animations:"),1,2000,animations.length)
-  maxsizewindow.addButton(_INTL("Resize Animation List"))
-  maxsizewindow.opacity=224
-  maxsizewindow.viewport=canvas.viewport
   loop do
-    Graphics.update
-    Input.update
-    cmdwin.update
-    maxsizewindow.update
-    helpwindow.update
-    if maxsizewindow.changed?(1)
-      newsize=maxsizewindow.value(0)
-      animations.resize(newsize)
-      commands.clear
-      for i in 0...animations.length
-        commands[commands.length]= "#{i} #{animations[i].name}"
-      end
-      cmdwin.commands=commands
-      cmdwin.index=animations.selected
-      next
+    commands=[]
+    for i in 0...animations.length
+      animations[i]=PBAnimation.new if !animations[i]
+      commands.push([i, "#{i} #{animations[i].name}", i])
     end
-    if Input.trigger?(Input::USE) && animations.length>0
-      cmd2=pbShowCommands(helpwindow,[
-         _INTL("Load Animation"),
-         _INTL("Rename"),
-         _INTL("Delete")
-      ],-1)
-      if cmd2==0 # Load Animation
-        canvas.loadAnimation(animations[cmdwin.index])
-        animwin.animbitmap=canvas.animbitmap
-        animations.selected=cmdwin.index
-        break
-      elsif cmd2==1 # Rename
-        pbAnimName(animations[cmdwin.index],cmdwin)
-        cmdwin.refresh
-      elsif cmd2==2 # Delete
-        if pbConfirmMessage(_INTL("Are you sure you want to delete this animation?"))
-          animations[cmdwin.index]=PBAnimation.new
-          cmdwin.commands[cmdwin.index]= "#{cmdwin.index} #{animations[cmdwin.index].name}"
-          cmdwin.refresh
-        end
-      end
-    end
-    if Input.trigger?(Input::BACK)
+    index=pbChooseListWithFilter(commands, animations.selected, -1, 2,
+                                 0, 0, _INTL("Search animation..."), :longest_value)
+    break if !index || index<0   # Cancelled
+    cmd2=pbShowCommands(nil,[
+      _INTL("Load Animation"),
+      _INTL("Rename"),
+      _INTL("Delete"),
+      _INTL("Resize Animation List")
+    ],-1)
+    if cmd2==0 # Load Animation
+      canvas.loadAnimation(animations[index])
+      animwin.animbitmap=canvas.animbitmap
+      animations.selected=index
       break
+    elsif cmd2==1 # Rename
+      dummy=Struct.new(:commands,:index).new([],0)
+      pbAnimName(animations[index],dummy)
+      animations.selected=index
+    elsif cmd2==2 # Delete
+      if pbConfirmMessage(_INTL("Are you sure you want to delete this animation?"))
+        animations[index]=PBAnimation.new
+      end
+      animations.selected=index
+    elsif cmd2==3 # Resize
+      params=ChooseNumberParams.new
+      params.setRange(1,2000)
+      params.setInitialValue(animations.length)
+      animations.resize(pbMessageChooseNumber(_INTL("Total Animations:"),params))
+      animations.selected=[animations.selected,animations.length-1].min
     end
   end
-  helpwindow.dispose
-  maxsizewindow.dispose
-  cmdwin.dispose
 end
 
 ################################################################################