Subversion Repositories Kolibri OS

Rev

Rev 6270 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6270 Rev 7581
Line 1... Line 1...
1
;
1
;
2
;   pipes kolibri
2
;   pipes kolibri
3
;   v1.4
3
;   v1.41
4
;   2006 by Mario Birkner
4
;   2006 by Mario Birkner
5
;
5
;
6
;   l.mod. 20.02.16
6
;   l.mod. 29.01.19
7
;
7
;
8
;   Compile with FASM
8
;   Compile with FASM
9
;
9
;
10
format binary as ""
10
format binary as ""
Line 465... Line 465...
465
    cmp   [stat],1
465
    cmp   [stat],1
466
     je   .winmessage
466
     je   .winmessage
467
    mov   eax,4
467
    mov   eax,4
468
    mov   ebx,170 shl 16 +196
468
    mov   ebx,170 shl 16 +196
469
    mov   edx,lbl_gameover
469
    mov   edx,lbl_gameover
470
    mov   ecx,btcolor
-
 
471
    or    ecx,0xB0000000
470
    mov   ecx,btcolor OR 0xB0000000
472
    mcall
471
    mcall
473
    add   ebx,8 shl 16 +17
472
    add   ebx,8 shl 16 +17
474
    mov   edx,lbl_yscore
473
    mov   edx,lbl_yscore
475
    mov   ecx,btcolor
-
 
476
    mcall
474
    mcall
477
    mov   esi,ecx       ;color
475
    mov   esi,ecx       ;color
478
    mov   edx,ebx       ;pos
476
    mov   edx,ebx       ;pos
479
    add   edx,80 shl 16
477
    add   edx,90 shl 16
480
    mov   ebx,0x50000    ;type
478
    mov   ebx,0x50000    ;type
481
    mov   ecx,[score]    ;inp
479
    mov   ecx,[score]    ;inp
482
    mov   eax,47
480
    mov   eax,47
483
    mcall
481
    mcall
484
    jmp   .nomessage
482
    jmp   .nomessage
485
   .winmessage:
483
   .winmessage:
486
    mov   eax,4
484
    mov   eax,4
487
    mov   ebx,152 shl 16 +200
485
    mov   ebx,124 shl 16 +194
488
    mov   edx,lbl_win
486
    mov   edx,lbl_win
489
    mov   ecx,btcolor
487
    mov   ecx,btcolor
490
    or    ecx,0xB0000000
488
    or    ecx,0xB0000000
491
    mcall
489
    mcall
492
    mov   ebx,152 shl 16 +217
-
 
493
    add   edx,esi
490
    add   ebx,17
494
    mov   ecx,btcolor
491
    add   edx,lbl_win2-lbl_win
495
    mcall
492
    mcall
496
   .nomessage:
493
   .nomessage:
497
popa
494
popa
498
ret
495
ret
Line 581... Line 578...
581
;=================================================
578
;=================================================
582
if lang eq et
579
if lang eq et
583
lbl_title    db 'Torud',0
580
lbl_title    db 'Torud',0
584
lbl_gameover db 'M ä n g   L ä b i !',0
581
lbl_gameover db 'M ä n g   L ä b i !',0
585
lbl_new_game db 'Alusta enne uut mängu',0
582
lbl_new_game db 'Alusta enne uut mängu',0
586
lbl_win:     db '          T u b l i !           '
583
lbl_win      db '          T u b l i !           ',0
587
             db '          Lähme edasi!          ',0
584
lbl_win2     db '          Lähme edasi!          ',0
588
lbl_yscore   db 'Sinu tulemus:',0
585
lbl_yscore   db 'Sinu tulemus:',0
589
lbl_toolbar  db 'Uus mäng:  Lihtne    Keskmine   Raske',0
586
lbl_toolbar  db 'Uus mäng:  Lihtne    Keskmine   Raske',0
590
lbl_copy     db 'v1.21 2006,Mario Birkner',0
587
lbl_copy     db 'v1.41 2006,Mario Birkner',0
591
lbl_score    db ' Aeg:   Tulemus:       Tase:',0
588
lbl_score    db ' Aeg:   Tulemus:       Tase:',0
592
else
589
else
593
lbl_title    db 'Pipes',0
590
lbl_title    db 'Pipes',0
594
lbl_gameover db 'G a m e   O v e r !',0
591
lbl_gameover db 'G a m e   O v e r !',0
595
lbl_new_game db 'Start a new game first',0
592
lbl_new_game db 'Start a new game first',0
596
lbl_win:     db '          G r e a t !           '
593
lbl_win      db '          G r e a t !           ',0
597
             db "       Let's keep going!        ",0
594
lbl_win2     db "       Let's keep going!        ",0
598
lbl_yscore   db 'Your Score:',0
595
lbl_yscore   db 'Your Score:',0
599
lbl_toolbar  db 'New Game:    Easy     Normal    Hard',0
596
lbl_toolbar  db 'New Game:    Easy     Normal    Hard',0
600
lbl_copy     db 'v1.21 2006,Mario Birkner',0
597
lbl_copy     db 'v1.41 2006,Mario Birkner',0
601
lbl_score    db 'Time:    Score:       Level:',0
598
lbl_score    db 'Time:    Score:       Level:',0
602
end if
599
end if
Line 603... Line 600...
603
 
600
 
604
;=================================================
601
;=================================================
Line 628... Line 625...
628
     db 9,1,0,3,5,4,2,2,4,1,6,0,8,9
625
     db 9,1,0,3,5,4,2,2,4,1,6,0,8,9
629
     db 9,9,9,9,9,9,9,9,9,9,9,9,9,9
626
     db 9,9,9,9,9,9,9,9,9,9,9,9,9,9
630
images:
627
images:
631
file 'pipes.raw'
628
file 'pipes.raw'
632
I_END:
629
I_END:
633
-
 
634
-
 
635
-
 
636
-