23 lines
534 B
Plaintext
23 lines
534 B
Plaintext
///generate_gm6(name)
|
|
var name;
|
|
var new_name;
|
|
var start;
|
|
var encname;
|
|
var gm6key;
|
|
|
|
name = argument0;
|
|
|
|
// Pad name out with "X" (if its < 5 chars long)
|
|
new_name = string_upper(pad(name, 5, "X"));
|
|
|
|
// Start 5 characters from the end
|
|
start = (string_length(new_name) - 5)+1;
|
|
|
|
// Extract last 5 characters, into a 5 char string
|
|
encname = string_copy(new_name, start, 5);
|
|
|
|
// Call from UGP.dll, for implementation see gm6.c inside UGP.dll code.
|
|
gm6key = external_call(global.generateGM6Key, encname);
|
|
|
|
return gm6key;
|