The good example would be the Color Game map, where you can type in your name for the high score.
But, is it possible to use this as a password to unlock a door?
An example would be:
$borf=inputwin "yes";
script=start
on:keyhit06 {
$s2_cmd=inputwin ("Write command below:",2,"Back","Okay/Next");
$raw_cmd=replace ("$s2_cmd"," ","_");
$1_cmd=split ($raw_cmd,"_",0);
$2_cmd=split ($raw_cmd,"_",1);
$3_cmd=split ($raw_cmd,"_",2);
$4_cmd=split ($raw_cmd,"_",3);
if($s2_cmd==kill) {
kill 1;
}elseif($1_cmd==tp) {
setpos "unit",1,$2_cmd,$3_cmd,$4_cmd;
msg "Teleported Player to |$2_cmd|$3_cmd|$4_cmd|",4;
}elseif($s2_cmd==respawn) {
revive 1;
}elseif($s2_cmd==update) {
def_free "unit",1;
downloadfile "www.stranded.c0.pl","blocky_stranded/updater.s2s","update/updater.s2s";
def_extend "unit",1,"update\version.s2s";
def_extend "unit",1,"update\updater.s2s";
event "update","unit",1;
}elseif($1_cmd==give) {
if ( (($2_cmd=>1)&&($2_cmd=<88))or(($2_cmd=>201)&&($2_cmd=<222)) ) {
if($3_cmd=>0) {
find $2_cmd,$3_cmd;
msg "Gived $3_cmd of $2_cmd",4;
}
}else{
msg "Item ID $2_cmd doesn't exist!",3;
}
}
}
script=end
//In the definitions of the unlocked building...door is open:
var=$pw1,set the password,0,0
var=$pw2,use the password,0,0
var=$setpassword,a switch,0,0
on:use {
if ($setpassword==0){
clear;
$pw1=inputwin("Set Password",0);
$setpassword=1;
skipevent;
}else{
clear;
$pw2=inputwin("Enter Password",0);
if($pw1==$pw2){
$setpassword=0;
$id=create "object", [hut], x,z; //create the locked building with an closed door
setpos //set position
setrot //set rotation
free "self"; //delete the unlocked building with a open door, the current building
}else{
msg "Password Incorrect!",
}
skipevent;
}
}