Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --nother *swearword* chatprogram this 1 is called ch4t(mucho creativissimo)
- --I AM FIXING THIS SHIT NOW ^^"
- shell.run("clear")
- print("SKIPP3Rs CH4T v1.2")
- -- establishing rednet
- print()
- print("Establishing Rednetconnection...")
- a=1
- redkey=0
- repeat
- print("try ",a," ...")
- redn=rednet.isOpen()
- if redn==true then
- redkey=1
- print("Sucess")
- print("connection established!")
- else
- a=a+1
- print("Failed")
- write("whers ur modem?: ")
- moden=read()
- rednet.open(moden)
- end
- until redkey==1
- -- Should be here established
- -- now som rdm question should follow
- sleep(3)
- shell.run("clear")
- print("SKIPP3Rs CH3T v1.2")
- print()
- write("username: ")
- usern=read()
- print()
- repeat
- print("First Send (1)")
- print("Or Receive (2)")
- write("1 or 2: ")
- aa=read()
- if aa=="1" then
- ab=1
- else
- if aa=="2" then
- ab=1
- else
- ab=0
- end
- end
- until ab==1
- rednet.broadcast("rly secrat messagghe")
- -- i hav put this broadcast here coz if som dumbass just broadcast shit ur program would respond to it
- repeat
- id,secu=rednet.receive()
- if secu=="rly secrat messagghe" then --BEST SECURITI EUW
- rednet.send(id,"rly secrat messagghe")
- IxD=id
- redkey=2
- else
- end
- until redkey==2
- print("probably got u a partner")
- print("if this page dont update after at least 12 sec. abort and try again")
- print("(if this keeps happening get this *swearword* programer back 2 work)")
- sleep(1)
- bb=math.random(10)
- sleep(bb)
- rednet.send(IxD,usern)
- repeat
- id,usernam=rednet.receive()
- if id==IxD then
- redkey=3
- username=usernam
- else
- end
- until redkey==3
- sleep(0.5)
- rednet.send(IxD,usern)
- print("got u probably a partner: ",username)
- sleep(3)
- shell.run("clear")
- print("SKIPP3Rs CH4T v1.2")
- if aa=="1" then
- write("You: ")
- msg=read()
- rednet.send(IxD,msg)
- else
- end
- repeat
- id,mesg=rednet.receive()
- if id==IxD then
- print(username,": ",mesg)
- write("You: ")
- msg=read()
- rednet.send(IxD,msg)
- else
- end
- until redkey==1337
Advertisement
Add Comment
Please, Sign In to add comment