Simple Dual Screen System

[Crazyninjaguy]

Great script CNG, this is what I have so far. Took forever getting X and Y coordinates...then I finally thought "Hey, Paint tracks XY coordinates...why not make the mock up then record the XY of the top left pixel of each icon". That's when I went "...OMG" xD.

Just need to make menus pop-up and everything when I click on each icon with the mouse...when I PM you of course, helps if I get the script beforehand >.>

Btw, how do I fix the resolution issue? I mean when I switch resolutions in the Options the Dual Screen disappears even if I change back to 480x320.

Add this is a new script section above main

class PokemonOptionScene
def pbStartScene
 @sprites={}
 @viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
 @viewport.z=99999
 @sprites["title"]=Window_UnformattedTextPokemon.newWithSize(
  _INTL("OPTION"),0,0,Graphics.width,64,@viewport)
  # These are the different options in the game.  To add an option, define a setter and 
  # a getter for that option.  To delete an option, comment it out or delete it.
  # The game's options may be placed in any order.
 @PokemonOptions=[
  EnumOption.new(_INTL("TEXT SPEED"),[_INTL("SLOW"),_INTL("MID"),_INTL("FAST")],
  proc { $PokemonSystem.textspeed },  # Getter
  proc {|value|  
     $PokemonSystem.textspeed=value 
     MessageConfig.pbSetTextSpeed(pbSettingToTextSpeed(value)) 
  } # Setter
  ),
  EnumOption.new(_INTL("BATTLE SCENE"),[_INTL("ON"),_INTL("OFF")],
  proc { $PokemonSystem.battlescene },
  proc {|value|  $PokemonSystem.battlescene=value }
  ),
  EnumOption.new(_INTL("BATTLE STYLE"),[_INTL("SHIFT"),_INTL("SET")],
  proc { $PokemonSystem.battlestyle },
  proc {|value|  $PokemonSystem.battlestyle=value }
  ),
  EnumOption.new(_INTL("FONT STYLE"),[_INTL("Em"),_INTL("R/S"),_INTL("FRLG"),_INTL("DP")],
  proc { $PokemonSystem.font },
  proc {|value|  
     $PokemonSystem.font=value
     MessageConfig.pbSetSystemFontName($VersionStyles[value])
  }
  ),
  NumberOption.new(_INTL("FRAME"),_INTL("TYPE%d"),1,$TextFrames.length,
  proc { $PokemonSystem.frame },
  proc {|value|  
       $PokemonSystem.frame=value
       MessageConfig.pbSetSystemFrame($TextFrames[value]) 
  }
  ),
  EnumOption2.new(_INTL("MAP VIEW"),[_INTL("ORIGINAL"),_INTL("CUSTOM"),_INTL("PERSPECTIVE")],
  proc { $PokemonSystem.tilemap ? $PokemonSystem.tilemap : 0 },
  proc {|value|  
    oldvalue=$PokemonSystem.tilemap
    $PokemonSystem.tilemap=value 
    if value!=oldvalue
     ObjectSpace.each_object(TilemapLoader){|o| next if o.disposed?; o.updateClass }
    end
   }
  ),
  NumberOption.new(_INTL("SPEECH FRAME"),_INTL("TYPE%d"),1,$SpeechFrames.length,
  proc { $PokemonSystem.textskin },
  proc {|value|  $PokemonSystem.textskin=value;
     MessageConfig.pbSetSpeechFrame(
       "Graphics/Windowskins/"+$SpeechFrames[value]) }
  )
 ]
 @sprites["option"]=Window_PokemonOption.new(@PokemonOptions,0,
   @sprites["title"].height,Graphics.width,
   Graphics.height-@sprites["title"].height)
 @sprites["option"].viewport=@viewport
 @sprites["option"].visible=true
 # Get the values of each option
 for i in [email protected]
   @sprites["option"][i]=(@PokemonOptions[i].get || 0)
 end
 pbDeactivateWindows(@sprites)
 pbFadeInAndShow(@sprites) { pbUpdate }
end
end

I managed to combine this script with the mouse script of Cybersam, but as Soul.//Silver i can´t do pop-up menus or interactive icons and functional.

Please anyone can share their knowledge about this.

thanks in advance

Well it's quite simple really, take the PokemonMenu Script.
And this is how you would set it out so if an icon is clicked, something happens.

   if Mouse.mouse_in_area?(x, y, width, height)
     if Mouse.click?(1)
       pbFadeOutIn(99999) {
       scene=PokemonPokedexScene.new
       screen=PokemonPokedex.new(scene)
       screen.pbStartScreen
       @scene.pbRefresh
       }
     end
   end

That would take you to the Pokedex Screen.
Hope that helped :)

 

[Jefelin]

Sorry Crazyninjaguy, but I must be very clumsy because anything doesn´t work. As [FONT=&quot]Soul.//Silver[/FONT][FONT=&quot] [/FONT]I had the problem of resolution, I added the script above main but doesn´t work, I tried to replace the same lines of Pokemon Option script, but doesn´t work, so I left waiting for help.

In terms menus and interactive icons didn´t work either, because instructions you have given me only work with Glitchfinder's Input Module and I have to Cybersam´s Module, Do you know how I could do with the latter or another possibility would?

thanks in advance and for your excellent scripts.

 

[Soul.//Silver]

Add this is a new script section above main

class PokemonOptionScene
def pbStartScene
 @sprites={}
 @viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
 @viewport.z=99999
 @sprites["title"]=Window_UnformattedTextPokemon.newWithSize(
  _INTL("OPTION"),0,0,Graphics.width,64,@viewport)
  # These are the different options in the game.  To add an option, define a setter and 
  # a getter for that option.  To delete an option, comment it out or delete it.
  # The game's options may be placed in any order.
 @PokemonOptions=[
  EnumOption.new(_INTL("TEXT SPEED"),[_INTL("SLOW"),_INTL("MID"),_INTL("FAST")],
  proc { $PokemonSystem.textspeed },  # Getter
  proc {|value|  
     $PokemonSystem.textspeed=value 
     MessageConfig.pbSetTextSpeed(pbSettingToTextSpeed(value)) 
  } # Setter
  ),
  EnumOption.new(_INTL("BATTLE SCENE"),[_INTL("ON"),_INTL("OFF")],
  proc { $PokemonSystem.battlescene },
  proc {|value|  $PokemonSystem.battlescene=value }
  ),
  EnumOption.new(_INTL("BATTLE STYLE"),[_INTL("SHIFT"),_INTL("SET")],
  proc { $PokemonSystem.battlestyle },
  proc {|value|  $PokemonSystem.battlestyle=value }
  ),
  EnumOption.new(_INTL("FONT STYLE"),[_INTL("Em"),_INTL("R/S"),_INTL("FRLG"),_INTL("DP")],
  proc { $PokemonSystem.font },
  proc {|value|  
     $PokemonSystem.font=value
     MessageConfig.pbSetSystemFontName($VersionStyles[value])
  }
  ),
  NumberOption.new(_INTL("FRAME"),_INTL("TYPE%d"),1,$TextFrames.length,
  proc { $PokemonSystem.frame },
  proc {|value|  
       $PokemonSystem.frame=value
       MessageConfig.pbSetSystemFrame($TextFrames[value]) 
  }
  ),
  EnumOption2.new(_INTL("MAP VIEW"),[_INTL("ORIGINAL"),_INTL("CUSTOM"),_INTL("PERSPECTIVE")],
  proc { $PokemonSystem.tilemap ? $PokemonSystem.tilemap : 0 },
  proc {|value|  
    oldvalue=$PokemonSystem.tilemap
    $PokemonSystem.tilemap=value 
    if value!=oldvalue
     ObjectSpace.each_object(TilemapLoader){|o| next if o.disposed?; o.updateClass }
    end
   }
  ),
  NumberOption.new(_INTL("SPEECH FRAME"),_INTL("TYPE%d"),1,$SpeechFrames.length,
  proc { $PokemonSystem.textskin },
  proc {|value|  $PokemonSystem.textskin=value;
     MessageConfig.pbSetSpeechFrame(
       "Graphics/Windowskins/"+$SpeechFrames[value]) }
  )
 ]
 @sprites["option"]=Window_PokemonOption.new(@PokemonOptions,0,
   @sprites["title"].height,Graphics.width,
   Graphics.height-@sprites["title"].height)
 @sprites["option"].viewport=@viewport
 @sprites["option"].visible=true
 # Get the values of each option
 for i in [email protected]
   @sprites["option"][i]=(@PokemonOptions[i].get || 0)
 end
 pbDeactivateWindows(@sprites)
 pbFadeInAndShow(@sprites) { pbUpdate }
end
end

Well it's quite simple really, take the PokemonMenu Script.
And this is how you would set it out so if an icon is clicked, something happens.

   if Mouse.mouse_in_area?(x, y, width, height)
     if Mouse.click?(1)
       pbFadeOutIn(99999) {
       scene=PokemonPokedexScene.new
       screen=PokemonPokedex.new(scene)
       screen.pbStartScreen
       @scene.pbRefresh
       }
     end
   end

That would take you to the Pokedex Screen.
Hope that helped :)

Extremely helpful CNG =D. I'll show you the results later, one more question. How would I make it so the icons change graphics when I...
a: Hover the mouse over it and also for that split second between clicking on it and Scene.new
b: when I click on it then click on it again (the Running Shoes, in HGSS you touch it to make it so you constantly run then touch it again to turn it off).

Never mind about a:, I could easily do that. But I still need b:...

P.S. Any news on V2?

Edit: The if Mouse.mouse_in_area?(x, y, width, height) doesn't seem to be working. I have Glitchfinder's Mouse Input and Key Input module...is there any specific place that the small script you provided should go? I did enter the correct x, y, width and height...

 

[adrian12]

Someone could go through mp pictures of the lower screen of heart pokemon gold?

 

[Soul.//Silver]

Someone could go through mp pictures of the lower screen of heart pokemon gold?

If you would post using proper grammar, even though your first language isn't English, then people might actually help you. To partly answer your question...
https://www.spriters-resource.com/ds/pokeheartgoldsoulsilver/index.html

I ripped the HGSS lower screen images myself, if you really want them you will have to either
A: find them yourself
or B: rip them yourself

 

[Crazyninjaguy]

Mouse.mouse_in_area?(x, y, width, height) only works with the mouse module with my edited methods :)

@jefelin, it should work if you just put it above main :/

 

[Jefelin]

Thanks Crazyninjaguy, On the resolution, in the end the problem was compatibility between versions of Starter, I tried it in the current version and it worked but no old mine, however you gave me the idea to do it and got it to work with my older version, (;

The mouse issue is more complicated for me, because with my limited knowledge of scripts, I think I can do little... ): I'll have to wait for a second version of this great script or to quit a module compatible with the starter, because to see the mouse on the screen to make it work is a great distance, or I think.

Only to return to thank you for this wonderful script, and hopefully they appear new (:

 

[VEGET@]

Yesterday the script works, now i have this error:
---------------------------
Pokemon Versión Titanio
---------------------------
Exception: RuntimeError

Message: Script error within event 1, map 51 (Intro):

Exception: NameError

Message: (eval):1:in `pbExecuteScript'uninitialized constant Interpreter::Show

***Full script:

Show.picture("art")


Interpreter:239:in `pbExecuteScript'

Interpreter:1583:in `eval'

Interpreter:239:in `pbExecuteScript'

Interpreter:1583:in `command_355'

Interpreter:492:in `execute_command'

Interpreter:191:in `update'

Interpreter:104:in `loop'

Interpreter:196:in `update'

Scene_Map:96:in `update'

Scene_Map:94:in `loop'



Interpreter:274:in `pbExecuteScript'

Interpreter:1583:in `command_355'

Interpreter:492:in `execute_command'

Interpreter:191:in `update'

Interpreter:104:in `loop'

Interpreter:196:in `update'

Scene_Map:96:in `update'

Scene_Map:94:in `loop'

Scene_Map:107:in `update'

Scene_Map:63:in `main'



This exception was logged in ./errorlog.txt.

Press Ctrl+C to copy this message to the clipboard.
---------------------------
Aceptar
---------------------------

 

[Crazyninjaguy]

There is no Show.picture command anymore :)
Just use the show picture event command and set the Y value to 340

 

[VEGET@]

Thanks.
Now talking about the mouse script, i use this:
if Mouse.mouse_in_area?(x, y, width, height)
if Mouse.click?(1)
pbFadeOutIn(99999) {
scene=PokemonPokedexScene.new
screen=PokemonPokedex.new(scene)
screen.pbStartScreen
@scene.pbRefresh
}
end
endin the end of the pokemonmenu script.
And i get this error:
uninitialized constant PokemonMenu::Mouse

Thanks alot

EDIT: Oh! and i can´t see the cursor ^^

 

[Crazyninjaguy]

You have to change the x, y, width, height to your X and Y coordinates :)

As for the mouse module, i'm putting it on the first post.

 

[Soul.//Silver]

Hey CNG, what script do I actually place this in? I tried at the end of the Dual Screen script....wouldn't work (as in Syntax Error), tried what VEGET@ did (even though I didn't think it would work) still got a Syntax Error...

   if Mouse.mouse_in_area?(x, y, width, height)
     if Mouse.click?(1)
       pbFadeOutIn(99999) {
       scene=PokemonPokedexScene.new
       screen=PokemonPokedex.new(scene)
       screen.pbStartScreen
       @scene.pbRefresh
       }
     end
   end

Also, how do I make it so the normal menu is disabled and make it so when you press Start only the Bug Catching contest info or Safari Zone info appears (if your in one of them)?

 

[Crazyninjaguy]

You have to put the little 'scriptlet' into a script, preferably a new method after calling it from the update method.

As for the second question, try editing the Pokemon Menu script :)

 

[VEGET@]

Where i need to put this code?

$mouse.x = Mouse.pos_x
$mouse.y = Mouse.pos_y

Sorry for disturbing --"

 

[memox]

Where i need to put this code?


Sorry for disturbing --"

If you dont know rgss, mmm best dont try it ;P
But you put this:

Mouse.update
$mouse.x = Mouse.pos_x
$mouse.y = Mouse.pos_y

In the all scripts that has:
pbUpdate


Um crazy or another person xD I dont understand the mouse u.u it is workly, but I cant make it functionally:


if Mouse.mouse_in_area?(340, 0, 340, 0)
if Mouse.click?(1)
pbFadeOutIn(99999) {
scene=PokemonPokedexScene.new
screen=PokemonPokedex.new(scene)
screen.pbStartScreen
@scene.pbRefresh
}
end
end
I put at the end of the pokemonmenu script, I get this:
lalalalapokemonmenuscriptlalala
end

end
if Mouse.mouse_in_area?(340, 0, 340, 0)
if Mouse.click?(1)
pbFadeOutIn(99999) {
scene=PokemonPokedexScene.new
screen=PokemonPokedex.new(scene)
screen.pbStartScreen
@scene.pbRefresh
}
end
end

And this error..:
---------------------------
Pokemon Darkrai Revenge
---------------------------
????? 'PokemonMenu' ? 243 ??? NameError ????????

uninitialized constant Mouse
---------------------------
Aceptar
---------------------------


Sorry if the dude it is noob xD But if I maker one, I make all xD
Im Spanish, sorry for my bad english

Byee, bye

PS: The script of the mouse has a bug, that when do you go with the mouse out quickly, the mouse in the game(mouse sistem) it is quiet, and no how really succes xD
In other words, the mouse of the game cant touch the bord.

 

[Glitchfinder]

This may just be me, but it's looking like you took the mouse_in_area? bit of the mouse Module is actually from vgvgf's AWorks series of scripts. Not to mention the fact that I'm pretty sure DerVVulfman put a pretty strict license on his scripts after mostly leaving RMXP.org.

As for these scripts, I do have a few comments. The first one appears to merely be a pretty addon, as it requires scripting knowledge to fix up and give actual functions. As for the mouse addon, it looks functional, but appears to be an edit of someone else's script, which leaves potential issues regarding the original script's license.

None of this is intended to keep you from scripting, or to force you to take this script offline. I'm merely commenting on some things that I see potential problems with. One thing to note is that vgvgf, creator of the AWorks scripts, has dropped development on the series, and has released them with no license, meaning that using the method from the presents no issues, except with the script you are inserting the method into.

 

[adrian12]

Hellow How do I put ds in size?

 

[maaddogg]

uhm,how would i successfulychange the screen size to something like 285,485

i keep getting a resolution problem

 

[Wichu]

You do know that Essentials already has a Mouse module, right? You don't need to add your own.
The Mouse::getMousePos method returns an array of the x and y coordinates of the cursor in relation to the window; if the mouse is outside the window, it returns nil. You can add some more methods to the module if you want.

And finally, wouldn't it be best to add the mouse sprite updating code to the Graphics.update method? That way, each time the screen is refreshed, the mouse is automatically also updated. This saves people from having to look through every single script and manually add the code to every single update method.

 

[nmorr]

Cool! This is nice, I hope I can make the bottom screen with buttons. How do you do that? Please do tell.

EDIT: Also, where do you put this code??

Spoiler:

#===============================================================================
# * Mouse Input Module by Dervvulfman
# * Mouse.mouse_in_area? added by Crazyninjaguy
#===============================================================================

# Left-Clicking Control---
# 0 = single click action
# 1 = double-click action
MOUSE_LEFT_ACTION = 0

# Right-Clicking Control--
# 0 = Menu / 'B' pressed
# 1 = Stop Movement
MOUSE_RIGHT_ACTION = 0

module Mouse
@cursor_pos_get = Win32API.new('user32', 'GetCursorPos', 'p', 'i')
@cursor_pos_set = Win32API.new('user32', 'SetCursorPos', 'ii', 'i')
@cursor_show = Win32API.new('user32', 'ShowCursor', 'L', 'i')
@window_find = Win32API.new('user32', 'FindWindowA', %w(p p), 'l')
@window_c_rect = Win32API.new('user32', 'GetClientRect', %w(l p), 'i')
@window_scr2cli = Win32API.new('user32', 'ScreenToClient', %w(l p), 'i')
@readini = Win32API.new('kernel32', 'GetPrivateProfileStringA', %w(p p p p l p), 'l')
@key = Win32API.new("user32", "GetAsyncKeyState", 'i', 'i')
Left_Click = 1
Right_Click = 2
Middle_Click = 4
MOUSE_BUTTONS = { Left_Click => 1,
Right_Click => 2,
Middle_Click => 4 }
MOUSE_REPEAT = MOUSE_BUTTONS.clone
MOUSE_REPEAT.keys.each { |k| MOUSE_REPEAT[k] = [false, false, 10]}
@game_window = nil # Set game handle to nil
@cursor_show.call(0) # Turn off system mouse
def Mouse.click?(button)
MOUSE_REPEAT[button][1] >= 1
end
def Mouse.dbclick?(button)
MOUSE_REPEAT[button][1] == 2
end
def Mouse.pos(catch_anywhere = true)
x, y = screen_to_client(screen_x, screen_y)
width, height = client_size
if catch_anywhere or (x >= 0 and y >= 0 and x < width and y < height)
return x, y
else
return 0, 0
end
end
def Mouse.pos_set(x, y)
x = [[x, 0].max, 640].min
y = [[y, 0].max, 480].min
x, y = client_to_screen(x, y)
@cursor_pos_set.call(x, y)
end
def Mouse.pos_x
x, y = pos
return x
end
def Mouse.pos_y
x, y = pos
return y
end
def Mouse.screen
pos = [0, 0].pack('ll')
@cursor_pos_get.call(pos)
return pos.unpack('ll')
end
def Mouse.screen_x
pos = [0, 0].pack('ll')
@cursor_pos_get.call(pos)
return pos.unpack('ll')[0]
end
def Mouse.screen_y
pos = [0, 0].pack('ll')
@cursor_pos_get.call(pos)
return pos.unpack('ll')[1]
end
def Mouse.client_size
rect = [0, 0, 0, 0].pack('l4')
@window_c_rect.call(Mouse.hwnd, rect)
right, bottom = rect.unpack('l4')[2..3]
return right, bottom
end
def Mouse.hwnd
if @game_window.nil?
game_name = "\0" * 256
@readini.call('Game','Title','',game_name,255,".\\Game.ini")
game_name.delete!("\0")
@game_window = @window_find.call('RGSS Player',game_name)
end
return @game_window
end
def Mouse.screen_to_client(x, y)
return nil unless x and y
pos = [x, y].pack('ll')
if @window_scr2cli.call(hwnd, pos) != 0
return pos.unpack('ll')
else
return nil
end
end
def Mouse.update
MOUSE_BUTTONS.keys.each do |key|
temp = MOUSE_REPEAT[key][0]
key_pres = @key.call(MOUSE_BUTTONS[key]) != 0
key_trig = temp == key_pres ? 0 : (key_pres ? (MOUSE_REPEAT[key][2].between?(1, 9) ? 2 : 1) : -1)
count = key_trig > 0 ? 0 : [MOUSE_REPEAT[key][2]+1, 20].min
MOUSE_REPEAT[key] = [key_pres, key_trig, count]
end
end
def Mouse.visible?(visible=true)
if visible
@cursor_show.call(-1)
else
@cursor_show.call(0)
end
end
def Mouse.mouse_in_area?(*args)
return false if Mouse.pos_x.nil?
if args[0].is_a?(Rect)
Mouse.pos_x >= args[0].x and
Mouse.pos_y >= args[0].y and
Mouse.pos_x <= args[0].x + args[0].width and
Mouse.pos_y <= args[0].y + args[0].height
else
Mouse.pos_x >= args[0] and
Mouse.pos_y >= args[1] and
Mouse.pos_x <= args[0] + args[2] and
Mouse.pos_y <= args[1] + args[3]
end
end
end

$mouse=IconSprite.new
$mouse.setBitmap("Graphics/Icons/Arrow")
$mouse.z = 999999999