SHARE
TWEET

Untitled

a guest Sep 10th, 2019 82 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     '****************************
  2.     ' POTTER TARGETS FOR MODE START
  3.     '****************************
  4.  
  5.     Sub target7_hit
  6.         AddScore 10000
  7.         if pt7(CurrentPlayer) = 1 Then
  8.             AddScore 10000
  9.         end if
  10.         tgsound
  11.         if inamode = 0 Then
  12.             t27.state = 1
  13.             pt27(CurrentPlayer) = 1
  14.             pottertargettasks
  15.         end If
  16.     End Sub
  17.  
  18.     Sub target4_hit
  19.         AddScore 10000
  20.         if pt7(CurrentPlayer) = 1 Then
  21.             AddScore 10000
  22.         end if
  23.         tgsound
  24.         if inamode = 0 Then
  25.             t28.state = 1
  26.             pt28(CurrentPlayer) = 1
  27.             pottertargettasks
  28.         end If
  29.     End Sub
  30.  
  31.     Sub target5_hit
  32.         AddScore 10000
  33.         if pt7(CurrentPlayer) = 1 Then
  34.             AddScore 10000
  35.         end if
  36.         tgsound
  37.         if inamode = 0 Then
  38.             t29.state = 1
  39.             pt29(CurrentPlayer) = 1
  40.             pottertargettasks
  41.         end If
  42.     End Sub
  43.  
  44.     Sub target20_hit
  45.         AddScore 10000
  46.         if pt7(CurrentPlayer) = 1 Then
  47.             AddScore 10000
  48.         end if
  49.         tgsound
  50.         if inamode = 0 Then
  51.             t30.state = 1
  52.             pt30(CurrentPlayer) = 1
  53.             pottertargettasks
  54.         end If
  55.     End Sub
  56.  
  57.     Sub target9_hit
  58.         AddScore 10000
  59.         if pt7(CurrentPlayer) = 1 Then
  60.             AddScore 10000
  61.         end if
  62.         tgsound
  63.         if inamode = 0 Then
  64.             t31.state = 1
  65.             pt31(CurrentPlayer) = 1
  66.             pottertargettasks
  67.         end If
  68.     End Sub
  69.  
  70.     Sub target10_hit
  71.         AddScore 10000
  72.         if pt7(CurrentPlayer) = 1 Then
  73.             AddScore 10000
  74.         end if
  75.         tgsound
  76.         if inamode = 0 Then
  77.             t32.state = 1
  78.             pt32(CurrentPlayer) = 1
  79.             pottertargettasks
  80.         end if
  81.     End Sub
  82.  
  83.     sub pottertargettasks
  84.         checklogic
  85.         AddPoints(1)
  86.     end Sub
  87.  
  88.  
  89.  
  90.     Sub checklogic
  91.         'mode ready check
  92.         If s72.state = 0 Then
  93.             If t27.state + t28.state + t29.state + t30.state + t31.state + t32.state = 6 Then
  94.                 s72.state = 2
  95.                 rightdug.state = 2
  96.                 pt72(CurrentPlayer) = 1
  97.                 PuPlayer.playlistplayex pCallouts,"audiocallouts","start a mode.wav",vovol,1
  98.                 'chilloutthemusic
  99.                 pNote "MODE","IS LIT"
  100.             End If
  101.         End If
  102.     end Sub
  103.  
  104.     'called at final drain w/ no saves
  105.     sub stopmultiandmode
  106.         If bMultiBallMode = true Then
  107.         enddragon
  108.         endmermulti
  109.         endwandmulti
  110.         End If
  111.     end Sub
  112.  
  113.  
  114.  
  115.     dim tghits:tghits=0
  116.     dim tgpos:tgpos=0
  117.     sub tgsound
  118.         if tghits = 1 then exit Sub
  119.         tghits = 1
  120.         tgpos = tgpos + 1
  121.         select case tgpos
  122.             case 1
  123.                 PlaySoundAt "hit1", ActiveBall
  124.             case 2
  125.                 PlaySoundAt "hit2", ActiveBall
  126.             case 3
  127.                 PlaySoundAt "hit3", ActiveBall
  128.             case 4
  129.                 PlaySoundAt "hit4", ActiveBall     
  130.             case 5
  131.                 PlaySoundAt "hit5", ActiveBall         
  132.                 tgpos = 0
  133.         end Select
  134.         vpmtimer.addtimer 500, "tgdone '"
  135.     end Sub
  136.  
  137.     sub tgdone
  138.         tghits = 0
  139.     end Sub
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top