All pastes #457785 Raw Edit

Something

public text v1 · immutable
#457785 ·published 2007-04-25 15:38 UTC
rendered paste body
							ElseIf expl[0]="chat" Then
								Local name:String[]=Explode(expl[1],"=")
								Local tpe:String[]=Explode(expl[3],"=")
									If tpe[1]="system" Then
										Local command:String[]=Explode(expl[4],"=")
											If command[1]="/transfer" Then
												WriteLine(stream,"getcash "+name[1])
												Local amt:String=ReadLine(stream)
													Local csh:String[]=Explode(amt,"=")
													If csh[0]="cash" Then
														Local dest:String=expl[5]
														Local amt:String=expl[6]
														If csh[1].ToInt()>=amt.ToInt() Then
															WriteLine(stream,"getcash "+dest[1])
															Local amtx:String[]=Explode(ReadLine(stream),"=")
																If amtx[1]="cash" Then
																	WriteLine(stream,"addcash "+dest+" "+amt)
																	Local total:Int=csh[1].ToInt()-amt.ToInt()
																	WriteLine(stream,"setcash "+name[1]+" "+String.FromInt(total))
																Else
																	WriteLine(stream,"fmsg "+name[1]+" <TRA data='0x0000FF01' mask='-1'/><TEXT>Invalid destination.</TEXT>")
																EndIf
														Else
															WriteLine(stream,"fmsg "+name[1]+" <TRA data='0x0000FF01' mask='-1'/><TEXT>You are too poor for that.</TEXT>")		
														EndIf
													Else
														WriteLine(stream,"fmsg "+name[1]+" <TRA data='0x0000FF01' mask='-1'/><TEXT>Invalid character.. This shouldn't happen, contact an admin!</TEXT>")		
													EndIf
											EndIf
									EndIf					
							EndIf