Topic hỏi đáp (tập 3) về cách làm map

Không phải trong map ấy rõ ràng không nghe music, không nghe âm thanh đánh nhau hay tiếng của hero mà play sound thì nghe rõ mồn một
Mà hơi xúc phạm đấy, cái gì mà JASS lại đến nỗi "mù" hả, ta cũng biết làm vài spell JASS đấy chứ

 

Mã:

library AdvancedItemSystem initializer Init    
// The_Witcher's
//
// <<advanced item system>>
//
// this system improves the warcraft III item engine
//
// if a unit gets an item which it already has it stacks
// in addition this works even if the inventory is full!!!
//
// if you double-right-click an item with charges it splits up
// and if you move a item onto an equal item and they are stackable they stack

// no Setup Part! don't touch anything

private struct data
unit u
item ite
integer index
real x
real y
endstruct

globals
    private data array DATAS
    private integer total = 0
    private hashtable h = InitHashtable()
    private timer tim = CreateTimer()
    private trigger trg = CreateTrigger(  )
endglobals

private function IsInventoryFull takes unit u returns boolean
    local integer i = 0
    loop
        exitwhen i == 6
        if UnitItemInSlot(u, i) == null then
            return false
        endif
        set i = i + 1
    endloop
    return true
endfunction

function ItemWalk takes nothing returns boolean
    local integer i = 0
    local unit u = GetTriggerUnit()
    local item ite = GetOrderTargetItem()
    local data dat
    if IsInventoryFull(u) and GetItemCharges(ite)!= 0 then
        loop
            exitwhen i > 5
            if GetItemTypeId(ite) == GetItemTypeId(UnitItemInSlot(u, i)) and UnitHasItem(u,ite)== false  then
                call IssuePointOrder( u, "move", GetItemX(ite),GetItemY(ite) )
                if LoadInteger(h,GetHandleId(u),0) == 0 then
                    set dat = data.create()
                    set DATAS[total] = dat
                    set dat.index = total
                    set total = total + 1
                    set dat.u = u
                    set dat.ite = ite
                    set dat.x = GetItemX(ite)
                    set dat.y = GetItemY(ite)
                    call SaveInteger(h,GetHandleId(u),0,dat)
                else                    
                    set dat = LoadInteger(h,GetHandleId(u),0)
                    set dat.u = u
                    set dat.ite = ite
                    set dat.x = GetItemX(ite)
                    set dat.y = GetItemY(ite)
                endif
                set i = 100
            endif
            set i = i + 1
        endloop
        set dat = LoadInteger(h,GetHandleId(u),0)
        if i < 10 and dat != 0 then
            set total = total - 1
            set DATAS[dat.index] = DATAS[total]
            set DATAS[dat.index].index = dat.index
            call FlushChildHashtable(h,GetHandleId(dat.u))
            call dat.destroy()
        endif
    endif
    set u = null
    set ite = null
    return false
endfunction

private function ItemStack takes nothing returns boolean
    local integer i = 0
    local integer id
    local item k
    local item m = GetManipulatedItem()
    local unit u = GetTriggerUnit()
    local integer ite = GetItemTypeId(m)
    local integer c = GetItemCharges(m)
    local integer it 
    if GetItemCharges(GetManipulatedItem()) > 0 then
        loop
            exitwhen i > 6
            set it = GetItemTypeId(UnitItemInSlot(u, i - 1))
            set k = UnitItemInSlot(u, i - 1)
            if ( ( it == ite ) and( m != k ) ) then
                call SetItemCharges( k,  GetItemCharges(k) + c  )
                call RemoveItem( m )
                set i = 10
            endif
            set i = i + 1
        endloop
    endif
    set k = null
    set m = null
    set u = null
    return false
endfunction

function ItemTake takes nothing returns nothing
    local real dx
    local real dy
    local item it
    local integer i
    local integer ii = 0
    local data dat
    loop
        exitwhen ii >= total
        set dat = DATAS[ii]
        set dx = GetItemX(dat.ite) - GetUnitX(dat.u)
        set dy = GetItemY(dat.ite) - GetUnitY(dat.u)
        if ( SquareRoot(dx * dx + dy * dy) < 100.00 ) and IsItemOwned(dat.ite) == false then
            set i = 0
            loop
                exitwhen i > 5
                set it = UnitItemInSlot(dat.u,i)
                if GetItemTypeId(dat.ite) == GetItemTypeId(it) then
                    set i = 5
                endif
                set i = i + 1
            endloop
            call SetItemCharges( it,  GetItemCharges(it) + GetItemCharges(dat.ite) )
            call RemoveItem( dat.ite )
            set total = total - 1
            set DATAS[ii] = DATAS[total]
            set DATAS[ii].index = ii
            call FlushChildHashtable(h,GetHandleId(dat.u))
            call dat.destroy()        
            call IssueImmediateOrder(dat.u,"stop")        
        endif
        set ii = ii + 1
    endloop
    set it = null
endfunction

private function ItemWalkAbort1 takes nothing returns boolean
    local data dat = LoadInteger(h,GetHandleId(GetTriggerUnit()),0)
    if dat != 0 and( GetOrderPointX() != dat.x  or  GetOrderPointY() != dat.y )then
        set total = total - 1
        set DATAS[dat.index] = DATAS[total]
        set DATAS[dat.index].index = dat.index
        call FlushChildHashtable(h,GetHandleId(dat.u))
        call dat.destroy()
    endif
    return false
endfunction

private function ItemWalkAbort2 takes nothing returns boolean
    local data dat = LoadInteger(h,GetHandleId(GetTriggerUnit()),0)
    if dat != 0 then
        set total = total - 1
        set DATAS[dat.index] = DATAS[total]
        set DATAS[dat.index].index = dat.index
        call FlushChildHashtable(h,GetHandleId(dat.u))
        call dat.destroy()
    endif
    return false
endfunction

function ItemSplit takes nothing returns boolean
    local integer i = GetItemCharges(GetOrderTargetItem())
    if GetIssuedOrderId() > 852001 and GetIssuedOrderId() < 852008 then
        if GetOrderTargetItem() == UnitItemInSlot(GetOrderedUnit(), GetIssuedOrderId()-852002) then
            if i > 1 then
                set i = i/2
                call SetItemCharges(GetOrderTargetItem(), GetItemCharges(GetOrderTargetItem()) - i)
                call DisableTrigger(trg)
                call UnitAddItemByIdSwapped(GetItemTypeId(GetOrderTargetItem()), GetTriggerUnit())
                call EnableTrigger(trg)
                call SetItemCharges(bj_lastCreatedItem, i)
            endif
        else
            if i > 0 and GetItemTypeId(GetOrderTargetItem()) == GetItemTypeId(UnitItemInSlot(GetOrderedUnit(), GetIssuedOrderId()-852002)) then
                call SetItemCharges(GetOrderTargetItem(), GetItemCharges(GetOrderTargetItem()) + GetItemCharges(UnitItemInSlot(GetOrderedUnit(), GetIssuedOrderId()-852002)))
                call RemoveItem(UnitItemInSlot(GetOrderedUnit(), GetIssuedOrderId()-852002))
            endif
        endif
    endif
    return false
endfunction

private function Init takes nothing returns nothing
local trigger a = CreateTrigger(  )
local trigger b = CreateTrigger(  )
local trigger c = CreateTrigger(  )

call TimerStart( tim, 0.05, true, function ItemTake )

call TriggerRegisterAnyUnitEventBJ( a, EVENT_PLAYER_UNIT_ISSUED_POINT_ORDER )
call TriggerAddCondition( a, Condition( function ItemWalkAbort1 ) )

call TriggerRegisterAnyUnitEventBJ( b, EVENT_PLAYER_UNIT_ISSUED_ORDER )
call TriggerAddCondition( a, Condition( function ItemWalkAbort2 ) )

call TriggerRegisterAnyUnitEventBJ( c, EVENT_PLAYER_UNIT_ISSUED_TARGET_ORDER )
call TriggerAddCondition( c, Condition( function ItemWalk ) )
call TriggerAddCondition( c, Condition( function ItemSplit ) )

call TriggerRegisterAnyUnitEventBJ( trg, EVENT_PLAYER_UNIT_PICKUP_ITEM )
call TriggerAddCondition( trg, Condition( function ItemStack ) )
endfunction

endlibrary

bi lỗi gì vậytest maps ng ta thi dc, copy thì ko chịu zoxài newgen lunkhi xóa 1 chữ và chỉnh lại thì maps ng ta cũng ko zo lunbác nào bit fix chỉ đệ tử cái

 

Nói rõ hơn đi, hoặc post cả map lên

Hiểu!



Hỏi thêm phát, đã up 1.24b chưa, có hiệu lực UMSWE không ?

Lỗi này nghĩa là chưa up 1.24 rùi, vì nó không có native GetHandleId với type hashtable

 

1.24C test tren newgen lun....

 

Up cái map mà bị lỗi ấy, up map kô bị lỗi tác dụng gì .

 

có hiệu lực UMSWE không ?

Mà đã dùng 1.24c rùi à, tui nghi nó không dung hợp với NewGen5d đâu!

 

tại sao maps gốc cho zo, mà maps copy or edit ko cho zo test

----- merge -------

bên trong có 2 cái system; cái nào cũng bị lỗi ko tét dc
JASS ép đồ thì ko quan trọng,tui có auto GUI rùi

 

Sound Editor (F5) -> click chuột phải vào sound cần chọn -> User As Sound -> click đúp vào sound đó -> chỉnh channel
nói đến đây chắc hiểu rồi chứ

mà đúng là anh em box WE ít khi động vào sound thật:(

tưởng cậu vẫn như ngày xưa

 

to_Kingwar2010: Cái map bạn gửi ổn 100%, xem lại World Editor của bạn đi, có thể bạn sẽ phải lùi về 1.24b đó!

 

ờ kiaáo ko ai trả lời hết vậy

 

Lỗi WE văng ra nhiều vô kể!

- Map Corrupt ( ở đây database của map có vấn đề, cụ thể là map không thể tìm thấy code trong GUI => chuyển qua JASS lại thoát )

- Model gây error => thử dùng WinMPQ xóa tiêu cái model đó ra khỏi map

Tại sao model gây corrupt??

+ Vì trong quá trình sửa bằng War3 Model Editor bạn xóa animation một cách không cẩn thận!

Map bị dính virus , cái này ngày xưa gặp nhiều, hùi đó tập tành cracker nên máy dính khá nhiều vai rớt => Format cài lại win

Thế là quá đủ!

 

Xóa ko cẩn thận hảMình xóa an toàn rùi(đã test = cách ẽ file trong mpq của bz ra chỉ sữ 1 chi tiết nhỏ cũng ko sử dụng đc)
Hay là bạn fix or xoa cay vk + cái túi của con priest dùm mình đi:-*

 

Post lại bài khác xem cái, lỗi chính tả nhiều làm tui đọc chả hỉu rì cả

Thực ra gợi ý trên kia là quá đủ rùi, lấy WinMPQ ra lục lại map xem, nó báo lỗi thiếu code nào thì xóa bớt cái đó đi xong vào WE mở thử

Ngày xưa mình còn gặp nhiều lỗi nát bươm cả map ra mà còn phải một mình xử lý đó, chả biết hỏi ai luôn

 

bác YAN giúp em làm dùm cái trigger kill radian trong dota đi em cũng theo ý bác tự tìm hiểu khổ nổi tốn 6 tiếng công cốc bí quá mới nhờ bác thôi, bác làm dùm em nha thank:)

 

Mã:

Xóa ko cẩn thận hả:-oMình xóa an toàn rùi(đã test = cách export file trong mpq của blizzard ra chỉ sữa 1 chi tiết nhỏ cũng ko sử dụng đc)
Hay là bạn fix or làm giúp mình con priest (bơm máu) xóa cây vũ khí + cái tui bên hông đi

Àh mà này-bạn down file về chưa mà toàn nói map ko vậy
http://www.mediafire.com/?vly3uym0iyz
link mình đưa ở trên là mdx của con priest đã edit nhưng ko xài đc

 

pác nào bít về jass chỉ mình học với:(

 

[Tutorial] GUI to JASS
[Tutorial] Basics of Structs
Sử dụng Handle Vars của KaTTana (kô sử dụng đc ở 1.24>)

Tất cả ở trong topic Tổng hợp các bài hướng dẫn và một số link hữu dụng.

EDIT: Post chậm tay quá...

 

Cho mình hỏi cái Blend Time trong Magos Model Editor có tác dụng gì, như kiểu là khoảng thời gian xuất hiện rùi biến mất nhất định

 

khi save bat ki jass nào trong maps = newgen bị lỗi

 

nếu muốn làm spell dựa trên upgrade hoặc damage của caster thì làm thế nào???