Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
uses atari, crt, graph, efast;
bocianu:
czy Waszym zdaniem taki warunek w basicu:RND(0)>0.4
Random(10)>4
asm
{
lda $d20a
sta Result
lda #$00
sta Result+1
sta Result+2
sta Result+3
};
Result:= 1 - Result;
Random(10)>=4
RandG Return gaussian distributed random number
RandomRange
RandomRangeF
{ txa:pha
_t = edx
LDA #$0
sta result+1
sta result+2
sta result+3
STA _T
RAN1 INC _T
JSR POLY
CMP #$0
BEQ RAN1
ORA #$10
ldy #0
;
RAN2 INY
JSR POLY
ROL @
ROL @
ROL @
ROL @
AND #$F0
STA _T+1
JSR POLY
ORA _T+1
STA result-1,y
; CPY #4
; BCC RAN2
; LDA _T
; INY
; STA result,y
pla:tax
jmp stop
POLY TYA
PHA
LDY #$0
POLY1 INY
CLC
ROL POLYN
ROL POLYN+1
ROL POLYN+2
ROL POLYN+3
ROL POLYN+4
ROL POLYN+5
ROL POLYN+6
ROL POLYN+7
BCC POLY3
;
LDX #$0
POLY2 LDA POLYN,X
EOR GEN,X
STA POLYN,X
INX
CPX #8
BCC POLY2
SEC
;
POLY3 ROL _T+2
CPY #4
BCC POLY1
;
PLA
TAY
LDA _T+2
AND #$0F
CMP #$0A
BCS POLY
RTS
;
;
GEN dta a($A1)
dta $A2,$1A,$A2,$91,$C3,$93,$C0
;
POLYN dta a($63)
dta $42,$A1,$23,$55,$09,$03,$87
stop
};
*)
bocianu:
Przy porządkowaniu kodu, zauwazyłem też, że możliwe że w pewnych okolicznościach dwukrotnie odejmuję energię za ruchRandom(10)>=4
bocianu:
A co do subtelności, to nie będę się nią sugerował :D94 - wyjście
42 - ciemno
126 - brak podłogi
3129 - zamknięte drzwi
12728 - cienka ścianka