T
The_ChRiS
Guest
I am pretty new to JASS and i have made a random color code maker.
It is very simple, it simply randomly generates a value for each spot in the color code. It even sets the code as a easily accessed variable! It may not be much but it's my first true JASS function. (I've checked and it can make over 4 BILLION different codes.)
Code:
function CreateRandomColorCode takes nothing returns nothing
local string array sPick
local string sstart = "|c"
local string scode = ""
local integer iPick = 0
local integer iNum = 0
local integer ispot = 0
set iPick = GetRandomInt( 1,16 )
loop
exitwhen ispot == 8
if (iPick == 1) then
set sPick[ispot] = "a"
set iPick = GetRandomInt( 1,16 )
set ispot = (ispot + 1)
endif
if (iPick == 2) then
set sPick[ispot] = "b"
set iPick = GetRandomInt( 1,16 )
set ispot = (ispot + 1)
endif
if (iPick == 3) then
set sPick[ispot] = "c"
set iPick = GetRandomInt( 1,16 )
set ispot = (ispot + 1)
endif
if (iPick == 4) then
set sPick[ispot] = "d"
set iPick = GetRandomInt( 1,16 )
set ispot = (ispot + 1)
endif
if (iPick == 5) then
set sPick[ispot] = "e"
set iPick = GetRandomInt( 1,16 )
set ispot = (ispot + 1)
endif
if (iPick == 6) then
set sPick[ispot] = "f"
set iPick = GetRandomInt( 1,16 )
set ispot = (ispot + 1)
endif
if (iPick == 7) then
set sPick[ispot] = "0"
set iPick = GetRandomInt( 1,16 )
set ispot = (ispot + 1)
endif
if (iPick == 8) then
set sPick[ispot] = "1"
set iPick = GetRandomInt( 1,16 )
set ispot = (ispot + 1)
endif
if (iPick == 9) then
set sPick[ispot] = "2"
set iPick = GetRandomInt( 1,16 )
set ispot = (ispot + 1)
endif
if (iPick == 10) then
set sPick[ispot] = "3"
set iPick = GetRandomInt( 1,16 )
set ispot = (ispot + 1)
endif
if (iPick == 11) then
set sPick[ispot] = "4"
set iPick = GetRandomInt( 1,16 )
set ispot = (ispot + 1)
endif
if (iPick == 12) then
set sPick[ispot] = "5"
set iPick = GetRandomInt( 1,16 )
set ispot = (ispot + 1)
endif
if (iPick == 13) then
set sPick[ispot] = "6"
set iPick = GetRandomInt( 1,16 )
set ispot = (ispot + 1)
endif
if (iPick == 14) then
set sPick[ispot] = "7"
set iPick = GetRandomInt( 1,16 )
set ispot = (ispot + 1)
endif
if (iPick == 15) then
set sPick[ispot] = "8"
set iPick = GetRandomInt( 1,16 )
set ispot = (ispot + 1)
endif
if (iPick == 16) then
set sPick[ispot] = "9"
set iPick = GetRandomInt( 1,16 )
set ispot = (ispot + 1)
endif
endloop
if (ispot == 8) then
set scode = (sstart+sPick[0]+sPick[1]+sPick[2]+sPick[3]+sPick[4]+sPick[5]+sPick[6]+sPick[7])
set udg_COLORCODE = scode
endif
endfunction
It is very simple, it simply randomly generates a value for each spot in the color code. It even sets the code as a easily accessed variable! It may not be much but it's my first true JASS function. (I've checked and it can make over 4 BILLION different codes.)