| 1234567891011121314151617181920212223 |
- # popu
- if $ARGS[0] = 'start':
- cla
- *clr
- set minut += 5
- '<center><img src="images/zoo/parrot2.jpg"></center>'
- '<center><<$namepopu>> sitting in his cell.</center>'
- clr
- gs 'stat'
- fcolor = rgb(0, 0, 0)
- bcolor = rgb(255, 255, 255)
- lcolor = rgb(106, 90, 205)
- act 'Leave':gt 'korr'
- act 'Release window':
- set popugai = 0
- set minut += 10
- gt 'korr'
- end
- end
- --- popu ---------------------------------
|
