BCD

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