BCD

Tezos Contract Explorer
Search Networks Deploy
  • Home
  • /
  • Ghostnet
  • /
  • KT1NRbr...GbzD
operations (2)Storage Code Interact Tokens Fork Statistics Details
Latest
​x
40
 
1
parameter (int %increase_votes);
2
storage (pair (map %films int (pair (string %name) (pair (int %votes) (string %year))))
3
              (set %votersWalletAddresses address));
4
code { UNPAIR ;
5
       DUP 2 ;
6
       CDR ;
7
       SENDER ;
8
       MEM ;
9
       IF { PUSH string "YouAlreadyVoted" ; FAILWITH } {} ;
10
       DUP 2 ;
11
       CAR ;
12
       DUP 2 ;
13
       MEM ;
14
       IF {} { PUSH string "FilmIDNotFound" ; FAILWITH } ;
15
       SWAP ;
16
       DUP ;
17
       CAR ;
18
       DUP ;
19
       DIG 3 ;
20
       DUP ;
21
       DUG 2 ;
22
       GET ;
23
       IF_NONE { PUSH int 20 ; FAILWITH } {} ;
24
       DUP ;
25
       GET 3 ;
26
       PUSH int 1 ;
27
       ADD ;
28
       UPDATE 3 ;
29
       SOME ;
30
       SWAP ;
31
       UPDATE ;
32
       UPDATE 1 ;
33
       DUP ;
34
       CDR ;
35
       PUSH bool True ;
36
       SENDER ;
37
       UPDATE ;
38
       UPDATE 2 ;
39
       NIL operation ;
40
       PAIR }