[JASS]everyone unally everyone script

[eddydu555]

who can give me the lines to add to make from player red to last computer player unally everyone including themself when i type a command and make it work only for specific usernames

thanks in advice

[haxorico]

Me.



Jk
Anyhow. Do you want flat out code to copy paste. Do you want help on where to start? A general direction?

[eddydu555]

lol a code to copy paste please

[dhanielst]

hey hax u r famillar in jass code? can u make single command for increase damge, decrease mana usage per cast and decrease damge taken like sabrac cp?

[eddydu555]

dont post this in my thread go create another one or pm thanks

[Apple]

hey hax u r famillar in jass code? can u make single command for increase damge, decrease mana usage per cast and decrease damge taken like sabrac cp?

hax can do everything.

[haxorico]

Sorry took so long. It is a rather simple code.
I borrowed the unally function from JJ's CP so it SHOULD work. Couldn't test it tough...

Under Globals

Code: Select all

trigger trgUnAlly=CreateTrigger()

Under endglobals

Code: Select all

function trgUnAllyAction takes nothing returns nothing
local integer i=0
if (StringCase(GetPlayerName(GetTriggerPlayer()),false)==StringCase("enter name here",false)) then
loop
exitwhen i>15
if GetPlayerId(GetTriggerPlayer())!=i then
call SetPlayerAllianceStateAllyBJ(GetTriggerPlayer(),Player(i),false)
call SetPlayerAllianceStateAllyBJ(Player(i),GetTriggerPlayer(),false)
call SetPlayerAllianceStateVisionBJ(GetTriggerPlayer(),Player(i),false)
endif
set i=i+1
endloop
endif
endfunction

function initUnAlly takes nothing returns nothing
local integer i=0
loop
exitwhen i>11
call TriggerRegisterPlayerChatEvent(trgUnAlly,Player(i),"-unally",true)
set i=i+1
endloop
call TriggerAddAction(trgUnAlly, function trgUnAllyAction)
endfunction

under the locals of function main.

Code: Select all

call initUnAlly()

It will only work if your name is "enter name here"
It will NOT be case sensitive so you got nothing to worry about capital and lower case letters.

[eddydu555]

np i tested that when i write -unally with the required name ofc i unally all players but other players doesnt unally other players it affect only the guy who wrote that i want to make the chaos i want everyone to be solo,no one with ally even the computers hostile and neutral

thanks

[haxorico]

Ooo... I didn't know WarCraft 3 works that way.

I thought if Player 1 unallys Player 2, it will be also the other way around... Ill Update the code soon.

Update:

I think it is fixed now. Use the same globals and function main, only fixed the part under endglobals

Code: Select all

function trgUnAllyAction takes nothing returns nothing
    local integer i=0
    local integer j=0
    if (StringCase(GetPlayerName(GetTriggerPlayer()),false)==StringCase("enter name here",false)) then
        loop
            exitwhen i>15
            loop
                exitwhen j>15
                if j!=i then
                    call SetPlayerAllianceStateAllyBJ(Player(j),Player(i),false)
                    call SetPlayerAllianceStateAllyBJ(Player(i),Player(j),false)
                    call SetPlayerAllianceStateVisionBJ(Player(j),Player(i),false)
                endif
                set j=j+1
            endloop
            set j=0
            set i=i+1
        endloop
    endif
endfunction

function initUnAlly takes nothing returns nothing
    local integer i=0
    loop
        exitwhen i>11
        call TriggerRegisterPlayerChatEvent(trgUnAlly,Player(i),"-unally",true)
        set i=i+1
    endloop
    call TriggerAddAction(trgUnAlly, function trgUnAllyAction)
endfunction

[eddydu555]

its working thanks alot