home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Magazin 1996 September / CD_06_96.ISO / data / par / main.par < prev    next >
Text File  |  1996-04-04  |  5KB  |  218 lines
  1. ; ******************************************************************************
  2. ; * MAIN.PAR                                                    Date: 15-Mar-1996 *
  3. ; *----------------------------------------------------------------------------*
  4. ; *                                                                            *
  5. ; * This file contains intro and inits.                                        *
  6. ; *                                                                               *
  7. ; *----------------------------------------------------------------------------*
  8. ; *                                                                               *
  9. ; * Project..: Pumuckl macht Musik                                             *
  10. ; *    Author...: Volker Eloesser                                                   *
  11. ; *    System...: Escal WinSys 3.1                                                *
  12. ; *                                                                               *
  13. ; *----------------------------------------------------------------------------*
  14. ; * (c) 1996 ESCAL Software GmbH.                                               *
  15. ; ******************************************************************************
  16.  
  17.  
  18. if level=-100
  19. ;  #DoChoice
  20.   pic 1,"data\bmp\wait.bmp"
  21.   pic -1,"data\bmp\back.bmp"
  22.   page show 1
  23.   paint
  24.   #MakeTemps
  25. end
  26. flush -1
  27. ;hot "data\bmp\start.hot"
  28. hot *hStartHot
  29. frame init "data\bmp\start.bmp","data\bmp\start.fra",1
  30. frame start
  31. if level=-100
  32.   sample "data\wav\fx\rang001.wav",1
  33.   frame ani 1,31,200,(ev_lbutup,ev_sample)
  34. end
  35. frame show 31
  36.  
  37. pic 2,"data\bmp\gole101.bmp"
  38. pic 3,"data\bmp\gosp201.bmp"
  39. #LearnOrPlay
  40. PAGE CLOSE 2
  41. PAGE CLOSE 3
  42. PAGE CLOSE 4
  43.  
  44. FRAME CLOSE
  45.  
  46. ;set level,1
  47. load "data\par\game.par"
  48.  
  49. return
  50.  
  51.  
  52. :LearnOrPlay
  53.    set level,99
  54.    copy 4,1
  55.    repeat
  56.      wait ev_lbutup,ev_mmove
  57.      switch WaitEvent
  58.        case ev_lbutup
  59.          switch hot
  60.            case 1
  61.   set level,0
  62.   break
  63.              frame copy 101
  64. ;          frame init "data\bmp\gole101.bmp","data\bmp\start.fra",1
  65. ;          frame start
  66.              sample "data\wav\fx\gerpu026.wav",01
  67.              frame ani 101,109,200,(ev_lbutup)
  68.              if FrameEvent<>ev_lbutup
  69.                sample "data\wav\klabaut\lernen.wav",5
  70.                frame loop 110,116,200,(ev_sample,ev_lbutup)
  71.              end
  72.              set level,0
  73.              break
  74.            case 2
  75. ;          frame init "data\bmp\gosp201.bmp","data\bmp\start.fra",1
  76. ;          frame start
  77.              frame copy 201
  78.              sample "data\wav\fx\gerpu026.wav",01
  79.              frame ani 201,211,200,(ev_lbutup)
  80.              if FrameEvent<>ev_lbutup
  81.                sample "data\wav\klabaut\spielen.wav",5
  82.                frame loop 212,216,200,(ev_sample,ev_lbutup)
  83.              end
  84.              set level,7
  85.              break
  86.            case 3
  87.              #DelTemps
  88.              stop 1
  89.          endswitch
  90.          break
  91.        case ev_mmove
  92.          switch hot
  93.            case 0
  94.             ; frame show 31
  95.          copy 1,4
  96.              break
  97.            case 1
  98.             ; frame show 101
  99.          copy 1,2
  100.  
  101.              break
  102.            case 2
  103.             ; frame show 201
  104.              copy 1,3
  105.  
  106.              break
  107.          endswitch
  108.          break
  109.      endswitch
  110.    until level<>99
  111.    sample ""
  112. return
  113.  
  114.  
  115. :DoChoice
  116.    pic 1,"data\bmp\auswahl.bmp"
  117.    page show 1
  118.    copy -2,1
  119.    pic -1,"data\bmp\ausklick.bmp"
  120.    timer 1,5
  121.    set tmp1,0
  122.    while not (hot>0 and WaitEvent=ev_lbutdn)
  123. ;   repeat
  124.      wait ev_timer,ev_lbutdn,ev_mmove,ev_keydn
  125.      if WaitEvent=ev_keydn and key=13
  126.        set Waitevent,ev_lbutdn
  127.        set hot,1
  128.      end
  129.      #AniAll hot
  130. ;   until hot>0 and WaitEvent=ev_lbutdn
  131.    wend
  132.    switch hot
  133.      case 1
  134.        sample "data\wav\fx\gerpu026.wav",1
  135.        copy 1,-2, 125,0, 400,442
  136.        timer 1,5
  137.        for @0,0,1
  138.          wait ev_timer
  139.          copy 1,-1, 244,232, 72,80, 230,229
  140.          paint
  141.          wait ev_timer
  142.          copy 1,-1, 244,232, 72,80, 306,229
  143.          paint
  144.        next
  145.        timer 1
  146.        page close -2
  147.        page close -1
  148.        return
  149.      case 2
  150.        #AniOne
  151.        chdir "demo_puz"
  152.        exec "demo.exe"
  153.        stop 1
  154.      case 3
  155.        #AniOne
  156.        chdir "demo_mem"
  157.        exec "pumudemo.exe"
  158.        stop 1
  159.      case 4
  160.      case 6
  161.        #AniOne
  162.        chdir "demo_mal"
  163.        exec "malbdemo.exe"
  164.        stop 1
  165.      case 5
  166.        #AniOne
  167.        chdir "demo_klb"
  168.        exec "jagd.exe"
  169.        stop 1
  170.    endswitch
  171. return
  172.  
  173. :AniAll ;@0
  174.    if tmp2=0 or @0<=0
  175.      copy 1,-2, 125,0, 400,442
  176.      set tmp2,1
  177.      if @0>0
  178.        return
  179.      end
  180.    end
  181.    set tmp2,0
  182.  
  183.    if @0<=0
  184.      inc tmp1
  185.      ;set tmp1,tmp1>=6?tmp1:1
  186.      if tmp1>=6
  187.        set tmp1,1
  188.      end
  189.      set @0,tmp1
  190.    end
  191.    set tmp1,@0
  192.    switch @0
  193.      case 1
  194.        sprite 1,-1,0, 178,158, 230,284, 403,11
  195.        return
  196.      case 2
  197.        sprite 1,-1,0, 125,9, 120,112, 41,183
  198.        return
  199.      case 3
  200.        sprite 1,-1,0, 213,0, 96,108, 264,101
  201.        return
  202.      case 6
  203.      case 4
  204.        sprite 1,-1,0, 303,0, 144,58, 251,23
  205.        return
  206.      case 5
  207.        sprite 1,-1,0, 277,35, 204,124, 21,25
  208.        return
  209.    endswitch
  210. return
  211.  
  212. :AniOne
  213.    sample "data\wav\fx\gerpu026.wav",1
  214.    for @0,0,10
  215.      #AniAll hot
  216.      Paint
  217.    next
  218. return