Shop Đẹp nè

Thảo luận trong 'Game Development' bắt đầu bởi y.r.p, 2/6/06.

  1. y.r.p

    y.r.p Youtube Master Race

    Tham gia ngày:
    15/8/04
    Bài viết:
    85
    Đè cái này lên Window_Shop

    class Window_ShopStatus < Window_Base
    #--------------------------------------------------------------------------
    # ● オブジェクト初期化
    #--------------------------------------------------------------------------
    def initialize
    super(368, 128, 272, 352)
    self.contents = Bitmap.new(width - 32, height - 32)
    self.contents.font.name = $defaultfonttype # "Shop" (Status - Right) window font
    self.contents.font.size = $defaultfontsize
    @item = nil
    refresh
    end
    #--------------------------------------------------------------------------
    # ● リフレッシュ
    #--------------------------------------------------------------------------
    def refresh
    self.contents.clear
    if @item == nil
    return
    end
    case @item
    when RPG::Item
    number = $game_party.item_number(@item.id)
    when RPG::Weapon
    number = $game_party.weapon_number(@item.id)
    when RPG::Armor
    number = $game_party.armor_number(@item.id)
    end
    self.contents.font.color = system_color
    self.contents.draw_text(4, 0, 200, 32, "Owned")
    self.contents.font.color = normal_color
    self.contents.draw_text(204, 0, 32, 32, number.to_s, 2)
    if @item.is_a?(RPG::Item)
    return
    end
    # 装備品追加情報
    for i in 0...$game_party.actors.size
    # アクターを取得
    actor = $game_party.actors
    # 装備可能なら通常文字色に、不可能なら無効文字色に設定
    if actor.equippable?(@item)
    self.contents.font.color = normal_color
    else
    self.contents.font.color = disabled_color
    end
    # アクターの名前を描画
    self.contents.draw_text(4, 64 + 64 * i, 120, 32, actor.name)
    # 現在の装備品を取得
    if @item.is_a?(RPG::Weapon)
    item1 = $data_weapons[actor.weapon_id]
    elsif @item.kind == 0
    item1 = $data_armors[actor.armor1_id]
    elsif @item.kind == 1
    item1 = $data_armors[actor.armor2_id]
    elsif @item.kind == 2
    item1 = $data_armors[actor.armor3_id]
    else
    item1 = $data_armors[actor.armor4_id]
    end
    # 装備可能な場合
    if actor.equippable?(@item)
    # 武器の場合
    # PhotonWeapon - change variable becomes change1
    if @item.is_a?(RPG::Weapon)
    atk1 = item1 != nil ? item1.atk : 0
    atk2 = @item != nil ? @item.atk : 0
    change1 = atk2 - atk1
    end
    # 防具の場合
    # PhotonWeapon - change variable becomes change1 for defense;
    # added change2 variable for magic defense.
    if @item.is_a?(RPG::Armor)
    pdef1 = item1 != nil ? item1.pdef : 0
    mdef1 = item1 != nil ? item1.mdef : 0
    pdef2 = @item != nil ? @item.pdef : 0
    mdef2 = @item != nil ? @item.mdef : 0
    change1 = pdef2 - pdef1
    change2 = mdef2 - mdef1
    end
    # パラメータの変化値を描画
    if @item.is_a?(RPG::Weapon)
    # PhotonWeapon - if selected weapon raises attack,
    # change to crisis_color (usually yellow). If it lowers
    # attack, change to knockout_color (usually red).
    # If attack stays the same, use normal_color.
    if atk2 > atk1
    self.contents.font.color = crisis_color
    elsif atk1 > atk2
    self.contents.font.color = knockout_color
    else
    self.contents.font.color = normal_color
    end
    # PhotonWeapon - location of Atk change.
    self.contents.draw_text(4, 64 + 64 * i + 32, 112, 32,
    sprintf($data_system.words.atk + " %+d", change1), 1)
    end
    if @item.is_a?(RPG::Armor)
    # PhotonWeapon - change color depending on whether
    # defense raises, lowers, or stays the same.
    if pdef2 > pdef1
    self.contents.font.color = crisis_color
    elsif pdef1 > pdef2
    self.contents.font.color = knockout_color
    else
    self.contents.font.color = normal_color
    end
    # PhotonWeapon - location of PDef change.
    self.contents.draw_text(4, 64 + 64 * i + 32, 112, 32,
    sprintf($data_system.words.pdef + " %+d", change1), 2)
    # PhotonWeapon - change color depending on
    # whether magic defense raises, lowers, or stays the same.
    if mdef2 > mdef1 # raises
    self.contents.font.color = crisis_color
    elsif mdef1 > mdef2 # lowers
    self.contents.font.color = knockout_color
    else # no change
    self.contents.font.color = normal_color
    end
    ## PhotonWeapon - location of MDef change.
    self.contents.draw_text(124, 64 + 64 * i + 32, 112, 32,
    sprintf($data_system.words.mdef + " %+d", change2), 2)
    end
    end
    # アイテムを描画
    ## PhotonWeapon - Change color back to normal here, otherwise
    ## item name will be the color of crisis or knockout.
    self.contents.font.color = normal_color
    if item1 != nil
    bitmap = RPG::Cache.icon(item1.icon_name)
    opacity = self.contents.font.color == normal_color ? 255 : 128
    self.contents.blt(96, 64 + 64 * i + 4, bitmap, Rect.new(0, 0, 24, 24), opacity)
    self.contents.draw_text(124, 64 + 64 * i, 212, 32, item1.name)
    end
    end
    end
    #--------------------------------------------------------------------------
    # ● アイテムの設定
    # item : 新しいアイテム
    #--------------------------------------------------------------------------
    def item=(item)
    if @item != item
    @item = item
    refresh
    end
    end
    end

    phù xong :whew: Chúc thàng công :D
     
  2. Dương 4444

    Dương 4444 Mr & Ms Pac-Man

    Tham gia ngày:
    8/2/06
    Bài viết:
    189
    Nơi ở:
    Hải Phòng
    Chỉ có thế thui á , mà Window_Shop là cái gì thế , làm gì có , chỉ có ShopBuy , ShopSell , ShopStatus thoai =))
     
  3. ken10

    ken10 Programmer

    Tham gia ngày:
    10/1/04
    Bài viết:
    2,341
    Nơi ở:
    Ho Chi Minh city
    _Ko để trong Code(+MP) hoặc thật thà thì
     
  4. Dương - 44

    Dương - 44 Mr & Ms Pac-Man

    Tham gia ngày:
    6/6/06
    Bài viết:
    236
    Nơi ở:
    Hải Phòng
    Nói thế mà ông Ken cũng ko sửa lại cho người ta à , sửa lại mau đi :p cho vào khung Code ấy
     
  5. squall&rinoa

    squall&rinoa Donkey Kong

    Tham gia ngày:
    23/1/04
    Bài viết:
    449
    Nơi ở:
    Hải Phòng

    Ặc, cái script gì thế này, còn thiếu mà, copy cái này vào còn lâu mới chạy.
     
  6. marxim

    marxim Youtube Master Race

    Tham gia ngày:
    17/10/05
    Bài viết:
    68
    Nơi ở:
    †...Thiêñ еờñg.
    có gì đâu mà đẹp...................^^ mà kêu là shop đẹp hả chắc bị điên rùi thì phải
     
  7. Dương - 44

    Dương - 44 Mr & Ms Pac-Man

    Tham gia ngày:
    6/6/06
    Bài viết:
    236
    Nơi ở:
    Hải Phòng
    mà cái thằng làm topic này cũng đần ghê cơ , làm quái có cái nào gọi là Window_Shop chứ :))
     
  8. Zell Dinch

    Zell Dinch Gloria in excelsis Deo Lão Làng GVN

    Tham gia ngày:
    18/7/03
    Bài viết:
    2,312
    con người có lễ giáo thì đừng bao giờ chê người ta là đần độn hay cười người ta này nọ. Nếu đã giỏi quá rùi thì nhìn dòng đầu tiên là bít Đè cái này + class Window_ShopStatus . Nói vậy mà ko hỉu thì thui. Hix. Tui ko có ý nói tui tài giỏi gì cũng ko muốn nói xấu ai. Muốn chửi tui thì tùy nhưng trước giờ con người tui ghét nhất ai nói người khác đần độn ngu si gì đó đó hay dạng vậy. Có rủa xả tui cũng vậy.
     
  9. hoangrpg

    hoangrpg Youtube Master Race

    Tham gia ngày:
    6/2/06
    Bài viết:
    49
    Cái tên này là vậy đó ngu mà lỳ
     
  10. Zell Dinch

    Zell Dinch Gloria in excelsis Deo Lão Làng GVN

    Tham gia ngày:
    18/7/03
    Bài viết:
    2,312
    đúng bạn nói đúng. Tôi không nói tôi giỏi, tôi ngu lắm. Nhưng ít ra tôi còn biết tôn trọng người khác. Có tài mà không có đức thì vứt đi. Tôi không nói tôi tài đức vẹn toàn nhưng dù sao cũng đủ xài. Không đến nổi "ngu mà lỳ" như bạn nói đâu. Chẳng lẽ ba mẹ bạn dậy bạn là cứ chửi thẳng vô mặt bạn con à. Tục ngữ ca dao Việt Nam ta còn nhiều câu để giáo huấn việc này lắm bạn ơi. Còn việc tôi nói là chép vào Window_ShopStatus có gì sai ko bạn. Tôi không phủ nhận rằng script bạn này đưa là chưa đầy đủ. Tôi cũng không thể thẩm định là nó có đẹp thật không vì chưa thể run. Nhưng cái nhân cách của con người là quan trọng. Và trong điều 10 công ước quốc tế về các quyền dân sự và chính trị có ghi rõ:
    1) Những người mất tự do vẫn phải được đối xử nhân đạo và tôn trọng nhân phẩm.

    Như vậy con người tự do nhưng mình vẫn phải được tôn trọng nhân phẩm phải không bạn (Xin lỗi mod và admin vì có liên quan tới luật pháp , chính trị nhưng cần nói rõ cho những mem thiếu hiểu biết tôn trọng người khác hơn. Xin đừng xóa bài này vì đây là hiện tượng cần cảnh chỉnh để hoàn thiện cách ứng xử giữa người và người trong diễn đàn).

    Mình nói không phải chỉ trích hay dạy đời nhưng mogn các bạn tôn trọng người khác hơn. Xin cám ơn
     
  11. Mozzila†hunder

    Mozzila†hunder Dragon Quest

    Tham gia ngày:
    29/5/06
    Bài viết:
    1,295
    Nơi ở:
    Ha Noi, Vietnam
    Đang RMXP lôi cả pháp luật ra làm gì? Vui thôi mà :D
     
  12. Zell Dinch

    Zell Dinch Gloria in excelsis Deo Lão Làng GVN

    Tham gia ngày:
    18/7/03
    Bài viết:
    2,312
    Tôi đồng ý theo chủ nghĩa vui là chính nhưng các bạn (một số ng thui) phải xem xét lại cái cách đối nhân xử thế đi. Xúc phạm người khác thế thì ra đời đối với người khác làm sao. Nói mà ko lôi dẫn chứng ra thì nói mình bày đặt dạy đời này nọ. Thoai thoai, ko cãi cọ chuyện này nữa. Đúng là con nít. Hỡ tí chửi ng khác ngu.
     
  13. Diệp Thanh

    Diệp Thanh Kirin Tor Moderator Lão Làng GVN

    Tham gia ngày:
    7/2/04
    Bài viết:
    4,033
    --Éc éc, ông này rành luật ghê ta, hehehe. Dương dạo này bị chỉ trích hơi bị nhiều rùi đó. Thôi, topic này lock lại là vừa.
     
  14. squall&rinoa

    squall&rinoa Donkey Kong

    Tham gia ngày:
    23/1/04
    Bài viết:
    449
    Nơi ở:
    Hải Phòng
    Ặc, lock làm gì, del luôn đi ông ơi, cái topic này chả ăn nhập gì với cái tiêu đề cả :D
     
  15. Zell Dinch

    Zell Dinch Gloria in excelsis Deo Lão Làng GVN

    Tham gia ngày:
    18/7/03
    Bài viết:
    2,312
    Không, mình để nghị lock thì được nhưng không nên del. Để những người thiếu hiểu bít và đạo đức cần xem để rút kinh nghiệm. Xin lỗi những người không liên quan nhưng tôi kêu gọi mọi người trong một diễn đàn văn minh tôn trọng nhau hơn. Xin cám ơn
     
  16. Diệp Thanh

    Diệp Thanh Kirin Tor Moderator Lão Làng GVN

    Tham gia ngày:
    7/2/04
    Bài viết:
    4,033
    Zell Dinch có phải là Cao Minh đó không, nếu phải chắc là em còn nhớ anh chứ, ngày xưa anh em mình hay qua bên hackmod làm forum IPB đó, anh em mình còn làm chung một cái nữa, anh là Thanh đây, nick thieugia_hue của anh bị mất nên không liên lạc được với em từ đó. Giờ em còn dùng nick nguyencaominh200# nữa không vậy. Nếu bạn không phải thì mình xin lỗi bởi Minh hay lấy nick Zell Dinch lắm, hèn chi thấy quen quen.
     
  17. Ice Dragon

    Ice Dragon Mega Man

    Tham gia ngày:
    6/9/04
    Bài viết:
    3,101
    Nơi ở:
    none
    Ông Zell Calm Down tí (nhưng công nhận đọc bài ông viết đã quá :D).
    Cái code bị thiếu chắc tác giả bài viết ko cố ý đâu mà đang pót bị lỗi đó đôi khi tui cũng bị quài, nó post có nửa bài à), tác giả bài viết nếu có thể thì post tiếp kh1uc sau đi, Ice cũng muốn nghiên cứu cái Shop đẹp ^_^
    @Ông Dương_44 : long time no see, ông vẫn láo như xưa :D, người ta viết thế là có ý tốt để pà con cùng động não tìm hiểu để biết trong bài chữ "Window_Shop" và chữ "class Window_ShopStatus < Window_Base" cái nào quan trọng vậy mà ông nỡ bắt bẻ. Nghe nói lúc này ông Inherits cái topic hướng dẫn RPG maker XP với cái kinh khí cầu mà bác vo_dich cũng còn nể phải ko ^_^

    Chật, lúc này vào hết nhận ra mấy topic lun (tìm cái topic hướng dẫn RPG maker hồi trước mún lòi mắt, háo ra ông ken cửa lại) :D
     
  18. y.r.p

    y.r.p Youtube Master Race

    Tham gia ngày:
    15/8/04
    Bài viết:
    85
    Mấy cô, mấy bác copy chạy ko dc sao em chạy dc, nó để chữ cộng sức đánh hay - khi ta mua vũ khí đóa em thử và nó work :D
     
  19. y.r.p

    y.r.p Youtube Master Race

    Tham gia ngày:
    15/8/04
    Bài viết:
    85
    Thế em sẽ moi nó ra và pót bài mới lên cho mấy cô chú hình như nó mất nữa khúc sau, sau vậy nhĩ
     
  20. Ice Dragon

    Ice Dragon Mega Man

    Tham gia ngày:
    6/9/04
    Bài viết:
    3,101
    Nơi ở:
    none
    Shop thường hình như cũng có mà bạn?
    Hay giờ bạn vào thư mục Project của bạn, mục data => upload file Script.rxdata lên cho bà con xem thử đi
     

Chia sẻ trang này