Cast Text
As future traning in JASS i created simple "spell"
I know its usless for maps basicly but... but nothing, i like it, it was fun to make.
Descryption: Create Text from bunch of dummy units. Text can be modified by simply typing other thing.
It works as "system" so you should put it in map Custom script place, and then just call it with function like in example.
Currently only based on dummy unit, because i didnt want to play with MUI. (now it is MUI because unit lifetime)
To use in GUI:
Custom Script:call CreatePixelText(TEXT, LOCATION, LIFETIME, DENSITY, SCALE, UNIT (RAWCODE))
better example in map
CODE: (for your own risk)
JASS:
///////////////////////////////////////////////////////////
// Simple Cast text function
// Author: <a href="mailto:[email protected]">[email protected]</a>
//
// -Only CAPITAL letters at the moment
// -Also few symbols dont work. "\" """ "'" "$"
// -Each scale and density give basicly diffrent effect
// loc i location to start from. upper right corner of text box
// life is lifetime of text
// den is Density(spacing)
// scale is scale of used unit. (should go up with density)
// integer dummy should be in raw code like 'e000'
////////////////////////////////////////////////////////////
function CreatePixelText takes string text, location loc, real life, real den, real scale, integer dummy returns nothing
local location loc2 = loc
local integer loop1s = 1
local integer loop1e = 7
local integer loop2s
local integer loop2e
local location textloc
local integer x1 = 1
local integer x2 = StringLength(text)
local integer i
local unit array blank
local integer u1 = 1
local integer u2 = 49
loop
exitwhen x1 > x2
set loop1s = 1
set i = 1
loop
exitwhen loop1s > loop1e
set loop2s = 1
set loop2e = 7
loop
exitwhen loop2s > loop2e
set textloc = Location( GetLocationX(loc2) + loop1s * den, GetLocationY(loc2) - loop2s * den)
set blank<i> = CreateUnitAtLoc(Player(15), dummy, textloc, 270.00)
call UnitApplyTimedLife(blank<i>, 039;BTLF039;, life)
call SetUnitScale(blank<i>, scale,scale,scale)
set i = i + 1
call RemoveLocation(textloc)
set textloc = null
//call BJDebugMsg("loop1s:"+I2S(loop2s))
set loop2s = loop2s + 1
endloop
//call BJDebugMsg("loop1s:"+I2S(loop1s))
set loop1s = loop1s + 1
endloop
//Empty grid to create symbols
if SubString(text,x1-1,x1)=="A" then
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[18])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[38])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="B" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[18])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[34])
call RemoveUnit(blank[38])
call RemoveUnit(blank[40])
elseif SubString(text,x1-1,x1)=="C" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[34])
call RemoveUnit(blank[37])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="D" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[34])
call RemoveUnit(blank[38])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
elseif SubString(text,x1-1,x1)=="E" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[18])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[34])
call RemoveUnit(blank[37])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="F" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[18])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[37])
elseif SubString(text,x1-1,x1)=="G" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[34])
call RemoveUnit(blank[37])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="H" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[18])
call RemoveUnit(blank[25])
call RemoveUnit(blank[32])
call RemoveUnit(blank[37])
call RemoveUnit(blank[38])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="I" then
call RemoveUnit(blank[23])
call RemoveUnit(blank[24])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
elseif SubString(text,x1-1,x1)=="J" then
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[24])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
elseif SubString(text,x1-1,x1)=="K" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[18])
call RemoveUnit(blank[24])
call RemoveUnit(blank[26])
call RemoveUnit(blank[30])
call RemoveUnit(blank[34])
elseif SubString(text,x1-1,x1)=="L" then
// L looks dumb
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[20])
call RemoveUnit(blank[27])
call RemoveUnit(blank[34])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="M" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[17])
call RemoveUnit(blank[25])
call RemoveUnit(blank[31])
call RemoveUnit(blank[37])
call RemoveUnit(blank[38])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="N" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[17])
call RemoveUnit(blank[25])
call RemoveUnit(blank[33])
call RemoveUnit(blank[37])
call RemoveUnit(blank[38])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="O" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[34])
call RemoveUnit(blank[37])
call RemoveUnit(blank[38])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="P" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[18])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[37])
call RemoveUnit(blank[38])
call RemoveUnit(blank[39])
elseif SubString(text,x1-1,x1)=="Q" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[33])
call RemoveUnit(blank[34])
call RemoveUnit(blank[37])
call RemoveUnit(blank[38])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="R" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[18])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[33])
call RemoveUnit(blank[37])
call RemoveUnit(blank[38])
call RemoveUnit(blank[39])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="S" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[18])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[34])
call RemoveUnit(blank[37])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="T" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[16])
call RemoveUnit(blank[23])
call RemoveUnit(blank[24])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[37])
elseif SubString(text,x1-1,x1)=="U" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[20])
call RemoveUnit(blank[27])
call RemoveUnit(blank[34])
call RemoveUnit(blank[37])
call RemoveUnit(blank[38])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="W" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[19])
call RemoveUnit(blank[25])
call RemoveUnit(blank[33])
call RemoveUnit(blank[37])
call RemoveUnit(blank[38])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="X" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[13])
call RemoveUnit(blank[17])
call RemoveUnit(blank[19])
call RemoveUnit(blank[25])
call RemoveUnit(blank[31])
call RemoveUnit(blank[33])
call RemoveUnit(blank[37])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="Y" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[17])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
call RemoveUnit(blank[31])
call RemoveUnit(blank[37])
elseif SubString(text,x1-1,x1)=="Z" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[19])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[31])
call RemoveUnit(blank[34])
call RemoveUnit(blank[37])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="." then
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
call RemoveUnit(blank[33])
call RemoveUnit(blank[34])
elseif SubString(text,x1-1,x1)==":" then
call RemoveUnit(blank[23])
call RemoveUnit(blank[24])
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[31])
call RemoveUnit(blank[33])
call RemoveUnit(blank[34])
elseif SubString(text,x1-1,x1)=="039;" then
call RemoveUnit(blank[23])
call RemoveUnit(blank[24])
elseif SubString(text,x1-1,x1)==" " then
elseif SubString(text,x1-1,x1)=="/" then
call RemoveUnit(blank[13])
call RemoveUnit(blank[19])
call RemoveUnit(blank[25])
call RemoveUnit(blank[31])
call RemoveUnit(blank[37])
elseif SubString(text,x1-1,x1)=="!" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[13])
elseif SubString(text,x1-1,x1)=="?" then
//that sux too becaue its ugly
call RemoveUnit(blank[16])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[37])
call RemoveUnit(blank[38])
call RemoveUnit(blank[39])
elseif SubString(text,x1-1,x1)=="@" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[34])
call RemoveUnit(blank[37])
call RemoveUnit(blank[39])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="#" then
call RemoveUnit(blank[10])
call RemoveUnit(blank[12])
call RemoveUnit(blank[16])
call RemoveUnit(blank[17])
call RemoveUnit(blank[18])
call RemoveUnit(blank[19])
call RemoveUnit(blank[20])
call RemoveUnit(blank[24])
call RemoveUnit(blank[26])
call RemoveUnit(blank[30])
call RemoveUnit(blank[31])
call RemoveUnit(blank[32])
call RemoveUnit(blank[33])
call RemoveUnit(blank[34])
call RemoveUnit(blank[38])
call RemoveUnit(blank[40])
elseif SubString(text,x1-1,x1)=="$" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[18])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[24])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[34])
call RemoveUnit(blank[37])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="%" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[13])
call RemoveUnit(blank[19])
call RemoveUnit(blank[25])
call RemoveUnit(blank[31])
call RemoveUnit(blank[37])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="^" then
call RemoveUnit(blank[11])
call RemoveUnit(blank[17])
call RemoveUnit(blank[23])
call RemoveUnit(blank[31])
call RemoveUnit(blank[39])
elseif SubString(text,x1-1,x1)=="&" then
//Fuck thats hard...
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[17])
call RemoveUnit(blank[18])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[31])
call RemoveUnit(blank[32])
call RemoveUnit(blank[34])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="*" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[11])
call RemoveUnit(blank[13])
call RemoveUnit(blank[17])
call RemoveUnit(blank[18])
call RemoveUnit(blank[19])
call RemoveUnit(blank[23])
call RemoveUnit(blank[24])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
call RemoveUnit(blank[31])
call RemoveUnit(blank[32])
call RemoveUnit(blank[33])
call RemoveUnit(blank[37])
call RemoveUnit(blank[39])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="(" then
call RemoveUnit(blank[24])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[30])
call RemoveUnit(blank[34])
elseif SubString(text,x1-1,x1)==")" then
call RemoveUnit(blank[16])
call RemoveUnit(blank[20])
call RemoveUnit(blank[24])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
elseif SubString(text,x1-1,x1)=="-" then
call RemoveUnit(blank[18])
call RemoveUnit(blank[25])
call RemoveUnit(blank[32])
elseif SubString(text,x1-1,x1)=="_" then
call RemoveUnit(blank[13])
call RemoveUnit(blank[20])
call RemoveUnit(blank[27])
call RemoveUnit(blank[34])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="+" then
call RemoveUnit(blank[18])
call RemoveUnit(blank[24])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[32])
elseif SubString(text,x1-1,x1)=="=" then
call RemoveUnit(blank[17])
call RemoveUnit(blank[19])
call RemoveUnit(blank[24])
call RemoveUnit(blank[26])
call RemoveUnit(blank[31])
call RemoveUnit(blank[33])
elseif SubString(text,x1-1,x1)=="|" then
// same as "I"
call RemoveUnit(blank[23])
call RemoveUnit(blank[24])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
elseif SubString(text,x1-1,x1)=="[" then
call RemoveUnit(blank[23])
call RemoveUnit(blank[24])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[34])
elseif SubString(text,x1-1,x1)=="]" then
call RemoveUnit(blank[16])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[24])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
elseif SubString(text,x1-1,x1)=="}" then
call RemoveUnit(blank[16])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[24])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
call RemoveUnit(blank[32])
elseif SubString(text,x1-1,x1)=="{" then
call RemoveUnit(blank[18])
call RemoveUnit(blank[23])
call RemoveUnit(blank[24])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[34])
elseif SubString(text,x1-1,x1)=="1" then
call RemoveUnit(blank[11])
call RemoveUnit(blank[17])
call RemoveUnit(blank[23])
call RemoveUnit(blank[24])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
elseif SubString(text,x1-1,x1)=="2" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[18])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[34])
call RemoveUnit(blank[37])
call RemoveUnit(blank[38])
call RemoveUnit(blank[39])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="3" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[18])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[34])
call RemoveUnit(blank[37])
call RemoveUnit(blank[38])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="4" then
call RemoveUnit(blank[11])
call RemoveUnit(blank[17])
call RemoveUnit(blank[23])
call RemoveUnit(blank[24])
call RemoveUnit(blank[25])
call RemoveUnit(blank[26])
call RemoveUnit(blank[27])
call RemoveUnit(blank[32])
elseif SubString(text,x1-1,x1)=="5" then
//same as "S"
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[18])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[34])
call RemoveUnit(blank[37])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="6" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[18])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[34])
call RemoveUnit(blank[37])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="7" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[19])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[30])
call RemoveUnit(blank[31])
call RemoveUnit(blank[37])
elseif SubString(text,x1-1,x1)=="8" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[12])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[18])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[34])
call RemoveUnit(blank[37])
call RemoveUnit(blank[38])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="9" then
call RemoveUnit(blank[9])
call RemoveUnit(blank[10])
call RemoveUnit(blank[11])
call RemoveUnit(blank[13])
call RemoveUnit(blank[16])
call RemoveUnit(blank[18])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[25])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[32])
call RemoveUnit(blank[34])
call RemoveUnit(blank[37])
call RemoveUnit(blank[38])
call RemoveUnit(blank[39])
call RemoveUnit(blank[40])
call RemoveUnit(blank[41])
elseif SubString(text,x1-1,x1)=="0" then
call RemoveUnit(blank[16])
call RemoveUnit(blank[17])
call RemoveUnit(blank[18])
call RemoveUnit(blank[19])
call RemoveUnit(blank[20])
call RemoveUnit(blank[23])
call RemoveUnit(blank[27])
call RemoveUnit(blank[30])
call RemoveUnit(blank[31])
call RemoveUnit(blank[32])
call RemoveUnit(blank[33])
call RemoveUnit(blank[34])
elseif SubString(text,x1-1,x1)=="<" then
call RemoveUnit(blank[11])
call RemoveUnit(blank[17])
call RemoveUnit(blank[19])
call RemoveUnit(blank[23])
call RemoveUnit(blank[27])
elseif SubString(text,x1-1,x1)==">" then
call RemoveUnit(blank[23])
call RemoveUnit(blank[27])
call RemoveUnit(blank[31])
call RemoveUnit(blank[33])
call RemoveUnit(blank[39])
endif
// here it will remove last column if symbol is not last, so it give less space and dont put first column at last column
if x1 >= 1 then
if x1 != x2 then
call RemoveUnit(blank[43])
call RemoveUnit(blank[44])
call RemoveUnit(blank[45])
call RemoveUnit(blank[46])
call RemoveUnit(blank[47])
call RemoveUnit(blank[48])
call RemoveUnit(blank[49])
endif
endif
set u1 = 1
loop
exitwhen u1 > u2
set blank[u1] = null
set u1 = u1 + 1
endloop
set loc2 = Location(GetLocationX(loc2) + (den * 6), GetLocationY(loc2))
//call BJDebugMsg("loop1s:"+I2S(x1))
set x1 = x1 + 1
endloop
call RemoveLocation(loc2)
set loc2 = null
endfunction </i></i></i>
If you want edit symbols thats the grid: ( But you should write it on paper)
Code:
1 8 15 22 29 36 43
2 9 16 23 30 37 44
3 10 17 24 31 38 45
4 11 18 25 32 39 46
5 12 19 26 33 40 47
6 13 20 27 34 41 48
7 14 21 28 35 42 49