Looks dude it's a lot of extra work just to put the variable not spaced out like that... Completely pointless but ... yeah.
prontera,155,150,0 script Test 123,{
end;
OnInit:
set .alphabets$,"VENDING";
set .i,callfunc("str_toarray", .alphabets$, "$@alphabets$[0]");
copyarray .alphabets$[0], $@alphabets$[0], .i;
deletearray $@alphabets$[0],128;
while( 1 ){
set .@title$,.@title$ + .alphabets$[.@i];
set .@i,.@i + 1;
delwaitingroom;
waitingroom ""+.@title$,0;
sleep 1000;
if( .@i % 8 == 0 ) {
set .@title$,"";
set .@i, 0;
}
}
}
///callfunc "str_toarray", "<string>", "<array output>";
function script str_toarray {
sleep2 1;
if ( getstrlen( getarg(0) ) > 128 ) return 0;
setarray .@char$[ 0 ],
" ", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9",
"E", "I", "A", "S", "R", "N", "T", "O", "U", "L", "C",
"P", "M", "D", "V", "H", "G", "F", "B", "Y", "Q", "K",
"Z", "X", "J", "W", "_", "-";
set .@charsize, getarraysize(.@char$);
set .@tmp$, "|~key~|";
set .@str$, .@tmp$ + getarg(0) ;
set .@len, getstrlen(getarg(0));
while( .@len>.@s ) {
set .@i,0;
while( .@i<.@charsize ) {
if ( ! ( set(.@l,.@l+1) % 650) )
sleep2 1;
if ( compare( .@str$ , .@tmp$ + .@char$[.@i] ) ) {
set .@tmp$, .@tmp$ + .@char$[.@i];
set .@arr$[.@s], .@char$[.@i];
break;
}
set .@i, .@i+1;
}
if ( .@i == .@charsize ) return 0;
else set .@s, .@s+1;
}
deletearray getd(getarg(1));
copyarray getd(getarg(1)), .@arr$, .@len;
return .@len;
}