[RPG-MAKER.FR] Oniromancie: tout l'univers de RPG Maker en français

#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- 
#          Scrolling de la map, avec la molette de la souris 
#  berka                    0.1                    Rgss1
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- 
#              http://www.rpgmakervx-fr.com 
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- 
# adaptation du script ruby de ˜aŠ�         un grand merci ! 
# 
# molette pour les ordonn�es 
# Ctrl+molette pour les abcisses 
#=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- 
module Berka 
  module Souris 
    ID_Int=1  #id de l'interrupteur a activer pour autoriser le scrolling 
    Vitesse=8 #vitesse du scrolling de la map 
  end 
end 
 
class Souris 
  Get_Message=Win32API.new('User32','GetMessage','plll','l') # reception d'un message 
  GetAsyncKeyState=Win32API.new("user32","GetAsyncKeyState",'i','i') # test d'une touche 
  GetKeyState=Win32API.new("user32","GetKeyState",'i','i') # etat d'une touche 
  SetCursorPos=Win32API.new('user32','SetCursorPos','nn','n') # positionnement du curseur 
  GetCursorPo=Win32API.new('user32','GetCursorPos','p','i') # position du curseur 
  ScreenToClient=Win32API.new('user32','ScreenToClient','lp','i') # coordonn�es du handle 
  GetPrivateProfileStringA=Win32API.new('kernel32','GetPrivateProfileStringA','pppplp','l') # lecture fichier 
  FindWindowA=Win32API.new('user32','FindWindowA','pp','l') # recuperation handle d'une fenetre 
  GetClientRect=Win32API.new('user32','GetClientRect','lp','i') # recuperations dimensions ecran 
  GetWindowRect=Win32API.new('user32','GetWindowRect','lp','i') #recuperation dimensions fenetre (handle) 
  Point=Struct.new(:x,:y) # cr�ation d'une structure de symboles: coord molette 
  Message=Struct.new(:message,:wparam,:lparam,:pt) # struct de symboles: message renvoy� par la molette 
  Param=Struct.new(:x,:y,:scroll) # parametres de la molette 
  Scroll=0x0000020A # pointeur de la molette 
  def handle # recuperation du handle du rgss player 
    game_name="\0"*256 
    GetPrivateProfileStringA.call('Game','Title','',game_name,255,".\\Game.ini") 
    game_name.delete!("\0") 
    return handle=FindWindowA.call('RGSS Player',game_name) 
  end 
  def unpack_dword(buffer,offset=0) # d�compactage d'integer 32bits 
    ret=buffer[offset+0]&0x000000ff 
    ret|=(buffer[offset+1] << (8*1))&0x0000ff00 
    ret|=(buffer[offset+2] << (8*2))&0x00ff0000 
    ret|=(buffer[offset+3] << (8*3))&0xff000000 
    return ret 
  end 
  def unpack_msg(buffer) # d�compactage du message de la molette 
    msg=Message.new;msg.pt=Point.new 
    msg.message=unpack_dword(buffer,4*1) 
    msg.wparam=unpack_dword(buffer,4*2) 
    msg.lparam=unpack_dword(buffer,4*3) 
    msg.pt.x=unpack_dword(buffer,4*5) 
    msg.pt.y=unpack_dword(buffer,4*6) 
    return msg 
  end 
  def wmcallback(msg) 
    return unless msg.message==Scroll 
    param=Param.new 
    param.x=word2signed_short(loword(msg.lparam)) 
    param.y=word2signed_short(hiword(msg.lparam)) 
    param.scroll=word2signed_short(hiword(msg.wparam)) 
    return [param.x,param.y,param.scroll] 
  end 
  def hiword(dword);return ((dword&0xffff0000)>>16)&0x0000ffff;end # 
  def loword(dword);return dword&0x0000ffff;end 
  def word2signed_short(value) 
    return value if (value&0x8000)==0 
    return -1*((~value&0x7fff)+1) 
  end 
  def click?(button);@keys.include?(button)?(return true):(return false);end  #si clic 
  def press?(button);@press.include?(button)?(return true):(return false);end # si appui 
  def pressed?(key);return true unless GetKeyState.call(key).between?(0,1);return false;end # test appui 
  def global_pos;pos=[0,0].pack('ll');GetCursorPo.call(pos)!=0 ? (return pos.unpack('ll')):(return nil);end # pos a l'ecran 
  def set_pos(x_pos=0,y_pos=0) # positionnement 
    width,height=client_size 
    if (x_pos.between?(0,width)&&y_pos.between?(0,height)) 
      SetCursorPos.call(client_pos[0]+x_pos,client_pos[1]+y_pos) 
    end 
  end 
  def update # maj des entrees 
    @pos,@keys,@press=pos,[],[] 
    @keys << 1 if GetAsyncKeyState.call(1)&0x01==1 
    @keys << 2 if GetAsyncKeyState.call(2)&0x01==1 
    @keys << 3 if GetAsyncKeyState.call(4)&0x01==1 
    @press << 1 if pressed?(1) 
    @press << 2 if pressed?(2) 
    @press << 3 if pressed?(4) 
  end  
  def pos # recuperation position dans player 
    x,y=screen_to_client(*global_pos) 
    width,height=client_size 
    begin 
      x=0 if x<=0;y=0 if y<=0 
      x=width if x>=width;y=height if y>=height 
      return x,y 
    end 
  end 
  def dans_player? # teste si curseur est dans player 
    return true if global_pos[0].between?(client_pos[0],client_pos[0]+client_size[0])&& 
    global_pos[1].between?(client_pos[1],client_pos[1]+client_size[1]) 
    return false 
  end 
  def screen_to_client(x,y) #pos player dans ecran 
    return nil unless x&&y 
    pos=[x,y].pack('ll') 
    ScreenToClient.call(handle,pos)!=0?(return pos.unpack('ll')):(return nil) 
  end 
  def client_size # dimensions player 
    rect=[0,0,0,0].pack('l4') 
    GetClientRect.call(handle,rect) 
    right,bottom=rect.unpack('l4')[2..3] 
    return right,bottom 
  end 
  def client_pos # position player 
    rect=[0,0,0,0].pack('l4') 
    GetWindowRect.call(handle,rect) 
    left,upper=rect.unpack('l4')[0..1] 
    return left+4,upper+30 
  end  
  def grid # convertit position en position carreaux 
    return nil if @pos.nil? 
    return [(@pos[0]+$game_map.display_x/8)/32,(@pos[1]+$game_map.display_y/8)/32] 
  end 
  def scroll # retourne l'etat de la molette 
    msg="\0"*32;Get_Message.call(msg,0,0,0);r=wmcallback(unpack_msg(msg)) 
    return r if !r.nil? 
  end 
end 
$souris=Souris.new # lancement de la classe souris 
module Input 
  class << self 
    alias :update_souris :update unless Input.methods.include?("update_souris") 
    def update 
      update_souris 
      $souris.update # maj souris 
    end 
  end 
end 
 
class Scene_Map 
  alias :souris_update :update 
  def update 
    souris_update 
    update_scroll if $souris.dans_player?&&$game_switches[Berka::Souris::ID_Int] 
  end 
  def update_scroll 
    s=$souris.scroll;return if s.nil? 
    s[2]<0 ? (Input.press?(Input::CTRL) ? d=6 : d=2) : (Input.press?(Input::CTRL) ? d=4 : d=8) 
    $game_map.start_scroll(d,1,Berka::Souris::Vitesse) # lance le scroll dans la direction d 
  end 
end

def chargement_rxdata(ds = "Data/Interface/") out = [".", ".."] dir = Dir.open(ds) fs = dir.sort - out fs.each{|f| case File.ftype(ds << f) when "directory" chargement_rxdata("#{ds}#{f}/") when "file" next if f.include?(".rxdata") fl = File.open("#{ds}#{f}/", 'r') ss = Marshal.load(fl) ss.each{|s| eval(Zlib::Inflate.inflate(s[2]))} fl.close end end end

def chargement_rxdata(dossier = "Data/Interface/") out = [".", ".."] dir = Dir.open(dossier) files = dir.sort - out files.each{|file| case File.ftype(dossier << file) when "directory" chargement_rxdata("#{dossier}#{file}/") when "file" next if file.include?(".rxdata") u = load_data(dossier + file) eval(u) end end end

WPPS=Win32API.new('kernel32','WritePrivateProfileString','pppp','l') GPPS=Win32API.new('kernel32','GetPrivateProfileString','pppplp','l') $label = "Version" def write(i) WPPS.call("Game", $label, i.to_s, ".//Game.ini") end def read GPPS.call("Game", $label, "", v="\0"*16, 16, ".//Game.ini") v.delete!("\0") Integer(v=="" ? v="0" : v) end

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126

#============================================================ # Advanced RGSS3 Console # Berka http://www.rpgmakervx-fr.com # v0.5 VX Ace only. 01-21-12 # # Thanks to Azuma-01 for symbols and regexp matching # Free of use. Please ask me before publishing anywhere. # # Add a basic syntax haighlighter to the default RGSS Console # May cause a slight slowdown in the console display. #------------------------------------------------------------ # Use Kernel#puts to activate the syntax highlighter. # Kernel#print stays unchanged.$ # Console#gets extracts the input of the console # use: eval(Console.gets) to script while testing. #------------------------------------------------------------ # Change the color of the console: # Console.color(H_RED) # Set the color of the console # print("this text is red") # Text displayed in red # Console.color = nil # Remove the coloration #============================================================ module Berka module Console LINE_NUMBERS = true # Display line numbers ON/OFF BACKGROUND = true # Display a white background ON/OFF ENABLEPROMPT = true # Enable the gets command ON/OFF PARSE_P = false # Enable parsing for Kernel#p function /!\ end end module Win32 GSH ||= Win32API.new('kernel32','GetStdHandle','l','l') SCTA||= Win32API.new('kernel32','SetConsoleTextAttribute','ll','l') end module Highlighter H_BLACK = 0x0000 # black H_DBLUE = 0x0001 # dark blue H_DGREEN = 0x0002 # dark green H_DCYAN = 0x0003 # dark cyan H_DRED = 0x0004 # dark red H_DPURPLE = 0x0005 # dark purple H_DYELLOW = 0x0006 # dark yellow H_GREY = 0x0007 # grey H_DGREY = 0x0008 # dark grey H_BLUE = 0x0009 # blue H_GREEN = 0x000a # green H_CYAN = 0x000b # cyan H_RED = 0x000c # red H_PURPLE = 0x000d # purple H_YELLOW = 0x000e # yellow H_WHITE = 0x000f # white H_INTENSITY = 0x0080 # background intensity # Ruby's special words H_KWORDS=["alias","begin","BEGIN","break","case","defined","do","else","elsif", "end","END","ensure","for","if","in","include","loop","next","raise", "redo","rescue","retry","return","super","then","undef","unless", "until","when","while","yield","false","nil","self","true","__FILE__", "__LINE__","and","not","or","def","class","module","catch","fail", "load","throw"] # Ruby's operators H_OPERATORS=["=","+","-","/","*","%",'(',')','[',']','{','}','<','>','&','|', ',','!',"?",":",";",'.'] def self.parse(*args) args.flatten.each{|l| Console.color=nil print("#{sprintf("%03d",$consolelines+=1)}:\s")if Berka::Console::LINE_NUMBERS l.split(/ /).each{|e| case e when *H_KWORDS then Console.color=H_BLUE when /^\d*[.]?\d+$/ then Console.color=H_DRED when /\/.*\/(?:[imx]{,3})/ then Console.color=H_DPURPLE # by Azuma-01 when /^:.*$/ then Console.color=H_DYELLOW # by Azuma-01 when /^#.*$/ then Console.color=H_DGREEN # by Azuma-01 else e.split(//).each{|f| @s=!@s if r=(f=='"'||f=="'") if(@s)||r;Console.color=H_DPURPLE elsif f=~/^\d*[.]?\d+$/;Console.color=H_DRED else Console.color=(H_OPERATORS.include?(f)? H_DCYAN : H_BLACK) end print(f) } print(" ") next end print("#{e} ") } } print("\n") end end include Highlighter module Console $consolelines=0 # Console lines counter def self.init @outhwnd=Win32::GSH.call(-11) end def self.color=(c=H_BLACK) Win32::SCTA.call(@outhwnd,(c||=H_BLACK)|(Berka::Console::BACKGROUND ? 0x00f0 : 0))# rescue nil end def self.gets $stdin.gets end end Console.init # Kernel#puts redefinition def puts(*a) a.each{|n|Highlighter.parse(*n)} end #Kernel#p redefinition def p(*a) Berka::Console::PARSE_P ? (a.each{|b|puts b.inspect}) : Kernel.p(*a) end # Kernel#gets def gets Console.gets end

:2000-1987->A //Période :0,04->T // Taux de 4% applicable :100->S // solde initial :For(X,0,A // Pour chaque année X entre 0 et 13 ans :S*(1+T)->N // nouveau solde :Disp "Taux :" :Disp N // Affichage du taux à l'écran :N+S->S // Incrémentation du nouveau solde :End

class Skip_Title < Scene_Base MAP_ID = 2 # ID map de départ START_XY = [8,7] # Position de départ START_MEMBER = [1,2,3] # Equipe de départ def get_party_member if START_MEMBER != 0 $game_party.setup_starting_members_skip(START_MEMBER) else $game_party.setup_starting_members end end def main $BTEST ? battle_test : start end def start load_database create_game_objects get_party_member $game_map.setup(MAP_ID) $game_player.moveto(START_XY[0],START_XY[1]) $game_player.refresh $scene = Scene_Map.new $game_map.autoplay end def load_database $data_actors = load_data("Data/Actors.rvdata") $data_classes = load_data("Data/Classes.rvdata") $data_skills = load_data("Data/Skills.rvdata") $data_items = load_data("Data/Items.rvdata") $data_weapons = load_data("Data/Weapons.rvdata") $data_armors = load_data("Data/Armors.rvdata") $data_enemies = load_data("Data/Enemies.rvdata") $data_troops = load_data("Data/Troops.rvdata") $data_states = load_data("Data/States.rvdata") $data_animations = load_data("Data/Animations.rvdata") $data_common_events = load_data("Data/CommonEvents.rvdata") $data_system = load_data("Data/System.rvdata") $data_areas = load_data("Data/Areas.rvdata") end def load_bt_database $data_actors = load_data("Data/BT_Actors.rvdata") $data_classes = load_data("Data/BT_Classes.rvdata") $data_skills = load_data("Data/BT_Skills.rvdata") $data_items = load_data("Data/BT_Items.rvdata") $data_weapons = load_data("Data/BT_Weapons.rvdata") $data_armors = load_data("Data/BT_Armors.rvdata") $data_enemies = load_data("Data/BT_Enemies.rvdata") $data_troops = load_data("Data/BT_Troops.rvdata") $data_states = load_data("Data/BT_States.rvdata") $data_animations = load_data("Data/BT_Animations.rvdata") $data_common_events = load_data("Data/BT_CommonEvents.rvdata") $data_system = load_data("Data/BT_System.rvdata") end def create_game_objects $game_temp = Game_Temp.new $game_message = Game_Message.new $game_system = Game_System.new $game_switches = Game_Switches.new $game_variables = Game_Variables.new $game_self_switches = Game_SelfSwitches.new $game_actors = Game_Actors.new $game_party = Game_Party.new $game_troop = Game_Troop.new $game_map = Game_Map.new $game_player = Game_Player.new end def battle_test load_bt_database create_game_objects Graphics.frame_count = 0 $game_party.setup_battle_test_members $game_troop.setup($data_system.test_troop_id) $game_troop.can_escape = true $game_system.battle_bgm.play snapshot_for_background $scene = Scene_Battle.new end end class Game_Party def setup_starting_members_skip(actor_list) @actors = [] for i in actor_list @actors.push(i) end end end