Keim

Here you go. Put in some comments so you can change the ItemID amount, the description, everything.
Hope it works
http://up.martint.net/filesdir/40_1328707265.txt
mixis.txt

Tested the script and works fine with some tiny changes:
The first line had spaces instead of tabs, so I erased them and made them into tabs.
Added one last right curly (Just like you said GenGen!).
*Note that you have to add the tabs yourself, it won't work If I post them here for some reason, they go back to spaces.*
Final copy:



prontera,150,168,2 script Mr.Monday 911,{
//=========================== Settings ====================================
set .@changername$,"[ ^FF0000 Mr.Monday ^000000]";// YOU MAY CHANGE THE NAME OF THE NPC
set .tcgid,7227;
set @tcgamount,1;
//======================= Settings End ====================================
//*************************************************************************

if (gettime(4)==1){
mes .@changername$;
mes "Hello "+strcharinfo(0)+" ,";
mes "What a wonderful day is today";
mes "Do you know that today is Monday?";
mes "Monday means Moon day, that's a fact.";
next;
mes "Hmm, Hey I got this unsual item ";
mes "when I was wandering around the ";
mes "wood It looks blackish in colour and it scared me.";
next;
switch(select("Do you still have it?:I got to go dude"))
{
case 1:
mes .@changername$;
mes "Sure but I don't have it right now";
mes "my brother have it,";
mes "I can tell you where my brother is but";
next;
switch(select("But what?:Cancel"))
{
case 1:
mes .@changername$;
mes "You have to help me find something";
mes "I really love a hat ^FF0000 Earmuff ^000000";
mes "can you find the material for me?";
next;
switch(select("I have it right now:Cancel"))
{
case 1:
mes .@changername$;
mes "Okay let me check if";
mes "you have the material..";
next;
mes .@changername$;
mes "Rustle... Rustle...";
next;
if((countitem(724) > 0) && (countitem(949) > 499) && (countitem(5001) > 0))
{
delitem 724,1;
delitem 949,500;
delitem 5001,1;
next;
mes .@changername$;
getitem .tcgid,@tcgamount; //Change to next Item!
mes "Here take this and see my big brother.";
mes "Mr. Tuesday, take this and he will talk to you.";
close;
}
else
{
mes .@changername$;
mes "Sorry you have to get the items first!";
close;
}
case 2:
mes .@changername$;
mes "Okay goodbye!";
close;
}
case 2:
mes .@changername$;
mes "Okay goodbye!";
close;
}
case 2:
mes .@changername$;
mes "Okay goodbye!";
close;

OnClock0000:
enablenpc "Mr.Monday";
end;

OnClock1200:
disablenpc "Mr.Monday";
end;
}

if(gettime(4)!=1){
disablenpc "Mr.Monday";
close;
}
}
}
[/codeBOX]