RpgMasterMaking

Forum Rpg pour les makers utilisant rpg maker xp. Communaut des makers!
 
AccueilPortailGalerieFAQRechercherS'enregistrerMembresGroupesConnexion

Partagez | 
 

 Pcher

Voir le sujet prcdent Voir le sujet suivant Aller en bas 
AuteurMessage
Vincr
Organisateur
Organisateur
avatar

Nombre de messages : 567
Age : 24
Date d'inscription : 12/11/2007

Les Points d'Aides ( PA ) du membre
Nombre de PA:
62/250  (62/250)
PA donns: 8

MessageSujet: Pcher   Mer 14 Nov - 19:34

Ce script permet de pcher quand on est proche de l'eau.

Faites un nouveau script au-dessus de "Main" et nommez-le "Fishing"

Code:
#==============================================================================
# ■ fishing
#------------------------------------------------------------------------------
#  デバッグ画面の処理を行うクラスです。
#==============================================================================

class Fishing
#----------------------------------------------------------------------------
# Start
#----------------------------------------------------------------------------
def initialize
@fw = Window_Fish.new
$fm = "Vous tes entrain de pcher..."
@fw.refresh
delay(50)
fish
end
#----------------------------------------------------------------------------
# Fishing!
#----------------------------------------------------------------------------
def fish
delay(40)
@fr = rand(7)#this number inside the brackets indicate how many things there are. and remeber it starts from 0 so if you have 5 things you have to have 4
case @fr
when 0
$game_player.animation_id = 98
$fm = "Hey! un poisson de 10 livres!"
@fw.refresh
$game_party.gain_item(33, 1)#the item number of the fish is here
delay(10)
when 1
$fm = "Pas de poisson!"
@fw.refresh
delay(10)
when 2
$fm = "Trouv une chaussure"
@fw.refresh
delay(30)
when 3
$game_player.animation_id = 98
$fm = "Hey! un poisson de 10 livres!"
@fw.refresh
$game_party.gain_item(34, 1)
delay(20)
when 4
$fm = " Yark! des algues!"
@fw.refresh
delay(30)
when 5
$game_player.animation_id = 98
$fm = "Hey! un poisson de 20 livres!"
@fw.refresh
$game_party.gain_item(34, 1)
delay(20)
when 6
$fm = "Zut! pas de poisson!"
@fw.refresh
delay(10)
when 7
$fm = "Hey! un poisson de 30 livres!"
@fw.refresh
delay(60)
end
@fw.dispose
end
#----------------------------------------------------------------------------
# Delay
#----------------------------------------------------------------------------
def delay(wait)
count = Graphics.frame_count
while wait + count >= Graphics.frame_count
Graphics.update
end
end
end

Remplacer le script "Scene_Map" par:

Code:
class Scene_Map
# ---------------------------
SHOW_PARTY_HELP_SPRITE = false
# ---------------------------
def main
@spriteset = Spriteset_Map.new
@change_sprite = Sprite.new
@change_sprite.bitmap = Bitmap.new(100, 32)
@change_sprite.x = 540
@change_sprite.y = 450
@change_sprite.bitmap.clear
@message_window = Window_Message.new
Graphics.transition
loop do
Graphics.update
Input.update
update
if $scene != self
break
end
end
Graphics.freeze
@spriteset.dispose
@message_window.dispose
@change_sprite.dispose
if $scene.is_a?(Scene_Title)
Graphics.transition
Graphics.freeze
end
end
# ---------------------------
def update
# ループ
loop do
# マップ�インタプリタ�プレイヤー� �更新
# (��更新 ���イベントを実行�る�件�満��れ��る����
# プレイヤー�一瞬移動�る機会を与�������由���)
$game_map.update
$game_system.map_interpreter.update
$game_player.update
# システ (タイマー)�画�を更新
$game_system.update
$game_screen.update
# プレイヤー� 所移動­���れ�ループを­­
unless $game_temp.player_transferring
break
end
# 所移動を実行
transfer_player
# トランジション処�­� ��ループを­­
if $game_temp.transition_processing
break
end
end
# スプライトセットを更新
@spriteset.update
# メッセージウィンドウを更新
@message_window.update
# ゲー オー�ー� �
if $game_temp.gameover
# ゲー オー�ー画��切り替�
$scene = Scene_Gameover.new
return
end
# タイトル画��戻� �
if $game_temp.to_title
# タイトル画��切り替�
$scene = Scene_Title.new
return
end
# トランジション処�­� �
if $game_temp.transition_processing
# トランジション処�­フラグをクリア
$game_temp.transition_processing = false
# トランジション実行
if $game_temp.transition_name == ""
Graphics.transition(20)
else
Graphics.transition(40, "Graphics/Transitions/" +
$game_temp.transition_name)
end
end
# メッセージウィンドウ表示­� �
if $game_temp.message_window_showing
return
end
# エンカウント カウント� 0 ��エンカウントリスト�空���� �
if $game_player.encounter_count == 0 and $game_map.encounter_list != []
# イベント実行­�エンカウント�­­���れ�
unless $game_system.map_interpreter.running? or
$game_system.encounter_disabled
# トループを決定
n = rand($game_map.encounter_list.size)
troop_id = $game_map.encounter_list[n]
# トループ�有効�ら
if $data_troops[troop_id] != nil
# �トル呼�出�フラグをセット
$game_temp.battle_calling = true
$game_temp.battle_troop_id = troop_id
$game_temp.battle_can_escape = true
$game_temp.battle_can_lose = false
$game_temp.battle_proc = nil
end
end
end
# B ボタン�押�れ� �
if Input.trigger?(Input::B)
# イベント実行­�メニュー�­­���れ�
unless $game_system.map_interpreter.running? or
$game_system.menu_disabled
# メニュー呼�出�フラグ� SE 演�フラグをセット
$game_temp.menu_calling = true
$game_temp.menu_beep = true
end
end
# FISHING
# if z pushed call fishing
if Input.trigger?(Input::A)
fishing
end
# FISHING
# デ�ッグモード� ON �� F9 ­ー�押�れ��る �
if $DEBUG and Input.press?(Input::F9)
# デ�ッグ呼�出�フラグをセット
$game_temp.debug_calling = true
end
# プレイヤー�移動­���� �
unless $game_player.moving?
# �種画��呼�出�を実行
if $game_temp.battle_calling
call_battle
elsif $game_temp.shop_calling
call_shop
elsif $game_temp.name_calling
call_name
elsif $game_temp.menu_calling
call_menu
elsif $game_temp.save_calling
call_save
elsif $game_temp.debug_calling
call_debug
end
end
end
#--------------------------------------------------------------------------
# � �トル�呼�出�
#--------------------------------------------------------------------------
def call_battle
# �トル呼�出�フラグをクリア
$game_temp.battle_calling = false
# メニュー呼�出�フラグをクリア
$game_temp.menu_calling = false
$game_temp.menu_beep = false
# エンカウント カウントを作�
$game_player.make_encounter_count
# マップ BGM を記憶��BGM を�­
$game_temp.map_bgm = $game_system.playing_bgm
$game_system.bgm_stop
# �トル開始 SE を演�
$game_system.se_play($data_system.battle_start_se)
# �トル BGM を演�
$game_system.bgm_play($game_system.battle_bgm)
# プレイヤー�姿勢を矯­
$game_player.straighten
# �トル画��切り替�
$scene = Scene_Battle.new
end
#--------------------------------------------------------------------------
# � ショップ�呼�出�
#--------------------------------------------------------------------------
def call_shop
# ショップ呼�出�フラグをクリア
$game_temp.shop_calling = false
# プレイヤー�姿勢を矯­
$game_player.straighten
# ショップ画��切り替�
$scene = Scene_Shop.new
end
#--------------------------------------------------------------------------
# � ���入力�呼�出�
#--------------------------------------------------------------------------
def call_name
# ���入力呼�出�フラグをクリア
$game_temp.name_calling = false
# プレイヤー�姿勢を矯­
$game_player.straighten
# ���入力画��切り替�
$scene = Scene_Name.new
end
#--------------------------------------------------------------------------
# � メニュー�呼�出�
#--------------------------------------------------------------------------
def call_menu
# メニュー呼�出�フラグをクリア
$game_temp.menu_calling = false
# メニュー SE 演�フラグ�セット�れ��る �
if $game_temp.menu_beep
# 決定 SE を演�
$game_system.se_play($data_system.decision_se)
# メニュー SE 演�フラグをクリア
$game_temp.menu_beep = false
end
# プレイヤー�姿勢を矯­
$game_player.straighten
# メニュー画��切り替�
$scene = Scene_Menu.new
end
#--------------------------------------------------------------------------
# � セーブ�呼�出�
#--------------------------------------------------------------------------
def call_save
# プレイヤー�姿勢を矯­
$game_player.straighten
# セーブ画��切り替�
$scene = Scene_Save.new
end
#--------------------------------------------------------------------------
# � デ�ッグ�呼�出�
#--------------------------------------------------------------------------
def call_debug
# デ�ッグ呼�出�フラグをクリア
$game_temp.debug_calling = false
# 決定 SE を演�
$game_system.se_play($data_system.decision_se)
# プレイヤー�姿勢を矯­
$game_player.straighten
# デ�ッグ画��切り替�
$scene = Scene_Debug.new
end
#--------------------------------------------------------------------------
# � Fishing
#--------------------------------------------------------------------------
def fishing
character = $game_player
case character.direction
when 2
lx = character.x
ly = character.y + 1
when 4
lx = character.x - 1
ly = character.y
when 6
lx = character.x + 1
ly = character.y
when 8
lx = character.x
ly = character.y - 1
end
if $game_map.terrain_tag(lx,ly) == 1
Fishing.new
else
Audio.se_play("Audio/SE/057-Wrong01")
end
end
#--------------------------------------------------------------------------
# � プレイヤー� 所移動
#--------------------------------------------------------------------------
def transfer_player
# プレイヤー 所移動フラグをクリア
$game_temp.player_transferring = false
# 移動先��在�マップ�異�る �
if $game_map.map_id != $game_temp.player_new_map_id
# 新��マップをセットアップ
$game_map.setup($game_temp.player_new_map_id)
end
# プレイヤー��置を­定
$game_player.moveto($game_temp.player_new_x, $game_temp.player_new_y)
# プレイヤー����を­定
case $game_temp.player_new_direction
when 2 # 下
$game_player.turn_down
when 4 # 左
$game_player.turn_left
when 6 # �
$game_player.turn_right
when 8 # 上
$game_player.turn_up
end
# プレイヤー�姿勢を矯­
$game_player.straighten
# マップを更新 (並列イベント実行)
$game_map.update
# スプライトセットを�作�
@spriteset = Spriteset_Map.new
# トランジション処�­� �
if $game_temp.transition_processing
# トランジション処�­フラグをクリア
$game_temp.transition_processing = false
# トランジション実行
Graphics.transition(20)
end
# マップ�­定�れ��る BGM � BGS �自動切り替�を実行
$game_map.autoplay
# フレー リセット
Graphics.frame_reset
# 入力情 を更新
Input.update
end
end

Crez encore une fois un script au-dessus de "Main" et nommez le "Window_Fish"

Code:
#==============================================================================
# ■ Window_Fish
#------------------------------------------------------------------------------
#  Fishy!
#==============================================================================

class Window_Fish < Window_Base
#--------------------------------------------------------------------------
# ● Start
#--------------------------------------------------------------------------
def initialize
super(0, 406, 640, 64)
self.contents = Bitmap.new(width - 32, height - 32)
self.contents.font.name = $defaultfonttype
self.contents.font.size = $defaultfontsize
self.opacity = 0
$fm = " "
refresh
end
#--------------------------------------------------------------------------
# ● Refresh
#--------------------------------------------------------------------------
def refresh
self.contents.clear
self.contents.font.color = normal_color
self.contents.draw_text(4, 0, 640, 32, $fm)
end
end
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Vincr
Organisateur
Organisateur
avatar

Nombre de messages : 567
Age : 24
Date d'inscription : 12/11/2007

Les Points d'Aides ( PA ) du membre
Nombre de PA:
62/250  (62/250)
PA donns: 8

MessageSujet: Re: Pcher   Mer 14 Nov - 19:36

Utilisation

Dans Gestion des chipsets dans la base de donnes, Mettez l'eau en terrain type 1.

Pour pcher avec la touche (Z) de votre clavier,

Changer la ligne 118 Scene_Map

Code:
if Input.trigger?(Input::A)

Voila un screen:

Revenir en haut Aller en bas
Voir le profil de l'utilisateur
HawK
Novice
Novice


Masculin
Nombre de messages : 28
Age : 25
Localisation : Ain (01) - FRANCE
Date d'inscription : 11/11/2007

Les Points d'Aides ( PA ) du membre
Nombre de PA:
6/250  (6/250)
PA donns: 0

MessageSujet: Re: Pcher   Ven 16 Nov - 19:37

Mouais ... On peut trs bien fait a en event et a marche mieux !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Vincr
Organisateur
Organisateur
avatar

Nombre de messages : 567
Age : 24
Date d'inscription : 12/11/2007

Les Points d'Aides ( PA ) du membre
Nombre de PA:
62/250  (62/250)
PA donns: 8

MessageSujet: Re: Pcher   Ven 16 Nov - 19:43

Oui tu as tout fais raison clin d'oeil

Ce script est plus utile des makers dbutant qui prfre les script
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsoris




MessageSujet: Re: Pcher   

Revenir en haut Aller en bas
 
Pcher
Voir le sujet prcdent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Notre cher et tendre Kyo !!
» Trbuchet fait maison pas cher - en 2~3h
» [Vente] Petit lot pas cher !!!
» panda terre/agi pas cher !!!
» Foire des vins : Bourgogne pas cher

Permission de ce forum:Vous ne pouvez pas rpondre aux sujets dans ce forum
RpgMasterMaking :: Partages :: Scripts :: Autre scripts-
Sauter vers: