Changes between Version 1 and Version 2 of Ticket #10751, comment 9


Ignore:
Timestamp:
Dec 5, 2018, 4:05:23 AM (5 years ago)
Author:
Vhati

Legend:

Unmodified
Added
Removed
Modified

  • Ticket #10751, comment 9

    v1 v2  
     1> Actor::doit() changed, but they still have this.
     2
     3Ah. It moved though.
     4\\
     5\\
     6Floppy script 64998 - Actor::doit()
     7{{{
     8(method (doit &tmp temp0 temp1 temp2 temp3 temp4 temp5 temp6 temp7)
     9        (if script (script doit:))
     10        (if code (code doit: self))
     11
     12# This condition fails, but it doesn't matter.
     13#   UpdateScreenItem() is outside.
     14        (if (& signal notUpd)
     15                (if viewer (viewer doit: self))
     16                (if avoider (avoider doit:))
     17                (if mover
     18                        (if
     19                        (and (& scaleSignal $0001) (not (& scaleSignal $0004)))
     20                                (= temp5 (>> origStep $0008))
     21                                (= temp6 (& origStep $00ff))
     22                                (= temp3
     23                                        (if (= temp7 (/ (* temp5 scaleX) 128)) else 1)
     24                                )
     25                                (= temp4
     26                                        (if (= temp7 (/ (* temp6 scaleY) 128)) else 1)
     27                                )
     28                                (if (or (!= temp3 xStep) (!= temp4 yStep))
     29                                        (self setStep: temp3 temp4 1)
     30                                )
     31                        )
     32                        (if mover (mover doit:))
     33                )
     34                (if scaler (scaler doit:))
     35                (if cycler
     36                        (= temp1 brLeft)
     37                        (= temp2 brRight)
     38                        (cycler doit:)
     39                        (cond
     40                                ((not (& signal $0020)))
     41                                (baseSetter (baseSetter doit: self))
     42                                (else (BaseSetter self))
     43                        )
     44                )
     45        )
     46        (= xLast x)
     47        (= yLast y)
     48        (if (and (& -info- $0008) (self isNotHidden:))
     49                (UpdateScreenItem self)
     50        )
     51)
     52}}}
     53\\
     54\\
     55CD script 64998 - Actor::doit()
     56{{{
     57(method (doit &tmp [temp0 2] temp2 temp3 temp4)
     58        (if robot (robot doit:))
     59        (if script (script doit:))
     60        (if code (code doit: self))
     61
     62# This condition fails as doit() is repeatedly called.
     63        (if (& signal notUpd)
     64                (if viewer (viewer doit: self))
     65                (if avoider (avoider doit:))
     66                (if mover (mover doit:))
     67                (if cycler (cycler doit:))
     68                (if (& -info- $0008)
     69                        (if scaler (scaler doit:))
     70                        (= xLast x)
     71                        (= yLast y)
     72# This doesn't happen.
     73                        (if (self isNotHidden:) (UpdateScreenItem self))
     74                        (if
     75                                (and
     76                                        (& scaleSignal $0001)
     77                                        (not (& scaleSignal $0004))
     78                                        (!= scaleX oldScaleX)
     79                                )
     80                                (= oldScaleX scaleX)
     81                                (= temp2
     82                                        (if
     83                                                (= temp4
     84                                                        (>> (+ (* (>> origStep $0008) scaleX) 64) $0007)
     85                                                )
     86                                        else
     87                                                1
     88                                        )
     89                                )
     90                                (= temp3
     91                                        (if
     92                                                (= temp4
     93                                                        (>> (+ (* (& origStep $00ff) scaleY) 64) $0007)
     94                                                )
     95                                        else
     96                                                1
     97                                        )
     98                                )
     99                                (if (or (!= temp2 xStep) (!= temp3 yStep))
     100                                        (self setStep: temp2 temp3 1)
     101                                )
     102                        )
     103                        (cond
     104                                ((not (& signal $0020)))
     105                                (baseSetter (baseSetter doit: self))
     106                                (else (BaseSetter self))
     107                        )
     108                )
     109        )
     110)
     111}}}