Title Forum
IndexIndex  CalendarCalendar  GalleryGallery  Trợ giúpTrợ giúp  Tìm kiếmTìm kiếm  Đăng kýĐăng ký  Đăng NhậpĐăng Nhập  
News & Announcements
  • Gallery & Others
  • Top posters
 N.H.M (706)
 nhuantrung0210 (323)
 TjaGoChangLj (227)
 GVRFnu-Bjn (190)
 lisaidong (122)
 phongngan1997 (94)
 puppy:x* (85)
 anhcudo01 (69)
 taoghetmay (68)
 anhlathe47 (45)

Share | 
 

 Scrip Thêm Giới Thiệu nè

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
TjaGoChangLj
Administrator
Administrator


Thanked : 14


Bài gửiTiêu đề: Scrip Thêm Giới Thiệu nè    20/7/2010, 2:56 pm

B1:
_Bật window script lên [F11]

sau đó bạn tìm script SCENE_TITLE

nhấn CTRL +G đánh 36 :nó sẽ đưa bạn đến dòng 36





B2:


*Từ dòng 36 đến 40

# Make command window

s1 = "New Game"

s2 = "Continue"

s3 = "Shutdown"

@command_window = Window_Command.new(192, [s1, s2, s3])

thay bằng[copy ,paste đè lên đó mà]
# Make command window
s1 = "New Game"
s2 = "Continue"
s3 = "Giới thiệu"
s4 = "Shutdown"
@command_window = Window_Command.new(192, [s1, s2, s3, s4])


Sau đó CTRL+G lần nữa và lần này đến dòng 89

coi dòng 89 ,107


#--------------------------------------------------------------------------

# * Frame Update


#--------------------------------------------------------------------------

def update

# Update command window

@command_window.update

# If C button was pressed

if Input.trigger?(Input::C)

# Branch by command window cursor position



case @command_window.index

when 0 # New game

command_new_game

when 1 # Continue

command_continue

when 2 # Shutdown

command_shutdown

end

end

end

Thay thế
#--------------------------------------------------------------------------
# * Frame Update
#--------------------------------------------------------------------------
def update
# Update command window
@command_window.update
# If C button was pressed
if Input.trigger?(Input::C)
# Branch by command window cursor position
case @command_window.index
when 0 # New game
command_new_game
when 1 # Continue
command_continue
when 2 # Credit
command_credit
when 3 # Shutdown
command_shutdown
end
end
end



B3


Nhấn CTRL+ F :Để kiếm dòng


* Command: Shutdown


sau đó paste ở trên đó

#--------------------------------------------------------------------------
# * Command: Credit
#--------------------------------------------------------------------------
def command_credit
printf"Thằng Minh Muốn Gì"
$scene = Scene_Credit.new
end




B3
Sau đó là insert /paste cái này làm 1 script mới
#==============================================================================
# ** Scene_Credit
#------------------------------------------------------------------------------
# Cái Script này phục vụ bạn làm 1 Credit dễ dàng - LeoV2F
# [You must be registered and logged in to see this link.]
#==============================================================================

class Scene_Credit
CREDIT =<<_END_

ThÝch ®iÒn g× ®ã th× ®iÒn


** Mäi chi tiÕt liªn hÖ :
- [You must be registered and logged in to see this link.]
- [You must be registered and logged in to see this link.]

E-Mail : [You must be registered and logged in to see this link.]


C¶m ¬n

_END_
end

class Scene_Credit

def initialize(return_scene = nil)
if return_scene.nil?
return_scene = Scene_Title.new
end
@return_scene = return_scene

end


def scene_start
credit_lines = CREDIT.split(/\n/)
credit_bitmap = Bitmap.new(640,32 * credit_lines.size)
credit_lines.each_index do |i|
line = credit_lines[i]
credit_bitmap.font.name = ".VnArial"
credit_bitmap.font.size = 22
credit_bitmap.draw_text(0,i * 32,640,32,line,1)
end
@credit_sprite = Sprite.new(Viewport.new(0,50,640,380))
@credit_sprite.bitmap = credit_bitmap
@credit_sprite.oy = -430
@frame_index = 0
@last_flag = false
end

def scene_end
@credit_sprite.dispose
end

def last?
return (@frame_index >= @credit_sprite.bitmap.height + 480)
end

def last
if not @last_flag

@last_flag = true
@last_count = 0
else
@last_count += 1
end
if @last_count >= 20
$scene = @return_scene
end
end

def update
@frame_index += 1
return if cancel?
last if last?
@credit_sprite.oy += 1
end

def cancel?
if Input.trigger?(Input::B)
$scene = @return_scene
return true
end
return false
end

def main
scene_start

Graphics.transition

loop do

Graphics.update

Input.update

update

if $scene != self
break
end
end

Graphics.freeze
scene_end
end
end
# Không Hiểu Gì Thì Hỏi Mình Nha
Chữ Ký Cá Nhân

Về Đầu Trang Go down
Xem lý lịch thành viên
N.H.M
Rìu Chiến Bạc
Rìu Chiến Bạc


Thanked : 25


Bài gửiTiêu đề: Re: Scrip Thêm Giới Thiệu nè    20/7/2010, 7:08 pm

tao làm dc rồi, demo kìa Nhe răng thanks
Chữ Ký Cá Nhân


bị điên bị điên bị điên bị điên
Về Đầu Trang Go down
Xem lý lịch thành viên
 

Scrip Thêm Giới Thiệu nè

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Vn-Screen Forum :: Thế Giới Game :: Game Offline :: RPG Maker XP-
VN-SCREEN.DARKBB.COM
Design by N.H.M - Developed by Vn-Screen Member
Free forum | © phpBB | Free forum support | Liên hệ | Report an abuse | Free blog