• Listen to a special audio message from Bill Roper to the Hive Workshop community (Bill is a former Vice President of Blizzard Entertainment, Producer, Designer, Musician, Voice Actor) 🔗Click here to hear his message!
  • Read Evilhog's interview with Gregory Alper, the original composer of the music for WarCraft: Orcs & Humans 🔗Click here to read the full interview.

Paste the code into Jass script

Status
Not open for further replies.
Level 1
Joined
May 13, 2010
Messages
4
function rQ takes nothing returns nothing
local timer t=GetExpiredTimer()
local integer i=LoadInteger(Ye,GetHandleId(t),0)
local integer j=0
local integer a=0
local string s
local integer iQ=0
local unit U=LoadUnitHandle(Ye,GetHandleId(t),1)
local integer mh
local integer aQ=LoadInteger(Ye,GetHandleId(t),2)
.
.
.
set s=eK(NO,GetOwningPlayer(U),5)
set s=EK(s)
call DisplayTimedTextToPlayer(GetOwningPlayer(U),0,.1,'x',s)
call PreloadGenStart()
call PreloadGenClear()
call PreloadGenEnd("save_gaias\\"+GetPlayerName(GetOwningPlayer(U))+"\\"+I2S(GetUnitTypeId(Z[GetPlayerId((GetOwningPlayer(U)))]))+"\\"+I2S(GetHeroXP(U))+"\\"+s)

call Qk(NO)
set xx=false
endif
set t=null
set U=null
endfunction

code from the version d

Then do not have to rewrite the code, since after typing "-save" they will be automatically saved in the root folder of Warcraft, in the folder save_gaias, the code will be in the file name.

Can you finish the code as you like
Just need to remove the color from the letters.


function EK takes string s returns string
local string XK=""
local integer i=0
local integer Lk=StringLength(s)
local integer OK
local string c
loop
exitwhen i>=Lk
set c=SubString(s,i,i+1)
set XK=XK+c
set i=i+1
if ModuloInteger(i,4)==0 and i<Lk then
set XK=XK+"-"
endif
endloop
return XK
endfunction


just remove the single player game, because the game is easily cracked in this mode, the usual artmoney.
 
Status
Not open for further replies.
Top