DOS/V Power Report 1997 March/VPR9703A.ISO/VPR_DATA/POLYCILD/PliCil01.DIR/00016_Script_AsoWinMainEngin

Text File | 1997-01-06 | 3KB | 107 lines

--1995 BUN SADAKA --SuperPresentationTool_Ver.1.0.2/1995/10/15
--ﾉOﾉ酣[ﾉoﾉ肚ﾈ褂
global gTimer,gSprKey,gSprLen
global gLxList,gLyList,gStarCast,gMode
global gShootingStar,gKeys
--鞣茣筱
on Ginit
  preLoadCast 1, 23
  set gTimer = 0
  set gKey=""
  Set gSprKey = 21 --ﾉpﾉyﾉbﾉgﾇﾝﾇﾈﾉXﾉvﾉ篷Cﾉgﾇﾃ腴駭燿咊
  Set gSprLen = 6 --ﾉpﾉyﾉbﾉgﾇﾝﾇﾈﾉXﾉvﾉ篷Cﾉgﾇﾃ-1
  set gStarCast=121--Random(4)*20+81
  set gTimer=0
  --
  --臚ﾉXﾉvﾉ篷Cﾉgﾇﾃﾉpﾉyﾉbﾉg筱
  repeat with n = gSprKey  to gSprKey+gSprLen--ﾉXﾉ^ﾅ[ﾉJﾅ[ﾉ\ﾉ翡AﾉXﾉ^ﾅ[ﾉZﾉCﾉoﾅ[
    puppetSprite n,True
  end repeat
  SetStar ("on",31,12,1,0)
  star2(the mouseH,the mouseV)
end

on turn vSpr--簫]
  if vSpr=0 then
    set aDefLocH =the mouseH
    set aDefLocV =the mouseV
  else
    set aDefLocH =the locH of sprite vSpr
    set aDefLocV =the locV of sprite vSpr-50
  end if
  set the locH of sprite gSprKey =aDefLocH
  set the locV of sprite gSprKey =aDefLocV
  set aHankei=64
  set aRadian=0
  repeat while aHankei>0
    if aRadian>=1200 then
      set aRadian=0
    end if
    set aRadian=aRadian+5

    set aPointH=sin(aRadian/aHankei)*aHankei+aDefLocH
    set aPointV=cos(aRadian/aHankei)*aHankei+aDefLocV
    star2( aPointH,aPointV)
    set aHankei=aHankei-25.6
  end repeat
--  if vSpr=0 then
--    repeat with n = gSprKey  to gSprKey+gSprLen--ﾉXﾉ^ﾅ[ﾉJﾅ[ﾉ\ﾉ翡AﾉXﾉ^ﾅ[ﾉZﾉCﾉoﾅ[
--      puppetSprite n,False
--    end repeat
--    CURSOR -1
--  end if
end


on keys
  if the key=RETURN then
    nothing
  end if
  set gKeys=the key
end

on star--ﾉXﾉ^ﾅ[ﾉJﾅ[ﾉ\ﾉ(ﾉXﾉvﾉ篷Cﾉgﾉ鐱@ﾅ[ﾉWﾉ睨ﾅjtﾇｴ
  if mousedown() then--ﾉXﾉ^ﾅ[ﾉNﾉ菲bﾉN
    puppetSound  1,3
    turn (0)
  end if
  star2(the mouseH,the mouseV)
  set aLx= getAt(gLxList,1)-THE MOUSEH

  if aLx>150 then
    puppetSound 1,1
  else if  aLx<-150 then
    puppetSound 2,2
  else if getAt(gLyList,1)-the MOUSEV=-120 then
    puppetSound 1,3
  end if
  mMove gShootingStar
end


on star2 vPointH,vPointV--ﾉXﾉ^ﾅ[ﾉJﾅ[ﾉ\ﾉ翹GﾉﾉWﾉ
  set gLxList=[]
  set gLyList=[]
  set aEndSpr=gSprKey+gSprLen
  repeat with n= gSprKey to aEndSpr-1
    add gLxList,the locH of sprite n
    add gLyList,the locV of sprite n
  end repeat
  set the locH of sprite gSprKey =vPointH
  set the locV of sprite gSprKey =vPointV
  repeat with n=gSprKey+1 to aEndSpr
    set aNum=n-gSprKey
    set the locH of sprite n =getAt(gLxList,aNum)
    set the locV of sprite n =getAt(gLyList,aNum)
  end repeat
  repeat with k = 0 to 6
    set the castNum of sprite k+gSprKey+1 =member (gStarCast+k+4) of CastLib 2
    updateStage
  end repeat
  set the castNum of sprite gSprKey =gStarCast+2
  updateStage
end