;==========================================
;Baza zlowionych rybek    by Meylot 14:35 2005-03-06
;==========================================
;/read lokalne\ryby.txt
/var {VRybkiCount} {1}

; Tu trzymamy liste zlowionych ryb
/array {TRybki} {50,2}

; Dodaje rybe do listy zlowionych #RAdd [opis],[waga]
/alias {#RAdd %0,%1} {_
  /assign {TRybki} {$VRybkiCount,1} {@Word($0,1)};_
  /assign {TRybki} {$VRybkiCount,2} {@Word($1,1)};_
; Ten if na wypadek, gdyby liczba ryb przekroczyla pojemnosc tablicy: (raczej nie mozliwe)
  /if {$VRybkiCount<=40} {/Math VRybkiCount ($VRybkiCount+1)} {/var {VRybkiCount} {0}} }


/action {^Oceniasz, ze surowa %0 ryba wazy %1 gramow,} {#RAdd $0 $1} {RybkaAdd}
/action {^Oceniasz, ze surowa %0 ryba wazy %1 kilogramow,} {/math {tmp} {$1*1000};#RAdd $0 $tmp} {RybkaAdd}

/alias {ARClear} {/loop {1,$VRybkiCount} {_
  /assign {TRybki} {$LoopCount,1} {};_
  /assign {TRybki} {$LoopCount,2} {}};/var {VRybkiCount} {1}

;Pokazuje Tabelke ze zlowionymi rybami, waga i szacowana cena
/alias {#rybki} {_
  /sh {o=================================================};_
  /sh {|Opis ryby                  waga        };_
  /sh {|-------------------------------------------------};_
  /loop {1,$VRybkiCount} {_
    /var {OpisTmp} {@GetArray(TRybki,$LoopCount,1)};_
    /var {WagaTmp} {@GetArray(TRybki,$LoopCount,2)};_
    /sh {|@PadRight($OpisTmp, ,@Math(27-@Len($OpisTmp)))@PadRight($WagaTmp, ,@Math(7-@Len($WagaTmp)))}};_
    /unvar {OpisTmp};/unvar {WagaTmp};/unvar {CenaTmp};_
  /sh {|-------------------------------------------------};_
  /sh {o=================================================};_
}

;=======================================
; Tu obsluga - mozna dostosowac do indywidualnych potrzeb

/action {Sprzedajesz %0 ryby.} {ARClear}
/action {^Wyciagasz zlapana rybe na pow} {/event {ERocen} {2} {ocen rybe;/unevent {ERocen}}