[JASS] free gold every 8 seconds trigger

[chickie]

hi,

i'm new here, how do i make trigger for every 8 seconds the bots will have 1200 gold. below is a script but tried it and wont workd. any help would be much appreciated.


thanks,
chickie



//===========================================================================
// Trigger: -free gold
//===========================================================================
function Trig_Free_Gold_FuncA takes nothing returns boolean
return ( InsaneMode_On == true )
endfunction


function Trig_Free_Gold_FuncB takes nothing returns nothing
call AdjustPlayerStateBJ( udg_TempInteger, GetEnumPlayer(), PLAYER_STATE_RESOURCE_GOLD )
endfunction

function Trig_Free_Gold_Actions takes nothing returns nothing
set udg_TempInteger = 8
if ( Trig_Free_Gold_FuncA() ) then
set udg_TempInteger = 1200
else
call DoNothing( )
endif
call ForForce( bj_FORCE_ALL_PLAYERS, function Trig_Free_Gold_FuncB)
endfunction

//===========================================================================
function InitTrig_Free_Gold_mtf takes nothing returns nothing
set gg_trg_Free_Gold_mtf = CreateTrigger( )
call DisableTrigger( gg_trg_Free_Gold_mtf)
call TriggerRegisterTimerEventPeriodic( gg_trg_Free_Gold_mtf, 8.00 )
call TriggerAddAction( gg_trg_Free_Gold_mtf, function Trig_Free_Gold_Actions )
endfunction

 

[PurplePoot]

why did you post converted GUI?

anyways, first, a tip - put JASS in JASS tags.

also, assuming InsaneMode_On is a global, you have to add a udg_ to the beggining.

//=========================================================================== 
// Trigger: -free gold 
//=========================================================================== 
function Trig_Free_Gold_FuncB takes nothing returns nothing
call SetPlayerState( GetEnumPlayer(), PLAYER_STATE_RESOURCE_GOLD, GetPlayerState( GetEnumPlayer(), PLAYER_STATE_RESOURCE_GOLD ) + udg_TempInteger )
endfunction

function Trig_Free_Gold_Actions takes nothing returns nothing
set udg_TempInteger = 8
if udg_InsaneMode_On then
set udg_TempInteger = 1200
endif
call ForForce( bj_FORCE_ALL_PLAYERS, function
Trig_Free_Gold_FuncB)
endfunction

//===========================================================================
function InitTrig_Free_Gold_mtf takes nothing returns nothing
set gg_trg_Free_Gold_mtf = CreateTrigger( )
call DisableTrigger( gg_trg_Free_Gold_mtf)
call TriggerRegisterTimerEvent( gg_trg_Free_Gold_mtf, 8.00, true )
call TriggerAddAction( gg_trg_Free_Gold_mtf, function Trig_Free_Gold_Actions )
endfunction

 

[chickie]

Hi Purplepoot,

thanks for your reply. I tried to put your corrections, but it seems not working.

Below is the trigger for insane mode. am i missing something?

[code=jass]
//===========================================================================
// Trigger: -Insane mode
//===========================================================================
function Trig_Command_Insane_Mode takes nothing returns boolean
    if ( not ( udg_InsaneMode_On == true ) ) then
        return false
    endif
    return true
endfunction

function Trig_Insane_Actions_mtf takes nothing returns nothing
	if ( Trig_Command_Insane_Mode() ) then
		call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,20,"Insane mode On false.\n\n")   
    else
		call DisplayTimedTextToForce(bj_FORCE_ALL_PLAYERS,20,"Insane bot activated.\n\n")   
 		set udg_InsaneMode_On=true
	call DestroyTrigger(gg_trg_Insane_mtf)
    endif
endfunction

//===========================================================================
function InitTrig_Insane_mtf takes nothing returns nothing
    set gg_trg_Insane_mtf = CreateTrigger(  )
	call TriggerRegisterPlayerChatEvent(gg_trg_Insane_mtf,Player(1),"-mtf",true)
    call TriggerAddAction( gg_trg_Insane_mtf, function Trig_Insane_Actions_mtf )
endfunction


//=========================================================================== 
// Trigger: -free gold 
//=========================================================================== 
function Trig_Free_Gold_FuncB takes nothing returns nothing  
	call SetPlayerState( GetEnumPlayer(), PLAYER_STATE_RESOURCE_GOLD, GetPlayerState( GetEnumPlayer(), PLAYER_STATE_RESOURCE_GOLD ) + udg_TempInteger ) 
endfunction   

function Trig_Free_Gold_Actions takes nothing returns nothing  
	set udg_TempInteger = 8 
	if udg_InsaneMode_On then  
		set udg_TempInteger = 1200 
	endif  
	call ForForce( bj_FORCE_ALL_PLAYERS, function  Trig_Free_Gold_FuncB) 
endfunction   

//=========================================================================== 
function InitTrig_Free_Gold_mtf takes nothing returns nothing  
	set gg_trg_Free_Gold_mtf = CreateTrigger( )  
	call DisableTrigger( gg_trg_Free_Gold_mtf)  
	call TriggerRegisterTimerEvent( gg_trg_Free_Gold_mtf, 8.00, true )  
	call TriggerAddAction( gg_trg_Free_Gold_mtf, function Trig_Free_Gold_Actions ) 
endfunction

[/code][/code]

 

[UnMi]

call DisableTrigger( gg_trg_Free_Gold_mtf)

 

[PurplePoot]

lol...

aka, ur turning ur trigger off at the start of the game..

 

[LordZsar1]

Of course.
The trigger has to be turned off on game start, as the effect shall not take place until "insane mode" is activated.
Once this occurs, the trigger has to be activated, but not a piece of a second before. ^^

 

[chickie]

guys you are correct. thank you very much. i didn't see that. it is working now.

my question is how do I set it to only bots, the human players should not get the free gold?



best regards,
chickie

 

[LordZsar1]

function Trig_Free_Gold_FuncB takes nothing returns nothing
  if GetPlayerController(GetEnumPlayer()) == MAP_CONTROL_COMPUTER then
    call SetPlayerState(GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD,GetPlayerState(GetEnumPlayer(),PLAYER_STATE_RESOURCE_GOLD) + udg_TempInteger)
endfunction

OR

function Trig_Free_Gold_Actions takes nothing returns nothing
  if udg_InsaneMode_On then
    set udg_TempInteger = 1200
  else
    set udg_TempInteger = 8
  endif
  call ForForce(GetPlayersByMapControl(MAP_CONTROL_COMPUTER),function Trig_Free_Gold_FuncB)
endfunction

OR (better)

globals
  force udg_ComputerPlayers = null
  [...]
endglobals

function Trig_Free_Gold_Actions takes nothing returns nothing
  if udg_InsaneMode_On then
    set udg_TempInteger = 1200
  else
    set udg_TempInteger = 8
  endif
  call ForForce(udg_ComputerPlayers,function 
Trig_Free_Gold_FuncB)
endfunction

function InitTrig_Free_Gold_mtf takes nothing returns nothing
  set udg_ComputerPlayers = GetPlayersByMapControl(MAP_CONTROL_COMPUTER)
  [...]
endfunction

 

[PurplePoot]

set udg_ComputerPlayers = GetPlayersByMapControl(MAP_CONTROL_COMPUTER)

Wow... never heard of that before

is that basically an enum for player slot states?

 

[LordZsar1]

Look into blizzard.j . (seek for "GetPlayersByMapControl")
They wrote not only dumb stuff into. ^^

It returns a force, which collects all players for (PlayerController(Player(x)) == MAP_CONTROL_COMPUTER) with x being 0 - 15.

 

[PurplePoot]

ah, w/e, i was close enuff ^^

if its a BJ, why not write your own script for it?

aka

loop
    set p = ForcePickRandomPlayer(f)
    exitwhen p == null
    [...]
    call ForceRemovePlayer(f,p)
endloop

 

[chickie]

Guys,

This is so sweet. It works now like a charm. Now I have to concentrate on other AI.

Thank you very much gurus.
chickie