alias update {
  var %x 1
  while (%x < $lines(playnicks.txt)) { 
    set %selled. [ $+ [ %x ] ] $rand(300,1000)
    set %selled1. [ $+ [ %x ] ] $rand(300,1000)
    set %selled2. [ $+ [ %x ] ] $rand(300,1000)
    set %selled3. [ $+ [ %x ] ] $rand(300,1000)
    set %totalselled. [ $+ [ %x ] ] $calc(%selled. [ $+ [ %x ] ] + %selled1. [ $+ [ %x ] ] + %selled2. [ $+ [ %x ] ] + %selled3. [ $+ [ %x ] ]
    inc %money [ $+ [ %x ] ] $calc($telecomshops * %totalselled. [ $+ [ %x ] ]
    inc %x 1
  }
}