As you know I have made a voucher maker and a ban user button! And now to add to the list, A rare page maker!
Code:
Private Sub Command1_Click()
Dim lay As String, kk As Integer
itemid = InputBox("What item is going in? (Furni ID, EG: habbowood_chair", "Rare Page")
item = InputBox("What item is going in? (Furni Name, EG: Habbowood Chair", "Rare Page")
Cost = InputBox("How much will it be worth (Credits, EG: 25)", "Rare Page")
desc1 = InputBox("What is the 1st description?", "Rare Page")
desc2 = InputBox("What is the 2nd description", "Rare Page")
start2 = "s:h:s:h:"
startpage = "i:Rare" & " n: Rares" & "l: ctlg_productpage1" & start2
pagepart2 = "g: catalog_rares_headline1t1:"""
anotherpart = "w:e:p:"
thisptherpart = " s "
otherzz = " 0,0,0"
Kill (DBP & "catalogue\Rare\page.txt")
layout = startpage & desc1 & pagepart2 & desc2 & anotherpart & item & " " & item & " " & Cost & " " & thisotherpart & itemid & " 0 1,1 a9 " & itemid & otherzz & ""
kk = FreeFile
lay = layout
Open (DBP & "catalogue\Rare\page.txt") For Output As #X
Print #kk, lay
Close #kk
MsgBox "Rare page was made!"
End Sub
You do not need to edit the code! Just put it in a command and run it! Ive tested it and made this page:
i:Rare n: Raresl: ctlg_productpage1s:h
h:There is a new rare!g: catalog_rares_headline1t1:"Will you buy this new rare?w:e:p:Habbowood Chair Habbowood Chair 25 habbowood_chair 0 1,1 a9 habbowood_chair 0,0,0
If you find a buy, tell me! If text is out of place please tell me and post! I did this in less then an hour, so come on! If your gonna use this, give some credit
Enjoy :)
![[Rel] Rare page maker! [Rel]](http://ragezone.com/hyper728.png)
Originally Posted by kstor1234
