| 1 | [ |
| 2 | "autonomous agent", |
| 3 | { |
| 4 | "init": "{ |
| 5 | $_Registre = 'CYA5APZ75G2K7VERMOGG4INAP5YVJV62'; |
| 6 | |
| 7 | |
| 8 | $args = trigger.data; |
| 9 | $adr__ = trigger.initial_address; |
| 10 | $unitat = trigger.output[[ asset != base ]].asset; |
| 11 | $provisio = $unitat == 'none'; |
| 12 | $proces = $args.proces; |
| 13 | $idprop = $args.idprop; |
| 14 | $dades = $args.dades otherwise {}; |
| 15 | |
| 16 | |
| 17 | |
| 18 | $__dada = $refdada => |
| 19 | data_feed [[ |
| 20 | oracles = $_Registre, |
| 21 | feed_name = $refdada, |
| 22 | ifnone = 0 |
| 23 | ]]; |
| 24 | |
| 25 | |
| 26 | $__arg = $arg => |
| 27 | $args[ $arg ] otherwise |
| 28 | bounce( "Cal proporcionar el valor de: " || $arg ); |
| 29 | |
| 30 | |
| 31 | if ( $__dada( '_Portal' ) != trigger.address ) |
| 32 | bounce( 'Portal no reconegut' ); |
| 33 | |
| 34 | |
| 35 | if ( ! $provisio ) { |
| 36 | $convocs = $__dada( 'Estels' ); |
| 37 | $qt = 1; |
| 38 | |
| 39 | |
| 40 | if ( ! $__dada( $idprop ) ) |
| 41 | bounce( 'No hi ha cap proposta amb aquesta id' ); |
| 42 | |
| 43 | |
| 44 | if ( !! $__dada( 'validacio_' || $idprop ) OR !! $__dada( 'refus_' || $idprop ) ) |
| 45 | bounce( 'La decisió sobre aquesta proposta ja ha estat presa' ); |
| 46 | |
| 47 | |
| 48 | if ( !! $__dada( 'convocatoria_' || $idprop ) ) |
| 49 | bounce( "La convocatoria d'aquesta proposta ja ha estat efectuada" ); |
| 50 | |
| 51 | |
| 52 | |
| 53 | |
| 54 | $__ord_aleatori = ( $ord, $nombre, $seed ) => { |
| 55 | $num_aleatori = number_from_seed( ( $seed || $ord || $idprop ), 1000 ); |
| 56 | ceil( $num_aleatori / 1000 * $nombre ) |
| 57 | }; |
| 58 | |
| 59 | |
| 60 | $convocatories_i = [ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 ]; |
| 61 | $nombre_isox = $__dada( 'ordinal_isox' ); |
| 62 | $selec_isox = []; |
| 63 | $llista_isox = []; |
| 64 | |
| 65 | $__isox_aleatori = $x => { |
| 66 | $seed_isox = $llista_isox[0] otherwise $adr__ ; |
| 67 | $ordinal_aleatori = $__ord_aleatori( $x, $nombre_isox, $seed_isox ); |
| 68 | |
| 69 | $_isox = $__dada( 'isox_' || $ordinal_aleatori ); |
| 70 | $estat_isox = $__dada( 'isox_' || $_isox || '_estat' ) otherwise ''; |
| 71 | if( $estat_isox == 'habilitat' AND ! contains( $llista_isox[0], $_isox ) ) { |
| 72 | $selec_isox[] = $_isox; |
| 73 | $llista_isox_actual = $llista_isox[0] otherwise ''; |
| 74 | $llista_isox[0] = $_isox || ':' || $llista_isox_actual; |
| 75 | $dades[ 'convocatoria_' || $idprop || '_isox_' || $x ] = $_isox; |
| 76 | } |
| 77 | }; |
| 78 | |
| 79 | foreach( $convocatories_i, 12, $__isox_aleatori ); |
| 80 | |
| 81 | |
| 82 | $convocatories_d = [ 1, 2, 3, 4, 5, 6 ]; |
| 83 | $nombre_entitats = $__dada( 'ordinal_entitat' ); |
| 84 | $selec_delegades = []; |
| 85 | $llista_entitats = []; |
| 86 | $llista_delegades = []; |
| 87 | |
| 88 | $__entitat_aleatoria = $x => { |
| 89 | $seed_entitats = $llista_entitats[0] otherwise $llista_isox[0] ; |
| 90 | $ord_entitat_aleatori = $__ord_aleatori( $x, $nombre_entitats, $seed_entitats ); |
| 91 | $ref_entitat = $__dada( 'entitat_' || $ord_entitat_aleatori ); |
| 92 | $estat_entitat = $__dada( $ref_entitat || '_estat' ) otherwise ''; |
| 93 | if( $estat_entitat == 'operatiu' AND ! contains( $llista_entitats[0], $ref_entitat ) ) { |
| 94 | $seed_delegades = $llista_delegades[0] otherwise $llista_entitats[0] ; |
| 95 | $ord_delegada_aleatori = $__ord_aleatori( $x, 3, $seed_delegades ); |
| 96 | $ref_delegada = $ref_entitat || '_delegada_' || $ord_delegada_aleatori; |
| 97 | $_delegada = $__dada( $ref_delegada ) otherwise ''; |
| 98 | $llista_entitats_actual = $llista_entitats[0] otherwise ''; |
| 99 | $llista_entitats[0] = $ref_entitat || ':' || $llista_entitats_actual; |
| 100 | if( $_delegada != '' AND ! contains( $llista_delegades[0], $_delegada ) ) { |
| 101 | $selec_delegades[] = $_delegada; |
| 102 | $llista_delegades_actual = $llista_delegades[0] otherwise ''; |
| 103 | $llista_delegades[0] = $_delegada || ':' || $llista_delegades_actual; |
| 104 | $dades[ 'convocatoria_' || $idprop || '_delegada_' || $x ] = $_delegada; |
| 105 | } |
| 106 | } |
| 107 | }; |
| 108 | |
| 109 | foreach( $convocatories_d, 6, $__entitat_aleatoria ); |
| 110 | |
| 111 | $selec_valoradores = $selec_isox || $selec_delegades; |
| 112 | |
| 113 | $convocacions = []; |
| 114 | $__convocacions_seleccionades = $adr_valoradora => { |
| 115 | if( !! $adr_valoradora ) { |
| 116 | $convocacio = { |
| 117 | address : $adr_valoradora, |
| 118 | amount : $qt |
| 119 | }; |
| 120 | $convocacions[] = $convocacio; |
| 121 | } |
| 122 | }; |
| 123 | |
| 124 | foreach( $selec_valoradores, 18, $__convocacions_seleccionades ); |
| 125 | |
| 126 | $dades[ 'convocatoria_' || $idprop ] = timestamp; |
| 127 | |
| 128 | $registre = {}; |
| 129 | $registre.dades = $dades; |
| 130 | } |
| 131 | }", |
| 132 | "messages": [ |
| 133 | { |
| 134 | "if": "{ ! $provisio }", |
| 135 | "init": "{ |
| 136 | $payload = |
| 137 | { |
| 138 | asset : $convocs, |
| 139 | outputs : $convocacions |
| 140 | }; |
| 141 | }", |
| 142 | "app": "payment", |
| 143 | "payload": "{ $payload }" |
| 144 | }, |
| 145 | { |
| 146 | "if": "{ ! $provisio }", |
| 147 | "app": "data", |
| 148 | "payload": "{ $registre }" |
| 149 | }, |
| 150 | { |
| 151 | "if": "{ ! $provisio }", |
| 152 | "app": "payment", |
| 153 | "payload": { |
| 154 | "asset": "base", |
| 155 | "outputs": [ |
| 156 | { |
| 157 | "address": "{ $args._Registre }", |
| 158 | "amount": "{ $__dada( 'Provisio' ) }" |
| 159 | } |
| 160 | ] |
| 161 | } |
| 162 | }, |
| 163 | { |
| 164 | "app": "state", |
| 165 | "state": "{ |
| 166 | if ( ! $provisio ) { |
| 167 | response[ 'Procés' ] = $proces; |
| 168 | response[ 'Proposta' ] = $idprop; |
| 169 | response[ 'Nombre Isox' ] = $nombre_isox; |
| 170 | response[ 'Nombre Entitats' ] = $nombre_entitats; |
| 171 | response[ 'Isox Convocades' ] = $llista_isox[0]; |
| 172 | response[ 'Entitats Convocades' ] = $llista_entitats[0]; |
| 173 | response[ 'Delegades Convocades' ] = $llista_delegades[0]; |
| 174 | } |
| 175 | }" |
| 176 | } |
| 177 | ] |
| 178 | } |
| 179 | ] |