教你如何整人!V2.5 愚人节特别版!

epcdiy

似乎很好玩,请问适合什么机型?

qlqfzs

1 T=30
2 POKE 997,255OCATE 3,5RINT "Loading......"
3 Z=0
4 IF PEEK(199)<128 THEN GOTO 7
5 BEEP:X=ASC(INKEY$)
6 IF X=13 THEN GOTO 10
7 LOCATE 4,9RINT Z;"%"
8 IF Z=100 THEN GOTO 10
9 Z=Z+1:GOTO 400
10 BEEPOCATE 2,5RINT "教你如何整人!";"                         V2.5 愚人节特别版"
20 IN$=INKEY$
30 CLS:PRINT "本程序在运行前,会自动要求输入你的详细个人资料,请认真耐心填写!"
40 IN$=INKEY$:CLS:PRINT "然后,本程序会依据你的资料,进行分析,为你制定最好的整人方案!"
50 IN$=INKEY$:CLS:PRINT "警告!请务必保正资料的真实性!以确保后台分析程序能够正常的运行!"
60 IN$=INKEY$:CLSOCATE 3,9:PRINT "OK?"
70 IN$=INKEY$:CLS:LOCATE 3,7:PRINT "GO!GO!GO!"
80 IN$=INKEY$:CLS:PRINT "请输入你的姓名:"
90 POKE 997,0:INPUT "";A$
95 IF A$="" THEN GOTO 90
100 CLS:PRINT "请输入你的性别:":INPUT "";B$
105 IF B$="" THEN GOTO 100
110 CLS:INPUT "请输入你的年龄:";C
112 IF C<=0 OR C>=100 THEN PRINT " 难道你是妖怪吗啊?!":IN$=INKEY$:GOTO 110
120 CLS:INPUT "请输入你的生日:    例:2005.0101        ";E
130 CLS:PRINT "你最崇拜的人是谁?":INPUT "";F$
135 IF F$="" THEN GOTO 130
140 CLS:INPUT "你的QQ号是多少?     ";G
142 IF G<100000000 OR G>1000000000 THEN PRINT "   请输入9位号码!":IN$=INKEY$:GOTO 140
150 CLS:INPUT "你的电话号码是多少? ";H
155 IF H<10000000 OR H>100000000 THEN PRINT "   请输入8位电话!":IN$=INKEY$:GOTO 150
160 CLS:PRINT "请输入你的血型:":INPUT "";I$
163 IF I$="" THEN GOTO 160
164 IF I$="A" THEN GOTO 170
165 IF I$="B" THEN GOTO 170
166 IF I$="AB" THEN GOTO 170
167 IF I$="O" THEN GOTO 170
168 LOCATE 3,4:PRINT "难道你是妖怪吗?":IN$=INKEY$:GOTO 160
170 CLS:PRINT "你怕无头恶鬼吗?":INPUT "";J$
175 IF J$="" THEN GOTO 170
180 CLS:PRINT "你怕飞天蟑螂吗?":INPUT "";K$
185 IF K$="" THEN GOTO 180
190 CLS:PRINT "你长的对不起观众吗?":INPUT "";L$
195 IF L$="" THEN GOTO 190
200 CLS:PRINT "你喜欢吃黑色海带吗?":INPUT "";M$
205 IF M$="" THEN GOTO 200
210 CLS:PRINT "你曾经整过人吗?":INPUT "";N$
215 IF N$="" THEN GOTO 210
220 CLS:PRINT "你喜欢整人吗?":INPUT "";O$
225 IF O$="" THEN GOTO 220
230 CLS:PRINT "最后,为了保护你的个人资料不被他人偷看,请输入你的密码:"
240 INPUT "";P$:GOTO 350
245 LOCATE 3,4:PRINT "资料保存中......"
250 OPEN "SB2" FOR OUTPUT AS #1
260 WRITE#1,A$,B$,C,E,F$,G,H,I$,J$,K$,L$,M$,N$,O$,P$,Q$,B%
270 CLS:LOCATE 3,7:PRINT "哈!哈!哈!":POKE 997,255
280 IN$=INKEY$:CLS:LOCATE 3,7:PRINT "怎么整人?"
290 IN$=INKEY$:CLS:LOCATE 3,6:PRINT "就是这样整!"
300 IN$=INKEY$:CLS:LOCATE 3,3:PRINT "江湖险恶 人心叵测"
310 IN$=INKEY$:CLS:LOCATE 3,7:PRINT "Bye-By!","   Soft By B_Ink"
320 END
330 CLS:PRINT "请再次输入你的密码:":INPUT "";Q$
340 CLS:IF P$<>Q$ THEN PRINT " 两次输入的密码不同!     请重新输入!":IN$=INKEY$:GOTO 230
345 GOTO 245
350 IF P$="" THEN GOTO 370
360 GOTO 330
370 CLS:LOCATE 3,2:PRINT "拜托!密码不能为空!":IN$=INKEY$:GOTO 230
400 BOX 30,74,T,79,1:BOX 30,73,130,80
410 T=T+1
420 IF T=160 THEN GOTO 10
430 GOTO 4

原来如此,教别人整人的同时整他~
恕我眼拙,我看不出有多强

BlackInk

所有型号都可以！！！！！

epcdiy

这个程序好简单,没人会上当

lw8776

呵呵~看看是什么`

BlackInk

本程序只是作个例子，别的功能就要靠大家的想像力了！！

epcdiy

不是我说,真的没人会上当,除非是...........[/SIZE]

BlackInk

支持我一下啊！！！

lw8776

不是我不支持~~~~~[em06]

BlackInk

我自己顶！！欢迎大家修改！！多提出宝贵意见！！！

BlackInk

我自己顶！

donghui2199

楼主再灌水俺就删贴了！！！注意and警告！！

BlackInk

教你如何整人!V2.5 愚人节特别版!
由于本程序威力过于强大，小心自己被整！
本程序运行过后会生成一个名叫“SB2.DAT”的文件 ，请用 Pacmanager V1.4.4 打开。
内容会吓死你的！！
本程序“整遍天下无敌手”
作者小传
盛渲(B_Ink) 17岁
就读于 新沪高级中学 高二（3）班
QQ：395780502
E—mail：hacker_sx@126.com
特别说明：由于本程序造成任何损失和伤害事件（包括死亡等）本人概不负责！
其他功能：本程序还有收集个人资料的作用，
          还有一个鲜为人知的秘密：呵呵，偷密码，怎么偷，就看你的领悟能力了！