I am using Rpg Maker XP Ver 1.02a
I am trying to use this fishing script in my game
According to the instruction I have edited Scene_Map to this
#==============================================================================
# ** Scene_Map
#------------------------------------------------------------------------------
# This class performs map screen processing.
#==============================================================================
class Scene_Map
#--------------------------------------------------------------------------
# * Main Processing
#--------------------------------------------------------------------------
def main
# Make sprite set
@spriteset = Spriteset_Map.new
# Make message window
@message_window = Window_Message.new
# Transition run
Graphics.transition
# Main loop
loop do
# Update game screen
Graphics.update
# Update input information
Input.update
# Frame update
update
# Abort loop if screen is changed
if $scene != self
break
end
end
# Prepare for transition
Graphics.freeze
# Dispose of sprite set
@spriteset.dispose
# Dispose of message window
@message_window.dispose
# If switching to title screen
if $scene.is_a?(Scene_Title)
# Fade out screen
Graphics.transition
Graphics.freeze
end
end
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
def update
# Loop
loop do
# Update map, interpreter, and player order
# (this update order is important for when conditions are fulfilled
# to run any event, and the player isn't provided the opportunity to
# move in an instant)
$game_map.update
$game_system.map_interpreter.update
$game_player.update
# Update system (timer), screen
$game_system.update
$game_screen.update
# Abort loop if player isn't place moving
unless $game_temp.player_transferring
break
end
# Run place move
transfer_player
# Abort loop if transition processing
if $game_temp.transition_processing
break
end
end
# Update sprite set
@spriteset.update
# Update message window
@message_window.update
# If game over
if $game_temp.gameover
# Switch to game over screen
$scene = Scene_Gameover.new
return
end
# If returning to title screen
if $game_temp.to_title
# Change to title screen
$scene = Scene_Title.new
return
end
# If transition processing
if $game_temp.transition_processing
# Clear transition processing flag
$game_temp.transition_processing = false
# Execute transition
if $game_temp.transition_name == ""
Graphics.transition(20)
else
Graphics.transition(40, "Graphics/Transitions/" +
$game_temp.transition_name)
end
end
# If showing message window
if $game_temp.message_window_showing
return
end
# If encounter list isn't empty, and encounter count is 0
if $game_player.encounter_count == 0 and $game_map.encounter_list != []
# If event is running or encounter is not forbidden
unless $game_system.map_interpreter.running? or
$game_system.encounter_disabled
# Confirm troop
n = rand($game_map.encounter_list.size)
troop_id = $game_map.encounter_list[n]
# If troop is valid
if $data_troops[troop_id] != nil
# Set battle calling flag
$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
# If B button was pressed
if Input.trigger?(Input::B)
# If event is running, or menu is not forbidden
unless $game_system.map_interpreter.running? or
$game_system.menu_disabled
# Set menu calling flag or beep flag
$game_temp.menu_calling = true
$game_temp.menu_beep = true
end
end
#----------------------------Added For Fishing---------------------------#
if Input.trigger?(Input::A)
call_fishing
end
#-------------------------Add-For Fishing-Ends------------------------#
# If debug mode is ON and F9 key was pressed
if $DEBUG and Input.press?(Input::F9)
# Set debug calling flag
$game_temp.debug_calling = true
end
# If player is not moving
unless $game_player.moving?
# Run calling of each screen
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
#--------------------------------------------------------------------------
# Added For Fishing
#--------------------------------------------------------------------------
def call_fishing
character = $game_player
case character.direction
when 2
lookingx = character.x
lookingy = character.y + 1
when 4
lookingx = character.x - 1
lookingy = character.y
when 6
lookingx = character.x + 1
lookingy = character.y
when 8
lookingx = character.x
lookingy = character.y - 1
end
for i in 0..$game_party.actors.size
actor = $game_party.actors[i].id
if $data_weapons[$game_actors[actor].weapon_id] != nil
if $data_armors[$game_actors[actor].armor1_id] != nil
if $data_armors[$game_actors[actor].armor2_id] != nil
if $data_armors[$game_actors[actor].armor3_id] != nil
poleused = $data_weapons[$game_actors[actor].weapon_id]
baitused = $data_armors[$game_actors[actor].armor1_id]
lineused = $data_armors[$game_actors[actor].armor2_id]
reelused = $data_armors[$game_actors[actor].armor3_id]
if poleused.element_set.include?(17)
if baitused.guard_element_set.include?(18)
if lineused.guard_element_set.include?(19)
if reelused.guard_element_set.include?(20)
if $game_map.terrain_tag(lookingx,lookingy) != 0
$waterlevel = $game_map.terrain_tag(lookingx,lookingy)
@event_counter = 0
for h in 1..999
if $game_map.events[h].id > @event_counter
@event_counter = $game_map.events[h].id
end
end
for h in 1..@event_counter
if $game_map.events[h] != nil
if $game_map.events[h].x == lookingx and $game_map.events[h].y == lookingy
case $game_map.events[h].opacity
when 1
$waterlevel = 1
when 2
$waterlevel = 2
when 3
$waterlevel = 3
when 4
$waterlevel = 4
when 5
$waterlevel = 5
when 6
$waterlevel = 6
when 7
$waterlevel = 7
end
end
end
end
$fisherman = actor
$scene = Scene_Fishing.new
break
end
end
end
end
end
end
end
end
end
end
end
#--------------------------------------------------------------------------
# Added For Fishing Ends
#--------------------------------------------------------------------------
#--------------------------------------------------------------------------
# * Battle Call
#--------------------------------------------------------------------------
def call_battle
# Clear battle calling flag
$game_temp.battle_calling = false
# Clear menu calling flag
$game_temp.menu_calling = false
$game_temp.menu_beep = false
# Make encounter count
$game_player.make_encounter_count
# Memorize map BGM and stop BGM
$game_temp.map_bgm = $game_system.playing_bgm
$game_system.bgm_stop
# Play battle start SE
$game_system.se_play($data_system.battle_start_se)
# Play battle BGM
$game_system.bgm_play($game_system.battle_bgm)
# Straighten player position
$game_player.straighten
# Switch to battle screen
$scene = Scene_Battle.new
end
#--------------------------------------------------------------------------
# * Shop Call
#--------------------------------------------------------------------------
def call_shop
# Clear shop call flag
$game_temp.shop_calling = false
# Straighten player position
$game_player.straighten
# Switch to shop screen
$scene = Scene_Shop.new
end
#--------------------------------------------------------------------------
# * Name Input Call
#--------------------------------------------------------------------------
def call_name
# Clear name input call flag
$game_temp.name_calling = false
# Straighten player position
$game_player.straighten
# Switch to name input screen
$scene = Scene_Name.new
end
#--------------------------------------------------------------------------
# * Menu Call
#--------------------------------------------------------------------------
def call_menu
# Clear menu call flag
$game_temp.menu_calling = false
# If menu beep flag is set
if $game_temp.menu_beep
# Play decision SE
$game_system.se_play($data_system.decision_se)
# Clear menu beep flag
$game_temp.menu_beep = false
end
# Straighten player position
$game_player.straighten
# Switch to menu screen
$scene = Scene_Menu.new
end
#--------------------------------------------------------------------------
# * Save Call
#--------------------------------------------------------------------------
def call_save
# Straighten player position
$game_player.straighten
# Switch to save screen
$scene = Scene_Save.new
end
#--------------------------------------------------------------------------
# * Debug Call
#--------------------------------------------------------------------------
def call_debug
# Clear debug call flag
$game_temp.debug_calling = false
# Play decision SE
$game_system.se_play($data_system.decision_se)
# Straighten player position
$game_player.straighten
# Switch to debug screen
$scene = Scene_Debug.new
end
#--------------------------------------------------------------------------
# * Player Place Move
#--------------------------------------------------------------------------
def transfer_player
# Clear player place move call flag
$game_temp.player_transferring = false
# If move destination is different than current map
if $game_map.map_id != $game_temp.player_new_map_id
# Set up a new map
$game_map.setup($game_temp.player_new_map_id)
end
# Set up player position
$game_player.moveto($game_temp.player_new_x, $game_temp.player_new_y)
# Set player direction
case $game_temp.player_new_direction
when 2 # down
$game_player.turn_down
when 4 # left
$game_player.turn_left
when 6 # right
$game_player.turn_right
when 8 # up
$game_player.turn_up
end
# Straighten player position
$game_player.straighten
# Update map (run parallel process event)
$game_map.update
# Remake sprite set
@spriteset.dispose
@spriteset = Spriteset_Map.new
# If processing transition
if $game_temp.transition_processing
# Clear transition processing flag
$game_temp.transition_processing = false
# Execute transition
Graphics.transition(20)
end
# Run automatic change for BGM and BGS set on the map
$game_map.autoplay
# Frame reset
Graphics.frame_reset
# Update input information
Input.update
end
end
And this is the actual Fishing script by Tiberius_XXVII
# This is the fishing script itself...
#
# Instructions:
#
# 1. Add four elements in system, 17: Pole, 18: Lure, 19: Line, and 20: Reel.
# 2. Add some weapons to be fishing poles and give them the element "Pole."
# 3. Set the strength of the new weapons to any number. Higher number means stronger pole.
# 4. Add some shields to be lure and give them the element "Lure."
# 5. Set the evasion of the lures to something 100 or less. Lower number means better lure.
# 6. Add some helmets to be lines and give them the element "Line."
# 7. Set the evasion of the new lines to 100 or less. Higher numbers mean better line.
# 8. Add some armors to be reels and give them the element "Reel."
# 9. Set the evasion of these reels to something 5 or less. Higher numbers mean better reels. You can
# also give the reels strength, this also increases the speed a fisher reels in.
# 10. Make item 33 bait.
# 11. Add some items and call them fish, then set their accuracy to 100 or below.
# Lower number for accuracy means weaker fish.
# 12. Go to lines 105-146, and change the values there.
# 13. Import a picture to be used as a background and call it "FishingBackground.jpg"
# 14. Import an icon that looks like a ripple or bobber and call it "081-Ripple.png"
# 15. Make sure classes can use fishing poles, lures, lines, and reels!
# 16. Edit the tilesets and set the water in their terrain to a number 1-7.
# Higher numbers mean more difficult fish in the water.
# 17. To give a piece of water a different level than the default of that tile, make an event on it and set
# its graphic's opacity to 1-7, these numbers correspond to the difficulty set in step 12.
# 18. To fish, press Shift when you have bait, a pole, a lure, line, a reel and water in front of you.
#==============================================================================
# Scene_Fishing
#------------------------------------------------------------------------------
# The Fishing Scene
#==============================================================================
class Scene_Fishing
#--------------------------------------------------------------------------
# The set up of the scene
#--------------------------------------------------------------------------
def initialize
$distance = 0 #Sets the distance of your bobber to 0.
end
#--------------------------------------------------------------------------
def main
@fishing_window = Window_Fishing.new
@fishing_window.x = 0
@fishing_window.y = 64
@help_window = Window_Help.new
$hooked = false #You don't have a fish on your hook yet.
@wait_count = 0 #It's not waiting for anything.
Graphics.transition
loop do
Graphics.update
Input.update
update
if $scene != self
break
end
end
Graphics.freeze
end
#--------------------------------------------------------------------------
# The fishing part
#--------------------------------------------------------------------------
def update
if @wait_count == 0 #If you're not waiting...
$showfish = false
if $game_party.item_number(33) > 0 #Makes sure you have bait.
if Input.trigger?(Input::B) #If you press Esc then it plays a sound and quits.
$game_system.se_play($data_system.cancel_se)
@fishing_window.dispose
@help_window.dispose
$scene = Scene_Map.new
return
end
if $distance <= 0 #If the distance between you and you're bobber is 0 or less.
$distance = 0 #Than make sure distance is only 0, no less.
if $hooked == true #If a fish was hooked, then catch it and wait a little.
$hooked = false
@help_window.set_text("You caught a " + $data_items[$fish].name + "!", 1)
$showfish = true
$game_party.gain_item($fish, 1)
$game_system.me_play($data_system.battle_end_me)
$game_actors[$fisherman].exp=($game_actors[$fisherman].exp + $data_items[$fish].hit)
@fishing_window.refresh
@wait_count = 100
end
if @wait_count == 0
@help_window.set_text("Use the action key to cast!", 1) #Set the help window text to that.
if Input.trigger?(Input::C) #If you press Spacebar...
@help_window.set_text("You just cast your line...", 1) #It sets the help window text,
Audio.se_play("Audio/SE/021-Dive01") #Plays a sound,
$distance = $data_armors[$game_actors[$fisherman].armor2_id].eva * 18#Sets's distance
#between you and your bobber.
end
end
end
if Input.trigger?(Input::C) #If you press Spacebar and a fish is hooked
if $hooked == true
actor = $game_actors[$fisherman]
$distance = $distance - rand(Math.sqrt(actor.str *
$data_armors[$game_actors[$fisherman].armor3_id].eva) * 2) #It sets distance to less based
#on strength.
end
end
if $distance > 0 #If distance is more than 0 and nothing is hooked then it reels in
if $hooked == false
$distance = $distance - $data_armors[$game_actors[$fisherman].armor3_id].eva
if rand($distance) > 100 #And decides to hook something based on bait and distance.
bait = $game_actors[$fisherman].armor1_id
if rand($data_armors[bait].eva * 10) == 0
$hooked = true
case $waterlevel
when 1
fishinwater =
[51, 51, 51, 51, 51, 52]
when 2
fishinwater =
[52, 52, 53]
when 3
fishinwater =
[53, 53, 54, 54]
when 4
fishinwater =
[55, 55, 55, 56]
when 5
fishinwater =
[56, 57, 58, 59]
when 6
fishinwater =
[59, 59, 60, 60]
when 7
fishinwater =
[61, 62]
end
$fish = fishinwater[rand(fishinwater.size)] #Decides which fish to hook.
@help_window.set_text("You hooked something! Use the action key!", 1) #Says you got one
$game_system.se_play($data_system.battle_start_se) #Plays a sound
@wait_count = 50 #And waits.
end
end
end
end
if $hooked == true #If something is hooked, the fish will try to pull away based on it's strength.
$distance = $distance + rand(Math.sqrt($data_items[$fish].hit) * 2)
if rand(80) == 0 #About 1 out of 80 times it will sound like the fish is splashing
Audio.se_play("Audio/SE/022-Dive02")
end
end
if $distance > $data_armors[$game_actors[$fisherman].armor2_id].eva * 20 #If the fish gets far
#away, it releases the fish, sets text, plays a sound, and waits.
@help_window.set_text("The fish got away!", 1)
if rand(5) == 0
$game_party.lose_item(60, 1)
@help_window.set_text("The fish got away with the bait!", 1)
end
$game_system.me_play($data_system.gameover_me)
@wait_count = 50
$hooked = false
end
@fishing_window.refresh #Updates the windows.
@help_window.update
else
@help_window.set_text("You're out of bait.", 1)
if Input.trigger?(Input::C) #If you press Spacebar then it quits.
@fishing_window.dispose
@help_window.dispose
$scene = Scene_Map.new
return
end
end
else
@wait_count = @wait_count - 1 #Sets the wait count to less.
end
end
end
#==============================================================================
# Window_Fishing
#==============================================================================
class Window_Fishing < Window_Base
def initialize
super(0, 0, 640, 416)
self.contents = Bitmap.new(width - 32, height - 32)
self.contents.font.name = $defaultfonttype
self.contents.font.size = $defaultfontsize
self.contents.clear
refresh
end
def refresh
self.contents.clear #Clears the picture
bitmap = RPG::Cache.picture("FishingBackground.jpg") #And redraws it.
self.contents.blt(0, 0, bitmap, Rect.new(0, 0, bitmap.width, bitmap.height))
actor = $game_actors[$fisherman] #Chooses the actor to draw.
draw_fisher(actor, 150, 320) #Draws character one at the point (150, 320).
if $distance != 0 #If the bobber is out then it draws a ripple/bobber.
bitmap = RPG::Cache.icon("081-Ripple.png")
self.contents.blt(($distance / 5) + 160, 300, bitmap, Rect.new(0, 0, 24, 24))
end
if $showfish == true
bitmap = RPG::Cache.icon($data_items[$fish].icon_name)
self.contents.blt(165, 280, bitmap, Rect.new(0, 0, 24, 24))
end
end
def draw_fisher(actor, x, y)
bitmap = RPG::Cache.character(actor.character_name, actor.character_hue)
cw = bitmap.width / 4
ch = bitmap.height / 4
src_rect = Rect.new(0, ch * 2, cw, ch)
self.contents.blt(x - cw / 2, y - ch, bitmap, src_rect)
end
end
I keep getting this error
Can anyone help me with this?
Thanks.
Discord
Light Style