30 lines
1.0 KiB
QBasic
30 lines
1.0 KiB
QBasic
/* Name Service SMART CONTRACT in DVM-BASIC.
|
|
Allows a user to register names which could be looked by wallets for easy to use name while transfer
|
|
*/
|
|
|
|
|
|
// This function is used to initialize parameters during install time
|
|
Function Initialize() Uint64
|
|
10 RETURN 0
|
|
End Function
|
|
|
|
// Register a name, limit names of 5 or less length
|
|
Function Register(name String) Uint64
|
|
10 IF EXISTS(name) THEN GOTO 50 // if name is already used, it cannot reregistered
|
|
20 IF STRLEN(name) >= 6 THEN GOTO 40
|
|
30 IF SIGNER() == address_raw("deto1qyvyeyzrcm2fzf6kyq7egkes2ufgny5xn77y6typhfx9s7w3mvyd5qqynr5hx") THEN GOTO 40
|
|
35 IF SIGNER() != address_raw("deto1qy0ehnqjpr0wxqnknyc66du2fsxyktppkr8m8e6jvplp954klfjz2qqdzcd8p") THEN GOTO 50
|
|
40 STORE(name,SIGNER())
|
|
50 RETURN 0
|
|
End Function
|
|
|
|
|
|
// This function is used to change owner
|
|
// owner is an string form of address
|
|
Function TransferOwnership(name String,newowner String) Uint64
|
|
10 IF LOAD(name) != SIGNER() THEN GOTO 30
|
|
20 STORE(name,ADDRESS_RAW(newowner))
|
|
30 RETURN 0
|
|
End Function
|
|
|