STORY LOOP FURRY PORN GAMES C SERVICES [?] [R] RND POPULAR | Archived flashes: 228091 |
/disc/ · /res/ — /show/ · /fap/ · /gg/ · /swf/ | P0001 · P2561 · P5121 |
This is the info page for Flash #12615 |
THESE ARE THE CODER'S NOTES ON THE ACTION SCRIPT OF THE CARD0 BUTTON So this code is executed on every card Click *********************************************************************************************************** On (Release) Set Variable: "Display" = 0 ; True will mean show the card. If (Faceup <> 1) ; Test if the card is allready faceup (to stay as in, its a successfull card) If (/:ClickCount = 0) ; If no cards up Set Variable: "Display" = 1 ; We will show this one Set Variable: "/:ClickCount" = 1 ; First Card Up Set Variable: "/:FirstClick" = _target; Save this MC's Target for testing Else If (/:ClickCount = 1) ; One card is allready showing If (_target ne /:FirstClick) ; ensure this isnt the car the user turned Set Variable: "Display" = 1 ; we will show this one If (MyCard <> eval(/:FirstClick & "/:MyCard")) ; is the first card and this card the same? (the MyCard variable was set in the shuffle/duplicate) Set Variable: "/:SecondClick" = _target ; No it isnt the same so save this target as the second card. Set Variable: "/:ClickCount" = 2 ; Two cards are facing up - we do this bit so that the next time a user clicks it hides these cards Else Set Variable: "/:ClickCount" = 0 ; Success, no selections now Set Variable: "FaceUp" = 1 ; This card is a successfull card Set Variable: eval(/:FirstClick & "/:Faceup") = 1 ; This says the first card clicked was also successful. Set Variable: "/:GameCount" = /:GameCount + 1 ; This is the end of game test If (/:GameCount = 8) ; if eight success. game over. Begin Tell Target ("/EOG") Go to and Stop (2) End Tell Target End If End If End If Else; Now we clear the cards away (clickcount = 2 here so the user has shown the cards, and they werent successful) Set Variable: "/:ClickCount" = 0 ; Reset the count Begin Tell Target (/:FirstClick) ; Change the cards back Go to and Stop (1) End Tell Target Begin Tell Target (/:SecondClick) Go to and Stop (1) End Tell Target End If If (Display = 1); If this card was tagged to be shown, we do it here. Go to and Stop (MyCard + 1) End If End If End On |
ENCORE ? |
Bien joué! |
empty mc |
ActionScript [AS1/AS2]
Frame 2trycount = "0"; GameCount = 0; CountX = 0; CountY = 0; Shuffle = "1122334455667788"; while (Number(CountX) < 4) { while (Number(CountY) < 4) { CurrentCount = Number(Number(CountX * 4) + Number(CountY)) + 1; duplicateMovieClip ("/Card0", "Card" add CurrentCount, CurrentCount); setProperty("/Card" add CurrentCount, _x , Number(CountX * 80) + 100); setProperty("/Card" add CurrentCount, _y , Number(CountY * 80) + 105); call("GetCard"); tellTarget ("/Card" add CurrentCount) { MyCard = /:NewCard; }; trace((((CountY add " ") add CountX) add " ") add CurrentCount); CountY = Number(CountY) + 1; trace((("Card " add CurrentCount) add " is number ") add MyCard); } CountY = 0; CountX = Number(CountX) + 1; } ClickCount = "0"; FirstClick = ""; stop();Frame 3RandomPos = Number(random(length(Shuffle))) + 1; NewCard = 0 + Number(substring(Shuffle, RandomPos, 1)); NewShuffle = (substring(Shuffle, 1, RandomPos - 1)) add (substring(Shuffle, RandomPos + 1, 99)); Shuffle = NewShuffle;Frame 4stop();Symbol 4 Buttonon (release) { Display = 0; Set("/:trycount", Number(/:trycount) + 1); Set("/:trymatch", /:trycount / 2); if (Number(Faceup) != 1) { if (Number(/:ClickCount) == 0) { Display = 1; Set("/:ClickCount", 1); Set("/:FirstClick", _target); } else if (Number(/:ClickCount) == 1) { if (_target ne /:FirstClick) { Display = 1; if (MyCard != eval (/:FirstClick add "/:MyCard")) { Set("/:SecondClick", _target); Set("/:ClickCount", 2); } else { Set("/:ClickCount", 0); FaceUp = 1; Set(eval (/:FirstClick add "/:Faceup"), "1"); Set("/:GameCount", Number(/:GameCount) + 1); if (Number(/:GameCount) == 8) { tellTarget ("/EOG") { gotoAndPlay (2); }; } } } } else { Set("/:ClickCount", 0); tellTarget (/:FirstClick) { gotoAndStop (1); }; tellTarget (/:SecondClick) { gotoAndStop (1); }; } if (Number(Display) == 1) { gotoAndStop(Number(MyCard) + 1); } } }Symbol 14 MovieClip Frame 1stop();Symbol 24 Buttonon (release, keyPress "<Enter>") { tellTarget ("/") { gotoAndPlay (1); }; gotoAndStop (1); }Symbol 28 MovieClip Frame 1stop();Symbol 28 MovieClip Frame 2CountX = 0; CountY = 0; while (Number(CountX) < 4) { while (Number(CountY) < 4) { CurrentCount = Number(Number(CountX * 4) + Number(CountY)) + 1; duplicateMovieClip ("/empty", "Card" add CurrentCount, CurrentCount); CountY = Number(CountY) + 1; } CountY = 0; CountX = Number(CountX) + 1; }Symbol 28 MovieClip Frame 20stop();
Library Items
Symbol 1 Graphic | Used by:Timeline | |
Symbol 2 Graphic | Used by:14 | |
Symbol 3 Graphic | Used by:4 | |
Symbol 4 Button | Uses:3 | Used by:14 |
Symbol 5 Graphic | Used by:14 | |
Symbol 6 Graphic | Used by:14 | |
Symbol 7 Graphic | Used by:14 | |
Symbol 8 Graphic | Used by:14 | |
Symbol 9 Graphic | Used by:14 | |
Symbol 10 Graphic | Used by:14 | |
Symbol 11 Graphic | Used by:14 | |
Symbol 12 Graphic | Used by:14 | |
Symbol 13 Graphic | Used by:14 | |
Symbol 14 MovieClip | Uses:2 4 5 6 7 8 9 10 11 12 13 | Used by:Timeline |
Symbol 15 Font | Used by:16 | |
Symbol 16 EditableText | Uses:15 | Used by:Timeline |
Symbol 17 Graphic | Used by:28 | |
Symbol 18 Graphic | Used by:28 | |
Symbol 19 Graphic | Used by:24 | |
Symbol 20 Font | Used by:21 29 | |
Symbol 21 Text | Uses:20 | Used by:24 |
Symbol 22 Graphic | Used by:24 | |
Symbol 23 Graphic | Used by:24 | |
Symbol 24 Button | Uses:19 21 22 23 | Used by:28 |
Symbol 25 Font | Used by:26 | |
Symbol 26 Text | Uses:25 | Used by:28 |
Symbol 27 Sound | Used by:28 | |
Symbol 28 MovieClip | Uses:17 18 24 26 27 | Used by:Timeline |
Symbol 29 Text | Uses:20 | Used by:30 |
Symbol 30 MovieClip | Uses:29 | Used by:Timeline |
Symbol 31 Sound | Used by:Timeline |
Instance Names
"Card0" | Frame 2 | Symbol 14 MovieClip |
"EOG" | Frame 2 | Symbol 28 MovieClip |
"empty" | Frame 2 | Symbol 30 MovieClip |
Special Tags
Protect (24) | Timeline Frame 1 | 0 bytes "" |
Labels
"init" | Frame 2 |
"GetCard" | Frame 3 |
"initstop" | Symbol 28 MovieClip Frame 1 |
"clear cards from field" | Symbol 28 MovieClip Frame 2 |
"end stop" | Symbol 28 MovieClip Frame 20 |
Dynamic Text Variables
TextField4 | Symbol 16 EditableText | "THESE ARE THE CODER'S NOTES ON THE ACTION SCRIPT OF THE CARD0 BUTTON So this code is executed on every card Click *********************************************************************************************************** On (Release) Set Variable: "Display" = 0 ; True will mean show the card. If (Faceup <> 1) ; Test if the card is allready faceup (to stay as in, its a successfull card) If (/:ClickCount = 0) ; If no cards up Set Variable: "Display" = 1 ; We will show this one Set Variable: "/:ClickCount" = 1 ; First Card Up Set Variable: "/:FirstClick" = _target; Save this MC's Target for testing Else If (/:ClickCount = 1) ; One card is allready showing If (_target ne /:FirstClick) ; ensure this isnt the car the user turned Set Variable: "Display" = 1 ; we will show this one If (MyCard <> eval(/:FirstClick & "/:MyCard")) ; is the first card and this card the same? (the MyCard variable was set in the shuffle/duplicate) Set Variable: "/:SecondClick" = _target ; No it isnt the same so save this target as the second card. Set Variable: "/:ClickCount" = 2 ; Two cards are facing up - we do this bit so that the next time a user clicks it hides these cards Else Set Variable: "/:ClickCount" = 0 ; Success, no selections now Set Variable: "FaceUp" = 1 ; This card is a successfull card Set Variable: eval(/:FirstClick & "/:Faceup") = 1 ; This says the first card clicked was also successful. Set Variable: "/:GameCount" = /:GameCount + 1 ; This is the end of game test If (/:GameCount = 8) ; if eight success. game over. Begin Tell Target ("/EOG") Go to and Stop (2) End Tell Target End If End If End If Else; Now we clear the cards away (clickcount = 2 here so the user has shown the cards, and they werent successful) Set Variable: "/:ClickCount" = 0 ; Reset the count Begin Tell Target (/:FirstClick) ; Change the cards back Go to and Stop (1) End Tell Target Begin Tell Target (/:SecondClick) Go to and Stop (1) End Tell Target End If If (Display = 1); If this card was tagged to be shown, we do it here. Go to and Stop (MyCard + 1) End If End If End On " |
|