[@main]
#IF
check [139] 1
#ACT
take Կ 4
set [139] 0
set [118] 0
set [119] 1
give  1
mapmove 3 330 330
close