Kc kırdırma ekleme Yapamayan kalmasın....

[we1982 26]

Merhaba 100 Knight cash kırdımak için gerekli kod.. Ne kadar cash kırdırmak istiyorsanız aynı şekilde kodu çoğaltarak uygulayabilirsiniz...

----------------------------------- kc kırdırma

if (EVENT ==  200) then

	SelectMsg(UID, 3, -1, 147, NPC, 40675, 203, 4005, 168);

end


if (EVENT == 203) then -- 100 kc için

	ITEMA = HowmuchItem(UID, 700082000);

	if (ITEMA == 0) then

		SelectMsg(UID, 2, -1, 44640, NPC, 18, 1000);

	else

		SelectMsg(UID, 2, -1, 44639, NPC, 4006, 220, 4005, 168);

	end

end


if (EVENT == 1000) then

	ShowMap(UID, 450);

end



if (EVENT == 220) then

SlotControl = CheckGiveSlot(UID,1)

if (SlotControl == true) then -- slotta yer var

	Check = isRoomForItem(UID, 700082000);

	if (Check 		SelectMsg(UID, 2, -1, 832, NPC, 27, 168);

	else

		ITEMA = HowmuchItem(UID, 700082000);

	if (ITEMA == 0) then

	else

	    RobItem(UID, 700082000, 1)

		GiveCashPoint(UID, 100)

		SelectMsg(UID, 2, -1, 1114, NPC, 27, 168);

	end

end

end

end

--------------------------------------------------

[vestside 90]

Sagol kardes.