User talk:67.186.19.151
May 2015
[edit] Please do not use styles that are unusual, inappropriate or difficult to understand in articles, as you did in John Denver. There is a Manual of Style, and edits should not deliberately go against it without special reason. Thank you. Mlpearc (open channel) 16:52, 21 May 2015 (UTC)
- If this is a shared IP address, and you did not make the edits, consider creating an account for yourself so you can avoid further irrelevant notices.
- Please clarify specifically how I used a "style that is unusual, inappropriate or difficult to understand" in the John Denver article with more than a general reference to the "Manual of Style". The 'Discography' therein does not cover singles, only albums, therefore is not a general Discography, but merely an Album discography, which I attampted to make clear in the section title. If someone adds information on singles, then it will be a general Discography, and can be retitled as such, but right now it is NOT. 67.186.19.151 (talk) 17:13, 21 May 2015 (UTC)
- Discography are labeled Discography and not Album discography across all musical articles. Quit changing Denver's. Mlpearc (open channel) 17:17, 21 May 2015 (UTC)
- So you're saying, really, that it's "unusual". It certainly was not "inappropriate or difficult to understand". Gotcha. 67.186.19.151 (talk) 23:14, 21 May 2015 (UTC)
- Discography are labeled Discography and not Album discography across all musical articles. Quit changing Denver's. Mlpearc (open channel) 17:17, 21 May 2015 (UTC)
Welcome!
[edit]Hello, and welcome to Wikipedia! Thank you for your contributions, such as the one you made to Cumulative song. I hope you like the place and decide to stay.
Here are some links to pages you may find useful:
- Contributing to Wikipedia
- Tutorial
- How to edit a page and How to develop articles
- Simplified Manual of Style
You don't have to log in to read or edit articles on Wikipedia, but if you wish to acquire additional privileges, you can simply create an account. It's free, requires no personal information, and lets you:
- Create new pages and rename pages
- Edit semi-protected pages
- Upload images
- Have your own watchlist, which shows when articles you are interested in have changed
If you edit without an account, your IP address (67.186.19.151) is used to identify you instead.
We hope that you choose to become a Wikipedian and create an account. If you need help, check out Wikipedia:Questions, ask me on my talk page, or ask your question and then place {{helpme}}
before the question on this page. We also have an intuitive guide on editing if you're interested. By the way, please make sure to sign and date your talk page comments with four tildes (~~~~).
Happy editing! Ibadibam (talk) 08:50, 24 October 2015 (UTC)
The code you wanted
[edit]10 gt$=CHR$(286): ga$=CHR$(287): go$=gt$
20 ml$=CHR$(267): mr$=CHR$(266): mu$=CHR$(282): md$=CHR$(283): ms$=CHR$(284): mo$=ml$
30 d$=CHR$(284)+CHR$(282)+CHR$(268)+CHR$(269)+CHR$(270)+CHR$(42)
40 eat=2/3: REM EDIBLE GHOSTS MOVE AT 2/3 SPEED
50 eat=INT(1/(1-eat)-.1): REM CONVERT eat TO ITS FRACTION'S NUMERATOR - FOR n/(n+1)
60 GOSUB 6000
300 REM====READ IN MAP, DRAW BOARD====
305 RESTORE
310 dots=0: i=RND(-PEEK(79)*999-PEEK(78)): yq=0
315 HTAB CM: VTAB 8: PRINT "Level:" SPC(D8) level SPC(1)
320 FOR j=10 TO 19: VTAB j: HTAB CM: CALL -868: NEXT
325 FOR j=1 TO 23
330 IF D8 THEN HTAB CM: VTAB 10: PRINT "Finished loading in:" SPC(3) 23-j SPC(1)
335 READ r$: VTAB j: HTAB 1: FOR i=1 TO 31: x=ASC( MID$( r$, i, 1))
340 PRINT CHR$(x-(x=49)*208+191);: IF i=1 THEN y=j<>12 AND x=49
345 x=(x=94)*3 + (x=49)*2 + (x=80): map(i,j)=x-1+10*NOT x
350 dots=(map(i,j)=2 OR NOT map(i,j))+dots
355 NEXT: IF y THEN yq=x<>2
360 NEXT
365 IF D8 THEN HTAB CM: VTAB 10: PRINT SPC(24)
400 count=0
450 me(4)=PEEK (49152): count=count + 1
452 GOSUB 700
460 IF me(4)=136 THEN me(7)=-1:me(8)=0: REM ==== LEFT
462 IF me(4)=138 THEN me(7)=0:me(8)=1: REM ==== DOWN
464 IF me(4)=139 THEN me(7)=0:me(8)=-1: REM ==== UP
466 IF me(4)=149 THEN me(7)=1:me(8)=0: REM ==== RIGHT
472 i=map(me(1),me(2))
474 IF i=2 OR NOT i THEN dots=dots-1:map(me(1),me(2))=-1:score=score+50*NOT i:IF i THEN GOSUB 1000
476 IF NOT dots THEN slow=slow-(slow>1): level=level+1: k=0: GOTO 170: REM ==== Next Level
478 HTAB me(1): VTAB me(2): PRINT ms$;
480 FOR i=1 TO 200:NEXT i
490 IF (count/slow) <> INT(count/slow) GOTO 450
500 GOSUB 600
505 IF me(5)=-1 THEN mo$=ml$
510 IF me(5)=1 THEN mo$=mr$
511 IF me(6)=-1 THEN mo$=mu$
511 IF me(6)=1 THEN mo$=md$
515 HTAB me(1): VTAB me(2): PRINT mo$;
520 FOR wg=1 to 4
525 IF gho(wg,4) > 0 THEN go$=ga$
530 IF gho(wg,4) <=0 THEN go$=gt$
532 IF me(1)=gho(wg,1) THEN IF me(2)=gho(wg,2) THEN GOSUB 550
533 REM IN PAC-MAN EDIBLE GHOSTS MOVE SLOWER SO YOU CAN CATCH 'EM
534 eg(wg)=(eg(wg)+1)*(eg(wg)<eat-(gho(wg,4)<=0)): IF eg(wg)<eat THEN GOSUB 800
536 HTAB gho(wg,1): VTAB gho(wg,2): PRINT go$;: gho(wg,4)=gho(wg,4)-1
538 IF me(1)=gho(wg,1) THEN IF me(2)=gho(wg,2) THEN GOSUB 550
540 NEXT
545 GOTO 450
550 IF gho(wg,4) <= 0 THEN POP: GOTO 5100
560 REM EDIBLE GHOST
580 score=score + prize: prize=prize * 2
582 gho(wg,1)=15: gho(wg,2)=10: gho(wg,4)=0
584 gho(wg,5)=1: gho(wg,6)=0: gho(wg,7)=0: gho(wg,8)=1
586 RETURN
590 REM====TRY TO MOVE IN NEW DIRECTION====
600 IF map(me(1)+me(7),me(2)+me(8)) > 2 GOTO 650
610 HTAB me(1): VTAB me(2): PRINT SPC(1)
615 me(1)=me(1)+me(7): me(2)=me(2)+me(8)
620 me(5)=me(7): me(6)=me(8): GOTO 670
640 REM====TRY TO MOVE IN CURRENT DIRECTION====
650 IF map(me(1)+me(5),me(2)+me(6)) > 2 THEN RETURN
660 HTAB me(1): VTAB me(2): PRINT SPC(1)
665 me(1)=me(1)+me(5): me(2)=me(2)+me(6)
670 IF me(1) <=1 THEN me(1)=30: IF yq THEN me(2)=24-me(2)
675 IF me(1) >=31 THEN me(1)=2: IF yq THEN me(2)=24-me(2)
680 RETURN
700 HTAB CM: VTAB 10: PRINT "Score: ";: IF NOT D8 THEN VTAB 11:HTAB 34
710 PRINT score;
720 HTAB CM: VTAB 13-D8: PRINT "Lives:" SPC(D8) lives;
730 RETURN
790 REM====TRY TO MOVE GHOST IN NEW DIRECTION====
800 IF map(gho(wg,1)+gho(wg,7),gho(wg,2)+gho(wg,8)) > 2 GOTO 850
810 HTAB gho(wg,1): VTAB gho(wg,2)
815 x=map(gho(wg,1),gho(wg,2)): GOSUB 2000
820 gho(wg,1)=gho(wg,1)+gho(wg,7): gho(wg,2)=gho(wg,2)+gho(wg,8)
825 gho(wg,5)=gho(wg,7): gho(wg,6)=gho(wg,8): GOSUB 900: GOTO 880
840 REM====TRY TO MOVE GHOST IN CURRENT DIRECTION====
850 IF map(gho(wg,1)+gho(wg,5),gho(wg,2)+gho(wg,6)) > 2 GOTO 950
860 HTAB gho(wg,1): VTAB gho(wg,2)
865 x=map(gho(wg,1),gho(wg,2)): GOSUB 2000
870 gho(wg,2)=gho(wg,2)+gho(wg,6)
875 gho(wg,1)=gho(wg,1)+gho(wg,5)
880 IF ABS(gho(wg,1)-16) > 14 THEN gho(wg,5)=-gho(wg,5): GOTO 875
885 RETURN
890 REM====NEW DIRECTION FOR GHOST ATTACK====
900 i=SGN(.5-gho(wg,4)): j=NOT gho(wg,7)
904 IF me(2-j) < gho(wg,2-j) THEN i=-i
906 gho(wg,7)=i*j: gho(wg,8)=i*NOT j: RETURN
940 REM====NEW CURRENT DIRECTION FOR GHOST====
950 pik=INT(RND(1)*8)+1: REM WITH *7, pik COULD NEVER EQUAL 8
958 i=(pik/2-INT(pik/2))*4-1: j=pik>4
960 gho(wg,7)=SGN(6.5-pik)*j:gho(wg,8)=SGN(2.5-pik)*NOT j
961 gho(wg,5)=i*NOT j:gho(wg,6)=i*j:RETURN
1000 FOR i=1 TO 4: gho(i,4)=30: NEXT: prize=2000: RETURN: REM ==== POWER UP
2000 IF NOT x THEN PRINT CHR$(271);: RETURN
2002 IF x=2 THEN PRINT CHR$(285);: RETURN
2004 PRINT SPC(1): RETURN
5100 lives=lives - 1
5110 FOR j=1 TO 6: HTAB me(1): VTAB me(2): PRINT MID$( d$, j, 1);
5115 FOR k=1 to 1200: NEXT: NEXT
5120 IF NOT lives GOTO 5500
5125 FOR j=1 TO 4: HTAB gho(j,1): VTAB gho(j,2)
5126 x=map(gho(j,1),gho(j,2)): GOSUB 2000: NEXT
5130 GOTO 170
5500 GOSUB 700
5520 HTAB CM: VTAB 15-D8: PRINT "GAME ";:IF NOT D8 THEN VTAB 16: HTAB 33
5530 PRINT "OVER !"
5550 PRINT: HTAB CM: PRINT "Play ";:IF NOT D8 THEN PRINT: HTAB 33
5560 PRINT "again?";: HTAB CM
5570 FOR i=0 TO 0: i=PEEK(49152): i=i-(i>223)*32: i=(i=206)*2+(i=217)-1:NEXT:POKE49168,0
5580 ON i GOTO 160: CALL -868: VTAB PEEK(37)+D8: PRINT "Bye!";: END
2601:545:8201:6290:C072:91A0:EF0D:2D44 (talk) 20:25, 6 December 2021 (UTC)
![]() | This is the discussion page for an IP user, identified by the user's IP address. Many IP addresses change periodically, and are often shared by several users. If you are an IP user, you may create an account or log in to avoid future confusion with other IP users. Registering also hides your IP address. |