Definition: [
"autonomous agent",
{
"init": "{
$_Registre = 'MGIC6DY2L6I4F5MEB3LSBGUCSTNLIJTV';
// Retorna el valor d'una entrada del _Registre
$__dada = $refdada =>
data_feed [[
oracles = $_Registre,
feed_name = $refdada,
ifnone = 0
]];
if ( $__dada( '_Portal' ) != trigger.address )
bounce( 'Portal no reconegut' );
// Principals
$args = trigger.data;
$adr__ = trigger.initial_address;
$idgeto = trigger.output[[ asset != base ]].asset;
$dades = $args.dades otherwise {};
// Abreviacions
$proces = $args.proces;
$operacio = $args.operacio;
$idprop = $args.idprop;
$nova_idprop = $args.nova_idprop;
$ref = $args.ref;
$val = $args.val;
$adr = $args.adr;
// Obté valor argument requesta especificat o rebota
$__arg = $arg =>
$args[ $arg ] otherwise
bounce( "Cal proporcionar el valor de: " || $arg );
// Admin ísox
if ( $proces == 'nova_isox' ) {
$ord_isox = $__dada( 'ordinal_isox' ) + 1;
$_actuant_es_isox_000 = $__dada( 'isox_000' ) == $adr__ ;
$_estat_isox_actuant = $__dada( 'isox_' || $adr__ || '_estat' ) otherwise '';
$autoritzacio = $_actuant_es_isox_000 OR $_estat_isox_actuant == 'habilitat';
if ( ! $autoritzacio ) bounce( $_estat_isox_actuant || ' No autoritzada per a no ísoxxxx ' || $adr__ );
$index_baules_isox_actuant =
$__dada( 'isox_' || $adr__ || '_index_baules' ) otherwise 1;
$mitjana_index_baules =
$__dada( 'mitjana_index_baules' ) otherwise 1;
$factor_topall_index_baules =
$__dada( 'Factor_Topall_Index_Baules' ) otherwise 1.5;
if ( $index_baules_isox_actuant >
( $mitjana_index_baules * $factor_topall_index_baules ) )
bounce( 'No autoritzada per massa baules' );
$estat_isox = $__dada( 'isox_' || $adr || '_estat') otherwise '';
if ( $estat_isox == 'habilitat' )
bounce( 'Ja hi consta una ísox habilitada amb aquesta adreça' );
$_aspirant = $__dada( 'aspirant_' || $adr );
if ( $_actuant_es_isox_000 ) {
$index_baules_nova_isox =
$args.index_baules otherwise $mitjana_index_baules;
$dades_alta =
[ 'isox_000', 'isox_000', 1, $index_baules_nova_isox ];
} else {
$nombre_avals =
$__dada( 'isox_' || $adr__ || '_aval_2' ) ? 2 :
$__dada( 'isox_' || $adr__ || '_aval_1' ) ? 1 :
0;
if ( $nombre_avals == 2 ) bounce( "Ja n'has avalat 2" );
if ( !! $_aspirant ) {
$_proposant = $__dada( 'aspirant_' || $adr || '_proposant' );
if ( $_proposant == $adr__ )
bounce( "Els dos avals han de provenir d'adreces diferents" );
$index_baules_proposant =
$__dada( 'isox_' || $_proposant || '_index_baules' );
$index_baules_nova_isox =
1 + round( ( $index_baules_proposant + $index_baules_isox_actuant ) / 2 );
$index_absolut =
$index_baules_nova_isox + ( $mitjana_index_baules * ( $ord_isox - 1 ) );
$nova_mitjana_index_baules =
round( $index_absolut / $ord_isox );
$dades[ 'isox_' || $adr__ || '_aval_' || ( $nombre_avals + 1 ) ] = $adr;
$dades_alta =
[
$_proposant,
$adr__,
$index_baules_nova_isox,
$nova_mitjana_index_baules
];
} else {
$dades[ 'aspirant_' || $adr ] = timestamp;
$dades[ 'aspirant_' || $adr || '_proposant' ] = $adr__;
$dades[ 'isox_' || $adr__ || '_aval_' || ( $nombre_avals + 1 ) ] = $adr;
}
}
if ( !! $dades_alta[0] ) {
$dades[ 'ordinal_isox' ] = $ord_isox;
$dades[ 'isox_' || $ord_isox ] = $adr;
$dades[ 'isox_' || $adr || '_ordinal' ] = 'isox_' || $ord_isox;
$dades[ 'isox_' || $adr || '_proposant' ] = $dades_alta[0];
$dades[ 'isox_' || $adr || '_confirmant' ] = $dades_alta[1];
$dades[ 'isox_' || $adr || '_data' ] = timestamp;
$dades[ 'isox_' || $adr || '_estat' ] = 'habilitat';
$dades[ 'isox_' || $adr || '_index_baules' ] = $dades_alta[2];
$dades[ 'mitjana_index_baules' ] = $dades_alta[3];
}
}
if ( $proces == 'nou_estat_isox' ) {
$_isox = $__dada( $idprop || '_adr' ) otherwise $adr;
$nou_estat = $__dada( $idprop || '_estat' ) otherwise $args.estat;
$estat_actual = $__dada( 'isox_' || $_isox || '_estat' ) otherwise '';
if ( ! $estat_actual )
bounce( 'No hi consta cap ísox amb aquesta adreça' );
if ( $estat_actual == $nou_estat )
bounce( "L'estat actual és el mateix que el proposat" );
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_adr' ] = $adr;
$dades[ $nova_idprop || '_estat' ] = $args.estat;
}
if ( $operacio == 'confirmacio' OR $operacio == 'drecera' )
$dades[ 'isox_' || $adr || '_estat' ] = $nou_estat;
}
// Admin delegacions
if ( $proces == 'nova_delegacio' OR $proces == 'final_delegacio' ) {
$ref_entitat = 'entitat_' || $__arg( 'nom' );
$estat_entitat = $__dada( $ref_entitat || '_estat' ) otherwise '';
$adr_entitat = $__dada( $ref_entitat || '_adr' ) otherwise '';
if ( $estat_entitat != 'operatiu' )
bounce( 'Entitat inexistent o no operativa' );
if ( $adr_entitat != $adr__ )
bounce( "L'adreça de l'entitat no és l'actuant" );
// $ords = [ "1", "2", "3", "4", "5" ];
$ords = [ "1", "2", "3" ]; // per als TESTS
$ord_delegada_trobada = [];
$semiref_delegada = $ref_entitat || '_delegada_';
$__troba_delegada = $o => {
$adr_delegada = $__dada( $semiref_delegada || $o ) otherwise '';
if (
! $ord_delegada_trobada[0]
AND $adr_delegada == $adr
)
$ord_delegada_trobada[0] = $o;
};
//foreach( $ords, 5, $__troba_delegada );
foreach( $ords, 3, $__troba_delegada ); // per als TESTS
if ( $proces == 'nova_delegacio' ) {
if ( !! $ord_delegada_trobada[0] )
bounce( 'Ja hi consta una delegada amb aquesta adreça' );
$lloc_trobat = [];
$__troba_lloc_lliure = $o => {
if (
! $__dada( $semiref_delegada || $o ) AND
! $lloc_trobat[0]
) {
$dades[ $semiref_delegada || $o ] = $adr;
$lloc_trobat[0] = $o;
}
};
//$troba_lloc_lliure = map( $ords, 5, $__troba_lloc_lliure );
$troba_lloc_lliure = map( $ords, 3, $__troba_lloc_lliure ); // per als TESTS
if ( ! $lloc_trobat[0] )
bounce( 'Ja consten com a habilitades totes les delegacions possibles' );
}
if ( $proces == 'final_delegacio' ) {
if ( ! $ord_delegada_trobada[0] )
bounce( 'No hi consta cap delegada amb aquesta adreça' );
$dades[ $semiref_delegada || $ord_delegada_trobada[0] ] = '';
}
}
// Admin vincles
if ( $args.admin_vincles ) {
$tipus_vincle = $__dada( $idprop || '_tipus' ) otherwise $__arg( 'tipus' );
$nom_vincle = $__dada( $idprop || '_nom' ) otherwise $__arg( 'nom' );
$ref_vincle = $tipus_vincle || '_' || $nom_vincle;
$ord_vincle = $__dada( $ref_vincle ) otherwise '---';
$nou_ord_vincle = $__dada( 'ordinal_' || $tipus_vincle ) + 1;
if ( $proces == 'nou_vincle' ) {
$_vincle = $__dada( $idprop || '_adr' ) otherwise $__arg( 'adr' );
// No ha d'estar registrat
if ( $ord_vincle != '---' )
bounce( "Ja n'hi ha un amb aquest nom" );
// Adreça única
$adr_registrada = $__dada( $ref_vincle || '_adr' );
if ( !! $adr_registrada )
bounce( "Ja n'hi ha un amb aquesta adreça" );
//...
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_adr' ] = $adr;
$dades[ $nova_idprop || '_nom' ] = $args.nom;
}
if ( $operacio == 'confirmacio' OR $operacio == 'drecera' ) {
$dades[ $ref_vincle ] = $tipus_vincle || '_' || $nou_ord_vincle;
$dades[ $ref_vincle || '_adr' ] = $_vincle;
$dades[ $ref_vincle || '_estat' ] = 'operatiu';
$dades[ $tipus_vincle || '_' || $nou_ord_vincle ] = $ref_vincle;
$dades[ 'ordinal_' || $tipus_vincle ] = $nou_ord_vincle;
}
}
if ( $proces == 'nou_estat_vincle' ) {
// Ha d'estar registrat
$estat_actual = $__dada( $ref_vincle || '_estat' );
if ( ! $estat_actual )
bounce( "Vincle desconegut" );
//...
if ( $operacio == 'proposta' ) {
$dades[ $nova_idprop || '_adr' ] = $adr;
$dades[ $nova_idprop || '_estat' ] = $args.estat;
}
if ( $operacio == 'confirmacio' OR $operacio == 'drecera' ) {
$nou_estat = $__dada( $idprop || '_estat' ) otherwise $args.estat;
$dades[ $ref_vincle || '_estat' ] = $nou_estat;
if ( $nou_estat == 'operatiu' ) {
$dades[ $ref_vincle ] = $nou_ord_vincle;
$dades[ $tipus_vincle || '_' || $nou_ord_vincle ] = $ref_vincle;
} else {
$dades[ $ref_vincle ] = '---';
$dades[ $tipus_vincle || '_' || $ord_vincle ] = '---';
}
}
}
}
$registre = {};
$registre.dades = $dades;
}",
"messages": [
{
"app": "data",
"payload": "{ $registre }"
},
{
"app": "payment",
"payload": {
"asset": "base",
"outputs": [
{
"address": "{ $args._Registre }",
"amount": "{ $__dada( 'Provisio' ) }"
}
]
}
},
{
"app": "state",
"state": "{
if ( !! $nou_estat )
response[ 'Nou estat ' || $ref_vincle ] = $nou_estat;
if ( $args.admin_vincles ) {
response[ 'Proposta' ] = $nova_idprop otherwise $ref otherwise 'drecera';
response[ 'operacio' ] = $operacio;
}
response[ 'proces' ] = $proces;
}"
}
]
}
]