[ "autonomous agent", { "init": "{\r $nom_AA = 'Acces';\r $versio = '0.6';\r \r $args = trigger.data;\r $adr__ = trigger.initial_address;\r $_Portal = trigger.address;\r $ACC = $args.accio;\r \r $args._Getons = var[ $_Portal ][ '_Getons' ];\r \r $_Capacitacio = var[ $_Portal ][ '_Capacitacio' ];\r $_Transfer = var[ $_Portal ][ '_Transfer' ];\r $_Avis = var[ $_Portal ][ '_Avis' ];\r $cicle_actual = var[ $_Transfer ][ 'cicle_actual' ];\r \r $geto = var[ $args._Getons ][ $args.geto ];\r \r // Funcions\r $__bota = $txt => bounce ( $nom_AA || ' >>> ' || $txt );\r \r // Si no s'ha lliurat l'argument especificat bota l'accés\r $__arg = $arg =>\r var[ $args ][ $arg ] ?\r var[ $args ][ $arg ] :\r $__bota( 'Cal proporcionar el valor de: ' || $arg );\r \r // Si el getó no ha especificat el valor del param \r // es pren el valor per defecte de _Portal\r $__param = $ref_param =>\r $geto[ $ref_param ] ?\r $geto[ $ref_param ] : \r var[ $_Portal ][ $ref_param ];\r \r // Consulta si acció restringida\r $__accRestringida = $acc =>\r var[ $_Capacitacio ][ $acc || '_' || $args.geto ] == 'restringida';\r \r // Comprova si adreça capacitada per a determinada acció amb getó especificat\r $__capacitada = ( $acc, $capacitacio ) =>\r !! $capacitacio AND $capacitacio.estat == 'operativa' ? 'operativa'\r : $__bota( ': Adreça no capacitada per a ' || $acc );\r \r // Comprova si adreça activada per operar amb getó especificat\r $__activada = ( $adr, $id_geto ) => \r var[ $_Transfer ][ 'activacio_' || $adr || '_en_' || $id_geto ] ?\r $__bota( ': Adreça no activada per a ' || $id_geto ) : '';\r \r // Comprova si qt proporcionada cobreix import especificat\r $__qtSuficient = ( $ref ) => \r $__param( $ref ) > $args.qt ? \r $__bota( ": L'import de " || $ACC || " és de " || $__param( $ref ) ) : '';\r \r // Comprova si adreça ha estat subscrita\r $__subscrita = ( $adr ) => (\r !! var[ $_Transfer ][ 'subscripcio_' || $adr || '_en_' || $args.geto ] ?\r var[ $_Transfer ][ 'subscripcio_' || $adr || '_en_' || $args.geto ]\r : $__bota( ": Adreça no subscrita per a " || $args.geto ) );\r \r // Comprova si la subscripció ha estat renovada per al cicle actual\r $__renovada = ( $adr ) => (\r ! var[ $_Transfer ][ 'renovacio_' || $adr || '_' || $args.geto ]\r OR $cicle_actual > var[ $_Transfer ][ 'renovacio_' || $adr || '_' || $args.geto ] ?\r $__bota( ": Subscripció de l'adreça no renovada per a " || $args.geto )\r : $args.subscripcio );\r \r \r // Consulta si hi ha cap avís per a adr__\r $avis = var[ $_Avis ][ 'Avis_' || $adr__ || '_' || $args.geto ];\r if ( !! $avis AND $avis.operatiu == 'SI' ) {\r if ( $avis.rebot == 'SI' )\r { bounce ( $avis.text ); }\r }\r \r // Comprovacions i Arguments\r $_d = $__arg( 'accio' );\r \r // Si no es tracta d'una Activacio, comprova q adr__ activada i capacitada\r if ( $ACC != "Activacio" ) {\r // Comprova q adr__ activada per operar amb Estels\r $_x = $__activada( $adr__, $args._Estels );\r \r // Si no es tracta d'estels, comprova q adr__ activada per operar amb getó\r if ( $args.geto != $args._Estels ) {\r $_y = $__activada( $adr__, $args.geto );\r }\r \r // Si l'acció és restringida per a aquest getó s'hi cmprova la capacitació de adr__ \r if ( !! $__accRestringida( $ACC ) )\r {\r $capacitacio = var[ $_Capacitacio ][ $ACC || '_' || $adr__ || '_' || $args.geto ];\r $_z = $__capacitada( $ACC, $capacitacio );\r }\r }\r \r if ( $ACC == 'Avis' ) {\r $_a = $__arg( 'adr' );\r $_e = $__arg( 'operatiu' );\r if ( $args.operatiu != 'NO' ) {\r $_i = $__arg( 'text' );\r $_o = $__arg( 'rebot' );\r }\r $adr_AA = $_Avis;\r }\r \r if ( $ACC == 'Activacio' ) {\r $_a = $__activada( $adr__, $args._Estels ? $__bota( ': Adreça ja activada' ) : '' );\r $_e = $__qtSuficient( 'Import_Activacio' );\r $_i = $__arg( 'nom' );\r $args.receptora = $args._FOP;\r }\r \r if ( $ACC == 'Capacitacio' ) {\r $_a = $__arg( 'adr' );\r $_e = $__arg( 'tipus' );\r $_i = $__arg( 'estat' );\r $_o = $__activada( $args.adr, $args._Estels );\r $_u = $__activada( $args.adr, $args.geto );\r $adr_AA = $capacitacio;\r }\r \r if ( $ACC == 'Transfer' )\r {\r $_a = $__arg( 'receptora' );\r if ( $args.receptora != $args._FOP )\r { $e = $__activada( $args.receptora, $args.geto ); }\r \r $args.subscripcio = $__subscrita( $args.receptora );\r if ( !! $args.subscripcio )\r {\r $_i = $__renovada( $args.receptora );\r $ref = 'Recepcio_' || $ACC || '_' || $args.receptora || '_' || $args.geto;\r $_o = $__capacitada( $ACC, var[ $_Capacitacio ][ $ref ] );\r }\r }\r \r if ( $ACC == 'Generacio' )\r { $__arg( 'ref' ); }\r \r if ( $ACC == 'Gratificacio' )\r { $_a = $__arg( 'ordinal' ); }\r \r if ( $ACC == 'Renovacio' )\r {\r $a = $__subscrita( $adr__ );\r $_e = $__qtSuficient( 'Import_Renovacio' );\r $args.receptora = $args._FOP;\r $cicle_renovat = var[ $_Transfer ][ 'renovacio_' || $adr__ || '_' || $args.geto ];\r if ( $cicle_actual > 1 AND $cicle_renovat AND $cicle_actual == $cicle_renovat )\r { $__bota( ': Cicle ja renovat' ); }\r }\r \r if ( $ACC == 'Subscripcio' )\r {\r $_a = $__subscrita( $adr__ ) ? $__bota( ': Adreça ja subscrita' ) : '' ;\r $_e = $__qtSuficient( 'Import_Subscripcio' );\r $_i = $__arg( 'nom' );\r $_o = $__arg( 'aFOP' );\r $args.receptora = $args._FOP;\r }\r \r if ( $ACC == 'Diposit' )\r {\r $a = $__subscrita( $adr__ );\r $e = $__renovada( $adr__ );\r $taxa_conversio = $__param( 'Taxa_Conversio' );\r $cicles_latencia = $__param( 'Cicles_Latencia' );\r $args.cicle_conversio = $cicle_actual + $cicles_latencia;\r $args.taxa = round( $args.qt * $taxa_conversio / 100, 0 );\r $args.qt_conversio = $args.qt - $args.taxa;\r $args.receptora = var[ $_Portal ][ '_FDIP' ];\r }\r \r if ( $ACC == 'Conversio' )\r {\r $_a = $__arg( 'ordinal' );\r $args.ref_diposit = 'ordinal_Diposit_' || $__arg( 'ordinal' ) || '_' || $args.geto;\r $args.diposit = var[ $_Transfer ][ $args.ref_diposit ];\r if ( ! $args.diposit ) { $__bota( ': Dipòsit inexistent' ); }\r $ref_conversio = 'conversio_' || $args.ref_diposit;\r $conversio = var[ $_Transfer ][ $args.ref_conversio ];\r if ( ! $conversio ) { $__bota( ': aquest dipòsit ja ha estat convertit' ); }\r if ( $args.diposit.cicle_conversio > $cicle_actual )\r { $__bota( ": Encara no és l'hora" ); }\r if ( $args.qt != $args.diposit.qt_conversio )\r { $__bota( 'Quantitat requerida:' || $args.diposit.qt_conversio ); }\r $geto_conversio = $args.diposit.geto_diposit == $args._Estels ? "base" : $args._Estels;\r if ( $args.geto != $args.geto.conversio )\r { $__bota( 'La conversió és a :' || $geto_conversio ); }\r }\r \r if ( ! $adr_AA ) { $adr_AA = $_Transfer; }\r }", "messages": [ { "app": "data", "payload": "{ $args }" }, { "app": "payment", "payload": { "asset": "{ $args.geto }", "outputs": [ { "address": "{ $adr_AA }", "amount": "{ $args.qt }" } ] } }, { "app": "state", "state": "{\r response[ 'accio' ] = $ACC;\r if ( !! $avis.text AND $avis.estat == 1 )\r { response[ 'AVÍS: ' ] = $avis.text; }\r }" } ] } ]