Guest User

Untitled

a guest
Jul 22nd, 2018
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.70 KB | None | 0 0
  1. globals
  2. private integer playerNumber=0
  3. endglobals
  4.  
  5. private function arC takes nothing returns boolean
  6. local real x
  7. local real y
  8. local unit hero
  9. local integer check=0
  10. local integer rnd
  11. local timer time
  12. if playerNumber==0 then
  13. set time=CreateTimer()
  14. call TimerStart(time,0.5,true,function arC)
  15. endif
  16. set playerNumber=playerNumber+1
  17. //if GetPlayerSlotState(Player(playerNumber))==PLAYER_SLOT_STATE_PLAYING and GetPlayerController(Player(playerNumber))==MAP_CONTROL_USER then
  18. loop
  19. exitwhen check!=0
  20. set rnd=GetRandomInt(0,heroesLib_HEROCOUNT)
  21. if heroesLib_HEROCHK[rnd]==false then
  22. set check=1
  23. endif
  24. endloop
  25. if IsPlayerAlly(Player(playerNumber),Player(0))==true then
  26. set x=savedConstants_T1SPAWNX
  27. set y=savedConstants_T1SPAWNY
  28. elseif IsPlayerAlly(Player(playerNumber),Player(5))==true then
  29. set x=savedConstants_T2SPAWNX
  30. set y=savedConstants_T2SPAWNY
  31. endif
  32. set hero=CreateUnit(Player(playerNumber),heroesLib_HEROID[rnd],x,y,270)
  33. if GetLocalPlayer()==Player(playerNumber) then
  34. call ClearSelection()
  35. call SelectUnit(hero,true)
  36. call PanCameraToTimed(x,y,0)
  37. endif
  38. set heroesLib_HEROCHK[rnd]=true
  39. //endif
  40. if playerNumber==9 then
  41. call PauseTimer(time)
  42. endif
  43. call DisableTrigger(GetTriggeringTrigger())
  44. return false
  45. endfunction
Add Comment
Please, Sign In to add comment