Untitled

AdeonWriter

May 18th, 2025

890

Never

Add comment

Not a member of Pastebin yet? Sign Up, it unlocks many cool features!

Linden Scripting 2.12 KB | None | 0 0

raw download clone embed print report

integer IsWholeNumber(float number){
return TRUE;
if(number == (float)((integer)number)){
return TRUE;
}
else return FALSE;
}
integer GetNumberFromLetter(string single_letter){
return SubStringIndex("ABCDEFGHIJKLMNOPQRSTUVWXYZ", single_letter)+1;
}
string GetLetterFromNumber(integer single_number){
single_number--;
return GetSubString("ABCDEFGHIJKLMNOPQRSTUVWXYZ", single_number, single_number);
}
integer Core4Alpha(string s){
return Core4(
(float)GetNumberFromLetter(GetSubString(s, 0, 0)),
(float)GetNumberFromLetter(GetSubString(s, 1, 1)),
(float)GetNumberFromLetter(GetSubString(s, 2, 2)),
(float)GetNumberFromLetter(GetSubString(s, 3, 3)) );
}
integer Core4(float a, float b, float c, float d)
{
integer winner = INT_MAX;
list potential_cores = [];
if(d!=0) {
if(IsWholeNumber(((a-b)*c)/d))
potential_cores += [ ((a-b)*c)/d ];
}if(c!=0){
if(IsWholeNumber(((a-b)/c)))
potential_cores += [ ((a-b)/c)*d ];
}if(d!=0) {
if(IsWholeNumber(((a*b)-c)/d))
potential_cores += [ ((a*b)-c)/d ];
}if(c!=0){
if(IsWholeNumber((a*b)/c))
potential_cores += [ ((a*b)/c)-d ];
}if(b!=0){
if(IsWholeNumber(a/b))
potential_cores += [ ((a/b)*c)-d ];
}if(b!=0){
if(IsWholeNumber(a/b))
potential_cores += [ ((a/b)-c)*d ];
}
integer i;
for(i=0; i<GetListLength(potential_cores); i++){
if(List2Float(potential_cores, i) == (float)((integer)List2Float(potential_cores, i))){
if(List2Float(potential_cores, i) < winner){
if(List2Float(potential_cores, i) > 0){
winner = (integer)List2Float(potential_cores, i);
}
}
}
}
return winner;
}
string TranslateMessage(list words){
string output;
integer length = GetListLength(words);
integer i;
for(i=0; i<length; i++){
string word = List2String(words, i);
output += GetLetterFromNumber(Core4Alpha(word));
}
return output;
}

Add Comment

Please, Sign In to add comment