Jump to content

Recommended Posts

Text Bar

Author: Death10

 

Introduction

Running text

 

Script

*Call script:

-On: $game_system.ads_option = 1

-Off: $game_system.ads_option = 2

-Change:

+Text: $game_system.ads_x = "Text"

+Background: $game_system.ads_back = "Back.png"

 

#==============================================================================
# ** Text Bar
#==============================================================================
# Author: Death10
# http://gamesvts.com
# http://taotrochoi.com
#==============================================================================
# *Call script:
# -On: $game_system.ads_option = 1
# -Off: $game_system.ads_option = 2
# -Change:
# +Text: $game_system.ads_x = "Text"
# +Background: $game_system.ads_back = "Back.png"
#==============================================================================

$game_system = Game_System.new #DataManager.load_normal_database

module Cache
 def self.load_bitmap2(file, hue = 0)
@cache ||= {}
if file.empty?
  empty_bitmap
elsif hue == 0
  normal_bitmap(file)
else
  hue_changed_bitmap(file, hue)
end
 end
end

class Game_System
 attr_accessor :ads
 attr_accessor :ads_on
 attr_accessor :ads_x
 attr_accessor :ads_option
 attr_accessor :ads_back
 alias initialize_ads initialize
 def initialize
initialize_ads
@ads = "Text Bar"
@ads_back = "Graphics/Titles1/#{$data_system.title1_name}"
@ads_option = 1
@ads_on = 1
@ads_x = 0
 end
end
class TB < Window_Base
 def initialize
super(0, 0, 544, 64)
self.opacity = 0
#$game_system = Game_System.new
check
refresh
 end
 def check
case $game_system.ads_option
when 1
$game_system.ads_on = 1
$game_system.ads_x = -contents.text_size($game_system.ads).width
$game_system.ads_option = 0
when 2
$game_system.ads_on = 0
$game_system.ads_option = 0
 end
 end
 def refresh
check
contents.clear
cx = contents.text_size($game_system.ads).width
if $game_system.ads_x == -cx
$game_system.ads_x = 544
else
$game_system.ads_x -= 0.5
end
if $game_system.ads_on == 1
contents.blt(0, 0, Cache.load_bitmap2($game_system.ads_back), Rect.new(0, 0, 544, 32), 160)
contents.draw_text($game_system.ads_x, 0, cx, 32, $game_system.ads, 2)
end
 end
 def open
super
refresh
 end
end

class Scene_Map < Scene_Base
 alias caw create_all_windows
 def create_all_windows
caw
@ads = TB.new
 end
 alias update_ads update
 def update
update_ads
@ads.open
 end
 alias utp update_transfer_player
 def update_transfer_player
utp
case $game_system.ads_on
when 0
@map_name_window.y = 0
when 1
@map_name_window.y = 44
end
 end
end

 

 

 

Screenshot

1ce5ac2072bf056d847281ede6b84bde_39102533.untitled.png

 

UPDATE: 24/12/2011 - Fixed some bugs

Edited by Death10

Share this post


Link to post
Share on other sites

This could become useful for objectives display or hints... or perhaps notifications of things going on in the game world. Nice job, I'll probably use this.

Share this post


Link to post
Share on other sites

How do you exactly use the script? D:

 

Also when I copy it into the custom scripts, it is all on one line.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Recently Browsing   0 members

    No registered users viewing this page.

×
Top ArrowTop Arrow Highlighted