Begin zs_winescript3short OnPCEquipshort alreadyshort waitfloat wtimerfloat ftimershort dofadeshort warpreadyif ( MenuMode == 1 ) Returnendifset already to ( GetPCCell Cellname ) ;check if you're already thereif ( OnPCEquip == 1) ;you've equipped the bottle if ( already == 1 ) MessageBox "The cork is stuck." set OnPCEquip to 0 else MessageBox "You drink from the bottle of wine." set wait to 1 set OnPCEquip to 0 endifendifif ( wait == 1 ) ;initiate warp timer if ( wtimer < 3 ) set wtimer to ( wtimer + GetSecondsPassed ) MessageBox "wtimer is %f" wtimer ;tells how much endifendifif ( wtimer > 3.0 ) ;fade out set wait to 0 FadeOut 3.0 set wtimer to 0 set dofade to 1endifif ( dofade == 1 ) ;initiate fade timer if ( ftimer < 3 ) set ftimer to ( ftimer + GetSecondsPassed ) MessageBox "ftimer is %f" ftimer ;tells how much endifendifif ( ftimer > 3 ) ; fade in set dofade to 0 set ftimer to 0 set warpready to 1 FadeIn 3.0endifif ( warpready == 1 ) ;warp set warpready to 0 player->PositionCell 0 0 10 0 Cellname MessageBox "warp complete"endifEnd zs_winescript3