CD-ROM Magazin 1995 May/TYPEMANIA.ISO/systhema.dir/00001_Script_1

Text File | 1995-02-27 | 7KB | 220 lines

--here comes a procedure for buttonreactions
--this ist the Version 0.95 from 17.11.94
--⌐Retina,1994
on ButtonHdl Type, ScriptToExecute,BaloonSprite,TextSprite,BaloonText
  global gMovement
  set flag=0

  set theChannel=the ClickOn
  set myCast=the castNum of sprite theChannel
  set myLocH=the locH of sprite theChannel
  set myLocV=the locV of sprite theChannel
  forgetwin

  -- "type" 0: bedeutet normales Ersetzen
  -- "type" 1: bedeutet Verschiebung um gMovement
  -- "type" 2: bedeutet 1 + Baloon
  -- "type" 3: bedeutet 2 + Baloon

  if Type=0 then
    -- normales Ersetzen
    puppetsound "Mouse Down"
    set the castnum of sprite theChannel to myCast+1
    updatestage
    repeat while the mousedown
      if not rollover(theChannel) then exit repeat
    end repeat
    if rollover(theChannel) then set flag = 1
    set the castNum of sprite theChannel to myCast
    updatestage

  else if Type=1 then
    -- Verschiebung
    set the locH of sprite theChannel to myLocH+gMovement
    set the locV of sprite theChannel to myLocV+gMovement
    updatestage
    repeat while the mousedown
      if not rollover(theChannel) then exit repeat
    end repeat
    if rollover(theChannel) then set flag = 1
    set the locH of sprite theChannel to myLocH
    set the locV of sprite theChannel to myLocV
    updatestage

  else if Type=2 then
    -- Ersetzen+Baloon
    if not (baloonText=empty) then
      if not(stringp (baloontext)) then
        alert "kein Text vorhanden"
        exit
      end if
    end if
    set the castnum of sprite theChannel to myCast+1
    set the locH of sprite BaloonSprite to the mouseH
    set the locV of sprite BaloonSprite to the mouseV
    set the visibility of sprite BaloonSprite to true

    set the locH of sprite Textsprite to the mouseH+5
    set the locV of sprite Textsprite to the mouseV+5
    set the text of cast(the castnum of sprite TextSprite) to Baloontext

    --nun ⁿberprⁿfe, ob der Text auch pa▀t
    set ht=the height of cast(the castnum of sprite Textsprite)
    set bt=the height of cast(the castnum of sprite Baloonsprite)
    if ht>bt then
      set temp to integer((the number of chars in Baloontext)*(float(bt-19)/float(ht))-25)
      set the text of cast(the castnum of sprite TextSprite) to chars(Baloontext,1,temp)
    end if
    set the visibility of sprite Textsprite to true
    updatestage
    repeat while the mousedown
      if not rollover(theChannel) then exit repeat
    end repeat
    if rollover(theChannel) then set flag = 1
    set the castNum of sprite theChannel to myCast
    set the visibility of sprite Baloonsprite to false
    set the visibility of sprite Textsprite to false
    updatestage

  else if Type=3 then
    -- Verschieben+Baloon
    set the locH of sprite theChannel to myLocH+gMovement
    set the locV of sprite theChannel to myLocV+gMovement
    updatestage
    repeat while the mousedown
      if not rollover(theChannel) then exit repeat
    end repeat
    if rollover(theChannel) then set flag = 1
    set the locH of sprite theChannel to myLocH
    set the locV of sprite theChannel to myLocV
    updatestage

  else if Type =4 then
    set the castnum of sprite theChannel to myCast+1
    set the locH of sprite theChannel to myLocH+gMovement
    set the locV of sprite theChannel to myLocV+gMovement
    updatestage
    repeat while the mousedown
      if not rollover(theChannel) then exit repeat
    end repeat
    if rollover(theChannel) then set flag = 1
    set the locH of sprite theChannel to myLocH
    set the locV of sprite theChannel to myLocV
    set the castNum of sprite theChannel to myCast
    updatestage
    --not yet defined

  else
    exit
  end if

  if flag and stringp(scriptToExecute) then
    do scriptToExecute
    updateStage
  end if
end ButtonHdl

on StartMovie
  global gSnd, gMovement
  set gMovement=20
  if the quickTimePresent=false then
    alert "Fⁿr diese Anwendung ben÷tigen Sie Quicktime"
  end if
  --▄berprⁿfe ob QT 1.6.1 installiert ist
  --▄berprⁿfe, ob Sound Manager 3 installiert ist
  --jetzt kommen die Cursor
  --openResFile "simpleCurs"
  --Initcursor 128, 3, 14
  --set snd=0
end StartMovie

on InitCursor ID, RangeStart, RangeEnd
  cursor 133
  repeat with n=RangeStart to RangeEnd
    set the cursor of sprite n to ID
  end repeat
end InitCursor

on playMe myfile,message
  alert message
  play movie myfile
end playMe

on playMoov
  global play
  set play=1
  set the Movierate of sprite 16 to 1
end playMoov

on stopMoov
  global play
  set play=0
  set the movierate of sprite 16 to 0
end stopMoov

on forgetwin
  if (the windowlist=[])=0 then
    forget window 1
  end if
end forgetWin


on QT_Win
  if (the windowlist=[]) = 0 then
    forget window 1
  end if

  open window "Sys_win.dir"
  set the windowType of window "Sys_win.dir" to 49
  updatestage
end



on FlashRoller whichChannel, scriptToExecute
  set myCast = the castNum of sprite whichChannel
  set flag = 0
  set the castNum of sprite whichChannel = myCast+1
  updateStage
  repeat while the mouseDown
    if not rollover(whichChannel) then exit repeat
  end repeat
  if rollover(whichChannel) then set flag = 1
  set the castNum of sprite whichChannel = myCast
  updateStage
  if flag then
    do scriptToExecute
    updateStage
  end if
end FlashRoller

on soundcontrol
  global snd
  repeat while the mousedown
    set mousepos=the mouseV
    set the locH of sprite 24 to constrainH(13, the mouseH)
    set the locV of sprite 24 to constrainV(13, mousepos)
    set the visibility of sprite 14+snd to false
    --nun kommt die genaue Abfrage
    set Regler=constrainV(13, mousepos)
    set snd=integer((regler-280)/10)
    set the visibility of sprite 14+snd to true
    updatestage
  end repeat
end soundcontrol

on hyperclick Text, Highlight

  --set DasWort=
  set the text of cast 5 to word (the mouseword) of the text of cast (the castnum of sprite Text)
  hilite word (the mouseword) of field (the castnum of sprite Text)
  repeat while the mousedown
    if not rollover(Text) then exit repeat
  end repeat
  --set the hilite of sprite Text to false
  --set the selstart to 0
  --set the selend to 0
  hilite char 32000 of field (the castnum of sprite Text)
  updatestage
end hyperclick