Singleplayer

General talk about editing, cheating, and deprotecting maps.

Moderator: Cheaters

Bushido

Singleplayer

Post by Bushido »

Hello , I wanna ask u guys how to enable singleplayer in maps? (rpges etc)
i know there are alrdy 2-3 topics but i understand nothing <.<
explain it here again pls :D
i tryed to search after : Singleplayer but in some maps it isn't there
if u know which triggers i need to change or whatever post it here :)
Thanks !!


-Bushido
User avatar
Shamanno1
Forum Staff
Posts: 912
Joined: October 21st, 2007, 6:17 am
Title: 11
Location: WorLd Of WaRcrAfT

Re: Singleplayer

Post by Shamanno1 »

Hmm well if u saw the other posts u should know that every map has an different anti single player .So disabling its different from map to map..but maybe somebody will explain it better this time :]
~Everything changes~
I have met people who have no dreams, who have simply accepted their fate to work, exist, and die. They are the most miserable people I have ever known.
Bushido

Re: Singleplayer

Post by Bushido »

Shamanno wrote:Hmm well if u saw the other posts u should know that every map has an different anti single player .So disabling its different from map to map..but maybe somebody will explain it better this time :]
I readed the 2 topics but its complicated for me to understand ...
On impossible bosses to enable singleplayer is easy that's no problem
But example Forlorn Rpg or Tbr is hard <.<
I want to learn it so i can enable it too!


-Bushido
GhettoChild
Old Wrinkly Member
Posts: 272
Joined: January 27th, 2007, 4:46 pm
Title: OxyContin
Location: Denver, Colorado

Re: Singleplayer

Post by GhettoChild »

Feel free to AIM me or something. I could help you out with it, so just hit me up.
You know why the Yankees always win, Frank?
'Cause they have Mickey Mantle?
No, it's 'cause the other teams can't stop staring at those damn pinstripes.
Penguin
Member
Posts: 55
Joined: May 22nd, 2007, 1:12 am

Re: Singleplayer

Post by Penguin »

JJ2197 wrote:They may all be "differnt" but when it comes down to it they just use PLAYER_SLOT_STATE_PLAYING to see how many players are in the game.
And they always just do X = X + 1 or players = players + 1 etc...
So I'm guessin' that here:

Code: Select all

function YT takes nothing returns boolean
return(GetPlayerController(Player(-1+(bj_forLoopAIndex)))==MAP_CONTROL_USER)and(GetPlayerSlotState(Player(-1+(bj_forLoopAIndex)))==PLAYER_SLOT_STATE_PLAYING)
Is where you'd edit out that -1+.

Also here:

Code: Select all

function Oev takes nothing returns boolean
return(Ev[bj_forLoopAIndex]!=null)and(sv[bj_forLoopAIndex])and(GetPlayerSlotState(Player(-1+(bj_forLoopAIndex)))==PLAYER_SLOT_STATE_PLAYING)

function Nlv takes nothing returns boolean
return(GetPlayerController(Player(-1+(bj_forLoopAIndex)))==MAP_CONTROL_USER)and(GetPlayerSlotState(Player(-1+(bj_forLoopAIndex)))==PLAYER_SLOT_STATE_PLAYING)and(Ev[bj_forLoopAIndex]!=null)

function kcv takes nothing returns boolean
return(GetPlayerController(Player(-1+(bj_forLoopAIndex)))==MAP_CONTROL_USER)and(GetPlayerSlotState(Player(-1+(bj_forLoopAIndex)))==PLAYER_SLOT_STATE_PLAYING)and(Ev[bj_forLoopAIndex]!=null)

etc.
However, this is just a guess. I'm really new to JASS. I just searched PLAYER_SLOT_STATE_PLAYING in The Black Road's .j file.
User avatar
JJ2197
Legendary Genius
Posts: 1311
Joined: August 8th, 2007, 8:10 am
Title: Legendary Genius²
Location: St. George Utah

Re: Singleplayer

Post by JJ2197 »

Your pretty much way off... =/
Computer Specs:
Motherboard: GA-990FXA-UD3
CPU: FX-8350 @ 4.0GHz
PSU: Corsair CX500
RAM: G.Skill Ripjaws X 8GB @ 1866
GPU: Radeon HD 4870 1GB
HDD: OCZ Vertex series 30GB SSD
Case: Antec 900
Monitor: Toshiba 32"
OS: Windows 7 Ultimate
User avatar
Bartimaeus
Tyrannical Drama Queen
Posts: 4441
Joined: November 19th, 2007, 5:05 am
Been thanked: 2 times

Re: Singleplayer

Post by Bartimaeus »

There are plenty of ways to make single player work...I'll just look at TBR for example.

function tbx takes nothing returns nothing
if(tNx())then
call DisplayTextToForce(BT(GetTriggerPlayer()),"|cffff0000Saving and loading have been disabled for this game. If you wish to save or load a character then you must join a multiplayer game.|r")
else
if(tAx())then
call DisplayTextToForce(BT(GetTriggerPlayer()),"You do not currently have a hero.")
else
set be=""
set yn=""
set a=GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD)
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=4
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call TriggerExecute(Uq)
set bi[((bj_forLoopAIndex*6)-5)]=be
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set a=0
if(S3x())then
set bi[28]="Z"
set yn=(yn+"Z")
set c=GetUnitAbilityLevelSwapped('A03U',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00C',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0JM',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A005',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A004',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S4x())then
set bi[28]="Y"
set yn=(yn+"Y")
set c=GetUnitAbilityLevelSwapped('A0BH',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0JN',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0K4',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0C8',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0K7',Ev[( 1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S5x())then
set bi[28]="X"
set yn=(yn+"X")
set c=GetUnitAbilityLevelSwapped('A03J',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A03O',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A04G',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0I7',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A01M',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0FV',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1889568)
set a=(a+c)
endif
if(S6x())then
set bi[28]="W"
set yn=(yn+"W")
set c=GetUnitAbilityLevelSwapped('A047',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A03D',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A03E',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0I8',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0IO',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S7x())then
set bi[28]="V"
set yn=(yn+"V")
set c=GetUnitAbilityLevelSwapped('A02B',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00G',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A04L',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00J',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0KM',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S8x())then
set bi[28]="U"
set yn=(yn+"U")
set c=GetUnitAbilityLevelSwapped('A015',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0BR',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A014',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A017',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0K6',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S9x())then
set bi[28]="T"
set yn=(yn+"T")
set c=GetUnitAbilityLevelSwapped('A01T',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00B',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00A',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A009',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00D',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(tvx())then
set bi[28]="S"
set yn=(yn+"S")
set c=GetUnitAbilityLevelSwapped('A0K5',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A01Q',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A01J',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0JR',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A01B',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(tex())then
set bi[28]="R"
set yn=(yn+"R")
set c=GetUnitAbilityLevelSwapped('A05U',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A05X',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A065',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A05Y',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A05S',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A05Z',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1889568)
set a=(a+c)
endif
if(txx())then
set bi[28]="Q"
set yn=(yn+"Q")
set c=GetUnitAbilityLevelSwapped('A04K',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A03G',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0CF',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0CM',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0GQ',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(tox())then
set bi[28]="P"
set yn=(yn+"P")
set c=GetUnitAbilityLevelSwapped('A0IM',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0IL',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0KD',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('AOae',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0IC',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(trx())then
set bi[28]="N"
set yn=(yn+"N")
set c=GetUnitAbilityLevelSwapped('A0HG',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0II',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0JX',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0IJ',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0HQ',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=4
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call TriggerExecute(Uq)
set bi[((bj_forLoopAIndex*6)-2)]=be
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bi[21]=StringCase(SubStringBJ(GetPlayerName(GetTriggerPlayer()),1,1),true)
set yn=(yn+bi[21])
set bi[6]=StringCase(SubStringBJ(GetPlayerName(GetTriggerPlayer()),2,2),true)
set yn=(yn+bi[6])
set bi[29]=StringCase(SubStringBJ(GetPlayerName(GetTriggerPlayer()),3,3),true)
set yn=(yn+bi[29])
set a=StringLength(GetPlayerName(GetTriggerPlayer()))
call TriggerExecute(Uq)
set bi[30]=be
set a=GetHeroLevel(Ev[(1+GetPlayerId(GetTriggerPlayer()))])
call TriggerExecute(Uq)
set bi[36]=be
call TriggerExecute(Uq)
set bi[18]=be
set a=GetHeroStatBJ(0,Ev[(1+GetPlayerId(GetTriggerPlayer()))],false)
call TriggerExecute(Uq)
set bi[2]=be
call TriggerExecute(Uq)
set bi[31]=be
set a=GetHeroStatBJ(1,Ev[(1+GetPlayerId(GetTriggerPlayer()))],false)
call TriggerExecute(Uq)
set bi[3]=be
call TriggerExecute(Uq)
set bi[32]=be
set a=GetHeroStatBJ(2,Ev[(1+GetPlayerId(GetTriggerPlayer()))],false)
call TriggerExecute(Uq)
set bi[8]=be
call TriggerExecute(Uq)
set bi[24]=be
set a=GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)
call TriggerExecute(Uq)
set bi[40]=be
call TriggerExecute(Uq)
set bi[37]=be
call TriggerExecute(Uq)
set bi[11]=be
set a=0
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=3
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call TriggerExecute(wq)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call TriggerExecute(Uq)
set bi[5]=be
set De=""
set De=(De+be)
call TriggerExecute(Uq)
set bi[39]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[34]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[26]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[14]=be
set De=(De+be)
set a=Be[(1+GetPlayerId(GetTriggerPlayer()))]
set c=0
if(tix())then
set c=8
endif
if(tax())then
set c=16
endif
if(tnx())then
set c=24
endif
if(tVx())then
set c=32
endif
set a=(a+c)
call TriggerExecute(Uq)
set bi[25]=be
set a=0
set bj_forLoopAIndex=4
set bj_forLoopAIndexEnd=6
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call TriggerExecute(wq)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call TriggerExecute(Uq)
set bi[15]=be
set De=""
set De=(De+be)
call TriggerExecute(Uq)
set bi[33]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[20]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[38]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[12]=be
set De=(De+be)
set a=R2I(qr[(1+GetPlayerId(GetTriggerPlayer()))])
call TriggerExecute(Uq)
set bi[27]=be
call TriggerExecute(Uq)
set bi[35]=be
set NV=yn
if(tEx())then
call TriggerExecute(zq)
set bi[17]=LV[15]
set yn=NV
set yn=(yn+pV[(1+GetPlayerId(GetTriggerPlayer()))])
else
set bi[17]=pV[(1+GetPlayerId(GetTriggerPlayer()))]
set yn=NV
set yn=(yn+pV[(1+GetPlayerId(GetTriggerPlayer()))])
endif
set NV=yn
if(tXx())then
call TriggerExecute(Yq)
set bi[23]=XV[4]
set yn=NV
set yn=(yn+AV[(1+GetPlayerId(GetTriggerPlayer()))])
else
set bi[23]=RV[(1+GetPlayerId(GetTriggerPlayer()))]
set yn=NV
set yn=(yn+RV[(1+GetPlayerId(GetTriggerPlayer()))])
endif
set be=""
set ce=""
set Ce=""
set De=""
set ce=yn
call TriggerExecute(Tq)
set a=Wn[(1+GetPlayerId(GetTriggerPlayer()))]
call TriggerExecute(Uq)
set bi[9]=be
set be=""
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=40
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
set be=(be+bi[bj_forLoopAIndex])
set Xx=ModuloInteger(bj_forLoopAIndex,5)
if(tOx())then
set be=(be+"-")
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,"|cff32cd32Your Save Code:|r")
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,be)
if(tRx())then
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,"|cff32cd32Your Bear's Save Code:|r")
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,OV)
endif
if(tIx())then
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,"|cff32cd32Your Bank's Save Code:|r")
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,MV)
endif
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,"You may use this code to load this character in future games. Note that save codes are |cffff0000case sensitive|r, meaning that they distinguish between upper and lower case letters.")
endif
endif
endfunction

See at the beginning?
jass wrote:if(tNx())then
call DisplayTextToForce(BT(GetTriggerPlayer()),"|cffff0000Saving and loading have been disabled for this game. If you wish to save or load a character then you must join a multiplayer game.|r")
else
if(tAx())then
call DisplayTextToForce(BT(GetTriggerPlayer()),"You do not currently have a hero.")
else
...
It's checking to see if this trigger is disabled or not. Or something similar to that. Not too sure. :P
Anyways, the first is tNx, which, if it's true, it means that single player is disabled.
The second check, if the first is false, is tAx, which, if true, means you don't have a hero.
The third check, however, is if neither of these are true, then it will save your character. Or something along the lines of this. I don't really know JASS, so I can't be certain.

Now, what I would do with the
Spoiler:
set be=""
set yn=""
set a=GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD)
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=4
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call TriggerExecute(Uq)
set bi[((bj_forLoopAIndex*6)-5)]=be
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set a=0
if(S3x())then
set bi[28]="Z"
set yn=(yn+"Z")
set c=GetUnitAbilityLevelSwapped('A03U',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00C',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0JM',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A005',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A004',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S4x())then
set bi[28]="Y"
set yn=(yn+"Y")
set c=GetUnitAbilityLevelSwapped('A0BH',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0JN',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0K4',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0C8',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0K7',Ev[( 1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S5x())then
set bi[28]="X"
set yn=(yn+"X")
set c=GetUnitAbilityLevelSwapped('A03J',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A03O',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A04G',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0I7',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A01M',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0FV',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1889568)
set a=(a+c)
endif
if(S6x())then
set bi[28]="W"
set yn=(yn+"W")
set c=GetUnitAbilityLevelSwapped('A047',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A03D',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A03E',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0I8',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0IO',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S7x())then
set bi[28]="V"
set yn=(yn+"V")
set c=GetUnitAbilityLevelSwapped('A02B',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00G',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A04L',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00J',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0KM',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S8x())then
set bi[28]="U"
set yn=(yn+"U")
set c=GetUnitAbilityLevelSwapped('A015',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0BR',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A014',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A017',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0K6',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S9x())then
set bi[28]="T"
set yn=(yn+"T")
set c=GetUnitAbilityLevelSwapped('A01T',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00B',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00A',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A009',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00D',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(tvx())then
set bi[28]="S"
set yn=(yn+"S")
set c=GetUnitAbilityLevelSwapped('A0K5',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A01Q',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A01J',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0JR',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A01B',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(tex())then
set bi[28]="R"
set yn=(yn+"R")
set c=GetUnitAbilityLevelSwapped('A05U',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A05X',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A065',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A05Y',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A05S',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A05Z',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1889568)
set a=(a+c)
endif
if(txx())then
set bi[28]="Q"
set yn=(yn+"Q")
set c=GetUnitAbilityLevelSwapped('A04K',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A03G',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0CF',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0CM',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0GQ',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(tox())then
set bi[28]="P"
set yn=(yn+"P")
set c=GetUnitAbilityLevelSwapped('A0IM',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0IL',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0KD',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('AOae',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0IC',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(trx())then
set bi[28]="N"
set yn=(yn+"N")
set c=GetUnitAbilityLevelSwapped('A0HG',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0II',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0JX',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0IJ',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0HQ',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=4
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call TriggerExecute(Uq)
set bi[((bj_forLoopAIndex*6)-2)]=be
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bi[21]=StringCase(SubStringBJ(GetPlayerName(GetTriggerPlayer()),1,1),true)
set yn=(yn+bi[21])
set bi[6]=StringCase(SubStringBJ(GetPlayerName(GetTriggerPlayer()),2,2),true)
set yn=(yn+bi[6])
set bi[29]=StringCase(SubStringBJ(GetPlayerName(GetTriggerPlayer()),3,3),true)
set yn=(yn+bi[29])
set a=StringLength(GetPlayerName(GetTriggerPlayer()))
call TriggerExecute(Uq)
set bi[30]=be
set a=GetHeroLevel(Ev[(1+GetPlayerId(GetTriggerPlayer()))])
call TriggerExecute(Uq)
set bi[36]=be
call TriggerExecute(Uq)
set bi[18]=be
set a=GetHeroStatBJ(0,Ev[(1+GetPlayerId(GetTriggerPlayer()))],false)
call TriggerExecute(Uq)
set bi[2]=be
call TriggerExecute(Uq)
set bi[31]=be
set a=GetHeroStatBJ(1,Ev[(1+GetPlayerId(GetTriggerPlayer()))],false)
call TriggerExecute(Uq)
set bi[3]=be
call TriggerExecute(Uq)
set bi[32]=be
set a=GetHeroStatBJ(2,Ev[(1+GetPlayerId(GetTriggerPlayer()))],false)
call TriggerExecute(Uq)
set bi[8]=be
call TriggerExecute(Uq)
set bi[24]=be
set a=GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)
call TriggerExecute(Uq)
set bi[40]=be
call TriggerExecute(Uq)
set bi[37]=be
call TriggerExecute(Uq)
set bi[11]=be
set a=0
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=3
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call TriggerExecute(wq)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call TriggerExecute(Uq)
set bi[5]=be
set De=""
set De=(De+be)
call TriggerExecute(Uq)
set bi[39]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[34]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[26]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[14]=be
set De=(De+be)
set a=Be[(1+GetPlayerId(GetTriggerPlayer()))]
set c=0
if(tix())then
set c=8
endif
if(tax())then
set c=16
endif
if(tnx())then
set c=24
endif
if(tVx())then
set c=32
endif
set a=(a+c)
call TriggerExecute(Uq)
set bi[25]=be
set a=0
set bj_forLoopAIndex=4
set bj_forLoopAIndexEnd=6
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call TriggerExecute(wq)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call TriggerExecute(Uq)
set bi[15]=be
set De=""
set De=(De+be)
call TriggerExecute(Uq)
set bi[33]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[20]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[38]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[12]=be
set De=(De+be)
set a=R2I(qr[(1+GetPlayerId(GetTriggerPlayer()))])
call TriggerExecute(Uq)
set bi[27]=be
call TriggerExecute(Uq)
set bi[35]=be
set NV=yn
if(tEx())then
call TriggerExecute(zq)
set bi[17]=LV[15]
set yn=NV
set yn=(yn+pV[(1+GetPlayerId(GetTriggerPlayer()))])
else
set bi[17]=pV[(1+GetPlayerId(GetTriggerPlayer()))]
set yn=NV
set yn=(yn+pV[(1+GetPlayerId(GetTriggerPlayer()))])
endif
set NV=yn
if(tXx())then
call TriggerExecute(Yq)
set bi[23]=XV[4]
set yn=NV
set yn=(yn+AV[(1+GetPlayerId(GetTriggerPlayer()))])
else
set bi[23]=RV[(1+GetPlayerId(GetTriggerPlayer()))]
set yn=NV
set yn=(yn+RV[(1+GetPlayerId(GetTriggerPlayer()))])
endif
set be=""
set ce=""
set Ce=""
set De=""
set ce=yn
call TriggerExecute(Tq)
set a=Wn[(1+GetPlayerId(GetTriggerPlayer()))]
call TriggerExecute(Uq)
set bi[9]=be
set be=""
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=40
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
set be=(be+bi[bj_forLoopAIndex])
set Xx=ModuloInteger(bj_forLoopAIndex,5)
if(tOx())then
set be=(be+"-")
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,"|cff32cd32Your Save Code:|r")
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,be)
if(tRx())then
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,"|cff32cd32Your Bear's Save Code:|r")
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,OV)
endif
if(tIx())then
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,"|cff32cd32Your Bank's Save Code:|r")
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,MV)
endif
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,"You may use this code to load this character in future games. Note that save codes are |cffff0000case sensitive|r, meaning that they distinguish between upper and lower case letters.")
endif
endif
endfunction
is to cut/copy and paste it in the first check, so it will look like this
Spoiler:
if(tNx())then
set be=""
set yn=""
set a=GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD)
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=4
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call TriggerExecute(Uq)
set bi[((bj_forLoopAIndex*6)-5)]=be
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set a=0
if(S3x())then
set bi[28]="Z"
set yn=(yn+"Z")
set c=GetUnitAbilityLevelSwapped('A03U',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00C',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0JM',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A005',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A004',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S4x())then
set bi[28]="Y"
set yn=(yn+"Y")
set c=GetUnitAbilityLevelSwapped('A0BH',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0JN',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0K4',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0C8',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0K7',Ev[( 1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S5x())then
set bi[28]="X"
set yn=(yn+"X")
set c=GetUnitAbilityLevelSwapped('A03J',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A03O',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A04G',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0I7',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A01M',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0FV',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1889568)
set a=(a+c)
endif
if(S6x())then
set bi[28]="W"
set yn=(yn+"W")
set c=GetUnitAbilityLevelSwapped('A047',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A03D',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A03E',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0I8',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0IO',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S7x())then
set bi[28]="V"
set yn=(yn+"V")
set c=GetUnitAbilityLevelSwapped('A02B',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00G',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A04L',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00J',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0KM',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S8x())then
set bi[28]="U"
set yn=(yn+"U")
set c=GetUnitAbilityLevelSwapped('A015',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0BR',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A014',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A017',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0K6',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S9x())then
set bi[28]="T"
set yn=(yn+"T")
set c=GetUnitAbilityLevelSwapped('A01T',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00B',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00A',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A009',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00D',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(tvx())then
set bi[28]="S"
set yn=(yn+"S")
set c=GetUnitAbilityLevelSwapped('A0K5',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A01Q',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A01J',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0JR',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A01B',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(tex())then
set bi[28]="R"
set yn=(yn+"R")
set c=GetUnitAbilityLevelSwapped('A05U',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A05X',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A065',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A05Y',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A05S',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A05Z',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1889568)
set a=(a+c)
endif
if(txx())then
set bi[28]="Q"
set yn=(yn+"Q")
set c=GetUnitAbilityLevelSwapped('A04K',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A03G',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0CF',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0CM',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0GQ',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(tox())then
set bi[28]="P"
set yn=(yn+"P")
set c=GetUnitAbilityLevelSwapped('A0IM',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0IL',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0KD',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('AOae',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0IC',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(trx())then
set bi[28]="N"
set yn=(yn+"N")
set c=GetUnitAbilityLevelSwapped('A0HG',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0II',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0JX',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0IJ',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0HQ',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=4
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call TriggerExecute(Uq)
set bi[((bj_forLoopAIndex*6)-2)]=be
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bi[21]=StringCase(SubStringBJ(GetPlayerName(GetTriggerPlayer()),1,1),true)
set yn=(yn+bi[21])
set bi[6]=StringCase(SubStringBJ(GetPlayerName(GetTriggerPlayer()),2,2),true)
set yn=(yn+bi[6])
set bi[29]=StringCase(SubStringBJ(GetPlayerName(GetTriggerPlayer()),3,3),true)
set yn=(yn+bi[29])
set a=StringLength(GetPlayerName(GetTriggerPlayer()))
call TriggerExecute(Uq)
set bi[30]=be
set a=GetHeroLevel(Ev[(1+GetPlayerId(GetTriggerPlayer()))])
call TriggerExecute(Uq)
set bi[36]=be
call TriggerExecute(Uq)
set bi[18]=be
set a=GetHeroStatBJ(0,Ev[(1+GetPlayerId(GetTriggerPlayer()))],false)
call TriggerExecute(Uq)
set bi[2]=be
call TriggerExecute(Uq)
set bi[31]=be
set a=GetHeroStatBJ(1,Ev[(1+GetPlayerId(GetTriggerPlayer()))],false)
call TriggerExecute(Uq)
set bi[3]=be
call TriggerExecute(Uq)
set bi[32]=be
set a=GetHeroStatBJ(2,Ev[(1+GetPlayerId(GetTriggerPlayer()))],false)
call TriggerExecute(Uq)
set bi[8]=be
call TriggerExecute(Uq)
set bi[24]=be
set a=GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)
call TriggerExecute(Uq)
set bi[40]=be
call TriggerExecute(Uq)
set bi[37]=be
call TriggerExecute(Uq)
set bi[11]=be
set a=0
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=3
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call TriggerExecute(wq)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call TriggerExecute(Uq)
set bi[5]=be
set De=""
set De=(De+be)
call TriggerExecute(Uq)
set bi[39]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[34]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[26]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[14]=be
set De=(De+be)
set a=Be[(1+GetPlayerId(GetTriggerPlayer()))]
set c=0
if(tix())then
set c=8
endif
if(tax())then
set c=16
endif
if(tnx())then
set c=24
endif
if(tVx())then
set c=32
endif
set a=(a+c)
call TriggerExecute(Uq)
set bi[25]=be
set a=0
set bj_forLoopAIndex=4
set bj_forLoopAIndexEnd=6
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call TriggerExecute(wq)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call TriggerExecute(Uq)
set bi[15]=be
set De=""
set De=(De+be)
call TriggerExecute(Uq)
set bi[33]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[20]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[38]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[12]=be
set De=(De+be)
set a=R2I(qr[(1+GetPlayerId(GetTriggerPlayer()))])
call TriggerExecute(Uq)
set bi[27]=be
call TriggerExecute(Uq)
set bi[35]=be
set NV=yn
if(tEx())then
call TriggerExecute(zq)
set bi[17]=LV[15]
set yn=NV
set yn=(yn+pV[(1+GetPlayerId(GetTriggerPlayer()))])
else
set bi[17]=pV[(1+GetPlayerId(GetTriggerPlayer()))]
set yn=NV
set yn=(yn+pV[(1+GetPlayerId(GetTriggerPlayer()))])
endif
set NV=yn
if(tXx())then
call TriggerExecute(Yq)
set bi[23]=XV[4]
set yn=NV
set yn=(yn+AV[(1+GetPlayerId(GetTriggerPlayer()))])
else
set bi[23]=RV[(1+GetPlayerId(GetTriggerPlayer()))]
set yn=NV
set yn=(yn+RV[(1+GetPlayerId(GetTriggerPlayer()))])
endif
set be=""
set ce=""
set Ce=""
set De=""
set ce=yn
call TriggerExecute(Tq)
set a=Wn[(1+GetPlayerId(GetTriggerPlayer()))]
call TriggerExecute(Uq)
set bi[9]=be
set be=""
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=40
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
set be=(be+bi[bj_forLoopAIndex])
set Xx=ModuloInteger(bj_forLoopAIndex,5)
if(tOx())then
set be=(be+"-")
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,"|cff32cd32Your Save Code:|r")
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,be)
if(tRx())then
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,"|cff32cd32Your Bear's Save Code:|r")
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,OV)
endif
if(tIx())then
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,"|cff32cd32Your Bank's Save Code:|r")
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,MV)
endif
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,"You may use this code to load this character in future games. Note that save codes are |cffff0000case sensitive|r, meaning that they distinguish between upper and lower case letters.")
endif
endif
call DisplayTextToForce(BT(GetTriggerPlayer()),"|cffff0000Saving and loading have been disabled for this game. If you wish to save or load a character then you must join a multiplayer game.|r")
else
if(tAx())then
call DisplayTextToForce(BT(GetTriggerPlayer()),"You do not currently have a hero.")
else
set be=""
set yn=""
set a=GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_GOLD)
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=4
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call TriggerExecute(Uq)
set bi[((bj_forLoopAIndex*6)-5)]=be
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set a=0
if(S3x())then
set bi[28]="Z"
set yn=(yn+"Z")
set c=GetUnitAbilityLevelSwapped('A03U',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00C',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0JM',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A005',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A004',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S4x())then
set bi[28]="Y"
set yn=(yn+"Y")
set c=GetUnitAbilityLevelSwapped('A0BH',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0JN',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0K4',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0C8',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0K7',Ev[( 1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S5x())then
set bi[28]="X"
set yn=(yn+"X")
set c=GetUnitAbilityLevelSwapped('A03J',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A03O',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A04G',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0I7',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A01M',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0FV',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1889568)
set a=(a+c)
endif
if(S6x())then
set bi[28]="W"
set yn=(yn+"W")
set c=GetUnitAbilityLevelSwapped('A047',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A03D',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A03E',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0I8',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0IO',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S7x())then
set bi[28]="V"
set yn=(yn+"V")
set c=GetUnitAbilityLevelSwapped('A02B',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00G',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A04L',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00J',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0KM',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S8x())then
set bi[28]="U"
set yn=(yn+"U")
set c=GetUnitAbilityLevelSwapped('A015',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0BR',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A014',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A017',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0K6',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(S9x())then
set bi[28]="T"
set yn=(yn+"T")
set c=GetUnitAbilityLevelSwapped('A01T',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00B',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00A',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A009',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A00D',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(tvx())then
set bi[28]="S"
set yn=(yn+"S")
set c=GetUnitAbilityLevelSwapped('A0K5',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A01Q',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A01J',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0JR',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A01B',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(tex())then
set bi[28]="R"
set yn=(yn+"R")
set c=GetUnitAbilityLevelSwapped('A05U',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A05X',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A065',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A05Y',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A05S',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A05Z',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1889568)
set a=(a+c)
endif
if(txx())then
set bi[28]="Q"
set yn=(yn+"Q")
set c=GetUnitAbilityLevelSwapped('A04K',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A03G',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0CF',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0CM',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0GQ',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(tox())then
set bi[28]="P"
set yn=(yn+"P")
set c=GetUnitAbilityLevelSwapped('A0IM',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0IL',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0KD',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('AOae',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0IC',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
if(trx())then
set bi[28]="N"
set yn=(yn+"N")
set c=GetUnitAbilityLevelSwapped('A0HG',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*1)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0II',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*18)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0JX',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*324)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0IJ',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*5832)
set a=(a+c)
set c=GetUnitAbilityLevelSwapped('A0HQ',Ev[(1+GetPlayerId(GetTriggerPlayer()))])
set c=(c*104976)
set a=(a+c)
endif
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=4
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call TriggerExecute(Uq)
set bi[((bj_forLoopAIndex*6)-2)]=be
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
set bi[21]=StringCase(SubStringBJ(GetPlayerName(GetTriggerPlayer()),1,1),true)
set yn=(yn+bi[21])
set bi[6]=StringCase(SubStringBJ(GetPlayerName(GetTriggerPlayer()),2,2),true)
set yn=(yn+bi[6])
set bi[29]=StringCase(SubStringBJ(GetPlayerName(GetTriggerPlayer()),3,3),true)
set yn=(yn+bi[29])
set a=StringLength(GetPlayerName(GetTriggerPlayer()))
call TriggerExecute(Uq)
set bi[30]=be
set a=GetHeroLevel(Ev[(1+GetPlayerId(GetTriggerPlayer()))])
call TriggerExecute(Uq)
set bi[36]=be
call TriggerExecute(Uq)
set bi[18]=be
set a=GetHeroStatBJ(0,Ev[(1+GetPlayerId(GetTriggerPlayer()))],false)
call TriggerExecute(Uq)
set bi[2]=be
call TriggerExecute(Uq)
set bi[31]=be
set a=GetHeroStatBJ(1,Ev[(1+GetPlayerId(GetTriggerPlayer()))],false)
call TriggerExecute(Uq)
set bi[3]=be
call TriggerExecute(Uq)
set bi[32]=be
set a=GetHeroStatBJ(2,Ev[(1+GetPlayerId(GetTriggerPlayer()))],false)
call TriggerExecute(Uq)
set bi[8]=be
call TriggerExecute(Uq)
set bi[24]=be
set a=GetPlayerState(GetTriggerPlayer(),PLAYER_STATE_RESOURCE_LUMBER)
call TriggerExecute(Uq)
set bi[40]=be
call TriggerExecute(Uq)
set bi[37]=be
call TriggerExecute(Uq)
set bi[11]=be
set a=0
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=3
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call TriggerExecute(wq)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call TriggerExecute(Uq)
set bi[5]=be
set De=""
set De=(De+be)
call TriggerExecute(Uq)
set bi[39]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[34]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[26]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[14]=be
set De=(De+be)
set a=Be[(1+GetPlayerId(GetTriggerPlayer()))]
set c=0
if(tix())then
set c=8
endif
if(tax())then
set c=16
endif
if(tnx())then
set c=24
endif
if(tVx())then
set c=32
endif
set a=(a+c)
call TriggerExecute(Uq)
set bi[25]=be
set a=0
set bj_forLoopAIndex=4
set bj_forLoopAIndexEnd=6
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
call TriggerExecute(wq)
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call TriggerExecute(Uq)
set bi[15]=be
set De=""
set De=(De+be)
call TriggerExecute(Uq)
set bi[33]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[20]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[38]=be
set De=(De+be)
call TriggerExecute(Uq)
set bi[12]=be
set De=(De+be)
set a=R2I(qr[(1+GetPlayerId(GetTriggerPlayer()))])
call TriggerExecute(Uq)
set bi[27]=be
call TriggerExecute(Uq)
set bi[35]=be
set NV=yn
if(tEx())then
call TriggerExecute(zq)
set bi[17]=LV[15]
set yn=NV
set yn=(yn+pV[(1+GetPlayerId(GetTriggerPlayer()))])
else
set bi[17]=pV[(1+GetPlayerId(GetTriggerPlayer()))]
set yn=NV
set yn=(yn+pV[(1+GetPlayerId(GetTriggerPlayer()))])
endif
set NV=yn
if(tXx())then
call TriggerExecute(Yq)
set bi[23]=XV[4]
set yn=NV
set yn=(yn+AV[(1+GetPlayerId(GetTriggerPlayer()))])
else
set bi[23]=RV[(1+GetPlayerId(GetTriggerPlayer()))]
set yn=NV
set yn=(yn+RV[(1+GetPlayerId(GetTriggerPlayer()))])
endif
set be=""
set ce=""
set Ce=""
set De=""
set ce=yn
call TriggerExecute(Tq)
set a=Wn[(1+GetPlayerId(GetTriggerPlayer()))]
call TriggerExecute(Uq)
set bi[9]=be
set be=""
set bj_forLoopAIndex=1
set bj_forLoopAIndexEnd=40
loop
exitwhen bj_forLoopAIndex>bj_forLoopAIndexEnd
set be=(be+bi[bj_forLoopAIndex])
set Xx=ModuloInteger(bj_forLoopAIndex,5)
if(tOx())then
set be=(be+"-")
endif
set bj_forLoopAIndex=bj_forLoopAIndex+1
endloop
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,"|cff32cd32Your Save Code:|r")
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,be)
if(tRx())then
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,"|cff32cd32Your Bear's Save Code:|r")
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,OV)
endif
if(tIx())then
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,"|cff32cd32Your Bank's Save Code:|r")
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,MV)
endif
call DisplayTimedTextToForce(BT(GetTriggerPlayer()),180.,"You may use this code to load this character in future games. Note that save codes are |cffff0000case sensitive|r, meaning that they distinguish between upper and lower case letters.")
endif
endif
endfunction
Doing that will make it so either way, it will save. If you've got any questions, please ask.
Bushido

Re: Singleplayer

Post by Bushido »

thanks for the help but
i cant copy/paste ...
when i use ctrl+f i cant copy anything <,<
i know what u mean but it's in all maps different...
mhm whatever if it's to hard i'll stay on the cheat thing :D
User avatar
Bartimaeus
Tyrannical Drama Queen
Posts: 4441
Joined: November 19th, 2007, 5:05 am
Been thanked: 2 times

Re: Singleplayer

Post by Bartimaeus »

King-Bushido wrote:thanks for the help but
i cant copy/paste ...
when i use ctrl+f i cant copy anything <,<
i know what u mean but it's in all maps different...
mhm whatever if it's to hard i'll stay on the cheat thing :D
copy is ctrl+c, and paste is ctrl+v...lol?
Bushido

Re: Singleplayer

Post by Bushido »

ctrl+f = search
when i open the search = no copy/paste ;)