SC CODE: Function InitializePrivate() Uint64
10 IF init() == 0 THEN GOTO 30
20 RETURN 1
30 STORE("var_header_name", "index.html.gz")
31 STORE("var_header_description", "a permissionless, verifiably fair dice table for the whole network")
32 STORE("var_header_icon", "")
33 STORE("dURL", "")
34 STORE("docType", "TELA-HTML-1")
35 STORE("subDir", "")
36 STORE("fileCheckC", "2395a4d09f686178ba950157897cab95add9b5d068249a96939d0f518253d5b8")
37 STORE("fileCheckS", "e439caa7a0b2e367f27e6e5847c3d222fbd66a1645ca875f2490dbe13e19a58")
100 RETURN 0
End Function
Function init() Uint64
10 IF EXISTS("owner") == 0 THEN GOTO 30
20 RETURN 1
30 STORE("owner", address())
50 STORE("docVersion", "1.0.0")
60 STORE("hash", HEX(TXID()))
70 STORE("likes", 0)
80 STORE("dislikes", 0)
100 RETURN 0
End Function
Function address() String
10 DIM s as String
20 LET s = SIGNER()
30 IF IS_ADDRESS_VALID(s) THEN GOTO 50
40 RETURN "anon"
50 RETURN ADDRESS_STRING(s)
End Function
Function Rate(r Uint64) Uint64
10 DIM addr as String
15 LET addr = address()
16 IF r < 100 && EXISTS(addr) == 0 && addr != "anon" THEN GOTO 30
20 RETURN 1
30 STORE(addr, ""+r+"_"+BLOCK_HEIGHT())
40 IF r < 50 THEN GOTO 70
50 STORE("likes", LOAD("likes")+1)
60 RETURN 0
70 STORE("dislikes", LOAD("dislikes")+1)
100 RETURN 0
End Function
/*
H4sIAAAAAAAC/8x82ZIbOZLgu77Ch1qNyBKDjOAlJpmZNlWluszqkEk1tr072zYGRoAMVIJADIBIJlvWv7C/sP+wX7afsOY44iCDmUp1T+9aWaVIHA7A4bc7eP1PmUzNsaCQmz2/fXGN/wAnYnfTo6KHDZRkty+u99QQSHOiNDU3vdJsoyX2GmY4vX333Yff4B1L6fXYNby45kzcgaL8psdSKXqQK7q96W3JPX4dsVT2AlBB9vSmd8/ooZDK9CCVwlBhbnoHlpn8JqP3LKWR/TIEJphhhEc6JZzeJAhEmyOuCAAw/sru4rUGeRDAMioMM8cVHIjaQ4ZgjCJHIPsNVeONkgcxhIxytqGKGMqPIKSxgGDD5e61hlRKDhte0min6BF+YObHchNlRN1BQTg1hkLfUE7GOH7MREYfRojB19qBWSkpDeicKKohija7cRQVRFA+jqKNVBlV4ygiaUqFAcL3Uhu4p2pDDNvDgZkcDjnxOzI501BqmoGRsKEDiCKg91Qd4Z7wksKGcnkApiFj2jCRGtgqufcHGcFX4xdhO58swFRyqSKd5nRPV4BHWtt23OXqZTKPtzFZ22/RTpFs9TJJk2mchkH2FKuXk1lCkmQdGqJc3lO1ejnJJkkyq5sVYZpmq5cTktBkWi1kMbB6OSPTxSReVy1RzlYvF9PZckLCUEMfzOrldkIX2RQHZmy/erlZkmQ581/3CGlJ3i4XcZjkELt6SWMyn7xdVy1hl9vJJp012xGq2m1IfzKZDZPFfDi9GsajZDYIEDMidjiTThbT2Ta0KpKxUq+SuHhYV18jvV8tiocwRuckk4cVxJAUDzApHsAuFA/tf6P5YAgxLLFrdto3nVfrIzMysYu2UpgV/ECl2jEyhN5P8kAE/MYz+Ijc0BtC7z3hxDAh4WcmJHI4Nv7rh/8K7wnnJGMSfu4NQVPF7Dn++gLgK/gEG/kQafYXJnYrfxkb+bC23RuZHT3x7InaMbGK146MVvdE9d0l+a1uSHq3U7IU2cqRLyBWCLe0xKgw/WQSx8UDLOxfYmAev4IoiV8N4fwG4reDIRhFhC6IQl5ZxK8GQw+YM0GJagBexhndDcHtyZPvoP4+gCmu6TeKmIy2ZM/4cRWRouA00kdt6H74DYqwX0j60X79Xgoz7H2kO0nhX3/qDT/IjTRy+CPl99SwlAy/VozwoSZCRxVSAaID3dwxYy8s0nspTY6oJQKlGCOaZgH5e8IEfII9eXCybvV2YekpoBpIaeQaCpIhBaxmiLYJ/rlCKoO/vngBgORBlb+jjOmCk+Nqy+nDGghnOxExQ/fatkTaEGXW8EepDdseIy91V7ogKY021BwoFWvYkWKFq3hk4cSDIsUK/1SbiTbSGLlfIemGDVdtS2yrSMm2IQdoyVkW7sT2DgIm/ClGntgRKUx4pEzsZprD8gQ+tW7RwWxyymDtBmj2F7qaLFpYjcF+t/0Hyna5Wb2N4zVY4a4iRAeiO4pHcUL3XfTe3sxqtaFbqSh8Cops1fsfyffTbya9CjXKLrOs1nX7mpwcrLAg6tUytm8dJJniBKT+KHcbT0bz+brBmzUtzQLaXgBomhomHa2d3xRuYOSHRJxsKPfk1Fg4OcXYIj6RBE4eD9aAKIos526l2q/KoqAqJZo6ejpBcjyKF4jjxuUknvbszl8aKfmGKPh0QtxIpQ6dJwTqKD1XTNwhQiyUTWkMHv9UTrmdW3016Lxnr64eoV4IhO41ghtQ6YNBzb4o6ZNZmwLchTbxOo+9LktLpaVaFZIJQ9XayUKGdxSktN0vjJK5Bko0HTZO1mytrgJGiWsLXOfQsrKq0eqBGuyqedAoZ4iLTrw5xepZwgMkqWH3yA41FdhPnBj63/oJCuLm8IxpsuE0g08gkSzMcRWPZvN1QEFGt6TkZt0AJ6SgTRijQrE9UUc8xek2naKvLrN1vqrPNTqDZ95B6edL1WjrXrBCzMVlO1A32uVoELaANpSgJ2cmitKgIuc0Nf8/UPXkIlV7Ac1EThUzDvSTlBzo055ztZVpqcNp3TeklNKgHPSU8NjVIqTxV/ArsUR57eDcQiGLstAgTU7VgWkKbCdQiJucot7NpXqtoWX2R5EzP1pmtB3R19SAFN7YJht5TwewZQ9UgzXw0e/QVOnXblUPJldyj1xbGiBFQYkiInUHgjdAICciizJFDgLSnN4rKWBP7qi2O0y51DQL+xFGSQ7MaMq3sC05P+KgPY18F7cuhByiswOcbg06FL99BM9ZwVdoEdTJltaVXXPaYUcHs8DpuekkmA81WUZsT3Z0VSref50RQ1b2+1jf79487Pm6NNvl8Frf7+Bhz4W+6eXGFKvx+HA4jA7TkVS78SSOYxzfA+cm9pK4B04P3vQWPUB/8hv5cNNzWgQWvdvrgpgcspveLwkkfAYzmEWzHmwZ5zc93H0PtFHyjt70Xk2mzrkITVFYZTSvmpDkUlLc9OyRWs1/SCZC+/j2Gjd6+/rMNI4ULSgxKyH9p6ZcjQrp+cKi0fIVIBVTFVjCX5EsvD5/DttXLPVv6BvcpDlN7zby4c/wySF01TY34zV4OXWBrRxffUtUBqh6C6qc25vB5uiIVFFiaGRQuoPVQERktsc3MW6o0hVj3TNdEiRePFGhoYeKROyQs+pJnGnTA6IB+aQUzAzb7m9wnd3IwBTeVTae0kcWTU+Jzifk5CMyctDiilWycBbxQ/AJ3Vj3ZVAZO+Ov4PeDBPpQcJYyAyg10OcXZE/f6HKzZwa9fTxb0HfEGXYFYWqIHe70O2JoBuGCcQ5BG1CKDOd44gkowRUUQTEIJicC8eqgtC0r3A3ILUwhY9stRXXEj1beZ6DZhjOx00M45CzNkS2IyIJ8sqQQ9rJnWcTJUaLQM4CmqPM7rBQjTFDliDHIpJeOiH7Hu/8eSejUELS7zJhy9usqlbzcey8mic+dk6SyuUdN8ozwdF02ZhJfHm+ZCV0RTh9Wybrhs3iL4WzzTev6srPmWd6ubynnUZ/AHsgtu2UmeHUNC9qu7lnts83oINCNLPwSntptwyWO+OvZgg2Bg2Loz53oShYVltuzPb7+zrjKmaHWA0EN5o7rUKVzefhFKvqhRQxO/Vm3xq5crekpy2JkVh2gCSQ4Hv5+kjh+VUvOD5JzcEFHeRCgKVFpjtyY0YylyMJOYRNQtNQUma+FHcddfc9yzCCyNcuoH/Wt0/36PUqzoTcLcpZlVCAKOLUKE+UrcZB0QVO2ZakTtIPAgGg//Cx35xTk8HLCXjUeTuYFZunCxEeypxCiOWMmNDVRznY5RzU4dmISDPLS3oZNNYwQOiiqS24gJSoL2LgjhkB6TDmFZWIjpih+rPI5yhI2JeMZYhSnMwE6lyXPQFGSIdhKgmrc0R0TGWJdbv5ApUu86YUKjxkolMzKlOpwSQUnCJAa1Fkapb2PK0uO0lgKZxjWSshiyMm0lkBweH1Mrk06gi6zc5NrdRYnW8wbcbJmnHbQahzAYv6q5Qj8PZTg8kQJ2nv20dHYhwDn82H4Px7Fs2pbLVXpUfeDsxKeoRCqcMf4K/iOpLnVaUyjkeBYcE84B12KOyrA5g36e6aUVBpGmcsyKJpSXZneDY/bqVMkEEtbSHEDyCW38SwCHJ2PjFE8SYH6myL3eaK11LyLfOPQcjzhuCZ1vJ+5+VEETfqeDKDgZYNqU1kKM0YZ4PkN+4hpeAjB/sEFI2tmdWqjWvN1ydqW7xd30F0rlp0snm1KLSuY59SCNvF5vLyijObJGrpHlPsNVbWpWyucNu69emoEkOqQxNWkNUPTJ8N1s86omYNB9/KeWhL+xqCGCEidFg9w1a3IPMejA+dt9Tba5k6mNiRL0AGPmDZdF3xqDHTDfAy9bTXQmqYLIj4rztk93bY4lJ3jIyiUd0Tn6IdY9AxhX6IEtpq1kflrZ81cYs2GA8AKQcdSOVUU+lYsIN16iqXZALREJ93pU6+IBAKxykSjtvB6VdEUJ6EKoJ7/0G+SnJNCO2/JO+LQv86oIYzrW5cLFBJ6sqCiB8QYxTalcVnAsLBfwCqzlpE/BJmmRDMp0KGKrAjZUmJKRa0T5vSeeG0gk3smiKG1re78LMsN+PVAjkAEEH4gRx3Rh8Ka9rDhMr2DjGVBm7kdoVHzMYSbO9RaQxBk7pJOwsefr09QEjil0qEKz8TRiWpJ5rUyOd+5LvcunHgaB7eE+XnW6LKL+TtDu1WCBxVhp+uOrmxks94rhTRmnt77arUn6s5GKDvD9N2z/w2p7c/1+U9Qu6j48tLMT6cZoqSaM3Jzog3JdvQctXGnsLyYTejIJMzpfl0nuluy5Xn6xxJQuBUks0VISXRiPBzMqh4hDX1KvE060jjtHMikA9FfaO+cGOhxB+S/t6q4APnzFMaFyc9TGzWQD1Y0r4Q0/RXdF+Y4qKm6dm6fdHdbwqrt756uBSMjDeHPy1Emy86c5IUFhDTERwCfRkhTTS4vYghGtjTnCYBJAyCips6kOunEDOEs9Yp45KLUjuGHMLJhqRb7B0pjwnKD1SnrZ+cdv8hTafE4znmLDShbWUq49/T3LMt4lY9oHyDkjBbbzfwqPclBWJWTJMkwWSbDZL7wNR0+kNRAyynCbbXJoAvaZLIYXl0N317VsPAeCyrwCB/of5RUG90m7jrBezYunwYCfXaGtyGoLPznyGib7b2wIcekW6a0idKc8eyUVWtV4ie7sN0zwmlOkF2K+P6NDm87M4ZL+YRvWwQva2XSOkcVLDrVFE37IKmz+uOv4KOLt1vb9WBNVZ1LZb7OMtUfgCxNUdqQsaLCWq02HlKF0YfWcnSGH5e7ISAC0YCVBz109q1RpbChKCBZpqjW3g70Ri5zkXlN9iFmzB5o5qJ69hjAhDaU2DAKjtzI7PhaQ6FkIZWx5imaxSFwbBNcPgLDMhptjpGNaKVyXxDFtBSwL9McKNGMKnSyYUM0nU4ipm3YmYldiByPcMeNcGNTGJcs2kshbQxw+PH7X6SQ0Qe6KzlRw1+o4HJYdXco7jOidmUiJ1bdhQyM3VaVPH4sY2nDxpHNYsiDwOMyyrMVOgUpZ+kdbGhO7plU0NeUujE//v7LzyFyN7ItUUDDf/LxD1Jl0UZRcreyfyPCeZcT6zRDI+j+D8zBwCS+ZBGd3t5jyRr4nGKM87KL7gKNShRUKHmsIKMuZuiuxvDRvHVX6cWf+pOq9KJxAfnkmZbKaTXV/KLl0ljls6yLSSXbXHzX0UadFaXcJvHX/49inNaCmnYOsiUyTxRONHWDLfucXEhPXQp9PSNQOsThqC8mSPaRJf529em8HTL7IqN10n31nQRrjQR/IOviIApa5TBBPlQ7umDlViCfNHRPC6uawB09XnAXT2nycX8h/sz02DPslGWjBm78FXyrmBlvyz1qbnd8l4s45JK7jITLQvxRamM7pLDRZkhzVtiAkU8McyJSCsTUgWqrX3waZEOBClnucjASdGHTGoKYUhEOk9iGpGTpi9NR9YgdDrTJExc+yxhtRZhTxUwtyPBiLkizv5nYYz/lvJJ4Mq+5YRpbbph1D1w2yS/y6L68+4at/nfefW3oTyaPbb4xbtYoyXjHUuqLKfTKkoLNXlg5XFDlyiugH7IevV+zP/V8qvWNzY0dQG7dLY8CEenB0D1FcE8sUlunsTm6RIUUUZoTJixFaZ/PgNGWpFQPHCAisipY6gZ1eKBuAtKrzb/tiborC3AZE8pMTpUDdiDHIUjhypxAy1KlNFiY9mmE9kUKlS1oIXc5/s/PHdW4/PQsp6MrUlLBCnW33Q5Xp5v2JbZcnXKfzhq5sI+NjFdIWVkBYfWmfUYTMqkkNSXhkNHC5C6vRLSBfh3qttkx0KVClEOJfgfSlIPkM6lVhHz6DrZEwd4V3hER5NSG7XaunChDYhRAYMuJceKMcCmq9LTF4MUc1mOlDXX66mL26UJGa9LN85PiAW2htp5Fdg8DostSYVJXAVmW6wyPXKay05L+umgMoHnfPtzovjxq9dQGTYcf81iKy1oAX0qgTyaw5+6hh38/1GnlwXz+agjumVI8eL4xlbSubHrpUi9kImeVWYV8xXguS/SXNJCiUPKB7YmhQEmaQ5EfNcpRVJqvdWAsyzU2jwv3zHNDylkR2UrGKIKiVDZ5RVOpXElrX0jgbKNs2kdTvo1CLVVmxb3JmfepCyWR/+wrN3GPclyKQahfSDlhe5SiOyr31CiWoqlRKpIeR/B7XhdoBE+f86rw1dKsr3tl2j5haxWrhv1bUa5DuYUHRFJqKtmgISUmzVEC2eqPVmmakwHW00pLI8uqchXXj7JFraw9K789KUy+ulSYHKQxjbIZSuGw41Uh+XEnRX8ev4L41RCSOH5l/wzBfxi0rcG35wJl0lAdNMqWTy8wx0/z5kpzu9CjcJP4acDT5ashLCcBcLJsLDFdPr3E5NElruJXMKnWWiAfLqoVppPGWrYvccOfWnTSfa7J3C36dn6KOGxxK03mz0KhK+HpJKJgW30NExuSyqx5zTQYmubC20MEUslEuwhpau2ZlKkUJR7aQY7s0f/gnKXQ30mejTXjNndsn8yBzikV1hgzOZpVLNvRDGi2o6CQNe4ZCaoykyWaqbWEG5zG3A5SZpFBMzBwcCvZnbFQ82TfrNrAH2voaAI7KkomXMrcl356bm14HWg3luFwDT/AXWEI85zXKzS4c36RO5sKZhnSqE31fPLSENHNrZ8znb2CKRLAy+2cXqXLIbxMr8jVjMLMqoklWWwnKSztkMVmPpvELb33ckomaZydBOT9tDPl4t8nPqlj5vMndcx0Xj13dP7B2QNS79g8qobCDThHrHkHjz2DQd0ZL56D5ckrmCwtlrfbaTobtjz7oJKXZDFJ5l+gkp/GlsdFCHp0+nfNkAfiJDh4l7BS+XcBKyTO4uUXYmVzRa4CVjxgj5W3ZLJM0i/AyvQziOgCVmrHcd4gFCSSKlnnsPO8bF3caQx+UQr/iYT82854z+PZu/p4dfIuPPh61OZsBhRbT7dOyDyED9qo63yB9fRyLylZkrfzE5oJXv6/3NHjVpG99XTpexnK+OJXrWd39jcT+kgHoKQhhvajCYIfNOra3KYBFp1zk1EyqSbP2lOTMNWq3o651cS4c2Ktd3H/QARax8y+CLRHGk2XGtJyw9JoQ//CqOqPprNhMpovhqPFbJgMYCNNvm7BWQmTu+RhfzJoAo0yirQ7imf64oxp94zl5RmzzhnJ5PIM8WbePWeh1w2BbZCG3FPoCzmUBgkoyfn7kmuktvjV0F9HE9vWmGy+r5zPsbUqsfvGCBu0cSvWN1FDHr11+YqIiUiWBpjYMsEMDXnoe0YPrsAivIcehmb/nNs7n6GqwfY8O/lwdSHZgBC53DXLiv7GZFfSUYS5r8K4zUcEhaKRCy00wkvT8zjx4jlx4j15qKqDXLUqipwtl4fo6Kodg9z+lz3NGIF+/fZ7PomLh0H1ww2sWV9qf2zC6oO3lfFb/4zApQiYG9V4jd0u42911nlsn3l1/V3vbR5f7XNrP+N1azsurHF1FYTM9dj/Xsz12P+yzUZmx9sX14iZ2xcA1+707gdlrjN2j76w1jc9T4a9W2+IXedJ84dv8qTqKG7RQzaq1IZTrX2S3cjCBc8KTgwKxtH1uPDLjDN231iRZTc9j8B6OY9J7FN0q6jOvzGiF3Zn3wr3bj+4nuuxG901GdXN+UywaLnpNQs0e7f/zIlSa/iac3cI/RhgW8li89SfC/5bnOEgtwFXCHG35K7jOvxygUXP2auWakUbAOqdoPPk8VWN1sYNn9JkNQjg2r1YQUiCHiyYX8me9sAWsPVQk/fwYlOaS55RddP7lR78xQuyp0Ogo90IvlcsI0f41QYz3hNljs01mrist9tEpn/p17v91vZ3oa5FTQDXNpb86EF+IIZm4SThbV7vFhT9j5Ip6oJV94SDkfCHZKJapgG6k4Ibz5NqfNfr2/6P9qHTI3h0Azz5/XNOOWfFugbn38DW8AwxpXarNnHr3znahMBNj3Deu21Steu+ON6WXd/+VlBhMw1Pjre1Yb1bi9nOGddj//S8fU2n2PmRZdQySdf95LYYxvZ23wUukoZVq2sJgvSUQ+pXNL3brus8FcCdkolkWXjGEHbsek8F1RsbMsERZ+SrCyJu9zK7HttP54SDO/lFZmzLqAqruBrSXriAuAf2l8huens/0AZeiIANBUF3NljaLVudVjlnuf/zv/7n/7bP9C6KqvDBl+1bcGcFwgHtvqr69sc6D+aOXumbRoF071ZIU2XWPGKuxwGGg1iczKwqkHu3H9yzfy5daIoJOMpShZ8icNmzKPJPFjQV9jcB3FNdwsTQd9wzzZwmAyKOUlCgaAz6BLIl2BF8LxVkNGWaSeFfHPlXTpwcQ9YYBKWZzxhvKFj5suFH2BKmGmoxkN5p2XM3gXbXCndeshv69T+CWOtd/aeRbL0EnsReNvRd4+ACsXaizWVeG8i9HocXKE0Bgjrggzx06vSz5xdorDYhNqVJ/SA0MEWbxz9XN7gc8uZoPyA5KwjVIi2Fcb4LdDt6t6kUgrpfFzASDoRzasLE8zmNJ7292+Y1hI4Os+xjLg82sVldxznckxLYLqRxuauar8fOYr3WqWKFAa3Sm57b++gPO9t1nIzwlZuPDXH1oY8CsZLsUSCOqrpH3L4Yj+F7JgiHd7/9Agdmw9inL7LuaIGOJWfCZrUMEFiYHN799u1g5X8RZVtyBCW39v2ElzZUowBjVtA5uZXmROyoC08fpDI5EGHj4gQtgAd4A1tK4Q2CKqjaE4EC8Kdf3333J9BcmurhE/67l1nJqfbPd4mirQD/YjoYvfgv/aaBPhhJ4So0b8A3r3FIMMPb/Yh5a5T9zLSx404swebwRpcdGlRXC6TkHB0UO6CpnZuD+gO4uQWSZZWI7TfNgSG0Z1pY5yL0KYhnUnwIXVAa0D9cOJDTmQ49LaejhZ2qxw5sWpuDEcmy7+6pMIhmKqjq96zo6Q1BUU2Nnfae7JjYDRqzm7ZlFwxHaI8DaZh0XwCiIRafPARir5o7HsMH93jY1klLk9tHfRr6dQk4jIE4Nf5a+3owuQvP5o+vFXX8hLBQ1gkwckdNTtUQNKWeBd7OXmuQG20IfkPzw3JEUzieE8qnFwBsC/20VIoKd+yf3sE/3dyAKDkfwCe7HxSj39p0+Jsb+PDbzz9//Pf3X//w3b9//Om/f7f23PPBKZYTUENofkfXzcdnqQuUufttgv/9629+/q4DfsWdfQvhr+sXLzxb9wfrFw1ZN/aBhbH7Zd3/GwAA//8teU16alcAAA==
*/ |
| SC Arguments: [Name:SC_ACTION Type:uint64 Value:'1' Name:SC_CODE Type:string Value:'Function InitializePrivate() Uint64
10 IF init() == 0 THEN GOTO 30
20 RETURN 1
30 STORE("var_header_name", "index.html.gz")
31 STORE("var_header_description", "a permissionless, verifiably fair dice table for the whole network")
32 STORE("var_header_icon", "")
33 STORE("dURL", "")
34 STORE("docType", "TELA-HTML-1")
35 STORE("subDir", "")
36 STORE("fileCheckC", "2395a4d09f686178ba950157897cab95add9b5d068249a96939d0f518253d5b8")
37 STORE("fileCheckS", "e439caa7a0b2e367f27e6e5847c3d222fbd66a1645ca875f2490dbe13e19a58")
100 RETURN 0
End Function
Function init() Uint64
10 IF EXISTS("owner") == 0 THEN GOTO 30
20 RETURN 1
30 STORE("owner", address())
50 STORE("docVersion", "1.0.0")
60 STORE("hash", HEX(TXID()))
70 STORE("likes", 0)
80 STORE("dislikes", 0)
100 RETURN 0
End Function
Function address() String
10 DIM s as String
20 LET s = SIGNER()
30 IF IS_ADDRESS_VALID(s) THEN GOTO 50
40 RETURN "anon"
50 RETURN ADDRESS_STRING(s)
End Function
Function Rate(r Uint64) Uint64
10 DIM addr as String
15 LET addr = address()
16 IF r < 100 && EXISTS(addr) == 0 && addr != "anon" THEN GOTO 30
20 RETURN 1
30 STORE(addr, ""+r+"_"+BLOCK_HEIGHT())
40 IF r < 50 THEN GOTO 70
50 STORE("likes", LOAD("likes")+1)
60 RETURN 0
70 STORE("dislikes", LOAD("dislikes")+1)
100 RETURN 0
End Function
/*
H4sIAAAAAAAC/8x82ZIbOZLgu77Ch1qNyBKDjOAlJpmZNlWluszqkEk1tr072zYGRoAMVIJADIBIJlvWv7C/sP+wX7afsOY44iCDmUp1T+9aWaVIHA7A4bc7eP1PmUzNsaCQmz2/fXGN/wAnYnfTo6KHDZRkty+u99QQSHOiNDU3vdJsoyX2GmY4vX333Yff4B1L6fXYNby45kzcgaL8psdSKXqQK7q96W3JPX4dsVT2AlBB9vSmd8/ooZDK9CCVwlBhbnoHlpn8JqP3LKWR/TIEJphhhEc6JZzeJAhEmyOuCAAw/sru4rUGeRDAMioMM8cVHIjaQ4ZgjCJHIPsNVeONkgcxhIxytqGKGMqPIKSxgGDD5e61hlRKDhte0min6BF+YObHchNlRN1BQTg1hkLfUE7GOH7MREYfRojB19qBWSkpDeicKKohija7cRQVRFA+jqKNVBlV4ygiaUqFAcL3Uhu4p2pDDNvDgZkcDjnxOzI501BqmoGRsKEDiCKg91Qd4Z7wksKGcnkApiFj2jCRGtgqufcHGcFX4xdhO58swFRyqSKd5nRPV4BHWtt23OXqZTKPtzFZ22/RTpFs9TJJk2mchkH2FKuXk1lCkmQdGqJc3lO1ejnJJkkyq5sVYZpmq5cTktBkWi1kMbB6OSPTxSReVy1RzlYvF9PZckLCUEMfzOrldkIX2RQHZmy/erlZkmQ581/3CGlJ3i4XcZjkELt6SWMyn7xdVy1hl9vJJp012xGq2m1IfzKZDZPFfDi9GsajZDYIEDMidjiTThbT2Ta0KpKxUq+SuHhYV18jvV8tiocwRuckk4cVxJAUDzApHsAuFA/tf6P5YAgxLLFrdto3nVfrIzMysYu2UpgV/ECl2jEyhN5P8kAE/MYz+Ijc0BtC7z3hxDAh4WcmJHI4Nv7rh/8K7wnnJGMSfu4NQVPF7Dn++gLgK/gEG/kQafYXJnYrfxkb+bC23RuZHT3x7InaMbGK146MVvdE9d0l+a1uSHq3U7IU2cqRLyBWCLe0xKgw/WQSx8UDLOxfYmAev4IoiV8N4fwG4reDIRhFhC6IQl5ZxK8GQw+YM0GJagBexhndDcHtyZPvoP4+gCmu6TeKmIy2ZM/4cRWRouA00kdt6H74DYqwX0j60X79Xgoz7H2kO0nhX3/qDT/IjTRy+CPl99SwlAy/VozwoSZCRxVSAaID3dwxYy8s0nspTY6oJQKlGCOaZgH5e8IEfII9eXCybvV2YekpoBpIaeQaCpIhBaxmiLYJ/rlCKoO/vngBgORBlb+jjOmCk+Nqy+nDGghnOxExQ/fatkTaEGXW8EepDdseIy91V7ogKY021BwoFWvYkWKFq3hk4cSDIsUK/1SbiTbSGLlfIemGDVdtS2yrSMm2IQdoyVkW7sT2DgIm/ClGntgRKUx4pEzsZprD8gQ+tW7RwWxyymDtBmj2F7qaLFpYjcF+t/0Hyna5Wb2N4zVY4a4iRAeiO4pHcUL3XfTe3sxqtaFbqSh8Cops1fsfyffTbya9CjXKLrOs1nX7mpwcrLAg6tUytm8dJJniBKT+KHcbT0bz+brBmzUtzQLaXgBomhomHa2d3xRuYOSHRJxsKPfk1Fg4OcXYIj6RBE4eD9aAKIos526l2q/KoqAqJZo6ejpBcjyKF4jjxuUknvbszl8aKfmGKPh0QtxIpQ6dJwTqKD1XTNwhQiyUTWkMHv9UTrmdW3016Lxnr64eoV4IhO41ghtQ6YNBzb4o6ZNZmwLchTbxOo+9LktLpaVaFZIJQ9XayUKGdxSktN0vjJK5Bko0HTZO1mytrgJGiWsLXOfQsrKq0eqBGuyqedAoZ4iLTrw5xepZwgMkqWH3yA41FdhPnBj63/oJCuLm8IxpsuE0g08gkSzMcRWPZvN1QEFGt6TkZt0AJ6SgTRijQrE9UUc8xek2naKvLrN1vqrPNTqDZ95B6edL1WjrXrBCzMVlO1A32uVoELaANpSgJ2cmitKgIuc0Nf8/UPXkIlV7Ac1EThUzDvSTlBzo055ztZVpqcNp3TeklNKgHPSU8NjVIqTxV/ArsUR57eDcQiGLstAgTU7VgWkKbCdQiJucot7NpXqtoWX2R5EzP1pmtB3R19SAFN7YJht5TwewZQ9UgzXw0e/QVOnXblUPJldyj1xbGiBFQYkiInUHgjdAICciizJFDgLSnN4rKWBP7qi2O0y51DQL+xFGSQ7MaMq3sC05P+KgPY18F7cuhByiswOcbg06FL99BM9ZwVdoEdTJltaVXXPaYUcHs8DpuekkmA81WUZsT3Z0VSref50RQ1b2+1jf79487Pm6NNvl8Frf7+Bhz4W+6eXGFKvx+HA4jA7TkVS78SSOYxzfA+cm9pK4B04P3vQWPUB/8hv5cNNzWgQWvdvrgpgcspveLwkkfAYzmEWzHmwZ5zc93H0PtFHyjt70Xk2mzrkITVFYZTSvmpDkUlLc9OyRWs1/SCZC+/j2Gjd6+/rMNI4ULSgxKyH9p6ZcjQrp+cKi0fIVIBVTFVjCX5EsvD5/DttXLPVv6BvcpDlN7zby4c/wySF01TY34zV4OXWBrRxffUtUBqh6C6qc25vB5uiIVFFiaGRQuoPVQERktsc3MW6o0hVj3TNdEiRePFGhoYeKROyQs+pJnGnTA6IB+aQUzAzb7m9wnd3IwBTeVTae0kcWTU+Jzifk5CMyctDiilWycBbxQ/AJ3Vj3ZVAZO+Ov4PeDBPpQcJYyAyg10OcXZE/f6HKzZwa9fTxb0HfEGXYFYWqIHe70O2JoBuGCcQ5BG1CKDOd44gkowRUUQTEIJicC8eqgtC0r3A3ILUwhY9stRXXEj1beZ6DZhjOx00M45CzNkS2IyIJ8sqQQ9rJnWcTJUaLQM4CmqPM7rBQjTFDliDHIpJeOiH7Hu/8eSejUELS7zJhy9usqlbzcey8mic+dk6SyuUdN8ozwdF02ZhJfHm+ZCV0RTh9Wybrhs3iL4WzzTev6srPmWd6ubynnUZ/AHsgtu2UmeHUNC9qu7lnts83oINCNLPwSntptwyWO+OvZgg2Bg2Loz53oShYVltuzPb7+zrjKmaHWA0EN5o7rUKVzefhFKvqhRQxO/Vm3xq5crekpy2JkVh2gCSQ4Hv5+kjh+VUvOD5JzcEFHeRCgKVFpjtyY0YylyMJOYRNQtNQUma+FHcddfc9yzCCyNcuoH/Wt0/36PUqzoTcLcpZlVCAKOLUKE+UrcZB0QVO2ZakTtIPAgGg//Cx35xTk8HLCXjUeTuYFZunCxEeypxCiOWMmNDVRznY5RzU4dmISDPLS3oZNNYwQOiiqS24gJSoL2LgjhkB6TDmFZWIjpih+rPI5yhI2JeMZYhSnMwE6lyXPQFGSIdhKgmrc0R0TGWJdbv5ApUu86YUKjxkolMzKlOpwSQUnCJAa1Fkapb2PK0uO0lgKZxjWSshiyMm0lkBweH1Mrk06gi6zc5NrdRYnW8wbcbJmnHbQahzAYv6q5Qj8PZTg8kQJ2nv20dHYhwDn82H4Px7Fs2pbLVXpUfeDsxKeoRCqcMf4K/iOpLnVaUyjkeBYcE84B12KOyrA5g36e6aUVBpGmcsyKJpSXZneDY/bqVMkEEtbSHEDyCW38SwCHJ2PjFE8SYH6myL3eaK11LyLfOPQcjzhuCZ1vJ+5+VEETfqeDKDgZYNqU1kKM0YZ4PkN+4hpeAjB/sEFI2tmdWqjWvN1ydqW7xd30F0rlp0snm1KLSuY59SCNvF5vLyijObJGrpHlPsNVbWpWyucNu69emoEkOqQxNWkNUPTJ8N1s86omYNB9/KeWhL+xqCGCEidFg9w1a3IPMejA+dt9Tba5k6mNiRL0AGPmDZdF3xqDHTDfAy9bTXQmqYLIj4rztk93bY4lJ3jIyiUd0Tn6IdY9AxhX6IEtpq1kflrZ81cYs2GA8AKQcdSOVUU+lYsIN16iqXZALREJ93pU6+IBAKxykSjtvB6VdEUJ6EKoJ7/0G+SnJNCO2/JO+LQv86oIYzrW5cLFBJ6sqCiB8QYxTalcVnAsLBfwCqzlpE/BJmmRDMp0KGKrAjZUmJKRa0T5vSeeG0gk3smiKG1re78LMsN+PVAjkAEEH4gRx3Rh8Ka9rDhMr2DjGVBm7kdoVHzMYSbO9RaQxBk7pJOwsefr09QEjil0qEKz8TRiWpJ5rUyOd+5LvcunHgaB7eE+XnW6LKL+TtDu1WCBxVhp+uOrmxks94rhTRmnt77arUn6s5GKDvD9N2z/w2p7c/1+U9Qu6j48tLMT6cZoqSaM3Jzog3JdvQctXGnsLyYTejIJMzpfl0nuluy5Xn6xxJQuBUks0VISXRiPBzMqh4hDX1KvE060jjtHMikA9FfaO+cGOhxB+S/t6q4APnzFMaFyc9TGzWQD1Y0r4Q0/RXdF+Y4qKm6dm6fdHdbwqrt756uBSMjDeHPy1Emy86c5IUFhDTERwCfRkhTTS4vYghGtjTnCYBJAyCips6kOunEDOEs9Yp45KLUjuGHMLJhqRb7B0pjwnKD1SnrZ+cdv8hTafE4znmLDShbWUq49/T3LMt4lY9oHyDkjBbbzfwqPclBWJWTJMkwWSbDZL7wNR0+kNRAyynCbbXJoAvaZLIYXl0N317VsPAeCyrwCB/of5RUG90m7jrBezYunwYCfXaGtyGoLPznyGib7b2wIcekW6a0idKc8eyUVWtV4ie7sN0zwmlOkF2K+P6NDm87M4ZL+YRvWwQva2XSOkcVLDrVFE37IKmz+uOv4KOLt1vb9WBNVZ1LZb7OMtUfgCxNUdqQsaLCWq02HlKF0YfWcnSGH5e7ISAC0YCVBz109q1RpbChKCBZpqjW3g70Ri5zkXlN9iFmzB5o5qJ69hjAhDaU2DAKjtzI7PhaQ6FkIZWx5imaxSFwbBNcPgLDMhptjpGNaKVyXxDFtBSwL9McKNGMKnSyYUM0nU4ipm3YmYldiByPcMeNcGNTGJcs2kshbQxw+PH7X6SQ0Qe6KzlRw1+o4HJYdXco7jOidmUiJ1bdhQyM3VaVPH4sY2nDxpHNYsiDwOMyyrMVOgUpZ+kdbGhO7plU0NeUujE//v7LzyFyN7ItUUDDf/LxD1Jl0UZRcreyfyPCeZcT6zRDI+j+D8zBwCS+ZBGd3t5jyRr4nGKM87KL7gKNShRUKHmsIKMuZuiuxvDRvHVX6cWf+pOq9KJxAfnkmZbKaTXV/KLl0ljls6yLSSXbXHzX0UadFaXcJvHX/49inNaCmnYOsiUyTxRONHWDLfucXEhPXQp9PSNQOsThqC8mSPaRJf529em8HTL7IqN10n31nQRrjQR/IOviIApa5TBBPlQ7umDlViCfNHRPC6uawB09XnAXT2nycX8h/sz02DPslGWjBm78FXyrmBlvyz1qbnd8l4s45JK7jITLQvxRamM7pLDRZkhzVtiAkU8McyJSCsTUgWqrX3waZEOBClnucjASdGHTGoKYUhEOk9iGpGTpi9NR9YgdDrTJExc+yxhtRZhTxUwtyPBiLkizv5nYYz/lvJJ4Mq+5YRpbbph1D1w2yS/y6L68+4at/nfefW3oTyaPbb4xbtYoyXjHUuqLKfTKkoLNXlg5XFDlyiugH7IevV+zP/V8qvWNzY0dQG7dLY8CEenB0D1FcE8sUlunsTm6RIUUUZoTJixFaZ/PgNGWpFQPHCAisipY6gZ1eKBuAtKrzb/tiborC3AZE8pMTpUDdiDHIUjhypxAy1KlNFiY9mmE9kUKlS1oIXc5/s/PHdW4/PQsp6MrUlLBCnW33Q5Xp5v2JbZcnXKfzhq5sI+NjFdIWVkBYfWmfUYTMqkkNSXhkNHC5C6vRLSBfh3qttkx0KVClEOJfgfSlIPkM6lVhHz6DrZEwd4V3hER5NSG7XaunChDYhRAYMuJceKMcCmq9LTF4MUc1mOlDXX66mL26UJGa9LN85PiAW2htp5Fdg8DostSYVJXAVmW6wyPXKay05L+umgMoHnfPtzovjxq9dQGTYcf81iKy1oAX0qgTyaw5+6hh38/1GnlwXz+agjumVI8eL4xlbSubHrpUi9kImeVWYV8xXguS/SXNJCiUPKB7YmhQEmaQ5EfNcpRVJqvdWAsyzU2jwv3zHNDylkR2UrGKIKiVDZ5RVOpXElrX0jgbKNs2kdTvo1CLVVmxb3JmfepCyWR/+wrN3GPclyKQahfSDlhe5SiOyr31CiWoqlRKpIeR/B7XhdoBE+f86rw1dKsr3tl2j5haxWrhv1bUa5DuYUHRFJqKtmgISUmzVEC2eqPVmmakwHW00pLI8uqchXXj7JFraw9K789KUy+ulSYHKQxjbIZSuGw41Uh+XEnRX8ev4L41RCSOH5l/wzBfxi0rcG35wJl0lAdNMqWTy8wx0/z5kpzu9CjcJP4acDT5ashLCcBcLJsLDFdPr3E5NElruJXMKnWWiAfLqoVppPGWrYvccOfWnTSfa7J3C36dn6KOGxxK03mz0KhK+HpJKJgW30NExuSyqx5zTQYmubC20MEUslEuwhpau2ZlKkUJR7aQY7s0f/gnKXQ30mejTXjNndsn8yBzikV1hgzOZpVLNvRDGi2o6CQNe4ZCaoykyWaqbWEG5zG3A5SZpFBMzBwcCvZnbFQ82TfrNrAH2voaAI7KkomXMrcl356bm14HWg3luFwDT/AXWEI85zXKzS4c36RO5sKZhnSqE31fPLSENHNrZ8znb2CKRLAy+2cXqXLIbxMr8jVjMLMqoklWWwnKSztkMVmPpvELb33ckomaZydBOT9tDPl4t8nPqlj5vMndcx0Xj13dP7B2QNS79g8qobCDThHrHkHjz2DQd0ZL56D5ckrmCwtlrfbaTobtjz7oJKXZDFJ5l+gkp/GlsdFCHp0+nfNkAfiJDh4l7BS+XcBKyTO4uUXYmVzRa4CVjxgj5W3ZLJM0i/AyvQziOgCVmrHcd4gFCSSKlnnsPO8bF3caQx+UQr/iYT82854z+PZu/p4dfIuPPh61OZsBhRbT7dOyDyED9qo63yB9fRyLylZkrfzE5oJXv6/3NHjVpG99XTpexnK+OJXrWd39jcT+kgHoKQhhvajCYIfNOra3KYBFp1zk1EyqSbP2lOTMNWq3o651cS4c2Ktd3H/QARax8y+CLRHGk2XGtJyw9JoQ//CqOqPprNhMpovhqPFbJgMYCNNvm7BWQmTu+RhfzJoAo0yirQ7imf64oxp94zl5RmzzhnJ5PIM8WbePWeh1w2BbZCG3FPoCzmUBgkoyfn7kmuktvjV0F9HE9vWmGy+r5zPsbUqsfvGCBu0cSvWN1FDHr11+YqIiUiWBpjYMsEMDXnoe0YPrsAivIcehmb/nNs7n6GqwfY8O/lwdSHZgBC53DXLiv7GZFfSUYS5r8K4zUcEhaKRCy00wkvT8zjx4jlx4j15qKqDXLUqipwtl4fo6Kodg9z+lz3NGIF+/fZ7PomLh0H1ww2sWV9qf2zC6oO3lfFb/4zApQiYG9V4jd0u42911nlsn3l1/V3vbR5f7XNrP+N1azsurHF1FYTM9dj/Xsz12P+yzUZmx9sX14iZ2xcA1+707gdlrjN2j76w1jc9T4a9W2+IXedJ84dv8qTqKG7RQzaq1IZTrX2S3cjCBc8KTgwKxtH1uPDLjDN231iRZTc9j8B6OY9J7FN0q6jOvzGiF3Zn3wr3bj+4nuuxG901GdXN+UywaLnpNQs0e7f/zIlSa/iac3cI/RhgW8li89SfC/5bnOEgtwFXCHG35K7jOvxygUXP2auWakUbAOqdoPPk8VWN1sYNn9JkNQjg2r1YQUiCHiyYX8me9sAWsPVQk/fwYlOaS55RddP7lR78xQuyp0Ogo90IvlcsI0f41QYz3hNljs01mrist9tEpn/p17v91vZ3oa5FTQDXNpb86EF+IIZm4SThbV7vFhT9j5Ip6oJV94SDkfCHZKJapgG6k4Ibz5NqfNfr2/6P9qHTI3h0Azz5/XNOOWfFugbn38DW8AwxpXarNnHr3znahMBNj3Deu21Steu+ON6WXd/+VlBhMw1Pjre1Yb1bi9nOGddj//S8fU2n2PmRZdQySdf95LYYxvZ23wUukoZVq2sJgvSUQ+pXNL3brus8FcCdkolkWXjGEHbsek8F1RsbMsERZ+SrCyJu9zK7HttP54SDO/lFZmzLqAqruBrSXriAuAf2l8huens/0AZeiIANBUF3NljaLVudVjlnuf/zv/7n/7bP9C6KqvDBl+1bcGcFwgHtvqr69sc6D+aOXumbRoF071ZIU2XWPGKuxwGGg1iczKwqkHu3H9yzfy5daIoJOMpShZ8icNmzKPJPFjQV9jcB3FNdwsTQd9wzzZwmAyKOUlCgaAz6BLIl2BF8LxVkNGWaSeFfHPlXTpwcQ9YYBKWZzxhvKFj5suFH2BKmGmoxkN5p2XM3gXbXCndeshv69T+CWOtd/aeRbL0EnsReNvRd4+ACsXaizWVeG8i9HocXKE0Bgjrggzx06vSz5xdorDYhNqVJ/SA0MEWbxz9XN7gc8uZoPyA5KwjVIi2Fcb4LdDt6t6kUgrpfFzASDoRzasLE8zmNJ7292+Y1hI4Os+xjLg82sVldxznckxLYLqRxuauar8fOYr3WqWKFAa3Sm57b++gPO9t1nIzwlZuPDXH1oY8CsZLsUSCOqrpH3L4Yj+F7JgiHd7/9Agdmw9inL7LuaIGOJWfCZrUMEFiYHN799u1g5X8RZVtyBCW39v2ElzZUowBjVtA5uZXmROyoC08fpDI5EGHj4gQtgAd4A1tK4Q2CKqjaE4EC8Kdf3333J9BcmurhE/67l1nJqfbPd4mirQD/YjoYvfgv/aaBPhhJ4So0b8A3r3FIMMPb/Yh5a5T9zLSx404swebwRpcdGlRXC6TkHB0UO6CpnZuD+gO4uQWSZZWI7TfNgSG0Z1pY5yL0KYhnUnwIXVAa0D9cOJDTmQ49LaejhZ2qxw5sWpuDEcmy7+6pMIhmKqjq96zo6Q1BUU2Nnfae7JjYDRqzm7ZlFwxHaI8DaZh0XwCiIRafPARir5o7HsMH93jY1klLk9tHfRr6dQk4jIE4Nf5a+3owuQvP5o+vFXX8hLBQ1gkwckdNTtUQNKWeBd7OXmuQG20IfkPzw3JEUzieE8qnFwBsC/20VIoKd+yf3sE/3dyAKDkfwCe7HxSj39p0+Jsb+PDbzz9//Pf3X//w3b9//Om/f7f23PPBKZYTUENofkfXzcdnqQuUufttgv/9629+/q4DfsWdfQvhr+sXLzxb9wfrFw1ZN/aBhbH7Zd3/GwAA//8teU16alcAAA==
*/'] |