[Script] Faire des recoltes sans limite !

#==============================================================================
# ■ Window_Feuille#Ici Feuille mais vous pouvez changez!
#------------------------------------------------------------------------------
# 　Adapté par Ayrton
#==============================================================================

class Window_Feuille < Window_Base #Ici mettez le nom precedement !
#--------------------------------------------------------------------------
# ● Start
#--------------------------------------------------------------------------
def initialize
super(0, 406, 640, 64)
self.contents = Bitmap.new(width - 32, height - 32)
self.contents.font.name = "Arial"#Changez la police
self.contents.font.size = 16#et la taille
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

#==============================================================================
# ■ Feuille #le nom de la recolte
#Adaptez par Ayrton
#------------------------------------------------------------------------------

class Feuille #N'oubliez pas de Mettre le nom du script ici !
#----------------------------------------------------------------------------
# Start
#----------------------------------------------------------------------------
def initialize
@fw = Window_Feuille.new#Important il faut mettre le nom du script precedant!
$fm = "Vous êtes entrain de rammasser des feuilles !"#Changez le texte ici
@fw.refresh
delay(50)
fish
end
#----------------------------------------------------------------------------
# Ramassage de feuille
#----------------------------------------------------------------------------
def fish
delay(40)
@fr = rand(7)#Ici changez la valeur alleatoire !
#La partit qui suit et assez importante
case @fr
when 0
$fm = "1 feuille" #Ici mettez le message a afficher lors de la recolte
@fw.refresh
$game_party.gain_item(24, 1)#entre () il faut mettre (ID de l'objet, Quantitée)
delay(10) #La propabiliter de le ramasser
when 1
$fm = "3 Feuilles"
@fw.refresh
$game_party.gain_item(24, 3)
delay(10)
when 2
$fm = "Rien"
@fw.refresh
delay(30)
when 3
$fm = "1 Feuille dorée"
@fw.refresh
$game_party.gain_item(25, 1)
delay(150)
when 4
$fm = "5 feuilles"
$game_party.gain_item(24, 5)
@fw.refresh

delay(30)
when 5
$fm = "1 feuille"
@fw.refresh
$game_party.gain_item(24, 1)
delay(20)
when 6
$fm = "Rien"
@fw.refresh
delay(10)
when 7
$fm = "Rien"
@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

$scene = Scene_Debug.new
end

#Feuille
#--------------------------------------------------------------------------
# â—� Feuille
#--------------------------------------------------------------------------
def feuille #n'oubliez pas de mettre la meme classe que Celui precedement !
character = $game_player
case character.direction
#Ne vous en occuper pas
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) == 2#ici choisisez le type de terain de la base de donée
Feuille.new
else
Audio.se_play("Audio/SE/057-Wrong01")#Sons disant K'on peu pas le ramasser
end
end
#Feuille

$game_temp.menu_beep = true
end
end

# Feuille
# si on apui sur S rammase des feuilles
if Input.trigger?(Input::Y)# La touche a presser !
feuille#La meme classe qu'avant
end
# Feuille